"FILETYPE CHANGER",8,14|䧆LH1fGJP3W>/f YL 3" FILETYPE CHANGER - 9/86 - BOB WHITSON Od"":53280,6:53281,0bn(14);:(8);mx33000TR18:SE1:C0B$(257)15,8,15:15,"M-W"(106)(0)(1)(133):15'VG1400 ," <<< ILETYPE HANGER >>> "/ 0" HIS UTILITY WILL TAKE ANY"Y 2" FILE FROM DISK AND CHANGE" 4" THE FILE TYPE ( I.E., ," 5" , , , OR )...." 6"  PRESS RETURN TO CONTINUE " 85000 :CB$ >CB150:646,CO:COCO1:CO16CO1O E" REATED Y" J""12)"OB HITSON..9/86":(197)1400 O" " TCB Y318 " <<< ILETYPE HANGER >>> "A " (YPE '$' FOR A IRECTORY)"::_ " ILENAME TO ONVERT " 198,0:FI$"":" ";FI$ FI$"$":"":49152::"":410 (FI$)1:100 (FI$)16414 "  "1 "  ... ORKING ... "Y "  " "490 READ IN SECTOR ...--=> 2,8,2,"#" 15,8,15 15,"U1:"2,0;TR;SE &3000 :#2,B$(C):B$(C)""B$(C)(0) DCC1:C256C0:610 XST0570 b2:15= "799 FIND FILE IN DIRECTORY -=> E C0R %CC255j 4(FI$,1)B$(C)870q >C HSE(B$(1)):SE1SE19C0:500 R" ILE OT OUND !!" W" RY GAIN (/)?" X5000 YCB$\CB$"Y":VG1:100)^CB$"N":1002`857@fFI(FI$)IpCB1sz(FI$,CB,1)B$(C(CB1))CC1:805CBCB1CBFI950890B$(C(CB1))(160)B$(C(CB1))(0)CC1:805(B$(C3))129FT$"":1100(B$(C3))130FT$"":1100<(B$(C3))131FT$"":1100`(B$(C3))132FT$"":1100(B$(C3))0FT$"":1100CC1:805K"1099 INFORM OF CURRENT FILETYPE -=> L" <<< ILETYPE HANGER >>> "Q" ";FI$;" IS A ";FT$;" FILE!"LV"-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="r`" ONVERT '";FI$;"' TO WHICH"j" ONE OF THE FOLLOWING FILE TYPES ?"~" (1) EQUENTIAL ''"" (2) ROGRAM ''"" (3) SER ''"8" (4) ELATIVE ''"^" (5) ELETED ''""-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=""  1 WILL " 5000"1299 CHANGE FILYTYPE BYTE -==> CB$7CB$"1"B$(C3)(129):RG$"":1450c(CB$"2"B$(C3)(130):RG$"":14502CB$"3"B$(C3)(131):RG$"":1450<CB$"4"B$(C3)(132):RG$"":1450FCB$"5"B$(C3)(0):RG$"":1450PCB$"":100Z1300@"  ... WORKING ... "" HANGING ";FI$;" TO A ";RG$;" ILE"C12,8,2,"#"15,8,152,B$(C);CC1:C257C0:15701530"15,"U2:"2,0;TR;SE,3000J2:15r"ONE !"w5000%|V "2990 CHECK DISK ERROR ROUTINE ..--==> k 15,AZ,BZ$,CZ,DZx AZ20 2:15 "  ISK RROR !! " " ";AZ;",";BZ$;",";CZ;",";DZ 198,0 5000 CB12800 CB$:CB$""CB$ :100P"4999 SOUND MAKER ----====> r54296,15:54277,0:54278,24854273,33:54272,37:54276,17T0:T1250::54276,16:54296,0:瀏"32999 MACHINE LANG. DIRECTORY ROUTINE AD49152퀁DADAD142:Y:D,Y:W169,8,170,160,0,32,186,255,169,1,162,96,160,163,32,189,25532,192,255,162,8,32,198,255,32,207,255,32,207,255,32,207,25532,207,255,240,91,32,207,255,72,32,207,255,72,160,0,32,207,255,153,32'2,240,40,201,34,240,3,200,208,241,200,32,207,255,153,32,2,201.0` 208,10,32,207,255,208,251,104,104,24,144,202200,32,207,255,153,32,2,240,3,200,208,245,104,168,104,170,15232,205,189,169,32,32,210,255,160,0,185,32,2,240,6,32,210$255,200,208,245,169,13,32,210,255,208,157,162,0,134,198,169,8B32,195,255,32,198,255,96H$