' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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- ( D Р@跻~!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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`           Ԡﮠŭڠ뮠Ӡ뮍é뺠嬠讠䬠©箠נ庍ﬠ׮뮠宠Ҡ à򿍍󠪪נ򮍍נ谮묠䮠堢Ϣ場󠴱󠪪ΠР䬠宠Š΢Πпנ򠱰ҢҮҠŭ報͠Ҡŭ宍ŠŠӭ堢٢嬠΢庠ԠŠͭ͠堢٢Ӡŭ宍Ӡŭ宍ŭ宍ŭᠢ٢΢ҠŭӠ䠢٢宍ŠҠӭӠ䮠נﮍӠ󠪪ŠΠӭ󬠢򿢠򬠢Ӡ忢󮍍庍򺠰򺠰ƍ𺠰󠰠蠱뮠Ԡ뮠Ӡà령򠱫ԽĠ˽庍򺠳򺠰č𺠲뺠¬č庠堪䮠堰򩬠堰묠򠱫Խ뮠ᠱ묠ƻ򠱳î󠱳栱ëýҠЭ򮍍ﺠ䍍נҭ뮠򠰲򠲠뮠Ƞҭ宍ˠЭà뮠栱묠栲報˽󺍍庠䠦堪נ˭Ƞ˭Կ䮠栢٢䬠נ嬠àΠ䮠ή䮍ɠ嬠䬠嬠Ӡؠ𩬠à䮠砢٢΢ﮠŠ΢à䮠䮠ᠢ򮍍򠪪ק笠קЧ묠Ԯ򍍠 䮠          '  D$(4)&D$"EXECSTART"= L` { 륡 { 륡 { 륡뷩  `kȱkȱkȄ$ `ʈ`ꩤ Ln08` ´±ԽԫԼαԽ˽˫ƽ˼α˼αź̠Ţ´čҤԮӬРҠĢ΍̱ԮΠҠ˽ԽĽҺ½ϵԽԱ˺´³´±ԽԫԼααԽ˽˫˼α³˽ԱԽ´󠸠련멮@@,(CN$)4)" CONTROLLER ENTERED"Q$,"RUN"ACD$"CLOSE"CN$:QERROR TRAP`: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,2DONE"Q$":GOSUB450:END"YSMĺ"5000DATA"A1","A2","A3","D1","D2","D3","A4","A5","D4","D5hSE01470"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$ORE:GOSUB310:";%PLDĺ"GOSUB360:";;ZSMĺ"GOSUB230:";Yd"TK=T1:ST="L2":GOSUB490"n"1070GOSUB430:GOSUB100:ST=ST+"S2$":IFST<"H2"THEN1070"x"1080ST="L2":TK=TK+"TS$":IFBF=0ANDTK ";: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. 16 ! /P-------------/Zd::255::1510n650x1 BYTE INPUT"$"; A$:J        宍䠲𠠠 13 8ijL@L?@Н$@'@Z@`LLLK֭LH*gLhwxg8hLMإgh̥ijN67hh v v) vP vQ vȪLjԭwx`g? ,  XʽibicL` 1 1< = UbȑbE<)B8$ J A & ɃHɠɛ Ubȑb DEC CONV.& POKE'SR$ IS STRING TO BE POKED'A0:B0:C0(L(SR$):A$(SR$,2)(L2B$(SR$,3,2)3(L6C$(SR$,5,2)O(A1$(A$,1):A2$(A$,1)k(B1$(B$,1):B2$(B$,1)(C"&HX:Y:A1$;:A$&RA$(27)ı&\A$(8)(A1$)1A1$"":2120&fA$(8)(A1$)0ĺ(7):2120'pA$(8)A1$(A1$,((A1$)1)):2120'z(A1$)ALA$(13)ıB'(A1$)ALA$(8)ĺ(7):2120{'((A$)48(A$)58)((A$)65(A$)70)ĺ1960%DR(A$)%6:11:"SLOT # =>";SL%15:11:A$%A$(13)2050%(A$)6(A$)12010%SL(A$)"&6:20::"PRESS OR =>";::A$:A$;2& A$(27)ıE&A$(13)2090O& 2050U&*g&4GET A STRINGr&>A1$"1850$b(N$)25ĺ(7):1850$lA$(13)(N$)11950$vA$(8)N$(N$,(N$)1):1850$A$(8)N$(N$,(N$)1):1850 %A$(13)N$""1850%N$N$A$:1850:%6:9:"DRIVE # =>";DRI%16:9:A$\%A$(13)2000v%A$"2"A$"1"CAPE AT MENU##8:6:"EXIT PROGRAM (Y/N)?";#A$:#A$"Y"ĉ::#A$"N"230#1790#&GET FILE NAME,DRIVE,SLOT#0$:6:7:"FILENAME =>";N$;/$DA$:A$(27)ıQ$NA$(8)(N$)1N$"":1850u$XA$(8)N$(N$,(N$)1):ERR9A$"DISK FULL""ERR6A$"FILE NOT FOUND""ERR8A$"I/O""ERR11A$"SYNTAX""ERR4A$"WRITE PROTECT""8#A$" ERROR";:ERR9(A$)1ĺ" IN LINE #";(219)256(218);i#(7):20:4:"PRESS ANY KEY =>";:A$::230}#ES!@:D$"CATALOG,D";DR;",S";SL;",V";VO!J::22:"PRESS ANY KEY =>";:A$:!T!^"ERROR HANDLING ROUTINE!hERR(222):A$"""rERR15ERR254Ĺ216,0:1740?"|ERR254ĺ"TYPE AGAIN PLEASE:"::N"ERR255ijn"ERR2A$"VOLUME MISMATCH""(SD$,3,2):"B85D:";(SD$,2) "B935:";(ED$,2):"B93F:";(ED$,2) "B89E:";(ED$,2):"B8A3:";(ED$,2) "BC60:";AS$:"B83E:";DS$!RS$"IGNORE"ĺ"B942:18"5!CH$"IGNORE"ĺ"B98A:00"H!D$"CLOSE ";N$R!2450X!"j!,CATALOG DISKp!6$,3,2):"B96A:";(SA$,2)"BC7A:";(SA$,2):"BC7F:";(SA$,3,2):"BC84:";(SA$,2)"B991:";(EA$,2):"B99B:";(EA$,2) "BCAE:";(EA$,2):"BCB3:";(EA$,2)Q "B8E7:";(SD$,2):"B8F1:";(SD$,3,2):"B8FC:";(SD$,2) "B853:";(SD$,2):"B858:";ATE TEXT FILE"::34,4P1830:GET FILE NAMEZA$(27)ıd:TX1:2800:NORMALIZER nD$"OPEN ";N$",D";DR",S";SL",V";VO:D$"CLOSE ";N$xD$"DELETE ";N$)D$"OPEN ";N$<D$"WRITE ";N$M"CALL -151""B955:";(SA$,2):"B95F:";(SA6:8::"S";::"ET / ";::"I";::"GNORE =>";A$:A$:A$(27)ıA$"S"A$"I"1240A$"S"CH$"SET":1310 A$"I"CH$"IGNORE" 47498,0-47498,1833(M2CREATE EXECABLE FILE_<:A$"":N$""F4:9::"CRE$"2"1090jDR(A$)t6:9:"SLOT =>";SL~13:9:A$:A$;:A$(27)ıA$(13)ı(A$)6(A$)11150SL(A$):IGNORE ADDRESS CHECKSUM#Q12:4::"KILL ADDRESS CHECKSUM"::34,4o6:7:"CURRENTLY =>";CH$8:10:"ALTER TO =>";2100:A$(27)1050DS$A1$SR$DS$:AD47166:2220$CHANGE SLOT,DRIVE.89:4::"CHANGE SLOT,DRIVE"::34,4/B6:7:"DRIVE =>";DROL14:7:A$:A$;:A$(27)ıbVA$(13)1140|`A$"1"ADRESS SYNC BYTE"::34,46:7:"ADDRESS SYNC:"8:9:"CURRENT VALUE =>";AS$8:10:"ALTER TO =>";2100:A$(27)980AS$A1$ SR$AS$:AD48224:22205:AL2:X19:Y10M6:7:"DATA SYNC:"o8:9:"CURRENT VALUE =>";DS$8:8:"CURRENTLY =>";RS$>9:8::"S";::"ET / ";::"I";::"GNORE =>";HA$:A$(27)ıRA$"I"RS$"IGNORE":47426,24:\A$"S"RS$"SET":47426,56:"f840(pEzALTER ADDRESS SYNC BYTEZ:AL2:X19:Y109:4::"ALTER ADCD47356:2220:AL46:7:"END OF DATA:"8:9:"CURRENT VALUE =>";ED$8:10:"ALTER TO =>";2100:A$(27)780ED$A1$)SR$ED$:AD47413:BD47423:2220/ GIGNORE READ ERRORSM k*:4:6:"READ ERRORS:":4vX|blALTERED DATA MARKERSv9:4::"ALTER DATA MARKERS"::34,4Y10:X19::AL66:7:"START OF DATA:"8:9:"CURRENT VALUE =>";SD$.8:10:"ALTER TO =>";F2100:A$(27)710RSD$A1$SR$SD$:AD47335:BD47345:2100:A$(27)520SA$A1$SR$SA$:AD47445:BD47455:CD47466:2220:AL46:7:"END OF ADDRESS:"8:9:"CURRENT VALUE =>";EA$"&8:10:"ALTER TO =>";:02100:A$(27)590F:EA$A1$jDSR$EA$:AD47505:BD47515:2220pNOP430,620,790,890,1060,1200,1580,1330,2940230ALTERED ADDRESS MARKERS:Y10:X19 9:4::"ALTER ADDRESS MARKERS"::34,4*6:7:"START OF ADDRESS:"L8:9:"CURRENT VALUE =>";SA$g8:10:"ALTER TO =>";AL6: ALTER SYNC BYTES"@9:12:"5) ALTER SLOT, DRIVE"J9:13:"6) IGNORE ADDRESS CHECKSUM"T9:14:"7) CATALOG DISK"^9:15:"8) CREATE TEXT FILE".h9:16:"9) NORMALIZE DOS"Or6:18:"OPTION # =>";:OP$:]|OP(OP$)qOP$(27)176023:"ADDRESS END:";::EA$:24:"DATA HEADER:";::SD$;::23:"DATA END:";::ED$;:35,22:6:6:"OPTIONS:"9:8:"1) ALTERED ADDRESS MARKERS"="9:9:"2) ALTERED DATA MARKERS"a,9:10:"3) IGNORE READ ERRORS"69:11:"4)Rd DOS ALTERERnx BY J.J. GIFFORD COPYRIGHT 1986SOFTKEY PUBLISHINGGOSUB INITIALIZATION2450MENU#::>:"THE DOS ALTERER":J34,1:23:"ADDRESS HEADER:";::SA$;::                    L` { 륡 { 륡 { 륡뷩  `kȱkȱkȄ$  `ʈ`ꩤ Ln08` 240,47455,242,47466,231047505,174,47515,164S 47335,244,47345,242,47356,231k47413,10,47423,170" THE CORE DISK SEARCHER IS COPYRIGHTED BY: SOFTKEY PUBLISHING POB 110846 TACOMA, WA 98411 40,47455,242,47466,231/47505,174,47515,164R 47335,244,47345,242,47356,231j47413,10,47423,170" THE CORE DISK SEARCHER IS COPYRIGHTED BY: SOFTKEY PUBLISHING POB 110846 TACOMA, WA 98411 BCM$ĺ: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,2P$)&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+ "SCAN _________________8\_/ THE CORE \_/U\_/ DISK SEARCHER \_/r(\_/ \_/2\_/ BY RAY DARRAH \_/<\_/\_______________/\_/FP380ZNF1:NSZ800d:34,TW:PR::3 n"CORE DISK SEARCHER":1)256"VBBB39:((B));::,`EXITXj::"TO RESTART ";::"THE NIBBLER";:t", TYPE:"::"]RUN"::1002:47100,W:103,1:104,8:" THE NIBBLER IS COPYRIGHTED BY: SOFTKEY PUBLISHING POB 110846 TACOMA, WA 98411 WRL.P = PRINTOUT OF SCREEN"G:10)"ESC = EXIT PROGRAM OR FUNCTION";z:16384,128:(16384)155(16384)144ľA$$(A$(16))1080:.PRINT SCREEN81:AW3:1100:::BA522:1100:::1100:1::0:LA:W:(0);:B(40)(47)"CTRL.R = RECALIBRATE DISK ARM":12)"T = READ A NEW TRACK"12)"S = GET NEW SLOT NUMBER":12)"D = GET NEW DRIVE NUBMER":12)"$ = DEFINE SEARCH STRING":6)" = FIND NEXT SEARCH STRING"12)"4 = DECODE 8 BYTES (4+4)"::7)"CT5:768A,0::HELP SCREEN[34,4:35,23::35,24::6)"I,J,K,M = CURSOR MOVEMENT""CTRL> I,J,K,M = MOVE CURSOR TO EDGES":4)"<-- ; --> = MOVE THROUGH BUFFER FAST";12)"B = JUMP TO START OF BUFFER":12)"E = JUMP TO END OF BUFFER":ACREEN SETUP3::A039:1408A,32:2000A,32:_"SLOT=>"(47081)16:"DRIVE=>"(47082)"TRACK=>00.0":W:17:"SEARCH=>000000000000 (U)":47084,00:0:3:18:"?=HELP":X18:Y9AD16623:TK0:47083,0:47092,0:47100,0253,6:A0(8)(10)A$(X3)::94CH$(8):CM$(13):ESC$(27)I>TITLE PAGEoH::3:15:"THE NIBBLER":12:14R"BY RAY DARRAH":23:9::"PRESS ANY KEY TO BEGIN":\AW3:W:13:A$(A):2:13:A$(A3)f(16384)128Ă:860pA$:110 zS1)(13)(8)(21)(18)(16)[K$K$" 4SDTBE$?/"(27):A$(W)" * * * * *":X23 A$(X)(A$(W),XW)(A$(W),16X):A$(4)A$(2):A$(5)A$(W):A$(6)A$(3) XW3:YW3:A$(X)A$(X)(10)(8)(A$(X),Y,W)*A$(X3)((A$(X3),Y),W,W)$;B$:B$CH$ĺB$;:6603B$ESC$A$ESC$:YB$CM$ĺCH$"0"A$;:A$B$:BB16:(B$"0"B$"9")(B$"A"B$"F")690BB(B$)487((B$)64):B$;:INITIALIZE VARIABLESW1:10,76:11,45:12,8:0:0:16383K$(9)(10)(1081,(A$)16:(bGET NEW DRIVE NUMBERHl2:8:A$:A$ESC$A$CM$ı_vA$"1"A$"2"620vA$:47082,(A$):GET A HEX NUMBERB$"":A$:A$CH$A$CM$A$ESC$ı(A$"0"A$"9")(A$"A"A$"F")660B16((A$)487((A$)64)):A)490:A$CM$ĺ".";:540I11:A$:A$"0"A$"5"A$CH$A$CM$520YA$CH$490wA$CM$A$((1290)128)&A$;0BB2(A$"5"):47084,B:2266::GET NEW SLOT NUMBERDW:7:A$:A$CM$A$ESC$ıNA$"1"A$"7"580XA$:47O START OF BUFFER AD16623:;JUMP TO END OF BUFFERJAD32263:dRECALIBRATE DISK ARM47084,160:2266:47084,0:2266:3:8:"00.0":GET NEW TRACK3:8:S(1287):660:A$ESC$Ĺ1287,S:A$CM$B$CM$Č2266:(A$CH$)"( "CH$;/ TA$:A$"U"A$"E"A$ESC$340@ ^A$ESC$290U hA$;:A$"U"390_ r2379| |FIND NEXT SEARCH STRING AADY20X2W:39,A256:38,A(39)256 2303:(252)0ĺ(7);: AD(38)(39)256Y20(X2)W:38,0:JUMP T$ 3:29:AWADY20X2:39,A256F 38,A(39)256:2351:38,0:] GET SEARCH STRINGk W:A05 25A2:660:A$CH$AA(A0):280 "A$ESC$Ė25:"000000000000 (U";:950 ,A$CM$A0280 6A$CM$330 @768A,B: J253,A:380,170,180,190,210,220,470,1080,390,240,580,620,490,430,450,270,970,970,1130:120j FAST CURSOR MOVEMENTt Y0:~ X0: X38: Y18: LEFT AND RIGHT ARROWS ADAD240(AD16862): ADAD240(AD32024): 4 + 4 DECODE 8 BYTESR >>>>>>>& <<<<<<<<< >>>>>>>>C F<<<<<<<<< >>>>>>>>>` P<<<<<<<<<< >>>>>>>>>>} Z<<<<<<<<<<<->>>>>>>>>>> d750 n900:470 x254,X:255,Y:AD(AD):A$((16384)):X(254):Y(255) AW(K$):A$(K$,A,W)Ă:120P A16&& !&& &ة,`&8*ȱ&% `J Ƚ ` <<<<<<<<<<<->>>>>>>>>>> <<<<<<<<<< >>>>>>>>>> <<<<<<<<< >>>>>>>>> (<<<<<<<< THE >>>>>>>> 2<<<<<<< NIBBLE  2063:xg h`&@'`''ɀ` ᥠ'% !%& L=i (H)?(h(h(8AɥƠП>~i &иȄ'¥L  鷽 &''ɀ``           ANY KEY TO CONTINUE";:210:22:958:730";:::Q+22:"INSERT DISK -- PRESS ANY KEY TO CONTINUE";:210:22:958:730+" DISKEDIT IS COPYRIGHTED BY: SOFTKEY PUBLISING POB 110846 TACOMA, WA 98411 BLITY PROGRAM"+5:X132:"-";:::*,22:"INSERT DISK -- PRESSF(1)192:F(2)128:F(3)128:F(4)64:F(5)64:F(6)0:F(7)0:F(8)64O*G$(7)*8:"D I S K E D I T V E R S I O N 4 . 0":" COPYRIGHT 1981 (C) HARDCORE COMPUTIST":*5:X132:"-";:::6:"A DISK EDITING UTILITY PROGRAM"+5:X132:"-2103)NC2099)FI(FL)9)NO(2106)(2107)256})IO2111:MV2114:HX2117:ED2120:BI2123:FR2126:TT2129:XC2135)HP2141:AP2144)F$(1)"INV1":F$(2)"INV2":F$(3)"FLS1":F$(4)"FLS2":F$(5)"CTRL":F$(6)"NOR1":F$(7)"NOR2":F$(8)"L/C "C*S RETURN TO CONTINUE";:2105(4LAST CHANCE TO PRINTF(>KY2082050_(HEXIT BINARY ROUTINEt(R:35,24:0:730(\DEFINE VARIABLES(fRD1:WR2:LI2(pSL2071:DR2072:VO2084:TR2074:SC2075:CM2082)zNM2091:FL2101:EF2094:HF2095:CS2100:BF KEY? = 20 LINES&'KY1411900A' KEY? = 1 LINEX'KY160A21:1920x'KY213İ140:1550:1:1890'KY2081970'PRINT SCREEN'140:LKY' PRİ1760':KYL:PR:1890' PRINT EXIT MESSAGE(*"END OF BUFFER PRESBLE THE BUFFER'&N30:21:::KY(CS)<&XSTART AT CURSORQ&b58,KY:59,(BF)`&lA10:A221x&vSTART AT LAST BYTE&X1A2:(59)(BF):A11:(1152)160ĺ:2090&A1ĺ::2090&BI&& KEY? = EXIT&210:KY1552130'L%::6)"PRINT USING 80 COLUMNS (Y/";::"N";::"):";:50:N$"Y"LI1R%h%CALL FOR CATALOGy%&1002:1850%030::(4)"CATALOG,D"(DR)",S"(SL)16::FR:35,24:24:7:"PRESS ANY KEY TO CONTINUE ";:210:730%:216,0:240&DDISASSEMSECTOR#$CM,WR:420:CM,RD:TT:V$CLEAR SCREEN, RECONNECT DOS AND EXIT TO BASICt$::103,1:104,8:1002:$FIND PRINTER SLOT$30:12:" WHICH SLOT IS YOUR PRINTER USING? 1-7 ";:320:KY15ı$KY7İ120:1760$KYı%PRKY:LI20#TKY2516603#^A1KY:320:KY15KYA1:1660^#hA2KY:N$;:390:KY0KY255ČTT:1590}#rCALCULATE NEW CURSOR POSN#|CS,KY:MV:TT:#CHANGE SLOT NO.#22:4:320:KY15ČTT:#KY1KY71680#SL,KY16:TT:$WRITE A TRACK/025516LI:NM,X:HX:5:"-";D"A116LI:2091,(A1XA):HP:i"A116LI:2091,(A1XA):AP:q":|""0:80",*** JUMP CURSOR ***"622:32(HF):320:KY15ČTT:"@A1KY:N$;:320:KY15KYA1:1660#JA2KY:N$;:390:(HF)166> TO EXIT";$!ED:23:1:958:80;!TURN SOUND ON/OFFU!G$;:G$(7)G$"":c!G$(7):!*** PRINT HARDCOPY ***!PRİ1760!30!A1(BF)2561!PR:!"TRACK: ";:NM,TK:HX:" SECTOR: ";:NM,SE:HX:" VOLUME: "(VO)"X"OFF";:A0 (NOFI,A4 2RESTORE SCREEN, EXITC <X1500:L F730k P++EDIT++ MODE ENTRY POINTw ZFI0ı d24:2::"++EDIT++";:NC,0:1410 nEDIT MODE ENTRY POINT x24:2::">>EDIT<<";:NC,1 :12:"MODE";: !" PRESS ";F(CGX)F1!TS(TR):SS(SC):TKTS:SESS7 XC:KY(225)192NKY5KY211380b KY0KY26750*KY100,1870,1830,100,1400,840,1450,100,100,100,100,100,100,100,1590,1480,100,420,1680,100,100,100,1720,1740,100,100:7504G$;:750 >*** DEFINE F710PRINT 40 "="'S/X140:"=";::IPRINT SCREEN PROMPTSQTTmREAD OR WRITE A SECTORuIOPRINT BUFFER TO SCREENMV:COMMAND PARSER216,0:TT:35,24:23:1:958:(EF)0İ240SAVE CURRENT TRACK/SECTORK FOR VALID SECTOR#8XA2KY:390:KY0KY15ĺG$;:520UbSAVE OLD SCT#, POKE NEWplSSSE:SEKY:SC,SE:TTvIF WRITE THEN LAST CHANCE(CM)WRĢ24:2:"PRESS RETURN TO ->";::"WRITE";::"<-, ESC TO EXIT"G$;::16368,0:210:KY14180SAVE OLD TRK#, POKE NEW5TSTK:TKKY:TR,TK:TTKGET SECTOR VALUEx22:21((HF))2:320:KY15KYSE:620CHECK FOR HEX I/O(HF)620&SAVE KEY0KY1620:GET ANOTHER KEYDA1KY:N$;:320:KY15KYA1:620NCHECC NO.(HF)KYA116A2:1KYA110A2:FGET TRACK VALUEo22:14(HF):320:KY15KYTK:480(HF)KY2480KY3480A1KY:N$;:320:KY15KYA1:480A2KY:390CHECK FOR VALID TRACK#KY0KY34ĺG$;:420F,0:35,24:MV:80-PROCESS HEX/DEC INPUTPKYKY176:KY0KY22KY128:v"KY9KYKY7:KY10KY15KY128|,6GET HEX OR DEC ONLY@50JKY141ıT280^KY128İ120:320h(HF)KY9İ120:320r|CALCULATE HEX/DEY(1025):280:A1KY:KY(1026):280:A2KY:KYA116A2:TGET KEY WITHOUT PROMPTqKY(16384):KY12821016368,0:HANDLE AN ERRORA1(EF):30:12:12:A116ĺ"UNABLE TO WRITE":260"DISK DRIVE ERROR"G$G$;:X11000::EO CMD PARSERd10621:7508nMAKE NOISE AND RETURNExG$G$;:\FIND BINARY STARTq(1024)164190FOR DECIMAL NUMBERA1(1024)176:A2(1025)176:A21İ400:A1KY:A2(1026)176:A21İ400:KYA1:FOR HEX NUMBER8K + L/+ $L 2 ::2150:750ICLEAR TEXT WINDOWX35,21::w(GET CHARACTER WITH PROMPT216368,0<N$:KY(N$)128:KY155ıFRESET ALL DEFAULTSPTR,TS:SC,SS:CM,RD:TKTS:SESS:TT:MV ZCLEAR STACK, GOT$`mhdddmH(Ȣh mHm(h (`#mr X J   b b  b   *H L hJJ l JJJJJ)eɀ0ɠ lКʆ`­++JJJJJm+L@@ jLɠ3/ kLkLBi ۰ mimi4 4 Lɰǰ ɺ)`4 H  oh o܍o`4 <0` 4 m(`+H/*m(hHJJJJ ɺi(h) ɺi(Ȅ LSɎ iLSɌ i LSɍL ɕL ɈLɑLɚL8j`Ʉ4 L) Ɂ4  44L) k`jk50 5 )  ɛ05knn`nJɠ jkL Tj 4 L4  4 4L) 4L) 48 i4 k2` 4i ii4L)nL ,-r ʎr ) 轕 轖HH` 7  Xħ P ՙ ?n8ɉ @iLSɆ i  r ( r ($ r (4 r (#5 (ȹr (%nc ((`   / /ʎ/L L 8鰍5L) pʎqʎ L) pqߢA@@@; C K S  [ c  k  s # { + 3 ,- r (JJJJ (ȹr ( (ȹr (4 0: 9L ɺi((h)4 0: 9L8 ɺi((llБo(%&((((`ȹ  $ `ƠӠ+JJJJJ)e)` `L @ :+ $  J S:;`5 % %%% '(L ((((PPPP _ (i&` )'`ʽ 4L %` '4AN[hu % l H4o &&hoDHJJJJ#2067:10:Ls`' ` LL) LL~L Lk L L L]L LLL ```# HIHȱHgh` #.`              ԍōĤҤԢſĤ΢ĤŢԲĤŢč΍נРҍ˽ԽԽӽĽҺԽ³´¶³´¶˨˩α˽˨˩Խ˨ԩϱźԢŢčҤĠӮج  αԽ˽˫ƽ˼α˼αźԢǠϮˮϠӠΠ٢č˨ҤĠӮРҍ˽ԽԽĽҍԱ˺´³ϵ´±ԽԫԼααԽ˽˫˼α´˽ԱԽ³´±ԽԫԼ Ԡҍ˽ԽԽӽĽҺԽ´¶´¶˨˩α˽˨˩Խ˨ԩϱźԢŢčƽ˼α˼αźԢŠȠ٢čĠҍ˽ԽԽĽҍԱ˺´´±ԽԫԼααԽ˽˫˼α´˽ԱԽ´±ԽԫԼαԽ˽˫ ``'`حJJJJLԩLLhhߚHH`Hh`5()$ $ \ŭ^ɭ]"((ERR4A$"DRIVE ERROR"82(ERR8A$"READ ERROR"M<(12:450:(7):" SUPER IOB IS COPYRIGHTED BY: SOFTKEY PUBLISHING POB 110846 TACOMA, WA 98411 0)(41)256(36))128)#'A$;:3'DISK ERROR`'ERR(222):ERR15ERR254Ĺ216,0:822:'ERR254ĺ"TYPE AGAIN PLEASE:"::(ERR255ij (ERR0A$"INITIALIZATION ERROR"(ERR1A$"WRITE PROTECTED"(ERR2A$"VOLUME MISMATCH ERRORNSERT DISKS IN PROPER DRIVES.":470::1000D'GET SLOT AND DRIVE#p'450:::10)"SLOT=>"S28)"DRIVE=>"D2;'16:B$"7":10180:S2(A$)'32:B$"2":10180:D2(A$):'GET A KEY'A$:(A$"1"A$B$)A$(13)10180'A$(13)A$(((4B151:HX$"000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F202122"j'8::A$"ORIGINAL":S26:D21:10140:S1S2:D1D2t':::D2(D21)1:A$"DUPLICATE":10140~'A$"FORMAT BACK UP FIRST? N"(8)::12:450:A$:A$"Y"İ380+':A$"IINSERT SUPER IOB DISK":450::::A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$wB':(4)"BLOAD IOB.OBJ0,A$300"L'TKSTVLCDDVSO:RD1:WR2:INIT4:10220V'IO768:SLT779:DRV780:VOL781:TRK782:SCT783:BUF787:CMD790:OVL792R`':DOS16:MED FOR IT TO WORK PROPERLY."a"PLEASE REFER TO THE DOCUMENTATION ON SUPER IOB. THANK YOU."g'CONFIGURATION TIME'BLOAD RWTS HERE$'(768)(769)50710060.':A$"* SUPER IOB *":450:::A$"CREATED BY RAY DARRAH":450U8'10:A$"R254CDRD10230':ERR15Ĺ216,0:QD(7);:BUF,(BUF)1:(BUF)MBBF1WNpXR/W A RANGE QUICKLYb0:0:860,MB:861,LT:862,LSlCMD,CD:TRK,TK:SCT,ST:430:863:1002::12"SUPER IOB NEEDS TO HAVE A CONTROLLER INSTALL1:CDRDA$"INSERT SOURCE DISK.":SOS1:DVD1:510\A$"INSERT TARGET DISK.":SOS2:DVD2tD1D2S1S2İ470:1:1:39);::A$"READING":CDWRA$"WRITING"450::80ONERR IGNORE UNREADABLE SECTORS&822:ERR(222)0ERR255ERCTOR#K3:10:"TRACK $"(HX$,TK21,2)" SECTOR $"(HX$,ST21,2)" ":_CENTER MESSAGEv21(A$)2:A$;:PRINT MESSAGE AND WAIT:11:450:13:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$:TOGGLE READ/WRITE3CD(CD1)z#pψӠ Ϡ Ȯʠ ӠҠ Ԡ ΠҠ͈ΈӠϠҠ ʈˈӠ̈ ŠԠ& ŠҠŠˠҠ LjȈӠɈĮΠԮΠЮΠ ЮΠ îҠҠ ĈňҠ ƈ"Ҡ ®ʰ ҠҠ ˆԠӠÈîҠ ]îŠҠ- îŠˠҠîӠҠ îԠ5ԧӠҠԠ àҠʮŠ îŠʮŠŠԠ ]ȹ]ȹ]ȹ]' .h`H/ ]]]]' h`((((PPPP e` F`   e`H 0h`hhh `H 0h`hhh`   X  ` Le   `  (`Ѕ e  (``H 7Ɉ ɋa0 @L Lɕ Ɋa0 pL Lɛ``          * `       F  `  `     e` e` `   %   F L LsL Mɠɍ8`L')L/LD L    `    ۤ L ɛhh`ة   ` e CHX::4%RUN PROGRAM7LOAD PROGRAMOREAD DOCUMENTATIONhPRINT DOCUMENTATIONzEXIT PROGRAM5SUPER IOBDISKEDITTHE NIBBLER CORE DISK SEARCHERDOS ALTERERCONTROLLER WRITEREA1281030A$(A128)*$16368,0=.A$(13)1180O8A$(27)260qBA$(8)A$(11)XX1:1120LA$(21)A$(10)XX1:1120V1030`X0XCLjCLXX0t:11Z2:21:CH$(Z)~:11X2:21:CH$(X)ZX1030RMCL730 z0,CLLMRM:6144<0,LM:6,TM:8,PLTMBMI5,TMBMYD$"PR#";SLc6147sD$"PR#0"::8:25"NAMES"21:"--------------------";I0CLI0Ğ:21:CH$(I):IX0:ZXA(16384) OP MARGIN=";TMTM07605 "BOTTOM MARGIN=";BMCBM0780Z "LEFT INDENT=";LMh*LM08004"RIGHT INDENT=";RM>RM0820H"PAPER LENGTH IN LINES(USUALLY 66)=";PLRPL0840\"PRINTER IN SLOT#";SLfSL1SL7860 pLM 950 FL1ı+ D$;"LOAD ";CH$(CH)> FL1:610:FL0e D$;"BLOAD DOC.";CH$(CH);",A$2000"o 0,40 6144:6150: FL1:610:FL0 D$;"BLOAD DOC.";CH$(CH);",A$2000" : "MAXIMUM CHARACTERS PER LINE=";CL CL1740"TNOXX0 :11Z2:CD$(Z)5 :11X2:CD$(X)= ZXF 390T NOXĝ:m X1560,610,670,710v &260 0I15 :CH$(I1)NO$(I) DI NCL4:950 XD$;"RUN ";CH$(CH) bI05 lCH$(I)NO$(I) vI xCL4 {FL1CL5J"-------------------"$ TI0NO1 ^:I0Ğ? h:CD$(I)F rIR |X0:ZXb A(16384)q A128390 A$(A128) 16368,0 A$(13)530 A$(8)A$(11)XX1:470 A$(21)A$(10)XX1:470 390 X0XNO  NO$(NN) I0NN# NO$(I)* I4 ::e "----------------------------------------";k  "14:"STARTER KIT II" ,4:4:"COPYRIGHT 1989 SOFTKEY PUBLISHING" 6:"----------------------------------------"; @8:6)"COMMANDS" % n:::255::0,(115):1,(116)D x:(4)"BLOAD OBJ.LINE 10"y (4)"BLOAD OBJ.TITLE SEQUENCE":HM(0)(1)256 (4)"BLOAD PIC.TITLE":768 D$(13)(4) D$;"BLOAD DOC VIEWER":NO CD$(NO) I0NO CD$(I) I NN _ 20:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXh80(4)"OPEN START":(4)"READ START"2A$:(4)"CLOSE START"FA$"N"150P(4)"OPEN START":(4)"WRITE START" d"N":(4)"CLOSE START"     묠Ӡ󮍠׮嬠嬠堨é ӧ٠۠ [ ¿ ԠӠө                              ΍G (&)i#' '&(0 I0``Y ɍ !fi# ٠Ǡ`,  0,*Р Ժ& T;  `4'ԧӺ JJJ&)-    __ 20 $ ,ɈTɕ&ե!iT ` 련멠嬠 堢좠婠䠢墠䠢򮢠󮍍 砢΢ɠ®嬠堢򢮍àԮ΍ 󠱰栱蠹򮍍ĠҠ®à堢¢Ӡ멮à Ԡ 뮠סӬŠΠӬŠԠŠˠՠŠǡϠӠϠĠԠ̠Ү뮠嬠 鍠¬Ӡ멠ӠӠ묠Ӡ뮠ᠢ򢬠  à䮠砢뮍 묠 卍 ᠢ좠îӠ栢򮢍ᬠ嬠󍪠󍪠Ӡ󩍪卪򠱶  ⬠䬠䢠報򺍍宠䠨 ˠԠԠ󠱮ĠҠ宠䠠報͠à󮠱ŠȠ٢č򺍍󮍍ƠΠԠˠˠƠˠԠΠ ˠԱԠ  ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠ͠ĠҍˠԠԠĠҍԱ˺   ԠԠƠԠӠΠ뮠󩮠䮠讍 򍍠 ﮠ 뮠宠򠹠嬠뮍⩠堢宠堨 ⮍᩠ 묠䮠宠 뮍롍砨Ӡ嬠栲󩮠宍讠쮠ήΠΠ󮍍 婠뮠嬠٢砢΢Ω𠱱 報堲뮠堲報箠嬠Π  ˠԱԠ  ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠŠȠ٢č͠ŠԠҍˠԠԠĠҍԱ˺ Š     ԠԠƠԠӠΠƠƠΠԠˠˠƠˠ®  報멮ݱ  ˠԱԠ󺍍ݵ뮠묠宠ݱԱ˺ Š   ƠƠƠƺƠƠݵ䬠Ƞ䮠Ůݵ堨 ݱԱ˺ Š  ĴĠĴĠ嬠ĵźĵŠ 報󺍍ݱԱ˺ Š  報䠢󢩮¬ŠӮ 뮠Ӡ 報䮍Ĭ堤Š溍󠠠󠠠ᠠ堠堠堠卭ĵŠƠĴĠƠƍɠ䠨栢򢩠堤ĵ堤Š堤ĵ련멬󮍱Ϯˮ  뮍묠䬠宍򺍍宠堨 련Ա򠰮  뮍쮍󮍍 䬠Ӡ𠶮 嬠Ӡ󮍍Ԡύ  ӠӠ報ӠӠ󮍍𺍍ӠϠ宠ӠӠ뮍¸͍ öǍӠ 뮍ŠӮج̤¸ƠӠӠ宠Ӡ뮍堢̠嬠砨䩬砼à箍ӍӠ䠢Ӯ䬠Ԡ 報͠ĠӠŮ堨ĠӮ宠  렳Ӡ뮍  ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠŠȠ٢čԠҤĠӮآҍˠԠԠĠҍԱ˺    ԠԠƠԠӠΠƠƠΠԠˠˠƠˠԠΠ  ˠԱԠ멮 ӠӠӠ 򮍍͠РӮӠӠ ӠӠӠ 󮍍򍍠 §栢栧묠嬠󺍍͠ԠҠԠҍˠԠԠӠĠҺԠ  ŠԱ˺čӍ䬠󮍠蠢Ӣ蠽ˠƠˠԠΠ  ˠԱԠ  ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠŠȠ٢렱򠲬堳栴͠ҠԠҍˠԠԠĠҍԱ˺   ԠԠƠԠӠΠƠƠΠԠ䮠堨멬 ᠢ򮢍򍍠 䠠˩ԩˠԠ 忩ˠ堨  堨 련 䠨Ơ˿ԬӠ󠱠렳򠰠󠱠렳򠱵Ԡ§䮍䮠嬠卍ˬԠ䠨򱰠ˠԠԠӠĠҺԠ    Ơ˨ˠԠΠˠ˨ˠԠ˨ԠϠŠԠŢč򮍠謠ﮍ堢򺍍͠ԠҍӮ堨ӠӠ멠 䬠򮍠򍍠 묠򮳮堢Ӡ젢宠箍獍宠ɠ宠䮍宍ᠢɬʬˬ͠嬠뮍򍍠砢Ԣ쮠뮍ᠱˠ묠뮠䮠 +򍍠             䮠 堢ĠҠ¢堢â򩮠 堢΢宠堢Ģ򩮠䬠堨堢àŢ嬠򩮠堢Ȣ䮠 堢ĠҠ¢堢͢®墠򩮠堢΢ 箍嬠堢ΠҢ堢ĢԠ卍嬠 堢ĠҠ¢堢â¬Ԡﮠ쬠堨婠堨婠ﬠ報嬠Աˠ笠ˠ󮍍ˠˠˠ ˠԱ  ƠˠˠԠΠˠˠˠԠˠԠϠŠԠ٠ŢčӍ򮍠嬠Š¬堢墮宠Ӡĵ󠢴嬠묠묠 ®Ӡ䮠庍蠠亍砠庍蠠栤蠢뮠묠䬠堧ħ䠢碬笠墮宩묠묠堨䩠ĵ䬠ᠹӠ䮠栢Ƣ뮠ĵӠƍ卍䢠ᠢ䢮ᠹРŠƶĵĵĹ򍍠嬠Ӡ򮍍ԽȽթŽ˽Ӡ󠶴Ӡ󮍍Ӡᮍᠢ𮍠䬠宠䬠墠砱箠場򮍍ž箠箠䮠庠려󮍠䠨䩠砢Ţ䮠ᮠ䠨䩠砢բ箠쬠嬠Ġﮍ箠砠󮍍Ԡ뮠ᠢӠ 򮍍Š򮍍̾Ҡ뮍ɬʬˬ͠̠ɬʬˬͬ嬠䬠¬Ӡ򠠠ĵĠ󩮮Š嬠ƠӠө󺍍亍堨쩠멠㩠멠卭ĵŠ亍堠ᠫ卭ᠢ墠Š®䬠®򍍠橮堶뮍Ġ䮠ĵĠ堢墮堳Š堨©Ӭ箍䍍ĵ穮䮠󮍠堢䬠栱묠멮䮠묠ή䬠䮠嬠堢ĵ󮍠Ӡᠢ٢ᠢ笠䠨Ӡ堨婠퍍ӠάӠŠɠ뮍Šө bŠ򍍠뮠      î䮠嬠Ӡ嬠묠󮍍̾Р䬠򮍍à宠堳宍젴蠨䩠堨ĵĩ䬠󠴠蠶󍍸󍍹Ӎà󮍍ﺍ󍍲󍍳󍍴󍍵堢墠卍󍍷Ӡ嬠Π롍ӠҠҠΠˠ뻠嬠ɠάӠ鍲Ӡ뮍Ӡ堨ĠԍàӠ宍΍Ӡ宠亍ӠΠӠҍ󮍠Ӡ嬠 Ӡ򍍠Ӡӧ뮠Ӡ       Πɠ쮍䮠堨堢Ţ려ũΠ笠à󍍠򠳮󩬠廠䠨󩮍Ӡ箠좮Ӡ堨ɬ堨ɬ쮠ˢˢ䠢ˢ讍堢ɢɠ䠢뮠庠荢ע蠢ˢ栢堢ɩ砢תˢӍӠ뮠ĬӠ𮍍Ӡ宍ӍӠ讍Ӡ뮠嬠䬠宠묠箍卍뮍笠ᠢ󮍍덍뮠䮠Ӡ󍍠Ӡ뮠Ӡ卍󮍍󠢴쬠â󮍠ӧ䮍󍍠䮠婠à󍍠Ӡ뮠ﮠΠ宠쮍ӠĵŠĵĮŠᩬӠ󮍠Ӡ쬠宍쮍󠱠䠲󍍠련ԩ䮍堧려ө̩堨ҩ덨ԩө堨֩©Ʃ堨ة䮍獍堧ҧĠ뮠報󿍍̠󮍍򍍠Ӡ宠庍Ԡˠԍ䠮䬠宍쬠嬠묠쮠󮍪󮍍ɠ宍Ω󮍪󮍪󩮍󮍪󮍪󮍪󮍪îŠ䬠뮠뮍󮍪 3􍍠Ӡ򩮠򮍠             !!! ! ! ! ! !!!!!!!!!""" " " " " ""宠嬠ɠ렰򠰮ӠӠ  뮍ӬàӠӠӠӭà宍ӠàӮԠŠ뮠קŮ堧קΠɠΠΠΠǠǍננҠҠΠΠɠΠΠǠǍננҠҠΠΠɠΠΠǍ󮍍堧ç嬠Ԡȧ獍ננҠΠΠɠΠΠǍננҠҠΠΠɠΠΠǍנננҠΠΠΠﮍ堨堧ɠ姠Ԡ嬠䬠堧ŧ堧çԠ宍󠧰Ϡ뮠堧ᠧ宠堧獍堧ŧ򮍠堧çԠ宠堧ϧ堧ç堧砧ʧ堧Ӡ䮠堧䮠堧©򮍠砧ŧ堧ħԢ蠠ɬʬˠ͠宠嬠宍堧ϧ쬠嬠嬠宠穠堧Ƨҧ堧䠧Ƨ򮍠려򠤰Ӡ堢Ԣ뮠ҧ䮠堧䠧򮍠àɠ堧ԧӠΧ䮠묠宩Ƭ堢퍍堢䮠宍󍍠砨Ӡ򠤰堧Χ砧려򠤰ɠﮠΠ宠䮠ΠŬ宍ؠՠ묠Ԡנ宠䬠場򠸰󮍍Ҡ䮠Π󮍍Ӡ̠򮍍Π򮍍Ϡ򮍍Р묠䠮󮍍Ǡ堧ǧԠɠ𮍍ʠˠ͠î䮠󠨫宍Ơ̠占Ѡڠ􍠠􍍫󠨫堧Լԫɠà̠ƠȠ占ɠŠ占Π뮍Ġ󮍍Š嬠Π堲Чàà宠򮍍䮠Į򮍍 䮠宠庠䬠Π䮩䮠Į宍à堢ɠ䢠宍Π뮠堧ç箠䠨렧婠堧宍宠䮠䮠Π뮠ή련ԩө󮍠Π䮠Q |A$"VOLUME NUMBER FOR COPY =>254"::450:32:"";VL$:VL(VL$):VL$""VL254f VL255VL0380 CMD,INIT:SOS2:DVD2:A$"INSERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):470 80::A$"FORMATTING"::450::IO:VL0:PRINT TRACK & SE: ,THE SECTOR EDITOR9 6A$:(A$,7)"CHANGES"310U @A1(A$):A1,A2,A3,A4j JA1T1A1TKĂ: T9984(A1T1)4096(FAST15A2)256A3,A4:: ^SWAP RWTS AT $1900 WITH THE ONE AT $B800 h253,25:255,184:224,8:832: rFORMAT DISK56,A3: NORMALIZERG 47505,222:47515,170:47413,222:47423,170w 47445,213:47455,170:47466,150:47335,213 47345,170:47356,173:47360,0:47498,183: IGNORE ADDRESS CHECKSUM 47498,0: ALTERED DATA CHECKSUM "A1:47360,A1# 16 SECTOR RWTS ALTERATIONS= ALTERED ENDING MARKSx A1,A2,A3,A4:47505,A1:47515,A2:47413,A3:47423,A4: ALTERED ADDRESS MARKS A1,A2,A3:47445,A1:47455,A2:47466,A3: ALTERED DATA MARKS A1,A2,A3:47335,A1:47345,A2:473L,VL:SLT,SO16:! ZR/W SECTORe dBF0:TRK,TK:SCT,ST:CMD,CD:IO:BUF,(BUF)1:(BUF)MBBF1k n~ xMOVE S PHASES 49289SO16DV,0:49289SO16,0:APH(PH4)4:1144,128A:811,128SA:813,SO16:810:49288SO16,0:PHPHS:PH0PH0  ************************=** SUPER IOB 1.5 **[** BY RAY DARRAH **y(************************2SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983:10010FINITIAL IOB SETUP PBUF,39:DRV,DV:VO""""""     Π堢آӠŠŠ뮍à庍̠Ϡ͍󺍍ΠԠԠ󮍴͠堰à宍ɠ퍍宠Ӡ뮠砧Χ뮍ǺΣ堢Σ堳庍묠򍲩묠򍳩덍󠧷렱쮠렷堧ֱǺҲ˧Ǻֱ򠨱宠򠨱堧Ƨîɠ󍍠Ʃ䮍堹