+"2099: "ARCTICSOFT 89" 444444+i^+8"^!#( 3 YL 15:15,8,15,"U9":15"":53281,0:53280,0:56,40::TX$"A":A140:TX$TX$"A"::"":" THE ULTIMATE 1581 FILE COPIER "C <"":" BY ARCTICSOFT ";:" PLEASE SELECT DRIVES..":260:980 dOP51:F$(OP),T$(OP),P(OP),B%(OP):550:330:BF168:A11:3,0:4,(56):V0220 x"":1060:"READING":A1V:F$(A)""200 F$(A)F$(A)","T$(A)",":BFBFB%(A):BF1760S (F$(A),(F$(A))3):15,D,15:2,D,2,F$(A)"R":15,ER,ER$:ER20)""ER$:180\ 866 2:15:P(A)(3)(4)256:P1P(A)1:H(P1256):LP1(H256):3,L:4,H:BFB%(A1)1760 A:(4)(56)(3)0220 F99:760 "ANOTHER DISK ? (Y/N) ";& A$:A$"Y"A$"N"2305 A$"Y"20= : I828898:X:I,X:I::162,2,32,201,255,198,1,160,0,56,165,3:229,5,165,4,229,6,176,13,177,3,32,210:255,230,3,208,236,230,4,208,232,230,1,76K ,204,255,162,2,32,198,255,160,0,32,207,255:145,3,230,3,208,2,230,4,36,144,80,241:165,3,133,5,165,4,133,6,76,204,255 JU1:::AY0:Q$"Y":"":1060:8,D,0,"$0:"PM$:#8,A$,A$,A$,A$,A$,A$:899:(TX$,(142)) r#8,A$,A$,A$,B$:C(A$(0))(B$(0))256:(144)0530# C;:899:SS(144):(TX$,(142)):(TX$,3)"BLO"530N "";30);"(Y/N) ";:A$(TX$,(142)) AY99T$:T$" "T$"Y"T$"N"T$(13)440 T$(13)Q$:470 "";:T$;:"" T$(32)540 T$(13)AY99:T$Q$ T$"N"Q$T$:520T$"Y"Q$T$:990:UU1NUOP18:"ONLY";OP1;"FILES ALLOWED AT ONCE":8:540W370s"FREE BLOCKS":8VU1:X11500::&" SOURCE DRIVE # 8";D:D8D11550:" TARGET DRIVE # 8";D1:D18D111570(N"PATTERN MATCH: *";PM$:PM$""(PM$)16590Ib"FORMAT TARGET (Y/N)? ";ilA$:A$"N"A$(13)"N":zvA$"Y"620"":1060"NAME (16 CHARS MAX)";A$:A$""B$"":"ID (2 CHARS)";B$:B$""A$A$","B$DD1"INSERT BLANK DISK":198,0:198,1:198,0g"FORMATTING....":15,D1,15,"N0:"A$:15,ER,ER$:ER""ER$::"FORMAT ANOTHER? (Y/N) ";A$:A$"Y"A$"N"A$(13)710A$(13)A$"N"A$:A$"Y"15:A$"":65015:DD1"INSERT SOURCE":198,0:198,1:198,0"TDD1"PLEASE SWAP":198,0:198,1:198,03,0:4,(56):"WRITING":BA1A:F$(B)""850  (F$(B),(F$(B))3):PP(B):H(P256):LP(H256):5,L:6,H:15,D1,15:2,D1,2,F$(B)"W":15,ER,ER$:ER20)""ER$:8304828H>2:15:PP(B)1:H(P256):LP(H256):3,L:4,HRB:A$"":"WRITE FILES TO ANOTHER DISK? (Y/N)? ";:1030:A$"Y"760f3,0:4,(56):F99220zDD1"PLEASE SWAP":198,0:198,1:198,0i"READING":BF168:A1A1::160,2,177,45,153,137,0,200,192,6:208,246,162,8,32,198,255:32,228,255,201,13,240,15,164,142,145140,200,132,142,196,139,240,4,165,144,240,234,76,204,255:144,240,238,76,204,255I899940:X:I,X::920,0:HB%(U)C:A$(TX$,(142)):F$(U)((C)A$,7,16):A116:(F$(U),A,1)(34)F$(U)(F$(U),A1):A17f:T$(U)((C)A$,25,1):A$:A$"Y"A$"N"A$(13)1030A$(13)A$"N"A$:=$"":" THE ULTIMATE 1581 FILE COPIER ":"":"":