gijpL46K(4);"PR#3" F$(102),T$(102),FT$(255),FC$(255RUN$(255):D$(4)  XEXEXE0255:FT$(I),FC$(I),FD$(I):I 61200D$"PREFIX":OP$ "FIX"::34,2:T$"ProDOS File Type Cha :(4);"PR#3":BRUN RW/88: (175)256(176)46K (4);"PR#3" F$(102),T$(102),FT$(255),FC$(255),FD$(255):D$(4) E62248 I0255:FT$(I),FC$(I),FD$(I):I 61200 D$"PREFIX":OP$ "FIX"::34,2:T$"ProDOS File Type Changer"* L0:E$(L)"Quit to BASIC":2020 A$(1)"Select File from Disk":A$(2)"Quit to BASIC":A$(3)"Quit to Program Selector":M$"Main Menu":P$"Select a Number & Press RETURN:" (NE3:"MENU",A$(1),NE,M$,P$,SE:SE0400 2SE100,400,450 c dSELECT FILE TO CHANGE4 gL1:DIRECTORY LEVEL 1V i2000:E$(1)"Main Menu":2020n jH$(L)"Select Disk" kNE0:"MENU",A$(1),NE,H$(L),P$,SE q600:PF$"" s GENL LOOP xNE0ĺ:(7);"NO ENTRIES HERE!":"PRESS A KEY TO GO BACK...";:A$:::200/ }"MENU",F$(1),NE,H$(L),P$,SE:SE0200Q T$(SE)"DIR"DR$F$(SE):250| FE0:FIRST ELEMENT TO START SEARCH ON (T$(SE),1)"$"į"SEARCH",FT$(FE),T$(SE) (T$(SE),1)"$"į"SEARCH",FC$(FE),T$(SE) FE0ĺ:(7);"UNKNOWN FILE TYPE..."::FE0. 2000:::"FILENAME: ";F$(SE): "FILE CODE","FILE TYPE","DESCRIPTION":"---------","---------","-----------" FC$(FE),FT$(FE),FD$(FE) :"ENTER NEW FILE CODE OR TYPE:";I$:"UC",I$ I$""199(I$,1)"$"į"XNUM",I$,FT:165^(I$,1)"$"FE0:"SEARCH",FC$(FE),I$:FE0ĺ:(7);"UNKNOWN FILE TYPE...":A$::199u"XNUM",FT$(FE),FTF$PF$F$(SE):"TYPE",F$,FT(37):958:"XNUM",FT,FT$:FT$"$"(FT$,2):FC$(FT),FT$,FD$(FT):"Filetype change completed. Press a key for main menu...";&A$0:20JPOP DIRECTORY PREFIXWL1199tO$PF$:SAVE ORIG PREFIX~LL1I(PF$)111(PF$,I,1)"/"PF$(PF$,I):I1I(PF$)1L1İ2010:2010:1002010:2020:NE0:"MENU",A$(1),NE,H$(L),P$,SE"500:1153ADD A LEVELCPF$PF$DR$M2000WLL1H$(L)DR$:E$(L)H$(L1):L$(L)DR$:2020NE0:"MENU",A$(1),NE,H$(L),P$,SE 500115QUIT TO BASIC800 ::"AMP":"Type 'BYE' for Program Selector.":*QUIT TO PROGRAM SELECTOR3800P::"AMP":(4);"BYE":eGET A DIRECTORYp216,0xI1D$"OPEN ";PF$;",TDIR"D$"READ ";PF$550J13:F$:JF$(I) TP$(F$(I),18,3):S$(F$(I),26,3):S(S$)%(F$(I),1)" "(F$(I),1)"*"540LF$(I)(F$(I),2,16):"STRIP",F$(I)kTP$"DIR"F$(I)F$(I)"/"T$(I)TP$:II1520&"ERR":216,0:D$"CLOSE"+NEI10XONLINE CMDZAD48912:I0[V(AD)256(AD1):NO DEVICE VECTOR ]I1bS17gD12)i627@lA2AD(D1)16S2q(A2)256(A21)VĺD$"PREFIX,S";S;",D";D:D$"PREFIX":F$(I):T$(I)"DIR":II1r630s216,0:"ERR"vD:S{216,0NEI1800 RESTORE/FIX PREFIX"807%:D$"PREFIX";OP$!&815.'E:810C(D$"PREFIX":OP$^):D$"PREFIX";OP$:815e*Er/216,0:34,(34)2:34,(34)2:1:1:868:T$E$E$(L)1:(33)("ESCAPE:"E$):"ESCAPE: ";E$:FILE TYPE DATA LIST $00,UNK,Undefined file type<$01,BAD,Bad block fileZ$02,PCD,Pascal code filex$03,PTX,Pascal text file$04,TXT,ASCII text file$05,PDA,Pascal data file$06,BIN,Binary file$07,FNT,Font file$08,FOT,Graphics screen file)$09,BA3,Business BASIC programO$0A,DA3,Business BASIC data filep$0B,WPF,Word processor file$0C,SOS,SOS system file$0D,???,SOS reserved file$0E,???,SOS reserved file$0F,DIR,Directory$10,RPD,RPS data file$11,RPI,RPS index file=$12,???,AppleFile discard file_$13,???,Applefile model file$14,???,Applefile report format file$15,???,Screen library file$16,???,SOS reserved file$17,???,SOS reserved file$18,???,SOS reserved file- $19,ADB,AppleWorks database fileY$1A,AWP,AppleWorks word processor file$1B,ASP,AppleWorks spreadsheet file$1C,???,(reserved file type)$1D,???,(reserved file type)#$1E,???,(reserved file type) ($1F,???,(reserved file type),-$20,???,(reserved file type)N2$21,???,(reserved file type)p7$22,???,(reserved file type)<$23,???,(reserved file type)A$24,???,(reserved file type)F$25,???,(reserved file type)K$26,???,(reserved file type)P$27,???,(reserved file type)<U$28,???,(reserved file type)^Z$29,???,(reserved file type)_$2A,???,(reserved file type)d$2B,???,(reserved file type)i$2C,???,(reserved file type)n$2D,???,(reserved file type)s$2E,???,(reserved file type)*x$2F,???,(reserved file type)L}$30,???,(reserved file type)n$31,???,(reserved file type)$32,???,(reserved file type)$33,???,(reserved file type)$34,???,(reserved file type)$35,???,(reserved file type)$36,???,(reserved file type):$37,???,(reserved file type)\$38,???,(reserved file type)~$39,???,(reserved file type)$3A,???,(reserved file type)$3B,???,(reserved file type)$3C,???,(reserved file type)$3D,???,(reserved file type)($3E,???,(reserved file type)J$3F,???,(reserved file type)l$40,???,(reserved file type)$41,???,(reserved file type)$42,???,(reserved file type)$43,???,(reserved file type)$44,???,(reserved file type)$45,???,(reserved file type)8$46,???,(reserved file type)Z$47,???,(reserved file type)|$48,???,(reserved file type)$49,???,(reserved file type)$4A,???,(reserved file type)$4B,???,(reserved file type) $4C,???,(reserved file type)&$4D,???,(reserved file type)H$4E,???,(reserved file type)j$4F,???,(reserved file type)$50,???,(reserved file type)"$51,???,(reserved file type)'$52,???,(reserved file type),$53,???,(reserved file type) 1$54,???,(reserved file type)6 6$55,???,(reserved file type)X ;$56,???,(reserved file type)z @$57,???,(reserved file type) E$58,???,(reserved file type) J$59,???,(reserved file type) O$5A,???,(reserved file type)!T$5B,???,(reserved file type)$!Y$5C,???,(reserved file type)F!^$5D,???,(reserved file type)h!c$5E,???,(reserved file type)!h$5F,???,(reserved file type)!m$60,???,(reserved file type)!r$61,???,(reserved file type)!w$62,???,(reserved file type)"|$63,???,(reserved file type)4"$64,???,(reserved file type)V"$65,???,(reserved file type)x"$66,???,(reserved file type)"$67,???,(reserved file type)"$68,???,(reserved file type)"$69,???,(reserved file type)#$6A,???,(reserved file type)"#$6B,???,(reserved file type)D#$6C,???,(reserved file type)f#$6D,???,(reserved file type)#$6E,???,(reserved file type)#$6F,???,(reserved file type)#$70,???,(reserved file type)#$71,???,(reserved file type)$$72,???,(reserved file type)2$$73,???,(reserved file type)T$$74,???,(reserved file type)v$$75,???,(reserved file type)$$76,???,(reserved file type)$$77,???,(reserved file type)$$78,???,(reserved file type)$$79,???,(reserved file type) %$7A,???,(reserved file type)B%$7B,???,(reserved file type)d%$7C,???,(reserved file type)%$7D,???,(reserved file type)%$7E,???,(reserved file type)%$7F,???,(reserved file type)% $80,???,(reserved file type)&$81,???,(reserved file type)0&$82,???,(reserved file type)R&$83,???,(reserved file type)t&!$84,???,(reserved file type)&&$85,???,(reserved file type)&+$86,???,(reserved file type)&0$87,???,(reserved file type)&5$88,???,(reserved file type)':$89,???,(reserved file type)@'?$8A,???,(reserved file type)b'D$8B,???,(reserved file type)'I$8C,???,(reserved file type)'N$8D,???,(reserved file type)'S$8E,???,(reserved file type)'X$8F,???,(reserved file type) (]$90,???,(reserved file type).(b$91,???,(reserved file type)P(g$92,???,(reserved file type)r(l$93,???,(reserved file type)(q$94,???,(reserved file type)(v$95,???,(reserved file type)({$96,???,(reserved file type)($97,???,(reserved file type))$98,???,(reserved file type)>)$99,???,(reserved file type)`)$9A,???,(reserved file type))$9B,???,(reserved file type))$9C,???,(reserved file type))$9D,???,(reserved file type))$9E,???,(reserved file type) *$9F,???,(reserved file type),*$A0,???,(reserved file type)N*$A1,???,(reserved file type)p*$A2,???,(reserved file type)*$A3,???,(reserved file type)*$A4,???,(reserved file type)*$A5,???,(reserved file type)*$A6,???,(reserved file type)+$A7,???,(reserved file type)<+$A8,???,(reserved file type)^+$A9,???,(reserved file type)+$AA,???,(reserved file type)+$AB,???,(reserved file type)+$AC,???,(reserved file type)+$AD,???,(reserved file type),$AE,???,(reserved file type)*,$AF,???,(reserved file type)G,$B0,SRC,APW source filed,$B1,OBJ,APW object file,$B2,LIB,APW library file, $B3,S16,ProDOS 16 system file,$B4,RTL,APW run-time library,$B5,EXE,ProDOS 16 shell application%-$B6,STR,ProDOS 16 permanent initialization fileZ- $B7,TSF,ProDOS 16 temporary initialization filez-%$B8,NDA,New desk accessory-*$B9,CDA,Classic desk accessory-/$BA,TOL,Toolset file-4$BB,DRV,ProDOS 16 device driver .9$BC,???,(reserved for ProDOS 16 load file)=.>$BD,???,(reserved for ProDOS 16 load file)m.C$BE,???,(reserved for ProDOS 16 load file).H$BF,DOC,ProDOS 16 document file.M $C0,PNT,Compressed Super Hi-Res picture.R$C1,PIC,Super Hi-Res picture/W$C2,???,(reserved file type)&/\$C3,???,(reserved file type)H/a$C4,???,(reserved file type)j/f$C5,???,(reserved file type)/k$C6,???,(reserved file type)/p$C7,???,(reserved file type)/u$C8,FON,ProDOS 16 font file/z$C9,???,(reserved file type)0$CA,???,(reserved file type)50$CB,???,(reserved file type)W0$CC,???,(reserved file type)y0$CD,???,(reserved file type)0$CE,???,(reserved file type)0$CF,???,(reserved file type)0$D0,???,(reserved file type)1$D1,???,(reserved file type)#1$D2,???,(reserved file type)E1$D3,???,(reserved file type)g1$D4,???,(reserved file type)1$D5,???,(reserved file type)1$D6,???,(reserved file type)1$D7,???,(reserved file type)1$D8,???,(reserved file type)2$D9,???,(reserved file type)32$DA,???,(reserved file type)U2$DB,???,(reserved file type)w2$DC,???,(reserved file type)2$DD,???,(reserved file type)2$DE,???,(reserved file type)2$DF,???,(reserved file type)2$E0,???,(reserved file type)!3$E1,???,(reserved file type)C3$E2,???,(reserved file type)e3$E3,???,(reserved file type)3$E4,???,(reserved file type)3$E5,???,(reserved file type)3 $E6,???,(reserved file type)3$E7,???,(reserved file type)4$E8,???,(reserved file type)14$E9,???,(reserved file type)S4$EA,???,(reserved file type)u4$$EB,???,(reserved file type)4)$EC,???,(reserved file type)4.$ED,???,(reserved file type)43$EE,???,(reserved file type)48$EF,PAS,Pascal program5=$F0,CMD,Pascal command file>5B$F1,???,(User defined file type)d5G$F2,???,(User defined file type)5L$F3,???,(User defined file type)5Q$F4,???,(User defined file type)5V$F5,???,(User defined file type)5[$F6,???,(User defined file type)"6`$F7,???,(User defined file type)H6e$F8,???,(User defined file type)g6j$F9,???,ProDOS 8 reserved6o$FA,INT,Integer BASIC program6t$FB,IVR,Integer BASIC variable file6y$FC,BAS,Applesoft BASIC program6~$FD,VAR,Variable storage file7$FE,REL,Relocatable file;7$FF,SYS,ProDOS 8 System fileM7TITLE SCREEN7::I180:"%";:I:I222:"%";:80:"%";:I:I180:"%";:I7$T$"ProDOS File type Changer":T0$"Version 7.12":T1$""7.:8:I$">> "T$" <<":61290:8810:I$T0$:61290)8B122(T0$""):I$T1$:61290}8L14:I$"(C) COPYRIGHT 1987":61290:15:I$"ROGER WAGNER PUBLISHING,INC.":612908V17:I$"1050 Pioneer Way Suite P":612908[18:I$"El Cajon, CA 92020":61290;:19::I$"(619) 442-0522":612909`I15000:(16384)128ĂI#9a16368,039e16368,0:L9j40(I$)2.5:I$:6MENUMENU GENERATOR.TB, , ޅ ߅ { RP QLފ8 0 ۝  i ۝  eei!MΥϱP͎iΐϥݭ*ijΥ!j X { L W Wȩ \ۈ ک \۩ \ W۠^I \ W۩ \۩ \! ڥL` {ݥ HiF!J8hePΥϤ%6 XŠŠƠӠii Ȅ% $$ Bڥ$ \۩ \ Wۤ : ڦʽ ݥ$ 0 \۩ \ W݈ eei = ڦ Ƥ%Ȅ  'ަʆΊ eeޅ eeΥiϭ8e8 $ w$ : = s $$ =$ wP{$%Q \ s,ɺH$ $  :΅υ s =hɕ/ɋ.Ɉ*Ɋ#ɛTɍZܐ͂) 0,ޠ 8 ް٥ ϩɥũޅ#ߐ,Ș 0Л s$ $ \ \۩ \ ߅ ee 륂 cڥP$QQ $ \۩ \۩ 0 \,L+AMPRESTORE AMPERSAND.TBưȱ`FIXBAND-AID.TBL֧MSSGERR.MSSG.TB ڦ  ieީ LԅiɨLх  Q ( L``H \h`P :LYERRERR.TBhhߚHH ? jݪ + ) j݅ڥۅ% 0Lc k`?INPUTSTRING.INPUT.TB  " ީ; = l݅ , LvTYPECHANGE.TYP.TB  , { @5LԨ^ @AB @ L犠@@ @` L *XNUMXNUM.TB {ݥl RQHJJJJ ɺih) ɺiPHJJJJ ɺih) ɺi$ 9 l݅ `0HDȱȱ ɰɺ ǰ>?I i8J &>&? j݅>?% 0 cکURS` kکURS`5LԪSEARCHARRAY.SEARCH.TB , R % lݩzLfHH ?8klHH$08 EHHHH hŁhłL ?hh$ %hh@( q*(qhŠhš L᥸ $0P$ }hh { , )$pL$0hhHHH { lݩ  ,H j݅H ! , ʆ LLke