"":646,1'53281,0:53280,0Q|"DISK EASE"x"TOUCH A KEY"A$:A$""400 99053281,1:53280,11:"":""1,8,0,"$"#1,A$,B$#1,A$,B$#1,A$,B$ C0:A$""C(A$)' B$""CC(B$)256; ((C),2);3);N (18);:#1,B$^ ST0600r B$(34) 510 05):#1,B$:B$(34)B$;: 540 &#1,B$:B$(32) 550 018);:C$"" :C$C$B$:#1,B$:B$"" 570 D25);:(C$,3) N ST0 460 X" Ӡ"K b 1:::"HIT ANY KEY TO RETURN"^ lO$:O$""620h v 990 53281,0:53280,0:""  52,13:56,31: I0173 D:7936I,D: 785,0:786,31 PL$(19) I124:PL$PL$(17): I139:CL$CL$" ":0 CL$CL$(13)CL$(13)T CL$(PL$,21)CL$(145)(145)p "@0:DISK EASE",8: 990v  53281,1:53280,2:"" 13)"Ӡ" "1) ALIDATE" "2) NITIALIZE" *"3) RASE ANY FILE" 4"4) ENAME ANY FILE"; >"5) ORMAT ANY DISK"X H"6) OTO MAIN MENU" R"ȠҠ" \O$:Z(O$):Z1Z6860 fZ880,900,890,910,930,990 p"ALIDATING":D$"V":950 zD$"S0:":"ILE NAME";NA$: 960% "NITIALIZING":D$"I":950g "RIGINAL,NEW FILE NAME";DIS$,DES$:REN$"R:"DES$"="DIS$~ 15,8,15,REN$:990 "ISK NAME AND NUMBER";DIS$,IDI$:FRM$"N0:"DIS$","IDI$ "ORMATTING ";DIS$,IDI$:15,8,15,FRM$:99015,8,15:15,D$:15: 990@XX$D$NA$:15,8,15:15,XX$:15:990`15,8,15:15,D$,OF$,NF$:15f15:(14);:"":53281,1:53280,1"Π""1) OPY FILES ON SAME DISK""2) HANGE DISK ..'S""3) DVANCED DISK FUNCTIONS"7"4) OS COMMANDS"W"5) ISPLAY DIRECTORY"|$"6) AVE ISK ASE TO DISK"."7) EAD ERROR CHANNEL"8"8) ND "B"ȠҠ"LO$:O(O$):O1O81100)V O 1120,1170,3530,760,420,750,1360,1320/`Kj"RIGINAL FILE";DIS$it"ESTINATION FILE";DES$~COP$"C:"DES$"="DIS$:15,8,15,COP$:990"HANGE ISK UMBER:" 12,50,119,0"LD EVICE UMBER";DODO8DO151190"EW EVICE UMBER";DN0DN8DN151190>15,DO,15ZA$(DO32):B$(DO64)A:A0 "RIVE IS NOT COMPATIBLE WITH PROGRAM":99015,"M-R"(A)(0):#15,X$:X$A$125015,"M-R"(A1)(0):#15,X$:X$B$125015,"M-W"(A)(0)(2)(DN32)(DN64) 15'990-Z("ISK ASE WILL BE ERASED FROM MEMORY!"r2"RE YOU SURE";AA$<AA$"Y" AA$"YES" 64738F 990PZ15:15,8,15d15,A$,B$,C$,D$n""x"RROR STATUS: "B$"RROR NUMBER: "A$1"HIT ANY KEY TO RETURN"EO$:O$""1430O 990Ur"":53281,10:53280,0"ISK DRIVE DEVICE NUMBER";DNT(100):MS(100): BADTRACK,SECTOR ARRAY"HECKING ISK....."D$"0"15,DN,1515,"V"D$$N%(TI)255MA$"":I1255:A$A$(255(IN%)):X 1840h2,DN,2,"#"u":2,A$;,T1:S0615,"B-A:"D$;T;S@15,EN,EM$,ET,ESJEN01640TET01720^15,"B-A:"D$;ET;ES:TET:SESh15,"U2:2,"D$;T;S!rNBNB1:" HECKED LOCKS"NBO|" RACK "T;" ECTOR "S""d15,EN,EM$,ES,ETsEN01580T(J)T:S(J)S:JJ1"AD LOCK:",T;S"" 158015,"I"D$18401270J0"OADLOCKS!":I13000:: 9902,DN,2,"#"<"ADLOCKS","RACK","ECTOR"II0J1e15,"B-A:";D$,T(I);S(I)v,,T(I),S(I)|""J"AD BLOCKS HAVE BEEN ALLOCATED!"&2:I13000:: 990015,EN,EM$,ET,ES:EN0D"RROR #"EN,EM$;ET;ES""N15,"I"D$X 990/b"PROGRAM MERGER"Ll A$(2),B$(2),C$(2),N(2)Zv 15,8,15n"PROGRAM 1";X$ 1,8,2,X$",P,R"15,E,E$,E1,E2 E E$: 15:#1,A$,A$:J1:2210"PROGRAM 2 (OR 'N')";X$ X$"N" N(2)1E9:2030 2,8,3,X$",P,R"'15,E,E$,E1,E2< E E$: 15:T#2,A$,A$:J2:2210g"NEW FILE";X$ 8,8,8,"0:"X$",P,W"15,E,E$,E1,E2  E E$: 15:I1500:I:35308,(1);(4); *X24 N(1)N(2) X1 >NN(X): N1E8 21702H8,(1);(1);A$(X);B$(X);C$(X);(0);>R J12T\ N(J)N 2210\f Jgp 2090yz8,(0);(0); 1: 2: 8: 15#J,A$,B$ A$"" B$"" 2330#J,A$(J),B$(J) A$(J)"" A$(J)(0) B$(J)"" B$(J)(0).N(J)(A$(J))(B$(J))256;C$(J)""F#J,A$Y A$"" 2340lC$(J)C$(J)A$ ST0 (C$(J))254 2280 "PROBLEM FILE";J N(J)1E9$ . 53280,0:53281,0:"":9,0,0:15,8,158 PK(59468):59468,12B MD$"":I120:MD$MD$"":7L I139:BL$BL$" ":_V P0$" DISK NAME CHANGER"` RE$"PRESS RETURN TO CONTINUE"j 2540t 15,ER:ER0~ 15,ER,EM$,ET$,ES$ MD$"DISK ERROR! #"ER" "EM$" "ET$", "ES$ I1500:I:3530 9,Q$::Q1$(Q$,1):C 2:15:59468,PK:"":I1500:I:3530Z (MD$,MD)BL$:BL$l (MD$,MD);:| MD21:2480 "UNACCEPTABLE ENTRY -- "EM$(EM) RE$:2460:2480  F0:P0$ "ON WHICH DRIVE FOR CHANGES? (0/1) ";:2460& DV(Q$):DV0DV1EM1:2500:2540J DV0Q1$"0"EM1:2500:2540t P0$:"PLACE DISKETTE IN DRIVE"DV"" RE$:2460( 15,"I"(DV):24202 2,8,2,"#":15,"U1:2";DV;",18,0":2420< 15,"B-P:2,144":2420:DN$""F I116:#2,A$:DN$DN$A$:P MD10:2480: F @Z "THE PRESENT DISK NAME IS:"Vd 5)(34)DN$(34)fn MD13:2480x "DO YOU WISH TO CHANGE IT? (Y/N) ";:2460 Q1$"N"2890 Q1$"Y"2670 MD16:2480 "ENTER NEW DISK NAME":"LIMIT TO 16 CHARACTERS "3 2460:(Q$)16EM2:2500:MD18:2480:2730I NDN$(Q$BL$,16)Y MD21:2480s "SHALL I SEND "NDN$ "TO THE DISKETTE ON DRIVE"DV"? (Y/N) ";:2460 Q1$"Y"2810 Q1$"N"2480:MD18:2480:2710 2750 MD21:2480:"BE PATIENT..."$  15,"B-P:2,144":24207  2,NDN$;:2420W  15,"U2:2";DV;",18,0":2420r " 15,"I"(DV):2420:2 , F1:P0$:2600:F0 6 "THE NEW DISK NAME IS:" @ (34)DN$(34) J 2:MD21:2480:"DO YOU WISH TO DO" !T "ANOTHER DISKETTE? (Y/N) ";:2460!^ Q1$"Y"2580-!h Q1$"N"24707!r 2890R!| 53281,0:53280,0:""! " S O R T D I R "! DR$(145),S(20),NM$(145)! 15,8,15! 5,8,5,"#"! S(1)1:DE0: SECTOR 1. DIRECTORY ENTRY 0! I1 " 15,"U1:";5;0;18;S(I)(" "READING SECTOR: "S(I)2" II1=" #5,T$X" #5,S$:S(I)(S$(0))i" Q18:I$""" DEDE1:DR$(DE)""" R130" #5,I$" I$""I$(0)"& DR$(DE)DR$(DE)I$"0 R": Q8#5,NG$,NG$"D Q"N S(I)21 3010#X 3480(#b "CONVERTING FILE NAMES......"5#l X1DE[#v NM$(X)(DR$(X),1)(DR$(X),4,16)g# P217# (NM$(X),P,1)(160)NM$(X)(NM$(X),1,P1):3230# P# X# "SORTING.......";# X1 DE1# NM$(X)NM$(X1)3300 $ Z$(DEX1):Z$Z$" ":Z$(Z$,3):""Z$;($ X5$ : 3340a$ HO$DR$(X):DR$(X)DR$(X1):DR$(X1)HO$$ HO$NM$(X):NM$(X)NM$(X1):NM$(X1)HO$$ XX1:X1X1$ 3260$ 3480$ WI1:DW0$ I1W:15,"B-P:";5;0$* TT18:S(I1)255TT0%4 5,(TT);(S(I1));'%> Q18:DWDW17%H 5,DR$(DW);J%R Q85,"CD";R%\ Ql%f 15,"U2:";5;0;18;S(I)%p "WRITING SECTOR: "S(I)%z I% "D O N E "% 5:15: 3530% "": Q1DE% (DR$(Q),1,1)(0)3510% (DR$(Q),4,16)% Q& & "":53281,2:53280,2?& "Ġˠ:"k& "ERGE TWO PROGRAMS................1"& "HANGE DISK HEADER................2"& "HECK DISK FOR POSSIBLE FLAWS.....3"& "ORT THE DISK DIRECTORY...........4"'"XIT TO MAIN MENU.................5"I'"OUCHOURHOICE"^'A$:A$" "3610'$A(A$):A1890,2350,1450,2940,980'.3610