home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PIG-LATIN-TRANSLATER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  512b  |  22 lines
  1. 1 REM *** PIG LATIN TRANSLATER ***
  2. 2 REM ***          BY          ***
  3. 3 REM ***      CHRIS HOGAN     ***
  4. 4 REM ***         1/ /86       ***
  5. 5 REM ****************************
  6. 6 :
  7. 10 PRINT"[147]"
  8. 20 PRINT:PRINT:INPUT"ENTER WORD TO BE TRANSLATED";W$
  9. 30 A$=LEFT$(W$,1)
  10. 40 L=LEN(W$)
  11. 45 L=L-1
  12. 50 B$=RIGHT$(W$,L)
  13. 55 PRINT:PRINT
  14. 60 PRINT"THE TRANSLATION IS ";
  15. 70 PRINTB$+A$"AY"
  16. 80 PRINT:PRINT:PRINT:PRINT"HIT <SPACE> FOR ANOTHER"
  17. 90 PRINT"<Q> FOR QUIT"
  18. 100 GET X$:IF X$=""THEN 100
  19. 110 IF X$=" "THEN RUN
  20. 120 IF X$="Q"THEN END
  21. 130 GOTO 100
  22.