' +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- (  ͠٠ˠ@跻~!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`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,(47084)" CONTROLLER ENTERED"Q$.CD$"CLOSE"CN$:>ERROR TRAPM:A(222)A0(A255A15)ĉ::CG$"ERROR #"A" IN LINE "(218)(219)256:A255Ĭ23:1:CG$"WEIRD DOS ERROR #"A:200162,255,160,2,132,19,76,108,213:GOSUB450:END"QSMĺ"5000DATA"A1","A2","A3","D1","D2","D3","A4","A5","D4","D5`SE01470"5010DATA"SE" CHANGES":A1SE5010A10"DATA"TK(A)","ST(A)","BY(A)","OT(A):LDĺ"10010?CHR$(4)"Q$"BLOAD"R1$",A$1900"Q$"?"Q$(CN$,(CN$)B310:";PLDĺ"GOSUB360:";3ZSMĺ"GOSUB230:";Qd"TK=T1:ST="L2":GOSUB490"n"1070GOSUB430:GOSUB100:ST=ST+"S2$":IFST<"H2"THEN1070"x"1080ST="L2":TK=TK+"TS$":IFBF=0ANDTKACDELMPRTU?/"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"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#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$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:1002ҠōӠĮԠӍîԠōРԠŠōԠȠƠӠҠؠ³àԠ؍´öؠԠˠҍҠԠŠԍ´÷ؠԠҠҍҠԠŠԍҠ²ԠԠٍàϮŠϠō؍؍٠٠ӍҠ´öؠԠҍҠԍ؍٠̠ٿ̠Ҡš̠ҠîԠŠō´ŷؠԠҠƠӍҠΠōҠŴҠƠӍҠîԠҠōؠؠϠ٠ŠŠō̍Ҡ̍ӠĮō٠ԠōŠҠƠԠԍĮŠ³٠ԠōҠԠŠԍˠҠčӠàРϠӍîǠōҠԠŠΠǍŠōĠƠРƠˠԍčӠàРϠӍ̮ǠōҠԠԠϠǍ´øؠԠˠԍŠҠҍ̠îǠԮčϮŠؠ³àŠԍҠĸŠĠΠŠȠٍ´öؠԠˠҍѠԠ̠Ӡ΍̠̮ǠԠčĠΠҠŠŠŠҠˠҠƷԠÍàҠԠ٠ҍĮԠҠ°ԠؠҍӠԠϠŠӍؠԠԠύӮӍנǠŠ̠ԍٮҍҠàҮҩ٠ҍǮԫàƠýǮԫŠԍٍҮҩٍٍ٠ٮҠŠҍŠԠȠҮҩ٠΍٠ҠҍǮԠŠ͠Ҡ٠ӍÍàǮԍ4,166,223,154,72,152,72,96 :"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+ Šύ٠ŠſŠҍàҫſؠҫؠàҠšӍӠǠǠԠŠҫ̠ȠӍ٠ԠύҠ٠àԠϠԠȍ̮̠ԠàȠōؠſ̠̮šӍˠԮӬٍàРƠԳӠРŠōԮ٠ŠԠōؠŠҠҠΠ؍ŠȠԠǠȠӠōîԠˠŽ˪̍̍٠ҠԍҠԠҍРӠΠԿøŠҠҠîԠԠōҠƠԍĠ³Ƴ٠נġ³ƳٍŠҠҠîԠԠō³Ƴ٠נġ³ƳٍӠōϠҍҍҠîԠԠҠƠōĠ³Ƴ٠ĿŠӮšàҠЍӮӍٍٍ̩̠бРĸŠ΍ԠҠҠӠŠРҍѠ̠ЬԍΠŠٿРàԮԍӍ̠٠٠ŠӍбŲĠƠŠԍҠҠҍٍ٠àϮǍҠĸŠԠōàԠӍԠؿҩٍЮҫٍ٠ҠԠō٠ԠԠǠƠǍϮǠЮҩٍؠΠ ŠҠšӠàԮԠ٠ԍؠ֍٠ԠҍҮҩٍЮҍٍǠϮˮנԠàҠÍà ōҠҠ̍Ա̠±ҠҠűàԠҠŠ͠ÍԠҍàҠÍàŠӍӠԱȰ ԠƠӍÍàӠ΍ҮҍàϠàĠٍҮҫ̍ĮʠӠҤĠӮĠƬĠΠҠĮԫԼαԽ˽˫ƽ˼α˼αźԢǠϮˮϠӠΠ٢čŲŲŲ̸΍̶ͺͺϱ̱̱ĠŠ΍˽ԽԽĽҍԱ˺´±´±ԽԫԼααԽ˽˫˼α´˽ԱԽ±´±  z#    !ήĠΠĠήΠ îŠҠ-ήΠήàîΠ ͠٠ˠҠҠŠҠ(ӮŠҠ'ʮŠҠ NE),BY(SE),OT(SE):B1SE&~V(37)1eV:HM:"TRACK- ";:130:TK(B)A:" SECTOR- ";:130:ST(B)A" BYTE- ";:130:BY(B)A:" TO- ";:130:OT(B)A620:1:A$"N"1160V2:B:41024:1:HM:"INSERT DISK AND HIT A KEY: ";A$:A$C- "A$-8:HM:"CONTROLLER NAME => ";:240NB(A$,1)"A"ĺCG$:V1:1080wLCN$A$".CON":V2:620:A$"N"1060VSCREEN DUMP, SECTOR EDITS`410::"NUMBER OF SECTOR EDITS? => ";:LN1:SP$"0":240j::SE(A$):SE01200tTK(SE),ST(S140:D5A:C"IGNORE UNREADABLE SECTORS? => ";:340:A$"Y"US1X620:A$"N"920fSET FIVEV(37)1:SP$" ":LN20:NL$CC$$V:1:HM:"FIRST LINE REM => ";:240:R2$A$" CONTROLLER".:"VER. # OR DATE => ";:240:A$""R2$R2$" HM:"ADDRESS PROLOGUE (D5AA96) => ";G130:A1A:140:A2A:140:A3A:"ADDRESS EPILOGUE (DEAA) => ";:130:A4A:140:A5A:"DATA PROLOGUE (D5AAAD) => ";:130:D1A:140:D2A:140:D3A :"DATA EPILOGUE (DEAA) => ";:130:D4A:520:ANS810SET FOURV13:1:HM:"USE FOREIGN RWTS? => ";:340:A$"N"950|34,15:LD1::"ENTER NAME: ";R1$:13:HM:"FOREIGN RWTS => "R1$:1020SM1:13:1:HM:"CHANGE SECTOR MARKS? => ";340::A$"N"SM0:1020%13:"SECTOR STEP=> ";:240:620:A$"N"810IRS1$B$:HSH1:LSL1:520:NSAX\SET THREEf9:HM:17)"WRITING:":"LOW SECTOR => ";:130pL2A:22:"HIGH SECTOR => ";:130:H2A1z:"SECTOR STEP=> ";:240:620:A$"N"870S2$B$:HSH2:LSL2:(:390:"LOW TRACK => ";:130:LTAN22:"HIGH TRACK => ";:130:HTAs :"TRACK STEP => ";:240:TS$A$620:A$"N"760 SET TWO*5:HM:17)"READING:"4"LOW SECTOR => ";:130:L1A>22:"HIGH SECTOR => ";:130:H1A1(H:HM958TITLE PAGE<10:12)"CONTROLLER WRITER":12d19)"BY":14:13)"NICK GALBREATH"17:3)"COPYRIGHT 1984, HARDCORE COMPUTIST":229)"PRESS ANY KEY TO BEGIN":23:14)" TO QUIT"16384,128:A$:A$(27)ĀSET ONEECK IF SET IS OK9l:HM:"CORRECT? ";:340:A$"Y"390?vYINITIALIZE VARIABLES~CC$(3):CD$(13)(4):CG$(7)Q$(34):HX$"0123456789ABCDEF"CC$CM$(13):CH$(8):A768776:LT:A,LT:CD$"NOMONC"CD$"MONIO"::SP$"!":LN25:A510768:(A)B$B$((A)):Q &512,0:B517(B$):512,0:513,B512:216,0q 0514,2:515,5:516,0:1510 :A1(B$):516A,((B$,A,1)): DA516A:A,0:A1,1:A2,8:A3,7 NA4,0:A5,177:A6,0:104,2 XA0:STLS:5:104,8:bCHA1:(B2)1' CA,B)A,B1)16> C160CC64:470S A$(C)::A$;:a :CM$;:t :CD$"PR#0": EVALUATE EXPRESSION A$"A=A+1:ST=ST+"B$":IFST<"(HS)"THEN5":B$"":540 A1(A$):511A,((A$,A,1))::511A,0:768!  hA$"Y"ĺ"YES";:! r"NO";:< |PRINT BANNER OF "-"'S[ I140(32):I:"-";::u SCREEN DUMP ROUNTINE 24:1:HM:"SCREEN DUMP? ";:340:A$"N"ı 24:1:HM:23:CD$"PR#1" B0402: ENTER LINES TO DUMP TIMES TWO A039 CM$A$CH$250, A$CM$B$NL$A$B$:B A$CH$B$""250l "A$CH$ĺA$" "A$;:(B$)1B$"":250 ,A$CH$B$(B$,(B$)1):250 6A$SP$250 @A$;:B$B$A$:250 JGET A "Y" OR "N" TA$:A$"Y"A$"N"A$CC$340 ^A$CC$Ĭ117:A$(HX$,J,1)Ă:140' J17Ĭ; A$;:A(J1)16U A$:A$CH$ĺA$;:140p A$CM$AA16:" ";: J117:A$(HX$,J,1)Ă:170 J17Ĭ A$;:AAJ1 GET A STRING B$"":A(36)1 A$:A$CC$Ĭ (B$)LNA$ /------------/!/ / CONTROLLER / !F/ WRITER / !](------------- !t2! BY: NICK ! !<! GALBREATH ! /F! HC NO. 15 ! /P-------------/Zd::255::1510n650x1 BYTE INPUT"$"; A$:J        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ɀɠ)?LɍoȄp`(ȥo8(oppȑȄ٩ ܫ  ˢ ƴ, ȴ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ɀɠ)?LɍoȄp`(ȥo8(oppȑȄ٩ ܫ  ˢ ƴ, ȴH, h)  紅D B ƴ ƴ ŠӮàǮԫӮ٠űŠٍԠӍԮǠàҠŠŠǍԠԍō٠ٮҠԠҍ٠űӠŠٍРĠΠנǩѠԮǠЬŠ͍٠ōҠǮԩٍٍ٠ōōӠԮԠΠϮˮĠƠŠōԮԠРԱĠԠϠŠ΍ԠӠϠƤةנӠӠŠҠРƠӠΠ̮àԮԠΠϮˮРƠҠΠҠӮҠȠȬΠҍҠŠҠōҠ٠ҍҍؠԠϠؠҠàōРîҠҠ ԠӍҠӠϠŠΠĠ٠ÍӠŮҠƠýΠΠҠӠčӠǠϮˮΠϠ͍ŮҠ̠ҠĮʍҠӠΠҠ΍̠ӠҍŠҠϠǠƠà͠ĮʠԠĠƠōԠύҠİ٠Ԡōİ٠ŠŠōٍŠҍàҫԠōàҫŠҠ̠ӠР֭ð͠Ĭ͠ōðōİҠȠŠİҫؠҍҫ٠ǠҠŠōƠʮŠҍŠӠİӠóÍӠ٠͠ϠŠĠѠӠӠҠ΍ҠѠĠҠƠҠҠӠĠҠԍˠѠŠˠҠ΍ҠѠƠҠҠ΍ҠϠԠҍҮҠѠҠϠŠԠĠӠōٮҠѠ٠ōǮԠѠƠҠϠԠƠǠō Ѡò͠Š ΍̠ŠңԍűѠ ٠ŠƠٍҠѠàҠƠҠƠƤӍŠѠĠ٠ŠҠٍЮҠѠŠĠƠŠ٠ҍԠѠĠб ѠųŠԠӠ٠ԠϠӍӠѠĹŠŠҠҠǠӍӮҠѠ·ƵӠҠŠƠýîҠѠĴŠàҍԱѠư             LT1070 BTKLT10202 L:"DONE WITH COPY":C 213,170,173T 213,170,218b 6CHANGES 0,2,93,173,0,2,252,173,0,3,106,150 1,3,4,234,1,3,5,234,1,3,6,234SHEILA CONTROLLER2TK0:ST0:LT35:CDWRAT1TK:490XTK0Į:190:210{430:100:STST1:STDOS1030BF1060ST0:TKTK1:TKLT1025$310:230:490:TKT1:ST0.430:100:STST1:STDOS1070 8ST0:TKTK1:BF0TK ҠĮԽ´±ԽԫԼαԽ˽˫ƽ˼α˼αźԢŠȠ٢čӍ̱ҍ˽ԽԽĽҍԱ˺´˼ź±²´±ԽԫԼααԽ˽˫˼α³²´˽  ҠĮԽ´±ԽԫԼαԽ˽˫ƽ˼α˼αźԢŠȠ٢čӍ̱ҍ˽ԽԽĽҍԱ˺´˼ź±²´±ԽԫԼααԽ˽˫˼α³²´˽  LT1020" L:"DONE WITH COPY":1 1 CHANGES@ 0,3,55,00AACECALC CONTROLLER<TK0:ST0:LT35:CDWR:47415,0M:T1TK:490p430:100:STST1:STDOS1030}BF1060ST0:TKTK1:TKLT1030$310:490:TKT1:ST0.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070 BTK ԽԫԼαԽ˽˫ƽ˼α˼αźԢŠȠ٢čӍàҠĮ̱àҍ˽ԽԽĽҺŴźԱ˺´´±ԽԫԼααԽ˽˫˼α³´˽ԱԽ´± 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:  1:BF0TKLT1070" BTKLT1020L L:"EVERYTHING O.K. NO DOS ON COPY":p V253,25:255,182:224,10:832: '(6400)162ĺ(4)"BLOAD RWTS.BEYOND WOLF,A$1900"<8960:9983:100107BEYOND CASTLE WOLFENSTEINQTK3:ST0:LT35:CDWRfT1TK:490:1110430:100:STST1:STDOS1030BF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:1110.430:100:STST1:STDOS1070 8ST0:TKTK!!