Rev and the iPad

[Marty Knapp]

Actually Barney is the Antichrist. For proof:

on BarneyCode
   put "CUTE PURPLE DINOSAUR" Into IsBarneyTheAntiChrist
   put 0 into TheNumberThatWillProveIt
   replace "U" with "V" in IsBarneyTheAntiChrist --Should be proper 
Latin- well, because
   repeat with x=1 to the number of chars of IsBarneyTheAntiChrist
      if char x of IsBarneyTheAntiChrist is in "C,V,L,D,I" then --Only 
use letters that are Roman Numerals
         add romanToArab(char x of IsBarneyTheAntiChrist) to 
TheNumberThatWillProveIt
      end if
   end repeat
   answer warning TheNumberThatWillProveIt
end BarneyCode

--function by Mark Schonewille
function romanToArab theNumber
      put "i,v,x,l,c,d,m" into myRomans
      put "1,5,10,50,100,500,1000" into myArabs
      put item itemoffset(last char of theNumber,myRomans) of myArabs 
into myNumber
      repeat with x = (number of chars of theNumber - 1) down to 1
           put item itemoffset(char x of theNumber,myRomans) of myArabs 
into myTemp1
           put item itemoffset(char x + 1 of theNumber,myRomans) of 
myArabs into myTemp2
           if myTemp1 < myTemp2 then
                subtract myTemp1 from myNumber
           else add myTemp1 to myNumber
      end repeat
      return myNumber
end romanToArab

Marty Knapp

P.S. My apologies ahead of time if I offended your religious, 
non-religious, or irreligious sensibilities.
P.S. #2 I hope Mark doesn't mind me using his function for this silliness
> Spookier still is to consider what ungodly combination of space alien and furry marmot gave birth to Barney. 
>
>   
>> Surely the spookiest thing of all is that Barney is still alive . . .  :)
>> _______________________________________________
>> use-revolution mailing list
>> use-revolution at lists.runrev.com
>> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
>> http://lists.runrev.com/mailman/listinfo/use-revolution
>>     
>
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution
>
>