home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / PHYSICAL-FITNESS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  28 lines
  1. 2 REM   ARE YOU PHYSICALLY FIT?               CONCOCTED BY JIM GREEN 8/86   .
  2. 8 POKE53280,15:POKE53281,15:PRINT"[147][155]";
  3. 10 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  4. 15 [153]"(null) SYS(null)HYSICAL ASCITNESS (null)EST STOP(null)
  5. 18 PRINT"[221]                       [221]
  6. 20 [153]"(null) LENAN YOU PASS IT ?     STOP(null)    NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW";
  7. 22 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP    STOPGET         GETWAIT";
  8. 23 [153]"                             STOPGET         GETWAIT";
  9. 25 [153]"POKE (null)UT YOUR FACE  UP CLOSE TO  STOPGET         GETWAIT";
  10. 30 [153]"POKE THE  BLACK  RECTANGLE  AND  STOPGET         GETWAIT";
  11. 35 [153]"POKE AND BLOW ON IT.RIGHT$F IT TURNS  STOPGET         GETWAIT";
  12. 40 [153]"POKE GREEN, CALL YOUR DOCTOR.RIGHT$F  STOPGET         GETWAIT";
  13. 45 [153]"POKE IT   TURNS   BROWN,   (null)UIT  STOPGET         GETWAIT";
  14. 50 [153]"POKE SMOKING   AND   SEE   YOUR  STOPGET         GETWAIT";
  15. 55 [153]"POKE DENTIST.RIGHT$F IT TURNS PURPLE  STOPGET         GETWAIT";
  16. 60 [153]"POKE ,CONSULT YOUR  PSYCHIARIST  STOPGET         GETWAIT";
  17. 65 [153]"POKE RIGHT$F IT TURNS  RED, SEE YOUR  STOPGET         GETWAIT";
  18. 70 [153]"POKE BANKER. RIGHT$F IT TURNS BLACK,  STOPGET         GETWAIT";
  19. 75 [153]"POKE CALL YOUR LAWYER  AND MAKE  STOPGET         GETWAIT";
  20. 80 [153]"POKE OUT A WILL. RIGHT$F  IT REMAIMS  STOPGET         GETWAIT";
  21. 82 [153]"POKE THE SAME  COLOR, YOU'RE IN  STOPNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAIT";
  22. 84 [153]"POKE GOOD HEALTH AND THERE'S (null)(null)
  23. 86 PRINT" REASON ON EARTH WHY YOU SHOULD NOT BE    
  24. 39168 " PROGRAMING WITH YOUR LEN(null)(null)(null)(null)STR$(null)(null)VALCLOSE64!
  25. 90 PRINT"   ([213]NLESS YOU [204][201][203][197] MOWING THE GRASS).
  26. 92 [153]"               USRUSRUSRUSR ON
  27. 100 GOTO100
  28.