' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-"("6  ͠٠ˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`F):F$(CF)F$(CFW):F$(CFW)A$:1407$DELETE FILE(S)M$1080:A$"C"610a$230:B$A$:170o$X02280$(F$(CF),W)(173)2270$21:W:64578:"DELETE? Y"CH$;$A$:A$"Y"A$"N"A$CM$A$ESC$2240$A$ESC$ı%A$"Y"A$CM$*21:W:64578:"MOVING FILE"=#4W:X(CF):16384,128:A$p#>AW6:A$(K$,A,W)Ă:A$ESC$A$CM$2100#HA$ESC$A$CM$ı#RAA(A2)2:AW2160,2140:2100#\CFZı#fA$F$(CF):F$(CF)F$(CFW):F$(CFW)A$:120#pCFMXı#$zA$F$(CW:F$(A)F$(AW)::F$(CF)T$A$(17)(W)3"2090B"MOVE FILEY"1080:A$"C"2090s"230:B$A$:A$ESC$ı|"170"X0ı"21:W:64578:"MOVE? Y"CH$;" A$:A$"Y"A$"N"A$CM$A$ESC$2060"A$ESC$ı" A$"N"İ200:2040#A$"N"A$CM$A$ESC$1880,!bA$ESC$ıD!lA$"Y"A$CM$İ490S!v200:1860e!UNLOCK FILES!X1$(170):X2$(160):X3$"UNLOCK":1810!TITLE FILE!21:W:64578:N$(A):230!A$ESC$ĖW:64578:!252,MX2:MXMXW)"AMXCFW0:1730 200:1730& LOCK FILESK X1$(160):X2$(170):X3$"LOCK"c 1080:A$"C"1840 (F$(CF),2,W)X1$İ490 &:1530 0230:B$A$:A$ESC$1830 :170 DX0ı N(F$(CF),2,W)X1$1910!X23:W:X3$"? Y"CH$;:A$:A$"Y"80:A$"C"1710-(F$(CF),W)(173)İ5109:1530V230:B$A$:A$ESC$1830_170jX0ı(F$(CF),W)(173)178023:W:"PURGE? Y"CH$;:A$:A$"Y"A$"N"A$CM$A$ESC$1750A$ESC$ı A$;:A$"Y"A$CM$İ510::19,120,140,120,140,990,810,2190,2300,1800,2010,1680,1610,1950,1930,1590,1590,2400:1540j6:2800:23:870|@RENAME FILESJ1080:A$"C"1630T570:^230:B$A$:A$ESC$ġ:1530h170rX0ı|570:200:1650PURGE FILES10:1002:V(47094)A(252)Wė:12:"DISK CONTAINS NO FILES":fMX(252)2:252,MXW:CF(MX2)n:}W:X(CF)21:W:"A,C,D,E,L,M,P,R,T,U,<,>,ESC,?=HELP"23:W:"COMMAND=>";:A$"AW(K$):A$(K$,A,W)Ă:1560U,A120,140B$""B$(((40)(41)25623)128)[D(B$):46528,D:24:24:A1$"0":A2$"9":LN3900:A$ESC$Ė24:"0 ";:1400(B$)255Ė24:"0 ";:24:146024:(B$)" ";:46527,(B$)54,90:55,8:1002:252,0F$(0)"":2194:X(Z):0:22::"INSERT DISK":Mn22:19:"SLOT 6":18:"DRIVE 1":17:"VOLUME 0";xLNW:A1$"1":A2$"7":22:24:900:A$ESC$ė:103,W:104,8:B$""B$(((40)(41)25623)128)S(B$):46529,S:23:24:A2$"2":900A$ESC$Ė24:W;:1400)1,17:12,9Q2K$CH$CU$",.<>ACDELMPRTU?/"ESC$:SP$"":AW30:SP$SP$(160):<F$(104),N$(19):AW19:N$(A)::WILD$(189)FT$(160)(160)(212)(160)(176)(176)(176)(160)PA768777:X:A,X::2660ZREAD DIRECTORYd28005,(32770):1170(FILE NOT EXHUMABLEJA$"FILE NOT AVAILABLE":1200d INITIALIZE VARIABLESCH$(8):CD$(4):CM$(13):ESC$(27):CU$(21)0:0:1002:CI$(9):CN$(14):CF$(6):CL$(12):CC$(3) (W1::X(49283)(49283):10,76:15):2105:'ILLEGAL TRK SECTOR LISTJA$"ILLEGAL TRACK SECTOR LIST"h21:W:64578:A$(7)(7)}B11000::XıB32780A22:254,(A):255,(AW)2438:2463:(253)Č2453:NEXT TRK SECTOR LIST47084,(32769):4708"F"1100)VA$ESC$ġ:21:W:64578:C`A$CM$A$"C"A$"C"NjA$;:mtREAD IN TRACK SECTOR LIST~47081,S16:47082,D:47083,047084,((F$(CF),39,W)):47085,((F$(CF),40,W)) 47088,0:47089,128:47092,W:254,(47084):255,(4708ŠӠǠҍخҠРˍٍؠƠؠҍӍӍA$(K$,A,W)Ă:1560y,A120,140,120,140,120,140,990,810,2190,2300,1800,2010,1680,1610,1950,1930,1590,1590,2400:15406:2800:23:870@RENAME FILESJ1080:A$"C"1630T570:^230:B$A$:A$ESC$ġ:1530h170rX0ı |570:252,05F$(0)"":2194:X(Z):0:1002:V(47094)e(252)Wė:12:"DISK CONTAINS NO FILES":MX(252)2:252,MXW:CF(MX2):W:X(CF)21:W:"A,C,D,E,L,M,P,R,T,U,<,>,ESC,?=HELP"23:W:"COMMAND=>";:A$"AW(K$):2":900"A$ESC$Ė24:W;:1400MB$""B$(((40)(41)25623)128)D(B$):46528,D:24:24:A1$"0":A2$"9":LN3900:A$ESC$Ė24:"0 ";:1400(B$)255Ė24:"0 ";:24:146024:(B$)" ";:46527,(B$)54,90:55,8:10022660ZREAD DIRECTORY;d2800:22::"INSERT DISK":qn22:19:"SLOT 6":18:"DRIVE 1":17:"VOLUME 0";xLNW:A1$"1":A2$"7":22:24:900:A$ESC$ė:103,W:104,8:B$""B$(((40)(41)25623)128)S(B$):46529,S:23:24:A2$"W1::X(49283)(49283):10,76:11,17:12,9u2K$CH$CU$",.<>ACDELMPRTU?/"ESC$:SP$"":AW30:SP$SP$(160):<F$(104),N$(19):AW19:N$(A)::WILD$(189)FT$(160)(160)(212)(160)(176)(176)(176)(160)PA768777:X:A,X::ECTOR LIST447084,(32769):47085,(32770):1170LFILE NOT EXHUMABLEnA$"FILE NOT AVAILABLE":1200 INITIALIZE VARIABLESCH$(8):CD$(4):CM$(13):ESC$(27):CU$(21)0:0:1002:CI$(9):CN$(14):CF$(6):CL$(12):CC$(3).( RENAME FILES"::"T> CREATE A TITLE FILE"Z., "U> UNLOCK FILES"::"?> THIS HELP SCREEN".6 "ESC> STOP CURRENT FUNCTION (GO BACK)"::.@ ,,,,,,,,DELETE,EXHUME,LOCK,MOVE,PURGE,RENAME,TITLE,UNLOCK,,,.J 104,168,104,166,223,154,72,152,72,96C"BY RAY DARRAH";8- 32,2:33,38::"A> ALLOCATION MAP"s- "C> DISPLAY A SIMULATED CATALOG"::"D> DELETE FILES"- "E> EXHUME (BRING BACK) DELETE FILES"::"L> LOCK FILES"- "M> MOVE FILES WITHIN THE DIRECTORY"::"P> PURGE DELETED FILES"*." "R>"WHICH? T"CH$;=, A$:A$"T"A$"R"A$ESC$A$CM$2740O, A$:A$"R"Ĭo, A$ESC$MXWČ54915:1530, A$ESC$A$"DISK CONTAINS NO FILES":2410, :12:"ONE MOMENT PLEASE.":, PRINT HELP SCREEN- :"THE LONE CATALOG ARRANGER":27):>+x :"THE LONE CATALOG ARRANGER":27)"BY RAY DARRAH"::s+ A$"VOLUME MISMATCH":ERRWA$"WRITE PROTECTED"+ ERR4A$"DRIVE I/O ERROR"+ 20(A$)2::A$:::(7)+ "T> TRY AGAIN"::"R> RESTART PROGRAM"::"ESC> ABORT FUNCTION", :5W1:47085,A:47089,144A:47088,0V*F 2105::47089,179:47088,187:47085,0:2105*P A$"DIRECTORY TRANSFORMATION COMPLETE":2410*Z ERROR HANDLER*d 768:ERR(222):ERR254Ħ+n ERR0ERR15ė:12:"ERROR #"ERR" IN LINE "(218)(219)256;(7) X(((F$(CF),5,W))176)100(((F$(CF),6,W))176)10j) XX((F$(CF),7,W))176:AD33,X(X256)256) AD34,X256:CFCFW:CFMXĂ:)( CF(CF2)::X(CF):21:"ONE MOMENT PLEASE.")2 47081,S16:47082,D:47083,0:47092,2:47084,17%*< A1MXW26109( CF0:B015:A1122135:AD33024B256Am( AD,((F$(CF),2)):ADW,((F$(CF),W)):X(CF)( A$(F$(CF),3,W):X06:A$((X45991))Ă( X((2X)2):(F$(CF),2,W)(170)XX128( AD2,X:X332:ADX,((F$(CF),X6,W)):7) /' A$:A$"S"A$"R"A$ESC$A$CM$2450B' A$:A$ESC$Ĭ|' A$"R"MXWA$"DISK CONTAINS NO FILES":1200:2410' A$"R"ė::1530' BUILD DIRECTORY' :21:"BUILDING DIRECTORY":2499:B14 ( A3302536353256:A,17:AW,B:BBW::A$CM$İ700&L 200:2320/&V SAVE DIRECTORY9&` A$""r&j :"THE LONE CATALOG ARRANGER":27)"BY RAY DARRAH";&t :20(A$)2::A$:&~ 8:"S> SAVE DIRECTORY ON DISK"::"R> RETURN FOR MORE EDITING"' :"ESC> RESTART PROGRAM"::"WHICH? S"CH$;İ610%200:2210(%21:W:64578:=% EXHUME FILE(S)S%1080:A$"C"700g% 230:B$A$:170u% X02280% (F$(CF),W)(173)2380%$ 21:W:64578:"EXHUME? Y"CH$;%. A$:A$"Y"A$"N"A$CM$A$ESC$2350%8 A$ESC$ı &B A$"Y":"P> PURGE DELETED FILES"N," "R> RENAME FILES"::"T> CREATE A TITLE FILE"~,, "U> UNLOCK FILES"::"?> THIS HELP SCREEN",6 "ESC> STOP CURRENT FUNCTION (GO BACK)"::,@ ,,,,,,,,DELETE,EXHUME,LOCK,MOVE,PURGE,RENAME,TITLE,UNLOCK,,,-J 104,168,10:"THE LONE CATALOG ARRANGER":27)"BY RAY DARRAH";\+ 32,2:33,38::"A> ALLOCATION MAP"+ "C> DISPLAY A SIMULATED CATALOG"::"D> DELETE FILES"+ "E> EXHUME (BRING BACK) DELETE FILES"::"L> LOCK FILES", "M> MOVE FILES WITHIN THE DIRECTORY":AM"::"ESC> ABORT FUNCTION"2* :"WHICH? T"CH$;a* A$:A$"T"A$"R"A$ESC$A$CM$2740s* A$:A$"R"Ĭ* A$ESC$MXWČ54915:1530* A$ESC$A$"DISK CONTAINS NO FILES":2410* :12:"ONE MOMENT PLEASE.":* PRINT HELP SCREEN4+ ERR" IN LINE "(218)(219)256;(7):b)x :"THE LONE CATALOG ARRANGER":27)"BY RAY DARRAH"::) A$"VOLUME MISMATCH":ERRWA$"WRITE PROTECTED") ERR4A$"DRIVE I/O ERROR") 20(A$)2::A$:::(7)* "T> TRY AGAIN"::"R> RESTART PROGR47083,0:47092,2:47084,17I(< A15W1:47085,A:47089,144A:47088,0z(F 2105::47089,179:47088,187:47085,0:2105(P A$"DIRECTORY TRANSFORMATION COMPLETE":2410(Z ERROR HANDLER(d 768:ERR(222):ERR254Ħ&)n ERR0ERR15ė:12:"ERROR #"332:ADX,((F$(CF),X6,W)):[' X(((F$(CF),5,W))176)100(((F$(CF),6,W))176)10' XX((F$(CF),7,W))176:AD33,X(X256)256' AD34,X256:CFCFW:CFMXĂ:'( CF(CF2)::X(CF):21:"ONE MOMENT PLEASE."(2 47081,S16:47082,D:02536353256:A,17:AW,B:BBW::MXW2610]& CF0:B015:A1122135:AD33024B256A& AD,((F$(CF),2)):ADW,((F$(CF),W)):X(CF)& A$(F$(CF),3,W):X06:A$((X45991))Ă& X((2X)2):(F$(CF),2,W)(170)XX128 ' AD2,X:X> RESTART PROGRAM"::"WHICH? S"CH$;S% A$:A$"S"A$"R"A$ESC$A$CM$2450f% A$:A$ESC$Ĭ% A$"R"MXWA$"DISK CONTAINS NO FILES":1200:2410% A$"R"ė::1530% BUILD DIRECTORY% :21:"BUILDING DIRECTORY":2499:B14.& A33ESC$2350$8 A$ESC$ı0$B A$"Y"A$CM$İ700?$L 200:2320S$V SAVE DIRECTORY]$` A$""$j :"THE LONE CATALOG ARRANGER":27)"BY RAY DARRAH";$t :20(A$)2::A$:$~ 8:"S> SAVE DIRECTORY ON DISK"::"R> RETURN FOR MORE EDITING"$% :"ESC40#A$ESC$ı)#A$"Y"A$CM$İ6108#200:2210L#21:W:64578:a# EXHUME FILE(S)w#1080:A$"C"700# 230:B$A$:170# X02280# (F$(CF),W)(173)2380#$ 21:W:64578:"EXHUME? Y"CH$; $. A$:A$"Y"A$"N"A$CM$A$W)A$:120"pCFMXıG"zA$F$(CF):F$(CF)F$(CFW):F$(CFW)A$:140["DELETE FILE(S)q"1080:A$"C"610"230:B$A$:170"X02280"(F$(CF),W)(173)2270"21:W:64578:"DELETE? Y"CH$;#A$:A$"Y"A$"N"A$CM$A$ESC$22A$ESC$ı!! A$"N"İ200:2040B!*21:W:64578:"MOVING FILE"a!4W:X(CF):16384,128:A$!>AW6:A$(K$,A,W)Ă:A$ESC$A$CM$2100!HA$ESC$A$CM$ı!RAA(A2)2:AW2160,2140:2100!\CFZı "fA$F$(CF):F$(CF)F$(CFW):F$(CF252,MX2:MXMXWM AMXCFWW:F$(A)F$(AW)::F$(CF)T$A$(17)(W)W 2090f MOVE FILE} 1080:A$"C"2090 230:B$A$:A$ESC$ı 170 X0ı 21:W:64578:"MOVE? Y"CH$; A$:A$"Y"A$"N"A$CM$A$ESC$2060 !X23:W:X3$"? Y"CH$;:A$:A$"Y"A$"N"A$CM$A$ESC$1880PbA$ESC$ıhlA$"Y"A$CM$İ490wv200:1860UNLOCK FILESX1$(170):X2$(160):X3$"UNLOCK":1810TITLE FILE21:W:64578:N$(A):230A$ESC$ĖW:64578: +A$;:A$"Y"A$CM$İ510::190:1730:200:1730JLOCK FILESoX1$(160):X2$(170):X3$"LOCK"1080:A$"C"1840(F$(CF),2,W)X1$İ490&:15300230:B$A$:A$ESC$1830:170DX0ıN(F$(CF),2,W)X1$1910A:200:1650PURGE FILES41080:A$"C"1710Q(F$(CF),W)(173)İ510]:1530z230:B$A$:A$ESC$1830170X0ı(F$(CF),W)(173)178023:W:"PURGE? Y"CH$;:A$:A$"Y"A$"N"A$CM$A$ESC$1750A$ESC$ǠϮˮנԠàҠÍà ōҠҠ̍Ա̠±ҠҠűàԠҠŠ͠ÍԠҍàҠÍàŠӍӠԱɠ ԠƠӍÍàӠ΍ҮҍàϠàĠٍҮҫҠōӠĮԠӍîԠōРԠŠōԠȠƠӠҠؠ³àԠ؍´öؠԠˠҍҠԠŠԍ´÷ؠԠҠҍҠԠŠԍҠ²ԠԠٍàϮŠϠō؍؍٠٠ӍҠ´öؠԠҍҠԍ؍٠̠ٿ̠ҠšĠҠîԠŠō´ŷؠԠҠƠӍҠΠōҠŴҠƠӍҠîԠҠōؠؠϠŠŠŠō̍Ҡ̍ӠĮō٠ԠōŠҠƠԠԍĮŠ³٠ԠōҠԠŠԍˠҠčӠàРϠӍîǠōҠԠŠΠǍŠōĠƠРƠˠԍčӠàРϠӍ̮ǠōҠԠԠϠǍ´øؠԠˠԍŠҠҍ̠îǠԮčԠύϮŠؠ³àŠԍҠԮǠŠȠٍ´öؠԠˠҍѠԠ̠Ӡ΍̠̮ǠԠčĠΠҠ̠ҠàŠŠҠˠҠƷԠÍàҠԠ٠ҍĮԠҠ°ԠؠҍӠԠϠŠӍؠԠŠΠñĠñנǠŠ̠ԍٮҍàƠýǮԫŠԍٍҮҩٍٍ٠ٮҠŠҍŠӮӍӠŠƠҩ٠΍٠ҠҍǮԠŠ͠Ҡ٠ӍÍàǮԍҮҩ٠ҍǮԫ4,166,223,154,72,152,72,96 ̍ĮʠӠŠύ٠ŠſŠҍàҫſؠҫؠàҠšӍӠǠǠԠŠҫ̠ȠӍ٠ԠύҠ٠àԠϠԠȍ̮̠ԠàȠōؠſ̠̮šӍˠԮӬٍàРƠԳӠРŠōԮ٠ŠԠōؠŠҠҠΠ؍ŠȠԠǠȠӠōîԠˠŽ˪̍̍٠ҠԍҠԠҍРӠΠԿàŠҠҠîԠԠōҠƠԍĠ³Ƴ٠נġ³ƳٍŠҠҠîԠԠō³Ƴ٠נġ³ƳٍӠōϠҍҍҠîԠԠҠƠōĠ³Ƴ٠ĿŠӮšàҠЍӮӍٍٍ̩̠бРĸŠ΍ԠҠҠӠŠРҍѠ̠ЬԍΠŠٿРàԮԍӍ̠٠٠ŠӍбōĠƠŠԍҠҠҍٍ٠àϮǍҠĸŠԠōàԠӍԠؿҩٍЮҫٍ٠ҠԠō٠ԠԠǠƠǍϮǠЮҩٍؠΠ ŠҠšӠàԮԠ٠ԍؠ֍٠ԠҍҮҩٍЮҍٍҮԺŷ̭΍ӍԠРҠĮ͠Πƺ±´±ԽԫԼαԽ˽˫ƽ˼α˼αźԢŠȠ٢čϠҠĠΠĹöǢΨŵèĤ̱ԠРҍ˽ԽԽĽҍԱ˺´´±ԽԫԼααԽ˽˫˼αź³´˽ԱԽ˽  Ժŷ̭΍ӍԠРҠĮ͠Πƺ±´±ԽԫԼαԽ˽˫ƽ˼α˼αźԢŠȠ٢čϠҠĠΠĹöǢΨŵèĤ̱ԠРҍ˽ԽԽĽҍԱ˺´´±ԽԫԼααԽ˽˫˼αź³´˽ԱԽ˽  Ժŷ̭΍ӠԠРҠĮ͠Πƺ±´±ԽԫԼαԽ˽˫ƽ˼α˼αźԢŠȠ٢čϠҠĠΠĹöǢΨŵèĤ̱ԠРҍ˽ԽԽĽҍԱ˺´´±ԽԫԼααԽ˽˫˼αź³´˽ԱԽ˽  7,2,193,255" 8ST0:TKTK1:BF0TKLT10702 BTKLT1020L L:"DONE WITH COPY":g DO MONITOR COMMAND A$ A$A$" N D9C6G":A1(A$):511A,((A$,A,1))128 :72,0:144: 5 CHANGES 0,5,57,169,0,5,58,1 17,2,48,33, 17,2,192,255 1 PRINT SHOP CONTROLLER6TK0:ST0:LT34:CDWRET1TK:490h430:100:STST1:STDOS1030uBF1060ST0:TKTK1:TKLT1030$:310:490:TKT1:ST0)TK14A$"5700<5900.59FFM N 57FF:01":1210 .430:100:STST1:STDOS1070  ӬΠҠĮ͢嬠󮍱źԺԢŠȠ٢ĺ͢ŠȠˍӬӬ報󮍱´±ԽԫԼα͢ԯӠ嬠򮍱Խ˽˫ƽ˼α͢뮍˼α͢򍱰´˽ԱԽ͢ԯӠ危ź³͢󮍱ŴŴŴŴ͢򰶬ŴŴ͢󍱰´±ԽԫԼα͢ԯӠ䬠򍱰α͢危Խ˽˫˼̱Πҍ˽ԽԽĽҺ͢렦䠨󠰭婮Ա˺´͢宮䮍ŴŴ     Ժŷ̭΍ؠҠĮ±´±ԽԫԼαԽ˽˫˽ƽ˼α˼αźԢŠȠ٢č͠ϠҠĠΠĹöǢΨŵèĤ˽ԱԽ²˽·àŠƠΠΠĠΠΠĵàĠƹƠĠŵƷ±˽ŶĠƠŠùưŰàĠĠĢ̱ؠҍ˽ԽԽĽҍԱ˺´˾ź²´±ԽԫԼα˽²αԽ˽˫˽˼α´   z #???   خΠ ήԠР ԠЮΠ ήҠ "ҮΠ ήΠήΠ ήؠ ӮŠҠ'ʮŠҠîŠҠ-àà͠٠ˠàҠʮàҠîàҠŠҠ(RECTORY !!!": |:10005 1:" 80N":0,63998:0"X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @D$(4)} E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DI85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ A1Ĭ} :::T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000 68(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:     =>";:(16434)208ĝE"PRINT MODE";::16304,0:16297,0:XLEAVE PROGRAMb::, A KEY ";:F$:340 ( ONERR GOTOI 16598:ERR(222):ERR255Ħg ::12:"ERROR #"ERR(7) F$(27):B11500: PRINT COMMANDS W:22:"L=>LOAD SCREEN"21)"I"25)"SPC=>TOGGLE TEXT";20:"J K":"RET=>SAVE WINDOW"21)"M"25);"P(A$)2:A$:5:8)"RETURN DOES A DIRECTORY"U ^12:"FILENAME=>";::" ";::(8);z h16384,128:(16384)155ľF$: r"";F$:(512(F$))Ģ(37):64578 |A512(F$)768:(A)F$F$((A)): F$""(F$,W)","ė:(4)"CATALOG"F$::"PRESSNDOW, A$"SAVE WINDOW":340:F$(27)460] 224,X(X256)256:225,X256:226,Y:16384 "(4)"BSAVE"F$",A$5800,L$240":460 ,LOAD A SCREEN 6A$"LOAD SCREEN":340:F$(27)460 @(4)"BLOAD"F$",A$2000":460 JGET A FILENAME- T::2056:226,Y5 16455:X(224)(225)256:Y(226):A$Z AW(K$):A$(K$,A,W)Ă:170z A310,240,220,270,510:170 TOGGLE TEXT 16302WI,W:WIWWI: CHANGE PRINT MODE (16434)208Ĺ16434,240:460 16434,208:460 SAVE WI&&&&&&&&&&&&&&& d/ nINITIALIZE VARIABLESs x(16384)(16385)177ĺ(4)"BLOAD OBJ.GRAPHIC GRABBER,A$4000" 8191:251,0:W1:230,32 K$"LP "(13)(27):X96:Y70 ::16301,0:460:420 GET A KEY 224,X(X256)256:225,X2c &&&&&&&&&&&&&&&&&&&&&&&&=& &[& GRAPHIC GRABBER &y(& FOR &2& THE PRINT SHOP &<& BY &F& RAY DARRAH &P& & Z&&&&&&&&&     @X7@4X @0)1& 1@ `8>X 7@` @PP,0 @ LG@ LG@ з/ɌЩ @W @3 @W @30 @I`@L]LhhߚHH`٠ӍױؠҮōؠō٠ŠР׍αҮٍؠҮ؍٠ҮثРΠŠԽҠױנԍؠŽԽҠױנԍӮэҠӮэҮӍؠŽԽҠױנԍؠŽԽҠױנԍؠŽԮ͠РĠŠοŠҮٍҮٍРѠŮ֍àҮٍŠŮ֍ϮōҠαԠԠŮ֍àҮ؍РŮ֍ԮˠР ŠԿŠԮ͍Ү؍РðӠŮ֍àҮ؍ŠŮ֍РùŮпŠԮʍҮٍѠŮ֍àҮٍРŮ֍ԮʠРŠԿŠԮˍҮ؍ѠčŠԮٍٍŠԮ؍ѠŮ׍ŠӮѠŠοѠЮҠōҠϮōЮҠðԠōŮ֠ðҠٍŮנҠϮō٠ԮؠؠԮ٠ԠðӿɠŠЍؠԠŠӍؠԠӍŠӮƠϠŠǍàҫԠōӮӍŠנŮԠàϠԿѠҠСÍҠ̠ؠԠԠϠōàӠŠſŠӮšؠӍҠŮԠԠԠԍàӠſŠϮԠšàҮ٠Ԡ٠΍àӠſŠϮנšӠСנӍӍؠōҠαؠōϮԠήˍĠƠŠĠήٍ̩ҠŮԍҍӠΠōӍ½ҫؠŠ؍ӍӍϮύŠѠÍҮŠѠŷӮѠѠΠѠƴŮԠѠƴנѠƶčҠҲӠĠٍƠʮà±Ү٠ѠŲҮؠѠŰήˠѠҮڠѠŵӠѠŠҠƠӠԍӠѠƠҠƠӠԍή̠ѠӠѠĠҠƠӠ     L` ڢ g h  ֥ 渢!H 0ɲjE *E E j hhQP/ $  A  Ƀ А ЊL`   I0 g `ƠŠ٠ŠԠٍԠנŠƠŠؠԠРҠŠԍԠȠŠˍРͫǠӍ͍ҠͫҍͫԳҠԠԠӍ؍ŠвŠ٠ǠҠōˠԠȠŠӍР²ΠҠͿŠԲͮǠԠ͠ǮԠӠϠŠ͍ԲҍҠ͠Š͍̍ҠͫàԲРĠƠŠˮԠӠϠŠŠԠ٠ĠƠſѠˠӠϠԠ͠ĠˠҠĠƠ͍٠ͮǠŠͿɠԳؠͮǠҠ͠ǍвؠΠԿàԳӬϠРĠƠŠˍؠΠŠӠԠϬϠΧԠŠŠŠŠҠؠҍԫҫԫҠԮĠԠŠĠŠ΍à¸ϠؠҡРؠԠҠϠύбŠӠŠҠ͍ؠǫؠԫؠͫؠϠĠſѠбЍҠΠŠҠԠϠԠōРҠàԠǠŠҍؠƠӠ̠čؠҍؠǠԠǠƠԠ͍ؠԫؠ͠հԠàԠРĠРҍҍЍҫЍҫӍ͠ӠōҍͮǠѠƠԠ٠ǠͿҠŷŠԠΠŠĠԠΠŠƠԍΠҠč͠Ӡ ÍҠѠƵĠРҍ͠ѠŠàӠŠҍҠѠ ҠϠàĠōΠѠĶàŠŠӠĠŠԠ͍ Ѡ̠ΠƠҍҠѠðҠĠōĠѠðĠǠȠ٠čҠѠҠҠҠƠӍ͠Ѡ Ԡ̠ŠƠؠĠǍԠѠĸŠԠŠ΍ԠѠĠԠǠΠɍؠѠƹԠĠؠǠӠϠŠҠĩǠѠǠƠϱԠ٠ǠӠčԠѠIJɱԠֲ٠ ӮĠĠ٠Ƞ          IP RLY+,L 255L;4d  ,LL~LY`!$$h!7::ɖ8MPPL;A:X034:254,X:2438$(253)ĞD" ";:::(16384)155Ăs$::"HIGHLIGHTED SECTORS ARE USED"::870.CURRENT FILE?821:W:64578:N$(A)B"F> ENTER FILENAME, C> CURRENT FILE"::"WHICH> C"CH$; LA$:A$ESC$A$CM$A$"C"A$N910B$B$A$:A$;:9100ALLOCATION MAP[::17)"TRACK":3)"0"15)"1"15)"2"3)"0123456789ABCDEF0123456789ABCDEF012"A$"SECTO":A04:" "A::A59:(A$,A4,W);" "A::"R A":AW5:" "(65A):A015:A4:4:255, TO CONTINUE")p16384,128:A$::1530BzGET AN INPUT STRINGLB$""A$:(A$A1$A$A2$)A$CH$A$ESC$A$CM$910A$CH$B$""910A$CH$(B$)WĺA$;:900A$CH$B$(B$,(B$)W):A$;:910A$CM$A$ESC$ı(B$)L(A)0680, 2438:(253)F$(CF)A$:1280C2463::1260:740Z SIMULATED CATALOG{*X3::::"DISK VOLUME "V:4A0MX>(F$(A),W)(173)860H56157,0:(F$(A),2,37);:56157,128:RXXW:X21X0:A$\: f"PRESS ANY KEY&X0:A$F$(CF):(A$,W)(173)680]F$(CF)(160)(A$,2,36)(160)(A$,38,W)(A$,W)}(F$(CF),2)(17)(W)68011502438:(253)F$(CF)A$:XW:12802463:A32780330222:254,(A):255,(AW)(A)34(AW)151190 CF),2)(17)(W)670v1150P2453:A32780330222:254,(A):255,(AW)r(A)34(AW)15İ670:1190(A)0Č2453::1260:640F$(CF)(173)(F$(CF),2,36)(F$(CF),39,W)(255)(F$(CF),W)21:W:64578:EXHUME SUBROUTINECFMX &"0RENAME SUBROUTINE`:21:16:"NEW";:A$(F$(CF),9,30):240:A$ESC$ġ::1530DX2:(F$(CF),W)(173)X3:A$(A$,29)NF$(CF)(F$(CF),8)A$(F$(CF),X)::X(CF):XDELETE SUBROUTINEbXW:(F$(CF),W)(173)680l(F$(60)::A$(A$,30)+0:1002:56157,128:GLOCK/UNLOCK SUBROUTINEqF$(CF)(F$(CF),W)X2$(F$(CF),38):PURGE SUBROUTINECFMX530ACFWMX:F$(AW)F$(A):MXMXW:252,MXW:MXWA$"DISK CONTAINS NO FILES":2410CFMX |C30270$A$CU$CCW:270CA$"@"A$((A$)X):420UA$((A$)A)vA$;:540C,(A$):CCW:270B(36):56157,128:W:A$;:36,B:56157,0:270C0A$C$:470A$"":A0CW:A$A$((540A)):AW30(A$):A$A$(156157,128:0 ,A$CI$A64:X0:A$"INV":430V 6A$CN$A128:X128:A$"NRM":430y @A$CF$A0:X64:A$"FLS":430 JA$CL$A160:X128:A$"LWR":430 TA$CC$A64:X128:A$"CTL":430 ^A$CM$440 hA$CH$C0270 rA$CH$CCW:270578:"FILENAME"::"NRM> ";P A128:X128:56157,0:54,77:55,8:1002:C0:A$; 24:6C:(222);:(36):A$:(160);:(36):23 (A$" "A$(95))A$CM$A$CH$A$CL$A$CI$A$CF$A$CN$A$CC$A$ESC$A$CU$270 "A$ESC$Ċ0:1002:$ CF0:AW30:(B$,A,W)WILD$Ă; :B$(B$,A(AW))o W:X(CF):(F$(CF),9,(B$))B$B$WILD$XW: CFCFW:CFMXW190 CF(MX2)::X(CF):X0: GET A FILENAME A$SP$ C$A$:A029:540A,((A$,AW,W)): 21:20:64\---/----\---/! ( \ / LONE \ /3 2 \ARRANGER\F < / \ / \Z F/---\----/---\i P \ /w Z \/ d(4)"MAXFILES1":32767::1300 nMOVE FORWARD OR BACKWARD xCF0CFCFW CFMXCFCFW SCAN FOR A FILEǴ 0Lkili% $ ᥡ8 8塅% $ z e%ȱȱȄ )? M& 桥%`&(L 9` ` I9` $Ȫ8*` ` /\  / \ &  2063:Ѝ!$!$݅g h`  `JJJJLɀɠ)?LoȄp`(ȥo8(oppȑȄ ܫ  Ǣ jƴ, ȴH, h)  紅D B ƴ ƴ                8:47092,W:254,(47084):255,(47085):2105:KILLEGAL TRK SECTOR LISTnA$"ILLEGAL TRACK SECTOR LIST"21:W:64578:A$(7)(7)B11000::XıB32780A22:254,(A):255,(AW)2438:2463:(253)Č2453: NEXT TRK S.LA$:A$ESC$A$CM$A$"C"A$"F"1100MVA$ESC$ġ:21:W:64578:g`A$CM$A$"C"A$"C"rjA$;:tREAD IN TRACK SECTOR LIST~47081,S16:47082,D:47083,047084,((F$(CF),39,W)):47085,((F$(CF),40,W)).47088,0:47089,12"(65A)::A015:A4:4:255,A:X034:254,X:2438H(253)Ğh" ";:::(16384)155Ă$::"HIGHLIGHTED SECTORS ARE USED"::870.CURRENT FILE?821:W:64578:N$(A)B"F> ENTER FILENAME, C> CURRENT FILE"::"WHICH> C"CH$;0A$CM$A$ESC$ı)(B$)LN910@B$B$A$:A$;:910TALLOCATION MAP::17)"TRACK":3)"0"15)"1"15)"2"3)"0123456789ABCDEF0123456789ABCDEF012"A$"SECTO":A04:" "A::A59:(A$,A4,W); " "A::"R A":AW5:" X0:A$\:1f"PRESS ANY KEY TO CONTINUE"Mp16384,128:A$::1530fzGET AN INPUT STRINGpB$""A$:(A$A1$A$A2$)A$CH$A$ESC$A$CM$910A$CH$B$""910A$CH$(B$)WĺA$;:900A$CH$B$(B$,(B$)W):A$;:91W)(A)34(AW)151190.(A)0680P 2438:(253)F$(CF)A$:1280g2463::1260:740~ SIMULATED CATALOG*X3::::"DISK VOLUME "V:4A0MX>(F$(A),W)(173)860H56157,0:(F$(A),2,37);:56157,128:RXXW:X21:W:64578:#EXHUME SUBROUTINEJX0:A$F$(CF):(A$,W)(173)680F$(CF)(160)(A$,2,36)(160)(A$,38,W)(A$,W)(F$(CF),2)(17)(W)68011502438:(253)F$(CF)A$:XW:12802463:A32780330222:254,(A):255,(AW:(F$(CF),W)(173)6809l(F$(CF),2)(17)(W)670Cv1150t2453:A32780330222:254,(A):255,(AW)(A)34(AW)15İ670:1190(A)0Č2453::1260:640F$(CF)(173)(F$(CF),2,36)(F$(CF),39,W)(255)(F$(CF),W) 21CONTAINS NO FILES":2410)CFMXCFMX/&F0RENAME SUBROUTINE:21:16:"NEW";:A$(F$(CF),9,30):240:A$ESC$ġ::1530DX2:(F$(CF),W)(173)X3:A$(A$,29)NF$(CF)(F$(CF),8)A$(F$(CF),X)::X(CF):XDELETE SUBROUTINEbX40A)):5 AW30(A$):A$A$(160)::A$(A$,30)O 0:1002:56157,128:k LOCK/UNLOCK SUBROUTINE F$(CF)(F$(CF),W)X2$(F$(CF),38): PURGE SUBROUTINE CFMX530 ACFWMX:F$(AW)F$(A):MXMXW:252,MXW:MXWA$"DISK CH$C0270# rA$CH$CCW:2701 |C30270H A$CU$CCW:270g A$"@"A$((A$)X):420y A$((A$)A) A$;:540C,(A$):CCW:270 B(36):56157,128:W:A$;:36,B:56157,0:270 C0A$C$:470 A$"":A0CW:A$A$((5$A$CU$2700 "A$ESC$Ċ0:1002:56157,128:T ,A$CI$A64:X0:A$"INV":430z 6A$CN$A128:X128:A$"NRM":430 @A$CF$A0:X64:A$"FLS":430 JA$CL$A160:X128:A$"LWR":430 TA$CC$A64:X128:A$"CTL":430 ^A$CM$440 hA$0A,((A$,AW,W)):? 21:20:64578:"FILENAME"::"NRM> ";t A128:X128:56157,0:54,77:55,8:1002:C0:A$; 24:6C:(222);:(36):A$:(160);:(36):23 (A$" "A$(95))A$CM$A$CH$A$CL$A$CI$A$CF$A$CN$A$CC$A$ESCCFCFW # SCAN FOR A FILEH CF0:AW30:(B$,A,W)WILD$Ă_ :B$(B$,A(AW)) W:X(CF):(F$(CF),9,(B$))B$B$WILD$XW: CFCFW:CFMXW190 CF(MX2)::X(CF):X0: GET A FILENAME A$SP$ C$A$:A029:54% /\ / \2\---/----\---/E( \ / LONE \ /W2 \ARRANGER\j< / \ / \~F/---\----/---\P \ /Z \/d(4)"MAXFILES1":32767::1300nMOVE FORWARD OR BACKWARDxCF0CFCFW CFMX           Ǵ 0Lkili% $ ᥡ8 8塅% $ z e%ȱȱȄ )? M& 桥%`&(L 9` ` I9` $Ȫ8*` `  2063:Ѝ!$Й!$݅g h`  `JJJJLɀɠ)?LoȄp`(ȥo8(oppȑȄ ܫ  Ǣ jƴ, ȴH, h)  紅D B ƴ ƴ ԠӍԮǠ٠űŠٍàҠŠŠǍԠԍō٠ٮҠԠҍȠҮ٠űӠŠٍ٠ōҠǮԩٍٍ٠ōŠӮàǮԫӮ٠űŠٍōӠԮԠΠϮˮĠƠŠōԮԠРԱĠԠϠŠ΍ԠӠϠƤةנӠӠŠҠРƠӠΠ̮àԮԠΠϮˮРƠҠΠҠӮҠȠȬΠҍҠŠҠōҠ٠ҍҍؠԠϠؠҠàōРîҠҠ ԠӍҠӠϠŠΠĠ٠ÍӠŮҠƠýΠΠҠӠčӠǠϮˮΠϠ͍ŮҠ̠ҠĮʍҠӠΠҠ΍̠ӠҍŠҠϠǠƠà͠ĮʠԠĠƠōԠύҠİ٠Ԡōİ٠ŠŠōٍŠҍàҫԠōàҫŠҠ̠ӠР֭ð͠Ĭ͠ōðōİҠȠŠİҫؠҍҫ٠ǠҠŠōƠʮŠҍŠӠİӠóÍӠ٠͠ϠŠĠѠӠӠҠ΍ҠѠĠҠƠҠҠӠĠҠԍˠѠŠˠҠ΍ҠѠƠҠҠ΍ҠϠԠҍҮҠѠҠϠŠԠĠӠōٮҠѠ٠ōǮԠѠƠҠϠԠƠǠō Ѡò͠Š ΍̠ŠңԍűѠ ٠ŠƠٍҠѠàҠƠҠƠƤӍŠѠĠ٠ŠҠٍЮҠѠŠĠƠŠ٠ҍԠѠĠб ѠųŠԠӠ٠ԠϠӍӠѠĹŠŠҠҠǠӍӮҠѠ·ƵӠҠŠƠýîҠѠĴŠàҍԱѠư               red marks.&DATA "for sector editsi'PRINTCHR$(4)"BLOAD RWTS,A$1900":REM"for an RWTS swap routine.1:STDOS1070:"print T/S being written, execute write, do next sector.8ST0:TKTK1:BF0TKLT1070:"write next track to disk.BTKLT1020:"if not done, do next set of read/writes.L::"DONE WITH COPY"::DONEWITHDISK DATA "for altea DATA statement at line 62010 or after. This data statement must come AFTER all other DATA statements-POKE47405,208:POKE47406,19:POKE47497,208:POKE47498,183:REM"to normalize after using line 1028 to ignore checksums and end marks.I.430:100:STST return to first T/S to writeJ'GOSUB360:REM"for an RWTS swap routine.)GOSUB230:REM"to normalize writing to the disk if you used altered address or data marks or ignored checksums or end marksf+RESTORE:GOSUB310:REM"to do any sector edits. Use 430:100:STST1:STDOS1030:"print T/S on screen, execute read, cycle next sector BF1060:"if buffer full then goto write routine ST0:TKTK1:TKLT1030:"read the next track into the buffer$490:TKT1:ST0:"toggle command to write and to normalize the writing to the disk.~ GOSUB360:REM"for an RWTS swap routine. RWTS must be BLOADed by a line 10010 below. POKE47405,24:POKE47406,96:POKE47497,24:POKE47498,96:REM"to ignore checksums and end marks...Use line 1069 to normalize.U nly need to change one. Use line 1065 to normalize.f GOSUB270:REM"to ignore the address checksums.& GOSUB290:REM"to use altered data checksums. The normal value is 0. Put the new value in the next data statement (line 62010) and use line 1065 belowdata statement in 62010 and line 1065 to normalize the writing back to disk.3 GOSUB170:REM"to use altered address field and data field ENDING MARKS. Use only the first two bytes of each in data statement at line 62010 and include all four even if you ouse lines 1022, 1023, 1024, or 1026 below (if you use any DATA statements). GOSUB190:REM"to use altered address marks...use data statement in 62010 and line 1065 to normalize the writing back to disk.L GOSUB210:REM"to use altered data marks...use j SUPER CONTROLLERTK0:ST0:LT35:CDWR:"set to 1st track & sector and to 1 track past the last one to be copied (tracks 0-34 here).T1TK:490:"start of reading cycle...toggle command to read.K RESTORE:REM"use this command ONCE if you       0,7,32,192, 0,7,33,8, 0,4,79,222, 0,4,80,234, 0,4,81,234 6 CHANGES, 0,7,13,76, 0,7,14,212, 0,7,15,7, 0,4,79,222, 0,4,80,234, 0,4,81,234 4 CHANGES, 0,7,0,76, 0,7,1,192, 0,7,2,8, 0,4,79,222c1070:"print T/S being written, execute write, do next sector.} 8ST0:TKTK1:BF0TKLT1070:"write next track to disk. BTKLT1020:"if not done, do next set of read/writes. L::"DONE WITH COPY"::"DONE WITH DISK9 6 CHANGES, 0,7,31,76,KT1:ST0:"toggle command to write and return to first T/S to writek +:310:"to do some sector edits. -47405,208:47406,19:47497,208:47498,183:"to normalize after using line 1028 to ignore checksums and end marks.? .430:100:STST1:STDOS"to ignore checksums and end marks| 430:100:STST1:STDOS1030:"print T/S on screen, execute read, cycle next sector BF1060:"if buffer full then goto write routine ST0:TKTK1:TKLT1030:"read the next track into the bufferE $490:TZAXXON CONTROLLERTK0:ST0:LT23:CDWR:"set to 1st track & sector and to 1 track past the last one to be copied (tracks 0-34 here).T1TK:490:"start of reading cycle...toggle command to read." 47405,24:47406,96:47497,24:47498,96:    0 BTKLT1020+ L:"DONE WITH COPY":G  DO MONITOR COMMAND A$ A$A$" N D9C6G":A1(A$):511A,((A$,A,1))128 :72,0:144: 213,187,207 N 47AA:60 N 47D5:68 A9 05 20 00 BC A2 06 BD F9 BF 9D E5 A2 CA 10 F7":1210 (TK0A$"47E6:A9 4D A2 FF A0 0E 60 EA 48 A5 43 C9 A0 F0 E0 68 6C 42 00 00 52 AD 4D A6 A1 4D":1210 .430:100:STST1:STDOS1070 8ST0:TKTK12(TK4):BF0TKLT107SKYFOX CONTROLLER2TK0:ST0:LT34:CDWRAT1TK:490RTK3Į:210u430:100:STST1:STDOS1030 TK2İ210BF1060ST0:TKTK12(TK4):TKLT1025$490:TKT1:ST0:230K &TK0A$"3CB7:4C EE BF N 4A47:AA N 4A51:AD  ҠҠĮ͢嬠󮍱źԺԢŠȠ٢ĺˍ󮍵̱ҤĠӬ͢Ӡ宍Š報󮍱´±ԽԫԼα͢ԯӠ嬠򮍱Խ˽˫ƽ˼α͢뮍˼α󍱰ź³͢堶Ҡ󍱰ŴŴŴŴ͢򍱰´˽ԱԽ͢ԯӠ危³͢Ӡ宍²͢󮮮報宍´±ԽԫԼα͢ԯӠ䬠򍱰α͢危Խ˽˫˼α͢堶報뮍³͢Ӡ宠Ӡ報ŴŴŴŴ͢宠報宍²͢󮍱²͢󠰮󮮮報뮍±͢ǠӮ堶Š󠱰򠱰󩮍±͢󮮮報뮍²̱͢Ҡҍ˽ԽԽĽҺ͢렦䠨󠰭婮Ա˺´͢宮䮍ź͢"" " " " " """""