home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D03.D64 / menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  993 b   |  26 lines
  1. 0 REM ********************************
  2. 1 REM *INTRO CREDITS COPYRIGHT 1989  *
  3. 2 REM ********************************
  4. 3 REM ********************************
  5. 4 REM *INTRO CREDITS COPYRIGHT 1989  *
  6. 5 REM ********************************
  7. 6 REM ********************************
  8. 7 REM *INTRO CREDITS COPYRIGHT 1989  *
  9. 8 REM ********************************
  10. 9 REM ********************************
  11. 10 REM *INTRO CREDITS COPYRIGHT 1989  *
  12. 11 REM ********************************
  13. 12 PRINT"[147]"
  14. 100 L=L+1:POKE53281,L:IFL=3THENLOAD"M.MC",8,1
  15. 105 IFL=1THENLOAD"INTER STOP",8,1
  16. 106 IFL=2THENSYS16384+256+256+256:GOTO100
  17. 110 IFL=4THENLOAD"M.MUSIC",8,1
  18. 120 POKE54296,15:FORT=0TO300:NEXT:SYS16384+256+256+256
  19. 130 IFA=56THENS$="INTRO":LOAD"RTU",8,1
  20. 135 PRINT" PRESS 1 FOR INTRODUCTION"
  21. 136 PRINT"       2 FOR SAVE CODE"
  22. 137 PRINT"       3 FOR SMALL DEMO"
  23. 138 IF A=59THENS$="SAVE CODE":LOAD"RTU",8,1
  24. 140 IFA=8THENS$="DEMO BA":LOAD"RTU",8,1
  25. 150 A=PEEK(197):GOTO130
  26.