' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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- ( q Ϡ@跻~!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@٠ȱҠŠϠԠōֱ٠ȲϠԠōРōԮŠȱŠԠō٠ϠڠōֱҠŠϠЍֲ٠ȱҠŠϠֱ͍ϠàҠōȲҠӠٍÍàĠҠōӍԠōѮŠѮҩ٠ԠҍĠŠԍ٠Ѯҩ٠ԠҍؠŠԍÍàĠҍӠҠӬԍҍ٠ŠԠѮҩٍŠӠƠōŠ٠ԠōؠŠٍѠ֮РѮҩٍҠàѮҩ٠ýؠԠҠ֮РРѮҩ٠̠àҠȍŠ٠ŠȍٍŠōӍˡ٠ŠԠЍŠҠˍ٠à٠РӍӭԠؠҍԠҠԍ٠ҍРŠԠԍŠǍؠӠԠĠӍ؍ŠٮҠϡѠԮǠӍ̮ àĮǠġؠҠōРؠРύ٠ԠƠŠЍؠӍӍԮǍàͮӠſŠԮǍӍ̠àԠȍǠſ٠΍Ӡ̮ ӡؠԠҍŠԮҠԠ٠ҠҠǍ̠ϮčРĮĠȿѠıϮĠРƬؠȿѠı؍ŠٮҍѠԮǍı40,47455,242,47466,231/47505,174,47515,164R 47335,244,47345,242,47356,231j47413,10,47423,170CM$ĺ:A$CH$BO11090;A$CH$ĺA$;:BBO1:1090KB(A)1090cA$(P$,B,O1):1110~CONVERT P$ TO DECIMALRZ:B(P$)O1ZO1:CZ15(P$,(P$)B,O1)HX$(C)ĂRR(16BC):B:DATA FOR ALTERED MARKS47445,2 X3P8 38 4P84L 84L 84L 84L 0-L -L -L.L .L. L.L.L .L .L .L .L .L."L.'L.,L.1L.6L .8L .:L .L .@L 8 2 83RL 83TL 83VL 8 L -L-L-L -L -L-L-L-L -L-L -L-L-L -L -L -L-L -L -L-L -L-L-L -L-L -L 2{L2L2L2L2L2L2L2L2L2L2L2L2L-L -L -L -L-L -L-L -)@ 0 ?9>9?9772=L 2?L2DL2IL2NL2SL2XL2]L2bL2gL2lL2qL2vL. # D/ G/ N2`L.-4744524047455242474662311-LH-4750517447515164K-Ll-473352444734524247356231o-L-474131047423170L@"@ ` $% " * 1  )2 L, ` 1  2  T. . / ?2 L* 1  2 LU, 1  / {. .L* . f. L* 2 . q /  1L* . G/ 2 H  c / z N2 . Q / J . z X2 Q1 N > 2 H  c . 2 q /  1 . 1 1 IL, . 0 T. 1  W* ?2  T. 1  W*  ]. 1  W* D2 ?2 L* . /  T. 2 H  / ?2 Lr+ 1 2L+ . / L+ / i. 2  1 q 2L+ . f. L+ / i. 2 V 1  2L+ / {. 2 V 1  1 . i. 2  1 q 2 1  . / .L* /  r. 1  .  I2` /  r. 1  )/  r. 1  .  r. 1  J/  I2` s0   o. 2  s0  r.  / . 2 H  o. ^ 1  )2  T. 1  2 ?2  T. 1  32 ?2 L+ . f. L*L*0L*9L*AL*F 1  W*  / 0 LG&LYL) W ) 2 . z I2 . Q > /  r. 1   . Ld)LM)00 2  WJ)  2 ` .  r. 1   G/ 0 >/ # 1 2 q 1 0 >/ # 0 A/ 1 1 q 2 ` 2 1 . z I2 . Q > . i. #/ / 1 q )/  2 x, J/ . L 2 / 2 1 J/ $ 1 q  I2L( L%( T$( / 1   L@( / 1 W?( LG& / 2 / 1  Lp(' 1  Wn( L( / 2L( W(  / z I2 / 1 H N > / 2 / 2 1 / 1 r. q /  < / ' 1 q  / /L(L' W& 2 / z I2 X0 N > 2  2  2 [* / 1 2  / 1 H w I2 / Q / JLf' / 1 r. q /  Wd' L' LG& / 1 2 r. V  / 2L' W'  / z I2 / 1 H N )/ J / 1 r. q )/  2 x, / II W%  . /L&$ = HEX W&  L<& = NO MORE STRINGS W%&  L^&TYPE OF STRING=> WM&  ^ 1Lq&$Lv&' / ' 1 I T. 1  Wo& I?2  T. 1  Wt& I?2  T. 1  )2 I?2 LG& 1  )2 LY 1  L&$ 1  W& IX 61 L%SEARCH STRINGS W%  )2  L:%USE A WILDCARD?=>N W'%  2 LL% WK% 2 . 2/ ^ 1  Lk%Y 1  Wi% IL%L%WILDCARD VALUE =>$ W% L%00 W% 2 [* 0 2/ x, J/ S/ 2 1 L% ' = LOW ASCII W%  / ' L% = HIGH ASCH SECTOR=> W# L$0F W$ 2 [* x, J/ . . L#L@$ LOW SECTOR=> W3$ LN$00 WK$ 2 [* x, J/ . .  T. . . ?2 L0$L$ SECTOR STEP=> W$ L$01 W$ 2 [* x, J/ . L$SLOT FOR PRINTOUT=> W$ L$0 W$ 2 [* x, J/ / 70 L$ ?2 L" 1  2   L%# HIGH TRACK=> W# L3#22 W0# 2 [* x, J/ . .  T. . 0 ?2 L#Ls# LOW TRACK=> Wg# L#00 W~# 2 [* x, J/ . .  T. . . ?2 Ld#L# TRACK STEP=> W# L#01 W# 2 [* x, J/ / / L# L$ HIG )2 L " LC" 1  u1  1 L$"Y 1  W"" LC" u1  .  LU" DISK SLOT=> WI"  ~1   c 0 i ; 2 [* x, J/ /  T. J/ 70 ?2 LF" ~1  J/ 0 L"DRIVE=> W"  1   ; 2 [*L"1L"9 2  W"  T. 2  W"  [* ) a0 . j0 . )L! DATA END=> W!  [* ) c1  0  l1   . LV! c1  1  Lo!IGNORE CHECKSUM=>N W\!  2  u1   . L!L!Y W!  2  ^ 1L!YL!N 1  W! I T. 1  W! I?2  T. 1  )2 I?2 L! 1   W I T. 1  W I?2  T. 1  )2 I?2 L 1  LC N 1  WA  T. 1  )2 ?2 LF" . . )/ . ) 0 3L ADDRESS START=> W  [* ) 0 . %0 . )L ADDRESS END=> W  [* ) .0 . :0 . ) L DATA START=> W  r. 1 /  r. 1 /  /  r. 1 /  r. 1  0 ' !2 1 ' 52 61 ' +2 / / / . 0 &/ 1 _/ $1 k/ -1 w/ .  .  1  X 0 LTHE CORE DISK SEARCHER W  0 3LDOS ALTERATIONS=>N W  2  ^ 1LYLN 13 1  W  T. 1  W ?2 L X 1  B8GJ .  . LL 0 L s 1  / w I2 0 N > /  r. 1 >  /  r. 1 >  r. 2 r. ;  / w I2 0 N > r. L0 2 0 l. $  . z I2 0 N > / 1 L Z1 U  .  .  .  z/ L X 0 ' LISECTOR UNREADABLE! W6  Lf PROCEED TO: WZ  L1) NEXT SECTOR Ww  L2) BEGINNING OF PROGRAM W  L3) BASIC W  L WHICH ? W  2  ^ 1L1LSTRING W  0 LTRACK W  0 L.SECTOR W'  0 LDBYTE W?  LU WR  1   / /  H1  n/  r.  b/  0  n/  .  b/  0  n/  /   b/  )2  |0   . / U  1 L / U  /  / U  NG TRACK W  n/  r.  b/ L) , SECTOR W  n/  .  b/  .  .  C0  r.  0  .  ?1  /  0  .  1 L' .   . L Z1 U  . LJ / 9 . / 0 /  / / / O0 / T. O0 / # N. LOLI2 / / Q > .  1 . T. r. 2 H  Q. /  / w N2 r. 2 H N > . ~.  r. 2 . q /  <  r. 2 H  . . |0   . 1  5/  1  V/  . z I2 . Q / J . z N2 . Q . J .  / 0 / 9LSCANNI. 1 L  - W  r. 1 1 r. 2 1 LML? LOW ASCII W5  L r. 1 < E. r. 2 <  / l B. LL HIGH ASCII W  LLHEX W  L 1  W ILL WILDCARD =>$ W  1  1 . / w L+ LfLLLLL ꥪLYԨé  -4AAA<2Q34LV / U  / / . L$ X /  )/  /  0 3LCORE DISK SEARCHER W  LSTRINGS: W  . z I2 / / Q > r. / L) W  rHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'w fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhH L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH`% 0 L0`,wyywxzzx,Hyw wȄffȪ yhgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J h 8e`LԩLcغh8uhHvH` L L L~ 憅 edЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z Z ,խwqq膸 J즸 , hhlP,q`h8uhv] :  ڢ Ơ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! 5BwУ8 ewwx𴰺 抦5?wtsʆwx8doph0L8 MLh8HH`BLE? ";:1120:RF2:1360: IF A DISK COMMANЗ{y SՠUEowyywxzzxwIy:eCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤhē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8eLaL LRwwxȆH Jh`w5U,w`,hbhcbwȱbxcȘHH`wȄ w \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   .QP$  "LWHhL:5~  e  eȱeȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbeep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢUiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥堰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwy e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0   HH`0S,,hdehUhVhhHHU hehHehUU HHk`` ЕLhbhc8ii8hhcHbH`+i`LԊiůŰf=Ъl  XhhUȱV0UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQiUR3bb n$ b碣>bޙץ,,stHʈzyhH ʈpoophMm X RQtPsh`yhHj=i<<=k$";:P$"00":1080:W1128:1230:W2R>W$P$::"' = LOW ASCII":(34)" = HIGH ASCII":NSZH"$ = HEX":" = NO MORE STRINGS"R:"TYPE OF STRING=>";:A$ \A$(34)A$"$"A$"'"S2R:S2Z7209"LOW SECTOR=>";:P$"00":1080:1230RS1R:S1ZS1S2740"SECTOR STEP=>";:P$"01":1080:1230:SSR "SLOT FOR PRINTOUT=>";:P$"0":1080:1230PRR:PR7780 :13)"SEARCH STRINGS"CM$:"USE A WILDCARD?=>N"CH47082,(P$):6"HIGH TRACK=>";:P$"22":1080:1230OT2R:T2ZT235650w"LOW TRACK=>";:P$"00":1080:1230T1R:T1ZT1T2670"TRACK STEP=>";:P$"01":1080:1230TSR:TSO1690"HIGH SECTOR=>";:P$"0F":1080:1230"Y"CH$;-&A$:A$"Y"A$"N"A$CM$550@0A$CM$ĺ:580d:A$:47498,183:A$"Y"Ĺ47498,ZjDN"DISK SLOT=>";:P$((47081)16):1080:1230XRO1R7590b47081,R16l"DRIVE=>";:P$((47082)):1080vP$"1"P$"9"620 DDRESS START=>";:1080F1040:X3:Y4:1010:"ADDRESS END=>";:1080`1040:X5:Y7:1010:"DATA START=>";:1080:1040:X8:Y9:1010"DATA END=>";:1080:104047422,201:(47423)ZĹ47422,41:"IGNORE CHECKSUM=>N"CH$;:(47498)ZD(A,1)AD(A,0)/ CH$(8):CU$(21):CM$(13)b O11:Z0:TW2:C1912:C2918:C3905:Z:Z:1002 :9)"THE CORE DISK SEARCHER" 5:"DOS ALTERATIONS=>N"CH$; A$:A$"Y"A$"N"A$CM$460 A$:A$"N"A$CM$590XZ:YTW:1010:5:"A @" WHICH ?"CH$;0 JA$:A$"1"A$"3"330I T:(A$)350,360,370W ^Z,Z:210] hj r:922: |::255:F$(80),P$(80),HX$(15),AD(9,2) A09:AD(A,0),AD(A,2):HX$(A)(A)::A05 HX$(A10)(65A): AZ8:AD(A,1)AD(A,0)2::AC2,A:C1:8);:C2,B7 C1:8);:C2,(O1):C1:CM$;_ Y(37):(16384)155ĵ16384,128} (16384)155Ĺ16368,Z "Z,Z:C3:210 ,:(7)"SECTOR UNREADABLE!"::"PROCEED TO:": 6"1) NEXT SECTOR":"2) BEGINNING OF PROGRAM":"3) BASIC":NING TRACK ";:C2,A:C1:", SECTOR ";:C2,Be C1:Z,Z:2052,A:2057,B:2062,NS:2051:(Z)255300 (Z)ZĂ::16368,Z:370 O1:YO1:PR:NFNFO1:NF10(NF10)240 "STRING"6)"TRACK"6)"SECTOR"6)"BYTE" " "NS(255)O114); :"STRINGS:"1 xAZNSO1:AO1") "P$(A)" - ";T P$(A)F$(A)ĺ"LOW ASCII":160 (P$(A))(F$(A))128ĺ"HIGH ASCII":160 "HEX" ::W$""ĺ"WILDCARD =>$"W$: Y(37):249,W1:250,W2:AT2T1TS BS1S2SS:Z:O1:O1+ "SCANX _________________8\_/ THE CORE \_/U\_/ DISK SEARCHER \_/r(\_/ \_/2\_/ BY RAY DARRAH \_/<\_/\_______________/\_/FP380ZNF1:NSZ800d:34,TW:PR::3 n"CORE DISK SEARCHER":           췩뷩  `kȱkȱkȄ$ `ʈ`ꩤ Ln08` lL`h h` 9`HH e hHhI`ׄHI Ġō͠ΠĠӠΠϠӍӠӠקˬĬōӮĠӠӠŠ®ˠԠˣҠŠԠԍōҠԍ®ԠԠңҠŠԠԍŠٍΠōˍҠԠҾؠčӬؠԠčҠԠԠԍōҠԍӍŠӠϠŠōǠ٠ΠƠҠӠĠЍԮԠŠٍٰӮ٠ŠӮٍԮԠҠύӮ٫ԮԍԮԍӮ٫РōӮ٫؍̠ōӍҠΧԠĠРύԠԠϠӍРҠōĿѠРӬЍŠŠĠРϠˍؠŠӮĬ؍Ӯ٬؍ōЮëӍŠӠŠŠčӠϠŠӮٍРӮĠԠϭԠРŠĠҍàРōЮàŠЮÍŠРύЮëōǮѠ·ĠҠ΍ĠѠ·ƴĠ΍ԠѠĸ ŠԠӠ΍ŠѠӠӠ؍ԠѠĠӠӠɍҠƠҍЮàѠƵĠΠϠԠЍӮ٠ѠİӠӠΠԠƠŠҠŠӍ®ˠѠ·à̠ ˠ΍®ԠŠˠҠ٠ˠȠ       +" +"$ $(    "  3 D Ufw z#????   "ӮŠӠӮ̠ӮŠ ȮʠҮӠà îР#ٮʠٮӠ ήӠРŠŠˠҠŠˠҮР,ӠŠ٠ԠЮϠ ҠҮӠ  Ġō͠ΠĠӠΠϠӍӠӠקˬĬōӮĠӠӠŠ®ˠԠˣҠŠԠԍōҠԍ®ԠԠңҠŠԠԍŠٍΠōˍҠԠҾؠčӬؠԠčҠԠԠԍōҠԍĠӍŠӠϠŠōǠ٠ΠƠҠӠĠЍԮԠŠٍӮ٠ŠӮٍԮԠҠύӮ٫ԮԍԮԍӮ٫РōӮ٫؍̠ōӍҠΧԠĠРύԠԠϠӍРҠō؍̠ōӍҠΧԠĠРύԠԠϠӍРҠōōЮëӍŠӠŠŠčӠϠŠӮٍРӮĠԠōЮëӍŠӠŠŠčӠϠŠӮٍРӮĠԠѠ·ĠҠ΍ĠѠ·ƴĠ΍ԠѠĸ ŠԠӠ΍ŠѠӠӠ؍ԠѠĠӠӠɍҠƠҍЮàѠƵĠΠϠԠЍӮ٠ѠİӠӠΠԠƠŠҠŠӍ®ˠѠ·à̠ ˠ΍®ԠŠˠҠ٠ˠȠ     P$)&BA$:A$CM$A$CH$A$CU$11706LB(A)1090`V(A$"0"A$"9")(A$"A"A$"F")1090`BO1(P$)O1P$A$:1160jBO1P$A$(P$,AO1):1160tB(A)P$(P$,AO1)A$:1160~P$(P$,BO1)A$(P$,AB)A$;:BBO1:1090A$Ђ:=R(AD(A,Z)):P$P$HX$((R16))HX$(R(R16)16)::YPOKE P$ INTO ADDRESSESA$P$:AXY:P$(A$,TW(AX)O1,TW):1230RZĹAD(A,O1),Z:A:$AD(A,O1),AD(A,TW):AD(A,Z),R:A:.INPUT HEX NUMBER8A(36):P$;:36,A:BO1:A((NS)(R):A:980/"";P$(NS):P$(NS)""850MF$(NS)P$(NS):A$"'"980kF$(NS)"":AO1(P$(NS))F$(NS)F$(NS)(((P$(NS),A,O1))128):NSNSO1:NS8185090FORM P$ FROM ADDRESSESP$"":AXY:(AD(A,O1))ZP$P$"00":(34)A$"$"A$"'"A$CM$850/fA$CM$90DpA$:A$"$"940izP$" ":AO14:P$P$P$::1080P$(NS)P$:A(P$(NS))O1O1(P$(NS),A,O1)" "Ă:850P$(NS)(P$,A):F$(NS)"":AO1(P$(NS))TWP$(P$(NS),A,TW):1230:F$(NS)F$SE A WILDCARD?=>N"CH$;:*P$"":W1Z:A$:A$:A$"Y"830u4"WILDCARD VALUE =>$";:P$"00":1080:W1128:1230:W2R>W$P$::"' = LOW ASCII":(34)" = HIGH ASCII":NSZH"$ = HEX":" = NO MORE STRINGS"R:"TYPE OF STRING=>";:A$ \A$"0F":1080:1230$S2R:S2Z720M"LOW SECTOR=>";:P$"00":1080:1230fS1R:S1ZS1S2740"SECTOR STEP=>";:P$"01":1080:1230:SSR "SLOT FOR PRINTOUT=>";:P$"0":1080:1230PRR:PR7780 :13)"SEARCH STRINGS"CM$:"U"1"P$"9"620!47082,(P$):J"HIGH TRACK=>";:P$"22":1080:1230cT2R:T2ZT235650"LOW TRACK=>";:P$"00":1080:1230T1R:T1ZT1T2670"TRACK STEP=>";:P$"01":1080:1230TSR:TSO1690"HIGH SECTOR=>";:P$>N"CH$;:(47498)Zĺ"Y"CH$;A&A$:A$"Y"A$"N"A$CM$550T0A$CM$ĺ:580x:A$:47498,183:A$"Y"Ĺ47498,Z~DN"DISK SLOT=>";:P$((47081)16):1080:1230XRO1R7590b47081,R16l"DRIVE=>";:P$((47082)):1080vP$Z:YTW:1010:5:"ADDRESS START=>";:1080Z1040:X3:Y4:1010:"ADDRESS END=>";:1080t1040:X5:Y7:1010:"DATA START=>";:1080:1040:X8:Y9:1010"DATA END=>";:1080:104047422,201:(47423)ZĹ47422,41:"IGNORE CHECKSUM=D(A,1)AD(A,0)2::AD(A,1)AD(A,0)C CH$(8):CU$(21):CM$(13)v O11:Z0:TW2:C1912:C2918:C3905:Z:Z:1002 :9)"THE CORE DISK SEARCHER" 5:"DOS ALTERATIONS=>N"CH$; A$:A$"Y"A$"N"A$CM$460 A$:A$"N"A$CM$590*X JA$:A$"1"A$"3"3302 T:(A$)350,360,370@ ^Z,Z:210F hS r:922: |::255:F$(80),P$(80),HX$(15),AD(9,2) A09:AD(A,0),AD(A,2):HX$(A)(A)::A05 HX$(A10)(65A)::(768)(769)155ĺ(4)"BRUN SEARCH.OBJ"" AZ8:A C1:8);:C2,(O1):C1:CM$;H Y(37):(16384)155ĵ16384,128f (16384)155Ĺ16368,Zx "Z,Z:C3:210 ,:(7)"SECTOR UNREADABLE!"::"PROCEED TO:": 6"1) NEXT SECTOR":"2) BEGINNING OF PROGRAM":"3) BASIC": @" WHICH ?"CH$;NING TRACK ";:C2,A:C1:", SECTOR ";:C2,BN C1:Z,Z:A,B,NS:(Z)255300m (Z)ZĂ::16368,Z:370 O1:YO1:PR:NFNFO1:NF10(NF10)240 "STRING"6)"TRACK"6)"SECTOR"6)"BYTE" " "NS(255)O114); C2,A:C1:8);:C2,B :"STRINGS:"1 xAZNSO1:AO1") "P$(A)" - ";T P$(A)F$(A)ĺ"LOW ASCII":160 (P$(A))(F$(A))128ĺ"HIGH ASCII":160 "HEX" ::W$""ĺ"WILDCARD =>$"W$: Y(37):249,W1:250,W2:AT2T1TS BS1S2SS:Z:O1:O1+ "SCANk _________________8\_/ THE CORE \_/U\_/ DISK SEARCHER \_/r(\_/ \_/2\_/ BY RAY DARRAH \_/<\_/\_______________/\_/FP380ZNF1:NSZ800d:34,TW:PR::3 n"CORE DISK SEARCHER":     ΠҠǍٮƠؠƽٮҠ٠ǽԮҠҮҩ٠ԠҍԠĮΠſΠȍٍٮҩ٠ҍҮҍٍٮҩٍҮҫٍ٠ŠԠŠԽԠŠԠǍԮǠ٠ŠԠٮҩ٠ԍàϮҠӠĠĠԍàĮǠ̠ÍӍРӍϮҠԍ®ƫ٠ϠԠŠҍҠĮ Ԡ®ҍҠӠԠҍԮ֠ӠΠ̍̍ͮӍĠč®č®Ơƽ®̠٠̍Ԡҍ®ˍҠͮˠҠͮ̍ҠԮ֍̍®ԍҠͮˍҠ̠ͮԠҠƍҠԠӠҠ΍ĠĠҍήǠҠ̠ͮԠˣҠԮ֠Ҡō̠ųήǠЮëήǠЮëàРōЮÍӠРōѠðŠҠ΍ҠưưƠӠōƠȮʍˠРϠčĠҠčƠѠҠҍĮǠѠƠĬӠѠΠԠԠӠĠ΍ԠѠĠԠӠɍŠѠԠӠ؍ҍٮҠѠ ӠϠԠƠӍΠѠĠȠƠԠǍҮҠѠ ĠàԠϠԠǍĮĠѠĠҍĮΠѠƹƠ·Πҍ®ĠѠ·ƴ č̠ѠŠԮ֠ӠԧӠҍ®̠Ѡ· ӠŠĠͮӠѠƠҠƠӠϠȍŠѠŠǠ٠ӍӠѠĹĠϠŠӍ®ˠѠ·àӠˠҍ®ԠѠ·ĠҠҍĮ ѠųӠĠ٠ȠŠӠƠŠ®ƠѠ·ưҠϠҠ̠ͮѠķ ӠŠàҍЮàѠƵàϠŠΠԠӠΠԮ֠ѠƲӠàϠΠ̠ҠԠĠͮˠѠŠӠŠӠŠ          L` { 륡 { 륡 { 륡뷩  `kȱkȱkȄ$ `ʈ`ꩤ Ln08`٠ŠŠ؍٠ԠōРԮŠŠ٠ҠΠ͠ԍͮ؍ҠŠϠŠؠҍ٠ŠŠƠԍҠԮŠŠōϠŠԠōҠš֮٠ͮ٠ŠٍҠŠ٠٠ҍֱŠРōȲŠֲ͍ŠϠ֍ҠҠԍҠ̠ō٠ŠԠؠˍ٠РҍŠ֮٠Ӎٮҍ٠ҠōѮҩ٠Ԡԍ٠ԠōѮҩ٠٠ҍɠٮҠӡ٠ŠŠٍؠŠĨҠ͠Ԡ͠ōĠ̠Ӎ̠ӮҍǮҍàͮ٠Ԡ͍ѠŮŠƠ͍ԠӮΠҠ̠ӍɠǮҍŮԠō̠ԱŠōԲԠӮ΍ɠԲӮҍàͮؠԠ͍ѠǮҠƠ͍ԠӮΠҠ٠ōѮҩ٠נſ̠ŮŠύ׮РϠōͮؠӠōͮ٠ĠӠōԱԠӮΠŠȲϠֲֲ٠РōٍҽҍҠѮŠϠӍҠԮŠĠϮŠ٠ŠŠ΍٠ŠԠύٍٍ٠٠ҍҠѮŠŠōֱŠֱȲԠ٠ԠԠҠӍѮҩٍѮԍٍԮŠàѮԠŠȠ̠̿ϮŠšӍ٠ŠčŠѠƸנڠŠԠ͠٩ȠȲŠѠƸנ̠ŠԠ٩͠ȠֲҠԠϠŠŠٍƠٮʍѠĠԠŠҠōֱѠàРŠҠōȲѠàҠԠŠҠōֲѠĠҠРŠҠōѮԠѠ ӠΠŠŠӠӠ͠ҍĠѠƠ͠Ӡō̠ѠƸӠŠҠŠ̠ϠҠѠҠˠōŠѠŲҠǠԠؠϠӍȱӮΠѠðŠԠ΍ͮؠѠŠנǠӮΠĠōͮ٠ѠƠנǠĠōѮҠѠŰӠϠŠӍ͠Ѡ´     ` ,-ȩ0  ",`,`0,`,`0ȱ0 寧 dȱ0 ,-  LȢȑȱe,8` -  (,L(070 BTKLT1020: L:"REMEMBER TO COPY BOTH SIDES":] '(4)"BLOAD RWTS.LIONS,A$1900"0^$SWAP CONTROLLER (LIONS SHARE)>TK3:ST0:LT35:CDWRXT1TK:490:360:550{430:100:STST1:STDOS1030BF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS1070 8ST0:TKTK1:BF0TKLT1 +JJJJ 0Ѕ0ɭ2:A$`2:<A$"DO YOU WANT TO USE ACE WRITER"FL)061,A2256:60,A2(61)256:63,A3256V62,A3(63)256:67,A1256:66,A1(67)256a749: 160,0,76,44,254,169,0,32,168 252,32,0,3,44,0,192,16,243,96:14)"SAVE FORMAT":34,I;a(4)"CATALOG"::"FILE=>";A$KcA$""2000rf(4)"BSAVE"A$",A$C00,L$100":2000> MOVE GR1 TO GR2H A12048:A21024:A32047:4000 MOVE GR2 TO GR1 A11024:A22048:A33071MOVE A2 THROUGH A3 INTO A1%NT (1-255) =>";A:AIA2552070F*755,A:224,Z:225,12::16302,Z`41998:754:A$:2000s9LOAD A FORMAT>:14)"LOAD FORMAT":34,IC(4)"CATALOG"::"FILE=>";A$EA$""2000H(4)"BLOAD"A$",A$C00":2000RSAVE THE FORMAT\:"2) VIEW THE FORMAT IN ACTION"S:"3) LOAD A FORMAT"::"4) SAVE THE FORMAT"l::" WHICH ?"(8);A$:(A$"1"A$"4")A$(27)2040A$(27)ė: (A$)2065,2070,2110,2140SQ3073:30(SF)Z2000 :12:"DELAY CONSTA12049:A22048:I1:SF3072:Z08A22048:A33327:4000i(768)160ĺ(4)"BLOAD SYMPHONY.OBJ,A$300"SQ3073:SF,I:SQ,128:SQI,Z$SQ3,128:SQ5,23:SQ6,128:SQ8,19::5)"PSYCHEDELIC SYMPHONY FORMATTER"!4:"1) EDIT THE FORMAT":GET A Y OR N>&A$:A$"Y"A$"N"A$(13)A$(27)550N0A$(13)ıb:A$(27)ġ:30DA$:SQA,255(A$"Y"):A749767:PK:A,PK:255::K$"IJKM"(21)(9)(10)(11)K$K$(13)(14)(4)(19)(8)(27)2048,Z:A(A$)1(A$)15301 SQ2,(A$)16(A$):30E LIGHT A SQUAREk (I)15I:(AI)127Ġ(A2)16 CY(A5):CX(A8):Y1(255(A3)):X1(255(A6)) CYY1,CYY1CXX1:CYY1,CYY1CXX1 CXX1,CXX1CYY1:CXX1,CXX1CYY1: 73:SF,(SF)I2 |A1SQ:A2SQ9:A3A28:4000:30L ::17)"STATUS"::w "NEW SAMPLE=>Y"(8);:(SQ)128ĺ"N"; ::"STEADY COLOR=>Y"(8);:(SQI)128ĺ"N"; ::"COLOR=>"((SQ2)16):4:13 AZ:550:6:15:AI:550 8:8:"";A$:(255A)(255XS)ĂJ XSAYS:CY(255XS)0CY(255XS)Y1XS255100] SQX1,XS:100l "YSI:310u ,YSI 6CYCX:Y139:X16:270 T(SF)I100 ^SF,(SF)I:A1SQ:A2SQ9 cA33327:4000:SQ3073:30 h(SF)25100 rSQ9(SF)30SQ8,CXXS:1006 SQ((SF)I)93073SQ3073:30F SQSQ9:30k SQ3073SQ((SF)I)93073:30{ SQSQ9:30 YSI:265 YSI Y147:X13 XS(SQX1):AXS252(YSI)IYS:(255A)(255XS)Ă XSA:AXS252(YSI)IYS: A1İ35007 A$:AI(K$):A$(K$,A,I)Ă:100w A160,200,210,170,230,260,300,290,250,360,340,390,241,2000 YSI:180 YSI CYY1YSZCYY1YS47100 SQ5,CYYS:100 XSI:220 XSI CXX1XSZCXX1XS39100 8 (104)13Ĺ104,13:3328,Z:(4)"RUN PSYCHEDELIC"B1000a16304,Z:16302,Z:1998(A3073(SF)9SF9:ASQĂ:902500:Z3400dASQ:500:A1I:AI25:(16384)127130n:3500:A1Z:AI25:(16384)127130 x:100     ԠҤĠӮӬ ˠԱԠ   ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠҠϠ٠ȠӢĠ΍͠РҠӠũˠԠԠĠҍԱ˺  ҠϠ  ԠԠƠԠӠΠƠƠΠԠˠˠƠˠԠΠ  RECTORY !!!": |:10005 1:" 80N":0,63998:06"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:     L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`  `% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` Lh 8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH Z ,խwqq膸 J즸 , hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J 5BwУ8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 ZeCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! hē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8oph0L8 MLh8HH`BLE? ";:1120:RF2:1360: IF A DISK COMMANЗ{y SՠUEowyywxzzxwIy:w \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤ.QP$  "LWHhL:5~  e  eȱeeLaL LRwwxȆH Jh`w5U,w`,hbhcbwȱbxcȘHH`wȄ ep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   堰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM0UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈzyhH ʈpoophMm X RQtPsh`yhH                !!! @ ? ??<=>?.Lb.Lb.Lb.Lb.Lb.Lb.Lb.Lb.Lb.Lb/Lb/Lbu- t+ O , < , B v, l w+ O - 6`LD*16007644254169032168G*Lh*25232034401921624396La@ @"B @Cp<| @OATALOG (  %L)FILE=> )  . L-) . 3 ,) L% ,  LR)BSAVE L)  . Lp) ,A$C00,L$100 c)  L% - z+ - + - +L) - z+ - + - + z. < u- + O q. < z. B v, l + O . < u- + O . < . B v, l + O , <  .L% X . L( LOAD FORMAT (  , < + O ,  LE(CATALOG =(  %L`(FILE=> Y(  . Lr( . 3 q( L% ,  L(BLOAD (  . L(,A$C00 (  L% X . L( SAVE FORMAT (  , < + O ,  L)C  8+ h.  . . L& h.  . L.' XLa . ~ @'I'(( - Y+L , E l e+ "L% X -  %L'DELAY CONSTANT (1-255) => l'  G+  J+ + & 8+ J+ ]- . LI' A. < J+ O m, < k+ O , < - R -  < k+ O .  6 /. 6 ATTER %  , L&&1) EDIT THE FORMAT &  LT&2) VIEW THE FORMAT IN ACTION 7&  Lv&3) LOAD A FORMAT e&  L&4) SAVE THE FORMAT &  L& WHICH ? &  H-    .L&1L&4 . 3 & 0 8+ . 3 & G. - z+ - + , + - , =, h+ - + - + ) [, B d, Lh% ,  L]%BLOAD SYMPHONY.OBJ,A$300 D%  - Y+ , ? + O \+ ? I, R \+ + ? k+ O \+ , ? I, R \+ , ? S. R \+ , ? I, R \+ , ? 8. R X - L%PSYCHEDELIC SYMPHONY FORM \+ D+ ?L$Y . 3 $  `- O` - . .    + J+ ? + O / .  sLV$IJKM J.  Q$  . l-  .  . ~-  .  . -  .  . -  .  . .  .  . ,  .  . 8.  .  . H-  .  . h.  .  . R, < k+ O + ,  (, +  + ,  + ,  (, +  , +  + ,  , +  + ,  + ,  , +  (, + `  .Lr#YLw#N . 3 p#  8+ . 3 u# .  8+ -  . .  8+ h.  . . Lg# -  . ` h.  . L# yL .   .  + G+ g# H-  H-  %L" "  .  . ~ , & 8+ . ~ - . L \+ , ? . ~ - 8+ . ~ 5+ OL + - + u J+ + E . L" J+ , E l c - i u J+ , E l %, J+ , E l , J+ , E l Z- # + J+ , E l Z- # + X &. L!STATUS !  L1! NEW SAMPLE=>Y #!  H-   \+ E F, &L`!LX!N V!  Ly!STEADY COLOR=>Y i!  H-   \+ + E F, &L!L!N !  L!COLOR=> !  \+ , E l c - i # _ ,  -  k+ G+ g# ?- + .  8+ + ]- . L- \+ + ? + OL- + +LA + + , %, 6- + , +L: , E l + "L- , ? , E l c + O \+ z+ \+ , + - + ) - Y+L , E \. "L- , E i- , l Y+ , ? , E l + O \+ z+ , V+ + , + )L  c + , - Y+L , V+ Y+L + +L. + + *- + , + \+ + E l + . + + " Q- +  +  J+ Z- # 8+ + Z- # 2+ "L / J+ + . + + " Q- +  +  J+ Z- # 8+ + Z- # 2+ "L / + A+ + Z- # , :, & 8+ + Z- # ", V % + +L + + + , + e+ & 8+ (, + + '- . L- \+ , ? (, + OL- + +Lk + + + , + e+ & 8+ , + + 3- . L- \+ , ? , + OL- , E l c + , - S+ "L - Y+L \+ , Y+L \+ - "L , E l i- l ,  l-  J+ S+ "L" /L* w" / ~) \+ G+ w" + z+ + . _.   1,  B . L / ) k+ z+ + . _.   1,  B . L /L- }+L )  . + . .    . J+  + / . L /L- J+ Ye(; / q,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé  $*#/./#/L$ .  < k+ O -  < k+ O .  6 , . , E+ L+ L+L+L+L+L+L+L+L+L+L+ L+"L+$L+&L+(L+*L+,L+.L+0L8/L}8/ L}8/"L}Lb*L*Lb*L*Lb*Lb*Lb*L*L*Lb*Lb*L*Lb*L*L*Lb*Lb*Lb*Lb*Lb*Lb*Lb*L+Lb+L+L/ Lb/Lb/Lb/Lb*kL*mLb*rL*tL*vL*xL*zL*|L*~L*Lb*L*Lb*Lb*L*L*Lb*Lb*L*Lb*   3   ## ""