0 POKE55,0:POKE56,PEEK(44)+8:CLR:PRINT"[147]REDISK[146]":P=880
1 F1=53247:F2=1:F$="                                       [145]"
2 READA:IFA>-1THENPOKEP,A:P=P+1:GOTO2
3 POKE909,(F1+1)/256:POKE917,F2:POKE950,F2:POKE881,PEEK(56):POKE919,PEEK(56)
4 PRINT"DO YOU WANT TO FORMAT THE DEST. DISK  N[157][157][157]";:INPUTA$
5 OPEN15,8,15:IFRIGHT$(A$,1)="Y"THEN19
6 PRINT"NAME,TYPE (PRG OR SEQ) OF FILE TO COPY.":INPUTP$,T$:PRINT
7 T$=LEFT$(T$,1):IF(T$<>"P"ANDT$<>"S")ORLEN(P$)>16THENPRINT"[145][145][145]":GOTO6
8 M$="INSERT SOURCE DISK":GOSUB23:PT$="0:"+P$+","+T$+",R"
9 POKE1000,LEN(PT$):FORX=1TOLEN(PT$):POKE827+X,ASC(MID$(PT$,X,1)):NEXT
10 SYS958:SYS982:SYS880:P=PEEK(247)+256*PEEK(248):CLOSE5:GOSUB27
11 IFP>F1THENPRINT"FILE HAS OVERFLOWED THE BUFFER.":GOTO17
12 PRINT"FILE IS NOW LOADED INTO BUFFER."
13 PRINT"ENTER NEW FILE NAME.":PRINT""+P$:INPUT"[145]";P$:PRINT
14 M$="INSERT DESTINATION DISK":GOSUB23:PT$="@0:"+P$+","+T$+",W"
15 POKE1000,LEN(PT$):FORX=1TOLEN(PT$):POKE827+X,ASC(MID$(PT$,X,1)):NEXT
16 SYS958:SYS989:SYS914:OPEN15,8,15:GOSUB27:PRINT"FILE IS NOW COPIED."
17 CLOSE15:OPEN15,8,15:CLOSE15:INPUT"ANOTHER FILE";A$
18 ON-(LEFT$(A$,1)="Y")GOTO4:PRINT"[147]":END
19 PRINT"NAME,ID OF DISK TO BE FORMATTED":INPUTP$,T$:PRINT
20 M$="INSERT DESTINATION DISK":GOSUB23
21 PRINT"FORMATTING DISK":PRINT#15,"N0:"+P$+","+T$
22 GOSUB27:PRINT"DISK FORMATTED":GOTO6
23 PRINTM$"[145]":FORT=0TO50:GETA$:ON-(A$<>"")GOTO25:NEXT
24 PRINTF$:FORT=0TO50:GETA$:ON-(A$<>"")GOTO25:NEXT:GOTO23
25 IFA$=CHR$(13)THENPRINT:RETURN
26 GOTO23
27 INPUT#15,A$,B$,C$,D$:IFB$="OK"THENRETURN
28 PRINT:PRINTA$","B$"[146],"C$","D$:PRINT"TRY AGAIN.":GOTO17
29 DATA 160,16,132,248,160,0,132,247,32,207,255,145,247,200,240,8,32,183,255
30 DATA 240,243,132,247,96,230,248,165,248,201,208,208,240,96,234,169,54,133
31 DATA 1,160,16,132,254,160,0,132,253,177,253,32,210,255,200,240,18,196,247
32 DATA 208,244,166,254,228,248,208,238,32,231,255,169,55,133,1,96,230,254,76
33 DATA 166,3,234,169,5,162,8,160,5,32,186,255,173,232,3,162,60,160,3,32,189
34 DATA 255,32,192,255,96,234,162,5,32,198,255,96,234,162,5,32,201,255,96,-1