home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_37_(10-1984).d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  498b  |  16 lines
  1. 100 F$="VM"
  2. 101 SYS 65517:IF PEEK(781)=40 THEN F$="MN":GOTO210
  3. 110 POKE36879,24:POKE36865,24
  4. 111 PRINT"[147]LOAD";CHR$(34);F$;CHR$(34);",8"
  5. 115 PRINT"       LOADING":PRINT"  TABLE OF CONTENTS"
  6. 116 PRINT"  ONE MOMENT PLEASE"
  7. 129 A$=CHR$(13)+"RUN"+CHR$(13)
  8. 130 FORI=1TOLEN(A$):POKE630+I,ASC(MID$(A$,I)):NEXT:POKE198,I-1
  9. 140 NEW
  10. 210 POKE53281,14:PRINT"[147]LOAD";CHR$(34);F$;CHR$(34);",8"
  11. 215 PRINT"       LOADING TABLE OF CONTENTS"
  12. 216 PRINT"           ONE MOMENT PLEASE[154]"
  13. 230 A$=CHR$(13)+"RUN"+CHR$(13)
  14. 240 FORI=1TOLEN(A$):POKE630+I,ASC(MID$(A$,I)):NEXT:POKE198,I-1
  15. 250 NEW
  16.