Notes

Disk info for 022a_Ruppel_Brothers_Minit_Man_Boulder_Dash.dsk:

File Name: 3d0g_022a_Ruppel_Brothers_Minit_Man_Boulder_Dash/022a_Ruppel_Brothers_Minit_Man_Boulder_Dash.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 30720
Used Space (bytes): 112640
Physical Size (KB): 140
Free Space (KB): 30
Used Space (KB): 110
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 120
Used Sectors: 440
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 022a_Ruppel_Brothers_Minit_Man_Boulder_Dash.dsk:

3d0g_022a_Ruppel_Brothers_Minit_Man_Boulder_Dash/022a_Ruppel_Brothers_Minit_Man_Boulder_Dash.dsk DISK VOLUME #254
* A 004 HELLO
* B 125 BOULDER DASH
* B 130 RUPPEL BROTHERS
* B 117 MINIT MAN
DOS 3.3 format; 30,720 bytes free; 112,640 bytes used.

Text found in 022a_Ruppel_Brothers_Minit_Man_Boulder_Dash.dsk/HELLO.bas:

0 SPEED= 230
10 HOME : PRINT " BLANK"
100 D$ = CHR$(4): PRINT D$;"CATALOG":B = PEEK(37) -2: IF B >22 THEN B = 22
110 T = 0:CH = 4: FOR CV = 0 TO 23: GOSUB 1000: IF C < >160 THEN POKE P -1,219: POKE P,T +193: POKE P +1,221:T = T +1:S = CV
120 NEXT CV: VTAB 24:A$ = "TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5..."
130 B$ = "RUN": HTAB 1: PRINT LEFT$(A$,39);:A$ = MID$ (A$,2) + LEFT$(A$,1):K = PEEK( -16384): IF K <128 THEN K = FRE(0): GOTO 130
140 POKE -16368,0:K = K -176: IF K <1 OR K >5 THEN 300
200 HTAB 1: CALL -868: IF K = 5 THEN END
210 PRINT " PRESS 'LETTER' YOU WISH TO ";: IF K = 1 THEN B$ = "LOAD"
220 IF K = 2 THEN B$ = "LOCK"
230 IF K = 3 THEN B$ = "UNLOCK"
240 IF K = 4 THEN B$ = "DELETE": FLASH
250 PRINT B$;: CALL -198: NORMAL : GET K$:K = ASC(K$) -48
300 IF K <17 OR K >T +16 THEN 130
310 CH = 1:CV = S -T +K -16: GOSUB 1000: IF C = 194 AND (B$ = "RUN" OR B$ = "LOAD") THEN B$ = "B" +B$
320 FOR CH = 6 TO 39: GOSUB 1000:B$ = B$ + CHR$(C): NEXT CH: HTAB 1: CALL -868: PRINT B$: PRINT D$;B$: GOTO 100
1000 C1 = INT(CV/8):C2 = CV -C1 *8:P = 1024 +128 *C2 +40 *C1 +CH:C = PEEK(P): RETURN