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