# 56,160:55,.::Z$(.):""4 O$"B-P,8,2"[ "ENTER DISK DRIVE DEVICE NUMBER."w "(ENTER 0 TO EXIT.)"" 8":D:D.900D4D30"ILLEGAL DEVICE NUMBER":122,36:184,8:185,.:186,D183,1:187,2:188,.:65472/ (783)18:"?DEVICE";D;" NOT PRESENT":12D 8:15,D,15:300N "";m F$"":"ENTER FILENAME." F$:F$""900 8,D,8,F$:200:8:A1921 500:8,D,8,"#" 15,"U1";8;0;18;S 15,"B-P";8;P28 #8,A$:B(A$Z$):#8,A$:BB256(A$Z$) 15,"B-P";8;P12 #8,T$:#8,S$N TT(T$Z$):SS(S$Z$)c "SELECT ONE:" "1) CONVERT FROM ASCII TO PETASCII." ""2) CONVERT FROM PETASCII TO ASCII." $"3) NO CONVERSION." &A$:A$"1"251,.:45 (A$"2"251,1:45" *A$"3"251,255:F1:45* ,38? -"SELECT ONE:"\ /"1) CONVERT LF TO CR."y 2"2) CONVERT CR TO LF." 4"3) NO CONVERSION." <A$:A$"1"252,.:70 >A$"2"252,1:70 @A$"3"252,255:FF1:70 A60 FF2900 G56334,.$ H"ONE MOMENT PLEASE..."> I183,7:187,43:188,8e K"NUMBER OF BLOCKS IN FILE =";B P"NUMBER OF BLOCKS PROCESSED =" U15,"U1";8;0;TT;SS Z#8,T$:#8,S$ _T(T$Z$):S(S$Z$) d3733 i15,"U2";8;0;TT;SS:NN1 n28);N;"" sTTTT:SSS:85: x56334,17:"...DONE":900K 15,A,B$,C,Em A19A63:A::B$::C,Es ,"PRESS D FOR DIRECTORY." 1"PRESS P TO PROCESS FILE." 6"PRESS X TO EXIT." ;A$:A$"D"8,8,.,"$":3894:300@A$"P"20EA$"X"900J315:15,"M-R";(144);(2);(5)a#15,A$:S(A$Z$):#15,A$:#15,A$#15,A$:#15,A$:P(A$Z$)8:15:    -_e L)A[ a ,8'ɠ&A'[i aɀ ۰ ),, ,8 П Л З Г D47 i 5 < ݽ   5Ҡ' B ٠' B  4L