Softdisk G-S 89/SGDS 89.2mg/SDGS.89/SDB89/B/STARTUP

Applesoft BASIC Source Code | 1989-01-21 | 394 b | 19 lines | [FC] Applesoft BASIC Program (0x0801)

0  ONERR  GOTO 10000
10 D$ =  CHR$(4)
20  PRINT D$"PREFIX"
30  INPUT PF$
40  PRINT D$"PREFIX"PF$
50  PRINT D$"OPEN"PF$",TDIR
60  PRINT D$"READ"PF$
70  INPUT K$,K$,K$
80  INPUT K$
90  IF  MID$ (K$,2,15) = "PRODOS         "  THEN 80
100  IF  MID$ (K$,2,15) = "BASIC.SYSTEM   "  THEN 80
110  IF  MID$ (K$,2,15) = "STARTUP        "  THEN 80
120  IF  MID$ (K$,18,3) = "DIR"  THEN 80
130  IF  MID$ (K$,18,3) = "SYS"  THEN 1209
140  IF  MID$ (K$,18,3) = "BAS"  THEN 1209
150  IF  MID$ (K$,18,3) = "BIN"  THEN 1209
160  GOTO 80
1209  PRINT D$"-" MID$ (K$,2,15)
10000  PRINT D$"CLOSE"