home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / ldmenu.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  521 b   |  28 lines
  1. 10000 REM LOAD MENU
  2. 10010 PRINT
  3. 10020 PRINT "LOAD MENU, QUIT, OR REPEAT (M,Q,R)? "
  4. 10030 GET A$:IF A$="" THEN 10030
  5. 10040 IF A$="R" THEN 100
  6. 10050 IF A$<>"Q" THEN 10100
  7. 10090 PRINT "[147]":END
  8. 10100 IF A$<>"M" THEN 10030
  9. 10110 OPEN 15,8,15,"R0:FILE MENU=FILE MENU"
  10. 10120 INPUT#15,EN,EM$,ET,ES:CLOSE15
  11. 10130 IF EN=63 THEN FI$="FILE MENU":GOTO 10160
  12. 10140 PRINT "ERROR - FILE MENU NOT FOUND"
  13. 10150 GOTO 10020
  14. 10160 POKE 646,0
  15. 10170 PRINT"[147]"CHR$(13)
  16. 10180 PRINT"LOAD"CHR$(34)+FI$+CHR$(34)",8"
  17. 10190 PRINT "RUN"
  18. 10200 POKE 646,1
  19. 10210 PRINT"LOADING "FI$
  20. 10220 POKE 646,0
  21. 10230 POKE 631,19
  22. 10240 POKE 632,17
  23. 10250 POKE 633,17
  24. 10260 POKE 634,13
  25. 10270 POKE 635,13
  26. 10280 POKE 198,5
  27. 10290 NEW
  28.