100 POKE 34,5: PRINT CHR$(4)"BLOADFLOPPY.OBJ": FOR I = 47012 TO 47016: READ DA: POKE I,DA: NEXT : POKE 48649,19: POKE 48650,3: POKE 1010,19: POKE 1011,3: POKE 1012,166: DATA 206,236,183,48,11,234,234,206,236,183
110 H = 49384:RP = 46995:SL = 47081:DR = SL +1:VE = DR +1:TR = VE +1:SE = TR +1:BL = SE +3:BH = BL +1:CC = BH +3:VF = CC +2:E = SL -8:C$ = "=>PRESS ESCAPE TO QUIT<=":B$ = CHR$(27)
120 A$ = "C081 N C081 N F800<F800.FFFFM D000:88 N D7D2G": FOR I = 1 TO LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT : POKE 72,0: CALL -144
130 POKE 860,95: POKE 866,100: POKE 6,0: CALL 905:AU = PEEK(6) = 128:LC = (AU OR PEEK(6) = 64): VTAB 1: HTAB 35: PRINT PEEK(6);"K":X = 4 -LC:Y = 7 +LC: IF AU THEN POKE 48715,96: POKE 860,23: POKE 866,151
140 B = 7:C = S: HOME : PRINT : PRINT "SLOT # OF ORIGINAL DISK (1-7)?"; SPC( 4);S:CH = 35:CV = 7: GOSUB 540:S = C:B = 2:C = D: PRINT "DRIVE # OF ORIGINAL DISK (1-2)?"; SPC( 3);D:CV = 8: GOSUB 540:D = C
150 PRINT "SLOT # OF COPY(1-7)?"; SPC( 14);SC:B = 7:C = SC:CV = 9: GOSUB 540:SC = C: PRINT "DRIVE # OF COPY(1-2)?" SPC( 13);DC:B = 2:C = DC:CV = 10: GOSUB 540:DC = C:SD = D = DC AND S = SC
170 HOME : IF SD THEN VTAB 10: PRINT "INSERT ORIGINAL IN SLOT ";S;", DRIVE ";D; SPC( 6);"THEN PRESS RETURN": GOSUB 530
180 IF NOT SD THEN HOME : VTAB 10: PRINT "INSERT ORIGINAL IN SLOT ";S;", DRIVE ";D; SPC( 6);"INSERT COPY IN SLOT ";SC;", DRIVE ";DC; SPC( 10);"THEN PRESS RETURN": GOSUB 530
350 POKE SE,15: POKE CC,RW: POKE TR,TS: FOR Q = 1 TO Y: POKE E,16: CALL RP: NEXT : POKE BL,0: POKE BH,150: RETURN
360 IF A$ < >B$ THEN RETURN
370 POP : POKE H,0: POKE DR,1: HOME : PRINT : PRINT "WOULD YOU LIKE TO TRY AGAIN (Y/N)?Y": VTAB 7: HTAB 35: GET A$: POKE 35,24: HOME : IF A$ < > CHR$(78) AND A$ < > CHR$(110) THEN 110
380 FOR I = 47012 TO 47016: READ DA: POKE I,DA: NEXT : POKE 34,0: HOME : POKE 48715,145: POKE 216,0: POKE 48649,72: POKE 48650,190: POKE 1010,191: POKE 1011,157: POKE 1012,56: HIMEM: 38400: CALL 976: END
390 RETURN
400 POKE 34,5: CALL 54915: HTAB 1: VTAB 20: POKE 35,19: INVERSE : PRINT "OOPS. A FATAL ERROR ON TRACK "; PEEK(TR): NORMAL : FOR I = 1 TO 5: PRINT CHR$(7): NEXT : GOSUB 370
410 RW = 1: POKE DR,D: POKE SL,S *16: IF SD THEN HOME : PRINT : PRINT CHR$(7);"INSERT ORIGINAL AND PRESS RETURN": GOSUB 530
420 GOSUB 470: ON WP GOTO 410: FOR I = 1 TO 2: GOSUB 300: GOSUB 350: IF I = 1 THEN POKE 869,56: CALL 821:TS = 8
430 NEXT :RW = 2: POKE H,0
440 POKE DR,DC: POKE SL,SC *16: IF SD THEN HOME : PRINT : PRINT CHR$(7);"INSERT COPY AND PRESS RETURN": GOSUB 530
450 GOSUB 470: ON WP GOTO 440:TS = 8: FOR I = 1 TO 2: GOSUB 300: GOSUB 350: IF I = 1 THEN POKE 869,24: CALL 874:TS = 17
490 CALL 793: IF RW = 1 AND PEEK(819) = 136 THEN WP = 1: POKE 35,19: VTAB 20: INVERSE : PRINT "WRITE-PROTECT ORIGINAL DISK": NORMAL : FOR B = 1 TO 5: PRINT CHR$(7): NEXT
500 IF RW = 2 AND PEEK(819) < >136 THEN WP = 1: POKE 35,19: VTAB 20: INVERSE : PRINT "REMOVE WRITE-PROTECT TAB FROM COPY": NORMAL : FOR B = 1 TO 5: PRINT CHR$(7): NEXT