À“"FILETYPE CHANGER",8,1‹ã4|¥§ä§†®LH²1êfGþJó‘òòPò3óWñÊñíö>ñ/ófþ¥ôíõ Y¦L®§ 3�"�‘ FILETYPE CHANGER - 9/86 - BOB WHITSON ’Od™"“›":—53280,6:—53281,0bn™Ç(14);:™Ç(8);mx�33000€–TR²18:SE²1:C²0�›†B$(257)À Ÿ15,8,15:˜15,"M-W"ªÇ(106)ªÇ(0)ªÇ(1)ªÇ(133): 15Î'‹VG²1§400 ,™"“ <<< Æ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 ’"æ 8�5000ï :¡CB$ >�CB²1¤50:—646,CO:CO²COª1:‹CO²16§CO²1O E™" ÃREATED ÂY"“ J™""£12)"ÂOB ×HITSON..9/86":‹Â(197)²1§400Í O™" "Õ T‚CBÞ Y‰318 �™"“› <<< ÆILETYPE ÃHANGER >>> ’"A ˜™"ž (ÔYPE '$' FOR A ÄIRECTORY)":™:™_ š™"› ÆILENAME TO ÃONVERT "� ž—198,0:FI$²"":…" ‘";FI$¶ ¤‹FI$²"$"§™:™"ž":ž49152:™:™"›":‰410Ë ©‹Ã(FI$)³1§œ:‰100Þ ¬‹Ã(FI$)±16§414 ™" � ’"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)ù DC²Cª1:‹C²256§C²0:‰610 X‹ST²0§570 b 2: 15= �"�‘799 FIND FILE IN DIRECTORY -=> ’E C²0R %�C²C¤255j 4‹È(FI$,1)²B$(C)§870q >‚C— HSE²Æ(B$(1)):‹SE±1§‹SE³19§C²0:‰500à R™"“ ÆILE ÎOT ÆOUND !!"é W™" ÔRY ÁGAIN (Ù/Î)?"ó X�5000ü Y¡CB$\‹CB$²"Y"§œ:VG²1:‰100)^‹CB$²"N"§œ:‰1002`‰857@fFI²Ã(FI$)IpCB²1sz‹Ê(FI$,CB,1)³±B$(Cª(CB«1))§C²Cª1:‰805„CB²CBª1މ‹CB±FI§950—މ890ж‹B$(Cª(CB«1))³±Ç(160)§‹B$(Cª(CB«1))³±Ç(0)§C²Cª1:‰805ôè‹Æ(B$(C«3))²129§FT$²"ÓÅÑ":‰1100ò‹Æ(B$(C«3))²130§FT$²"ÐÒÇ":‰1100<ü‹Æ(B$(C«3))²131§FT$²"ÕÓÒ":‰1100`‹Æ(B$(C«3))²132§FT$²"ÒÅÌ":‰1100‚‹Æ(B$(C«3))²0§FT$²"ÄÅÌ":‰1100‘C²Cª1:‰805ÁK�"�‘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$7‹CB$²"1"§B$(C«3)²Ç(129):RG$²"ÓÅÑ":‰1450c(‹CB$²"2"§B$(C«3)²Ç(130):RG$²"ÐÒÇ":‰1450�2‹CB$²"3"§B$(C«3)²Ç(131):RG$²"ÕÓÒ":‰1450»<‹CB$²"4"§B$(C«3)²Ç(132):RG$²"ÒÅÌ":‰1450åF‹CB$²"5"§B$(C«3)²Ç(0):RG$²"ÄÅÌ":‰1450ùP‹CB$²"…"§œ:‰100Z‰1300@ª™" � ... WORKING ... ’"‚¯™" ÃHANGING ";FI$;" TO A ";RG$;" ÆILE"ŠÜC²1™áŸ2,8,2,"#"¦æŸ15,8,15´ú˜2,B$(C);ÏC²Cª1:‹C²257§C²0:‰1570Ù‰1530ð"˜15,"U2:"2,0;TR;SEú,�3000J 2: 15r™"›ÄONE !"w�5000%|€V® �"�‘2990 CHECK DISK ERROR ROUTINE ..--==> ’k¸ „15,AZ,BZ$,CZ,DZx ‹AZ³20§ŽƒÌ  2: 15´Ö ™"“ ž ÄISK ÅRROR !! ’›"àà ™" ";AZ;",";BZ$;",";CZ;",";DZëê —198,0õï �5000ô �CB²1¤2800þ ¡CB$:‹CB$²""§‚CB$ œ:‰100P‡�"�‘4999 SOUND MAKER ----====> ’rˆ—54296,15:—54277,0:—54278,248”’—54273,33:—54272,37:—54276,17¼œT²0:�T²1¤250:‚:—54276,16:—54296,0:Žïç€�"�‘32999 MACHINE LANG. DIRECTORY ROUTINE ’üè€AD²49152í€�D²AD¤ADª142:‡Y:—D,Y:‚Wò€ƒ169,8,170,160,0,32,186,255,169,1,162,96,160,163,32,189,255™÷€ƒ32,192,255,162,8,32,198,255,32,207,255,32,207,255,32,207,255äü€ƒ32,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,202£�ƒ200,32,207,255,153,32,2,240,3,200,208,245,104,168,104,170,152á�ƒ32,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,8B�ƒ32,195,255,32,198,255,96H$�Ž