home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 April / 1993-04.d64 / piglatin (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  284 b   |  8 lines
  1. 50 poke53280,6:poke53281,6:print"[147]"
  2. 100 print:input "enter word";a$:if a$="" then end
  3. 110 x=1:m$=mid$(a$,2,1):if m$="h" or m$="l" or m$="r" then x=2
  4. 120 print mid$(a$,1+x);"-";mid$(a$,1,x)+"ay"
  5. 130 print:print "another word (y or n)?"
  6. 140 get k$:if k$<>"y" and k$<>"n" then 140
  7. 150 if k$="y" then 100
  8.