home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D2B.D64 / scroll1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  236 b   |  10 lines
  1. 5 REM YOU MUST HAVE LOADED YOUR OWN ES-DATA BEFORE USING THIS
  2. 10 PRINT"[147]":GOTO 80
  3. 20 GET D$:IF D$="" THEN 20
  4. 30 IF D$="[145]" THEN M=1:GOTO 80
  5. 40 IF D$="" THEN M=2:GOTO 80
  6. 50 IF D$="[157]" THEN M=3:GOTO 80
  7. 60 IF D$="" THEN M=4:GOTO 80
  8. 70 GOTO 20
  9. 80 POKE 49623,M:SYS 49168:GOTO 20
  10.