&dD0:T18:S1:K0:X0:I0:A0:U0EnV0:A$"": F$(296),K(296)[xI0296:K(I)0:s(49152)169660" 64 HOLE ISK ILE YPE HANGER 2.2 "" * Y USSELL RATER * UBLIC OMAIN * ":"HICH DISK DEVICE # 8"; D:D8D15"";:1607 :"EVICE"D"IS A ";M 15,D,15:15,"UI"_ 15,A$,A$:15o ""(A$,4) (A$,4)"1581"T40:S3 :"HANGE TO WHICH FILE TYPE?" "1 EQUENTIAL":"2 ROGRAM":"3 SER () 198,0:198,1:A$ K(A$):K1K3250O :"HANGE:":"1 LL FILES":"2 ELECTED FILES"e 198,0:198,1:A$| "A$"1"A$"2"280 ,A$"1"I1296:K(I)K::460 6:"EADING IRECTORY": @2,D,0,"$":49152:X(250) J"ELECT ILES TO HANGE" T"ٙ TO ELECT, Ι TO KIP"C ^"^ ACK STEP, TO BORT"P h:I1X^ r""F$(I)t |198,0:198,1:A$ A$"A""":630 A$"Y"""F$(I)"":K(I)K (A$"^"A$"")I1" ":II1:K(I)0 A$"^"A$"""";:370@ :I12000::"KAY TO WRITE NEW FILE TYPE? (/N)"V 198,0:198,1:A$f A$"N"340 X1:15,D,15:2,D,2,"#" "HANGING...":"RACK ECTOR" T" "S 15,"U1:";2;0;T;S 15,"B-P:";2;0 #2,A$:U(A$(0)) #2,A$:V(A$(0))# I2226326 15,"B-P:";2;IN &#2,A$:A(A$(0))a 0(A128)0590 :K(X)K15,"B-P:";2;I:2,(128K); DXX1 N:15,"U2:";2;0;T;S XUTU:SV:480 b2:15 l"INISHED!" v"NOTHER ISK? (Y/)"198,0:198,1:A$:A$"Y""AI4915249352:A:I,A::b 169,0,133,250,162,2,32,198 255,32,207,255,32,207,255,169 0,133,253,169,128,133,254,165 47,133,251,165,48,133,252,160 0,177,251,201,70,240,9,200 208,247,230,252,208,243,240,788 200,208,2,230,252,177,251,201Z 128,240,2,208,228,162,9,200~ 208,2,230,252,202,208,248,152 24,101,251,133,251,144,2,230 252,160,31,32,207,255,136,208  250,32,207,255,166,144,208,30 201,34,208,245,165,253,133,1761  165,254,133,177,160,0,32,207U* 255,201,34,240,18,145,176,200z4 208,244,230,177,208,240,32,204> 255,169,2,32,195,255,96,132H 155,152,24,101,176,133,176,144R 2,230,177,160,0,165,155,145 \ 251,200,165,253,145,251,200,165.f 254,145,251,200,152,24,101,251Rp 133,251,144,2,230,252,165,176xz 133,253,165,177,133,254,230,250 32,207,255,208,251,32,207,255 32,207,255,32,207,255,76,89 192