10 (null)SQR0:(null) $A000,$B000
15 'WRITE"@0:D.DOSMASTER,P,W"
20 (null)RND $C000
30 (null)USR 1,1
40 DEFFNA(Q)=PEEK(252)*256+PEEK(251)
41 A$="B.DOS-MASTER 95"
42 B$="R0:"+A$+"="+A$
50 (null)1
60 (null)CUSTOM = FNA(Q)+$0360
62 (null)RAMLO = FNA(Q)+$0100
64 (null)RAMHI = FNA(Q)+$0180
100 (null)FRAMLOAD
110 (null)SYS #5
120 (null)CLR #$55
130 (null)LP1
140 (null)/ $DF00,Y
150 (null)VERIFY
160 (null)WAIT #1
170 (null)READ (null)LP1
180 (null)SYS #5
190 (null)LP2
200 (null)CLR $DF00,Y
210 (null)STOP #$55
220 (null)READ (null)NOGOOD
230 (null)VERIFY
240 (null)WAIT #1
250 (null)READ (null)LP2
260 (null)CONT (null)OK1
270 (null)NOGOOD
280 (null)LIST (null)MESSAGE
290 (null)ABS 13
300 (null)ABS "?1750 REU NOT DETECTED."
310 (null)ABS 13,0
320 (null)NOT
330 (null)OK1
340 (null)CLR $DF00
350 AND #16
360 (null)INPUT# (null)NOGOOD
362 (null)CONT (null)RESET
364 (null)INSTALL
370 (null)CLR #<(null)RAMLO
380 (null)/ 251
390 (null)CLR #>(null)RAMLO
400 (null)/ 252
410 (null)CLR #$10
420 (null)/ 253
430 (null)CLR #$01
440 (null)/ 254
450 (null)SYS #0
460 (null)LP3
470 (null)CLR (251),Y
480 (null)/ (253),Y
490 (null)PRINT
500 (null)WAIT #128
510 (null)READ (null)LP3
520 (null)SYS #10
530 (null)LP4
540 (null)CLR (null)DUMP4 ,Y
550 (null)/ $DF00,Y
560 (null)VERIFY
570 (null)READ (null)LP4
580 (null)LIST 272
590 (null)CLR #0
600 (null)LIST $A871
610 (null)CONT $A7AE
640 (null)MESSAGE
650 (null)TAB(
660 (null)/ 251
670 (null)TAB(
680 (null)/ 252
690 (null)LP5
700 (null)POKE 251
710 (null)READ FNA(Q)+4
720 (null)POKE 252
730 (null)SYS #0
740 (null)CLR (251),Y
750 (null)STOP #0
760 (null)INPUT# (null)DONE
770 (null)LIST $FFD2
780 (null)CONT (null)LP5
790 (null)DONE
800 (null)CLR 252
810 (null)GET
820 (null)CLR 251
830 (null)GET
840 (null)NOT
1000 (null)DUMP4
1010 (null)ABS 0,$90
1015 (null)FRE (null)RAMHI
1020 (null)ABS 0,$F0,3,$E0,1,0,0
1022 (null)RESET
1023 (null)*
1024 (null)LIST $FF8A
1025 (null)RETURN
1026 (null)LIST (null)MESSAGE
1028 (null)ABS 13,13,"INSERT DISK WITH "
1030 (null)ABS 34,A$,34,13
1032 (null)ABS "PRESS RETURN.",13,0
1033 (null)LPP
1034 (null)LIST $FFE4
1036 (null)INPUT# FNA(Q)-3
1038 (null)STOP #3
1040 (null)READ FNA(Q)+3
1042 (null)NOT
1044 (null)STOP #13
1046 (null)READ (null)LPP
1048 (null)CONT (null)ROUTINE
1800 (null)ABS "ROBINSON96"
1900 (null)POS (null)CUSTOM -FNA(Q)
2000 (null)ROUTINE
2005 (null)CMD #8
2010 (null)^ (null)DV
2015 (null)LP6
2016 (null)CLR #2
2017 (null)LIST $FFC3
2020 (null)CLR #0
2025 (null)LIST $FFBD
2030 (null)CLR #2
2035 (null)>
2040 (null)CMD (null)DV
2045 (null)LIST $FFBA
2050 (null)LIST $FFC0
2055 (null)CLR #2
2060 (null)LIST $FFC3
2065 (null)CLR $90
2070 (null)READ (null)SK1
2072 (null)CLR #15
2073 (null)LIST $FFC3
2075 (null)CMD #<(null)RENAME
2080 (null)SYS #>(null)RENAME
2085 (null)CLR #LEN(B$)
2090 (null)LIST $FFBD
2095 (null)CLR #15
2100 (null)>
2105 (null)CMD (null)DV
2110 (null)LIST $FFBA
2115 (null)LIST $FFC0
2120 (null)LIST $FFCC
2125 (null)CMD #15
2130 (null)LIST $FFC6
2135 (null)SYS #0
2140 (null)LP7
2145 (null)LIST $FFE4
2150 (null)STOP #13
2155 (null)INPUT# (null)SK2
2160 (null)/ (null)ERROR ,Y
2165 (null)PRINT
2170 (null)READ (null)LP7
2175 (null)SK2
2180 (null)LIST $FFCC
2185 (null)CLR #15
2190 (null)LIST $FFC3
2195 (null)CLR (null)ERROR
2200 (null)STOP #"6"
2205 (null)READ (null)SK1
2210 (null)CLR (null)ERROR +1
2215 (null)STOP #"3"
2220 (null)INPUT# (null)SK3
2225 (null)SK1
2230 (null)POKE (null)DV
2235 (null)CMD (null)DV
2240 (null)ON #14
2245 (null)READ (null)LP6
2250 (null)LIST (null)MESSAGE
2255 (null)ABS 13,63,32,34
2258 (null)NAME
2260 (null)ABS A$
2265 (null)ABS 34," NOT FOUND.",13,0
2270 (null)CONT $A474
2275 (null)SK3
2280 (null)CMD #<(null)NAME
2285 (null)SYS #>(null)NAME
2290 (null)CLR #LEN(A$)
2295 (null)LIST $FFBD
2300 (null)CLR #1
2305 (null)CMD (null)DV
2310 (null)SYS #0
2315 (null)LIST $FFBA
2320 (null)CMD #1
2325 (null)SYS #8
2330 (null)CLR #0
2335 (null)LIST $FFD5
2336 (null)^ 45
2337 (null)AND 46
2340 (null)CLR 2088
2345 (null)STOP #208
2350 (null)READ (null)SK4
2355 (null)CLR #<(null)RET1
2360 (null)/ 2378
2365 (null)CLR #>(null)RET1
2370 (null)/ 2379
2375 (null)CLR #0
2380 (null)LIST $A871
2385 (null)CONT $A7AE
2390 (null)RET1
2395 (null)CLR #236
2400 (null)/ 45
2405 (null)CLR #39
2410 (null)/ 46
2415 (null)SK4
2420 (null)CONT (null)INSTALL
10000 (null)DV
10005 (null)ABS 0
10010 (null)RENAME
10015 (null)ABS B$
10020 (null)ERROR
10025 (null)POS 40
55555 (null)2