home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / AUTOMENU (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  63 lines
  1. 10 PRINT"[147]":POKE53280,14:POKE53281,14:POKE788,52:GOSUB490
  2. 20 GETA$:ON-(A$="")GOTO20
  3. 30 PRINT"[147][159]":POKE53280,10:POKE53281,11:DIMAE$(150):OPEN15,8,15,"I0"
  4. 40 INPUT#15,ER:IFER=21THEN260
  5. 50 PRINT"[147][144] NOW READING THE PROGRAMS ON THE "
  6. 60 PRINT" DISK THAT IS PRESENTLY IN THE DRIVE,"
  7. 70 PRINT" ENTITLED --- [159]";:GOSUB580
  8. 80 PRINT"[144] THE NUMBER OF PROGRAMS FOUND = 0"
  9. 90 OPEN8,8,8,"$,S"
  10. 100 FORDE=1TO8:F$="":GET#8,C$
  11. 110 IFC$=CHR$(199)THEN280
  12. 120 IFC$=""THENJ=29:GOTO230
  13. 130 IFASC(C$)<>130THENJ=29:GOTO230
  14. 140 AN=AN+1:J=11:GET#8,C$,C$
  15. 150 FORI=1TO16:GET#8,C$:F$=F$+C$:NEXT
  16. 160 IFLEFT$(F$,4)="MENU"ORLEFT$(F$,3)="DOS"THENAN=AN-1:GOTO230
  17. 170 :
  18. 180 REM ADD MORE TITLES TO SKIP HERE
  19. 190 :
  20. 200 PRINT"[145][153]"TAB(31)AN-A0;
  21. 210 AE$(AN)="0:"+F$
  22. 220 PRINT:PRINTTAB(41)"[144]NOW READING FILENAME: [150]"MID$(AE$(AN),3)"[145][145]"
  23. 230 FORI=1TOJ:GET#8,C$:NEXT
  24. 240 IFDE<>8THENGET#8,C$,C$
  25. 250 NEXT:GOTO100
  26. 260 PRINTTAB(129)"NO DISK FOUND IN DRIVE"
  27. 270 CLOSE8:CLOSE15:ON-(AN<>0)GOTO280:PRINTTAB(94)"'Q' TO QUIT":GOTO360
  28. 280 CLOSE8:IFAN=0THENPRINTTAB(85)" NO PROGRAMS FOUND [146][144] Q TO QUIT":GOTO360
  29. 290 POKE53280,8:POKE53281,15
  30. 300 MM=9:PRINT"[147]"TAB(10)" PROGRAM MENU #"STR$(MN+1)"[146]"
  31. 310 FORI=1TO9:IFAE$(MN*9+I)=""THENMM=I-1:I=9:GOTO330
  32. 320 PRINTTAB(12)"[144]"RIGHT$(STR$(I),1)"[146] "MID$(AE$(MN*9+I),3,16)""
  33. 330 NEXT:PRINT"        CHOOSE ONE OF THE ABOVE OR    [146]"
  34. 340 PRINT"     PRESS  RETURN TO GO TO NEXT MENU [146]"
  35. 350 PRINT"          OR PR    
  36. 15420 Q>> TO QUIT [146]"
  37. 360 GETC$:ON-(C$="")GOTO360
  38. 370 IFC$="Q"THENPOKE788,49:CLOSE15:SYS65126
  39. 380 IFC$<>CHR$(13)THEN410
  40. 390 MN=MN+1:IFMN*9+1>ANTHENMN=0
  41. 400 GOTO300
  42. 410 IFVAL(C$)<1OR VAL(C$)>MMTHEN360
  43. 420 AE$=AE$(MN*9+VAL(C$))
  44. 430 PRINT:PRINT"[147] MENU ITEM CHOSEN: #"C$" - "MID$(AE$,3,16)
  45. 440 FORI=18TO1STEP-1:FL=I
  46. 450 IFASC(MID$(AE$,I,1))<>160THENI=1
  47. 460 NEXT:PRINT" LOAD"CHR$(34)LEFT$(AE$,FL)CHR$(34)",8,1"
  48. 470 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  49. 480 POKE631,13:POKE632,13:POKE198,2:END
  50. 490 WC$=" THIS MENU PROGRAM WILL AUTOMATICALLY":GOSUB540:PRINT
  51. 500 WC$=" LOAD AND RUN ANY PROGRAM ON THIS DISK":GOSUB540:PRINT"[158]":GOSUB570
  52. 510 WC    
  53. 8224     PRESS ANY KEY TO CONTINUE WAIT":[141]540:[153]""
  54. 520 WC$[178]"  ******   BOB KOBER  8/8/84   ******":[141]540
  55. 530 [142]
  56. 540 [129]I[178]1[164][195](WC$):[153][202](WC$,I,1)"LEN>WAITCMDCMD";
  57. 550 [139][194](197)[178]60[167][156]:[137]30
  58. 560 [129]J[178]1[164]30:[130]J,I:[153]"  ":[142]
  59. 570 [129]I[178]1[164]1000:[130]:[142]
  60. 580 [160]1:[159]1,8,0,"$"
  61. 590 [129]I[178]1[164]25:[161]#1,A$:[153]A$;:[130]
  62. 600 [160]1:[153]:[142]
  63.