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