1551)FR(0)D(FR0):FR(FR65536)WS((FR400)2)AK$("  "(13))TE%(S)53280,0 53281,0 DN$""$ "";' (14);* (158); .  / 0  1 9)4 3 ""= M 9)^ O "  "g k 9) m "" AK$ " 1 IRECTORY 2 EW ISK" " 3 NITIALIZE 4 OPY ILE ON ISK" " 5 OPY TO EW ISK 6 ENAME ILE"B " 7 ELETE A ILE 8 OLLECT "q !" 9 UIT TO ASIC - ONVERT" H!" OMBINE ILES RINT ISK ILE" p!" PLIT ISK ILE IEW ISK ILE" ! !AK$ !12) !"-=[ ELECT ]=-" !9484 !DI$""2 !(W$"A"):W$:10468:8741R !(W$"C"):W$:10780:8741r !(W$"P"):W$:10064:8741 !(W$"S"):W$:10169:8741 !(W$"V"):W$:10365:8741 !((W$"1")(W$"9"))8625 "W$ "CH((W$)48) "CH8744,8945,9036,9119,9509,9193,9264,9302,9495) %"82043 ("""= ,"11)V ."" "b B"(13);k E"AK$z G"1,8,0,"$" N"#1,A$ R"#1,B$ V"""; Y"#1,A$ ]"#1,B$ a"#1,A$ e"#1,B$ i"C(((A$(0)))(((B$(0)))256)) y"(ST0)8932 "7) "((C),2,255);' "11)2 "#1,B$? "ST8908U "(B$(34))8842` "#1,B$} "(B$(34)):B$;:8858 "#1,B$ "(B$(32))8874 "29) "C$"" "C$(C$B$) "#1,B$ "(B$"")8890 "(C$,3) "(ST0)8793"21)""LOCKS REE"""AK$)"13"9390E"((A$)0)O"9454Y"DN$;b"7)""NSERT DISK TO BE FORMATTED"#"ISK NAME";DI$"#((DI$)0)'#"ISK ";EX$3#((EX$)0)8#15:#15,8,15,((("N:"DI$)",")EX$)I#9397L#DN$;N#5)?P#"NSERT DISK TO BE INITIALIZED"Hp#7)jr#"RESS TO INITIALIZE"p#z#9484#15#15,8,15,"I"#9397#DN$##"OURCE FILE NAME";DI$#((DI$)0)#"EW FILE NAME";NW$#((NW$)0) #151#15,8,15,((("C:"NW$)"=")DI$);#9397D#DN$J#c#"LD FILE NAME";DI$u#((DI$)0)$"EW FILE NAME";NW$$((NW$)0)$15$15,8,15,((("R:"NW$)"=")DI$)-$93970$DN$2$"ILE NAME";DI$B$((DI$)0)G$15'I$15,8,15,("S:"DI$)1S$9397;V$DN$;iX$" : PEN FILES WILL BE DELETED"o$x$8)$"RESS TO VALIDATE"$9484$1,8,15,"V"$1$9390$15$15,8,15$15,A$,B$,C$,D$$((A$)0)5$ER$((((((B$" #")A$)" ON TRK ")C$)" SEC ")D$)L$((40(ER$))2))U$ER$]$15f$7)$"RESS ANY KEY TO CONTINUE" %W$""%W$%(W$"")9484%%""%1%5%4 %15"%6$%%%""(%15*%MA((S256))-1%"AXIMUM SIZE OF FILE WHICH CAN"ER%" BE COPIED IS ";Nd%MA;^f%" BLOCKS."dq%r%"NTER NAME OF FILE TO BE COPIED"%FI$%((FI$)0)%%" NTER FILE TYPE:"%" PROGRAM"%" SEQUENTIAL" %" USER" %" RELATIVE")%TY$/%Z%"NSERT SOURCE DISK AND PRESS "d"&9484n%&9859(&((A$)0)-&.&"NSERT DESTINATION DISK AND PRESS RETURN"Y&9484\&9972_&`&"AKE ANOTHER COPY?";W$y&((W$,1)"Y")9773 &&I1&15)&15,8,150&5Y&5,8,5,(((("0:"FI$)",")TY$)",R")c&9397u&((A$)0)&"EADING ";&FI$,A$&TE%(I)((A$(0)))&I(I1)&(ST0)9910&&"ILE LENGTH IS";&I;&"TATUS IS";&ST&5&9390%&-&15:&15,8,15c&5,8,5,(((("0:"FI$)",")TY$)",W")m'9397'((A$)0)'"RITING ";!'FI$#'J1%'5,;''(TE%(J));,'5,;-'J(J1)1'(JI)100217'8'"ILE LENGTH IS";I'J K'5M'9390P'!Q'GR'"AME OF FILE TO BE PRINTED";DI$Yr'((DI$)0)aw'15ny'15,8,15u~'5'5,8,5,(("0:"DI$)",S,R")'9397'((A$)0)'4,4,7'#5,A$'CKST'4,;'A$;'4,;'A$;'(CK0)10141 '4'5'15#'4)'2'DN$O'"OURCE FILE NAME";DI$a'((DI$)0)i'15v'15,8,15}'5'5,8,5,("0:"DI$)'9397'((A$)0)'SL0'"LOCK LENGTH OF EACH SEGMENT";SL((SL0)10358(SL(SL254) "(A64%(""((A(A1)8,(DO$((DI$".")(A))?4(6^6(6,8,6,(("0:"DO$)",S,W")gF(CT1qH(9397K(((A$)0)P("AVING ";Y(DO$[(#5,A$_(CKSTa(6,;c(A$;e(6,;f(CT(CT1)j((CTSL)10280p((CK0)10331v(5 x(6z(15|(!}('~(L("AME OF FILE TO BE VIEWED";DI$^(((DI$)0)f(15s(15,8,15z(5(5,8,5,(("0:"DI$)",S,R")(9397(((A$)0)(""(#5,A$(A$;(W$((W$"")10463((ST0)10439((9454(5(15%(.(DN$K("OURCE FILE NAME";DI$](((DI$)0)e)15r)15,8,15y )5 )5,8,5,("0:"DI$))9397)((A$)0))"ESTINATION FILE NAME";DI$8)((DI$)0)=)DO$(DI$".CONV")F)6H)6,8,6,(("0:"DO$)",S,W")$X)93976[)((A$)0)?`)CO0nb)"0 FOR > . 1 FOR > ";COy)#5,A$)CKST)(CO1):10677:10657)10719)A$;)6,;)A$;)6,;)(CK0)10637)5)6)15))A((A$(0))))(A65).)(A90)10702@)A$((A128))F)T)(A97)c)(A122)t)A$((A32))z))A((A$(0))))(A65))(A90)10744)A$((A32))))(A97))(A122)10763*A$((A32)) *  *(A193)*(A218),*A$((A128))2*;*""Z*"OURCE FILE NAME #1";D1$l8*((D1$)0)=*"OURCE FILE NAME #2";D2$V*((D2$)0)[*DC$((D1$",")D2$)b*"OURCE FILE NAME #3";D3${*((D3$)0)10928*DC$((DC$",")D3$)!*"OURCE FILE NAME #4";D4$7*((D4$)0)10928O*DC$((DC$",")D4$)p*"ESTINATION FILE NAME";DO$x*15*15,8,15,((("C:"DO$)"=")DC$)*9397*