' +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-(M 'ԠҠԠɠ@跻~!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`+) +( + X  PRV 2U0., 0 1  1 ! 1  ! /  -   /         ҩ -  /  -  Lu,(H h`0` H hc (ڠ0HV H),hJJJJ  h`hYJJ;;;;;JJYhx_EDEDEDEEDxDDDDEUUmEԠҠִЍԍōĤҤԢſĤ΢ĤŢԱĤŢč΍ XʽibicL` 1 1< = UbȑbE<)B8$ J A & ɃHɠɛ Ubȑb DEC CONV.& POKEKSR$ IS STRING TO BE POKED[A0:B0:C0tL(SR$):A$(SR$,2)L2B$(SR$,3,2)L6C$(SR$,5,2)A1$(A$,1):A2$(A$,1)B1$(B$,1):B2$(B$,1)C1$(C$,1):C2$(C$,1)! I127)ı(\A$(8)(A1$)1A1$"":2120JfA$(8)(A1$)0ĺ(7):2120spA$(8)A1$(A1$,((A1$)1)):2120z(A1$)ALA$(13)ı(A1$)ALA$(8)ĺ(7):2120((A$)48(A$)58)((A$)65(A$)70)ĺ(7):2120 (A1$)ALA1$A1SLOT # =>";SL15:11:A$0A$(13)2050J(A$)6(A$)12010WSL(A$)6:20::"PRESS OR =>";::A$:A$; A$(27)ıA$(13)2090 2050*4GET A STRING>A1$""HX:Y:A1$;:A$RA$(lA$(13)(N$)11950>vA$(8)N$(N$,(N$)1):1850bA$(8)N$(N$,(N$)1):1850{A$(13)N$""1850N$N$A$:18506:9:"DRIVE # =>";DR16:9:A$A$(13)2000A$"2"A$"1"1960DR(A$) 6:11:"XIT PROGRAM (Y/N)?";A$:/A$"Y"ĉ::?A$"N"230I1790g&GET FILE NAME,DRIVE,SLOTm0:6:7:"FILENAME =>";N$;DA$:A$(27)ıNA$(8)(N$)1N$"":1850XA$(8)N$(N$,(N$)1):1850b(N$)25ĺ(7):1850 ERROR" 2ERR6A$"FILE NOT FOUND ERROR"LERR8A$"I/O ERROR"jERR11A$"SYNTAX ERROR"ERR12A$"ERROR"A$" IN LINE #";(219)256(218):(7):20:4:"PRESS ANY KEY =>";:A$:230ESCAPE AT MENU8:6:"E'@:D$"CATALOG,D";DR;",S";SL;",V";VONJ::22:"PRESS ANY KEY =>";:A$:TTp^ERROR HANDLING ROUTINEhERR(222)rERR15ERR254Ĺ216,0:A$"ERROR":1740|ERR254ĺ"TYPE AGAIN PLEASE:"::ERR255ijERR2A$"VOLUME MISMATCH(SD$,3,2):"B85D:";(SD$,2)D"B935:";(ED$,2):"B93F:";(ED$,2)l"B89E:";(ED$,2):"B8A3:";(ED$,2)"BC60:";AS$:"B83E:";DS$RS$"IGNORE"ĺ"B942:18"CH$"IGNORE"ĺ"B98A:00"D$"CLOSE ";N$2450",CATALOG DISK6$,3,2):"B96A:";(SA$,2)T"BC7A:";(SA$,2):"BC7F:";(SA$,3,2):"BC84:";(SA$,2)|"B991:";(EA$,2):"B99B:";(EA$,2)"BCAE:";(EA$,2):"BCB3:";(EA$,2)"B8E7:";(SD$,2):"B8F1:";(SD$,3,2):"B8FC:";(SD$,2)"B853:";(SD$,2):"B858:";ATE TEXT FILE"::34,4/P1830:GET FILE NAME?ZA$(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$"CALL -151""B955:";(SA$,2):"B95F:";(SA6:8::"S";::"ET / ";::"I";::"GNORE =>";KA$:A$:A$(27)ıeA$"S"A$"I"1240A$"S"CH$"SET":1310A$"I"CH$"IGNORE" 47498,047498,183(2CREATE EXECABLE FILE<:A$"":N$""F4:9::"CRE$"2"1090jDR(A$)0t6:9:"SLOT =>";SLP~13:9:A$:A$;:A$(27)ı`A$(13)ız(A$)6(A$)11150SL(A$):IGNORE ADDRESS CHECKSUM12:4::"KILL ADDRESS CHECKSUM"::34,46:7:"CURRENTLY =>";CH$38:10:"ALTER TO =>";22100:A$(27)1050>DS$A1$YSR$DS$:AD47166:2220_v$CHANGE SLOT,DRIVE|.89:4::"CHANGE SLOT,DRIVE"::34,4B6:7:"DRIVE =>";DRL14:7:A$:A$;:A$(27)ıVA$(13)1140 `A$"1"ADRESS SYNC BYTE"::34,436:7:"ADDRESS SYNC:"U8:9:"CURRENT VALUE =>";AS$p8:10:"ALTER TO =>";2100:A$(27)980AS$A1$SR$AS$:AD48224:2220:AL2:X19:Y106:7:"DATA SYNC:"8:9:"CURRENT VALUE =>";DS$8:8:"CURRENTLY =>";RS$M>9:8::"S";::"ET / ";::"I";::"GNORE =>";aHA$:A$(27)ıRA$"I"RS$"IGNORE":47426,24:\A$"S"RS$"SET":47426,56:f840pzALTER ADDRESS SYNC BYTE:AL2:X19:Y109:4::"ALTER ADCD47356:2220:AL436:7:"END OF DATA:"U8:9:"CURRENT VALUE =>";ED$p8:10:"ALTER TO =>";2100:A$(27)780ED$A1$SR$ED$:AD47413:BD47423:2220 IGNORE READ ERRORS *:4:6:"READ ERRORS:":4 X b% lALTERED DATA MARKERSO v9:4::"ALTER DATA MARKERS"::34,4d Y10:X19::AL6 6:7:"START OF DATA:" 8:9:"CURRENT VALUE =>";SD$ 8:10:"ALTER TO =>"; 2100:A$(27)710 SD$A1$SR$SD$:AD47335:BD47345:2100:A$(27)520 SA$A1$L SR$SA$:AD47445:BD47455:CD47466:2220W :AL4t 6:7:"END OF ADDRESS:" 8:9:"CURRENT VALUE =>";EA$ &8:10:"ALTER TO =>"; 02100:A$(27)590 :EA$A1$ DSR$EA$:AD47505:BD47515:2220 N1 OP430,620,790,890,1060,1200,1580,1330,2940: 230@ ] ALTERED ADDRESS MARKERSm :Y10:X19 9:4::"ALTER ADDRESS MARKERS"::34,4 6:7:"START OF ADDRESS:" 8:9:"CURRENT VALUE =>";SA$ 8:10:"ALTER TO =>"; AL6: ALTER SYNC BYTES"5 @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" r6:18:"OPTION # =>";:OP$: |OP(OP$) OP$(27)176023:"ADDRESS END:";::EA$\ :24:"DATA HEADER:";::SD$;::23:"DATA END:";::ED$;:i 35,22: 6:6:"OPTIONS:" 9:8:"1) ALTERED ADDRESS MARKERS" "9:9:"2) ALTERED DATA MARKERS" ,9:10:"3) IGNORE READ ERRORS" 69:11:"4)2d DOS ALTERERn+x BY@ J.J. GIFFORDF\ COPYRIGHT 1986tSOFTKEY PUBLISHINGzGOSUB INITIALIZATION2450MENU:::"THE DOS ALTERER":34,1: 23:"ADDRESS HEADER:";::SA$;::                  L` { 륡 { 륡 { 륡뷩  `kȱkȱkȄ$ `ʈ`ꩤ Ln08` 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()$ $ \ŭ^ɭ] BNITIALIZATION ERROR"4(ERR1A$"WRITE PROTECTED"Z(ERR2A$"VOLUME MISMATCH ERROR"v((ERR4A$"DRIVE ERROR"2(ERR8A$"READ ERROR"<(12:450:(7): " SUPER IOB IS COPYRIGHTED BY: SOFTKEY PUBLISHING POB 110846 TACOMA, WA 98411 z#   Ԡ Π  ŠҠ ŠˠҠ Ȯʠ ӠҠ  ĮΠԮΠЮΠЮΠŠԠ&  îŠҠ-îŠˠҠ îӠҠ"РҮԠ" Ҡ  ®ʰԠҠԠɠ ʮŠîŠ ʮŠŠ ʮàҠîҠ XîԠ5,*Р Ժ& T;  `4'ԧӺ JJJ&)-__ 20 $ ,ɈTɕ&ե!iT `):767A,((NM$(X),A,1))::HMLX767A,13:(4)"EXEC SOUP STARTER.KIT":AA110::613::"COMMAND:>";::"4 ";::"<";o16384,128:A$:(A$"A"A$"E")A$" "A$""540&A$" "5800A$""90::A$"";::X(A$)59:540D:"INSTALLING "NM$(X)::"AFTER THE DRIVE STOPS, TYPE RUN"NA1(NM$(X)A PROGRAMA$"LOAD":480/RUN A PROGRAM<A$"RUN"t:A$(78(A$"RUN"))"ING "NM$(X):HM:(4)A$NM$(X)INSTALL A CONTROLLERX2ĺ(7);:17016:33,35:32,5::"STANDARD FAST SWAP"14)" NEWSWAP";:32,0:" ":30) :4:20:A$:A$"0"A$"6"330G|A$;:A(A$)10:A$:A$"0"A$"9"330cA$;:AA(A$):A0330zAD801:APAD852B1(AP):X(0)(1)256B99:430A111:AD::PP(AD801)(AD852):252,16(P10)P(P10)10:330 LOAD (4)"BLOAD DOC."NM$(X):0,1:1,39:2,1:3,39V ,254,0:49167,0:252,1:A121:801:w 6X9983(43616)(43617)256 @5,X256:4,X(5)256 J2057:A$((16384)) TA$""90 ^A$"P"330 hP((252)16)10(252)((252)16)16r2250,450,470,500' READ DOCUMENTATIONL 255,0:A(64266):A240Ĺ255,64` A208Ĺ255,128 :22:"----------------------------------------ARROWS = MOVE"19)"P = PAGE"; 35,21::10:"LOADING DOCS FOR "NM$(X):(4)"BLOAD OBJ.DOC READER", "::C$;::"<";X 16384,128:A$:(A$"1"A$"4")(A$"A"A$"E")A$""A$" "170l A$""ģHM::| A$" "210 C$(C$,1)A$:160 A(C$)((C$,1)):A114A121ĺ(7);:160 (C$)64C$(C$,1)(C$,1) X((C$,1))64:(C$)NTATION"::"2) LOAD PROGRAM"P n:"3) RUN PROGRAM"::"4) INSTALL CONTROLLER" x33,38:32,2:::"OPERANDS:"::"A) DOS ALTERER" "B) SUPER IOB":"C) CORE DISK SEARCHER" "D) DISKEDIT":"E) THE NIBBLER" :"COMMAND:>";:C$" " 24:10BBLER,STANDARD.CON,FAST.CON,SWAP.CON,NEWSWAP.CONe 2(4)"BLOAD OBJ.TITLE SEQUENCE":HM(0)(1)256 <(4)"BLOAD PIC.TITLE":768 FA11300:(16384)127ľA$:A1300 P Z::10)"STARTER KIT MAIN MENU":: d"COMMANDS:"::"1) READ DOCUMEM _ 20:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX:::255::0,(115):1,(116)6400::NM$(9):A19:NM$(A)::(4)"BLOAD OBJ.LINE 10"0 (DOS ALTERER,SUPER IOB,CORE DISK SEARCHER,DISKEDIT,THE NI     卍 ᠢ좠îӠ栢򮢍ᬠ嬠򍠠󍪠󍪠Ӡ󩍪卪򠱶  ⬠䬠Ž묍Ӡ󮍠堉׮嬠嬠堨é ӧٍ۠'V ¿ ԠӠө                            `0`` &' $%&ɏɍ>Ƀ:Ɏ2,2$)$20$p ))? ))? и` e  e p   `   8H (&)''h8 H (&0'(ɍ8e  G (&)i#' '&(0 I0` `Y ɍ !fi# ٠Ǡ`,  0󩮍􍠠宠󍠠 占뮍쎍롎占砨占쮠占󍠠ήΠ􍠠占栲婍뮠嬠٢砢΢Ω𠱱 占䍠뮠뮠占占堲報箍嬠Π荠󮍷 덠 堢좠婠䍠墠占報򍠠堲󮍵 占썠򍠠 련􍠠멠󍠠 󠱰䠢򮢠򍠠®占à፠ɠ®󍠠嬠堢􍠠򢮍àԮ΍àԠ򍠠 栱蠹占占ĠҠ׮ӠŠԠŠˎՠŠǠͮ􍠠堢򍠠¢Ӎ􍠠멮뮠Ž嬠 뮠Ӎ멠ӠӠ뮠宍¬ᠢ򢩠 àӠ묠䮠砢뮍 묠 占獠련멬􍠠捠󮍱獠Ϯˮɠ 󍠠뮍䍠占􍠠묠􍠠뮍򺎍占宠占 占련Ա򠰮䍠 󍠠뮍捠쮍􍠠占䬠占宍䍠宠󍠠󍠠䠨䍠 󍠠 󍠠Ԡ􍠠󍠠덠󠱮ĠҠ䍠宠䢠報򺎍à󮍱占ˠ獠Ԡ獠󮍍危͍ ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠŠȠύ٢č򺎍ҍˠԠԠĠҍԱ˺   ԠԠƠԠӠΠƠƠΠԠˠˠƠˠԠΠ ˠԱԠ 䮠͠Ġ ﮠ뮍󩮠宠󍠠򠹍嬠占򍠠讍 򎍠 􍠠󍠠 䍠뮍占􍠠묠썠䮠썠뮍⩠堢􍠠宠占򠳮占嬍⮍᩠򍠠멮 ӠӠӍ 򮍍ӮӠӠ ӠӠӠ 󮍍򎍠 §  ˠԱԠ  ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠŠȠύ٢čˠԠԠĠҍԱ˺ ō    ԠԠƠԠӠΠƠƠΠԠˠˠƠˠԠΠ®  報멮ݱ  ˠԱԠ󺍱͠ŠԠҍ뮠묠宠ݱԱ˺ Š   ƠƠƠƺƠƠݵ䬠Ƞ䮠ݵ堨 ݱԱ˺ Š  ĴĠĴĠݵĵźĵŠ 報󺍍ݱԱ˺ Š  Ů䠢󢩮¬ŠӮ嬠뮠Ӎ報䮍報溍󠠠򠠠ᠠ堠堠堠卭ĵŠƠĴĠƠƍ 䠨栢򢩍堤ĵ卤Š堤ĵĬ堤ŠӮ堨Ӡ묠 䬠򮍠箍򎍠 𠶮 嬠덠Ӡ䍠堢􍠠Ӡ򍠠젢宠썠占Ӡ獠󮍸 䬠占Ӎ宍፠Ӡ占Ԡύ 䍠 占Ӡ占 뮍ŠӮج̤報Ӡ宍𺎍ӠϠӠ፠䍠Ӡ뮍¸͍􍠠 öǍӠ̠퍠¸ƠӠӠ宠占占䍠䠢򍠠󍠠뮍堢򍠠嬠獨䩬砼à箍ӎӠӮӮ䬠Ӡ뮍Ԡ 報͠ĠӍŮ堨ĠĠӍآ宍  렳􍺠 ˠԱԠ  ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠŠȠύ٢čԠҤ͠РҍˠԠԠĠҍԱ˺   ԠԠƠԠӠΠƠƠΠԠˠˠƠˠԠΠ                  ﬠ報嬠Աˠ笠ˠ󮍍¬ԠﮠˍˠԠΠˠˠˠԠˍԠϠŠԠ٠ŢčӍԠ󺍍͠ԠҠԠҍҍˠԠԠӠĠҺԠ  ŠԱ˺ˠˠˠ ˠԱ  䬠󮍠蠢Ӣ栢捧묠嬠燐 ԠԠƠԠӠΠԠˠˠƠƠĠˠԠΠƠˠԠΠŠԠŠȠύ٢čӍ򠽠ԠԠĠҍԱ˺   ԠԠƠԠӠΠƠƠΠԠˠˠƠˠԠΠ  ˠԱԠ 멬 렱򠲬堳栴͠ҠԠҍˠӧ።򮢍򎍠 䮠堨占퍠 忩ˠҠ󍠠련 􍠠占䠨Ơˍ˩ԩˠԍ󍠠§󍠠占䮍䍠堨 򍠠 占堨±󮍠ˬԠ􍠠䠨󬍠򿩮ԬӠ占󠱠덠򠰠󠱠렳򠱵ԠӠ˨ԠϠŠԠŢč䮠嬠厍ﮍ堢򺍍͠ԠҍˠԠԠӠĠҺԠ    Ơ˨ˠԠΠˠ˨ˠӠ멍򮍠謠Ӡ卢ˠԢ뮍ҧ䮠堧䠧򮍠àɠ堧ԧӍΧ䮠묠宩Ƭ堢펍堢䮠宍󎍠砨Ӡ򠤰堧Χ砧려򠤰ɠ련ԩ䮍堧려ө̩堨ҩ덨ԩө堨֩©Ʃ堨ة䮍玍堧ҧĠ뮠報󿎍󮍍򎍠Ӎ宠庍Ԡˠԍ̠䬍宍쬍嬠묠쮠󮍪󮍍ɠ宍Ω󮍪󮍪󩮍󮍪󮍪󮍪󮍪îŠ䬍뮠뮍󮍪'.3􎍍Ӡ򩮠򮍠򮍼䮠占Į󍠠 䮠󍠠򍠠򍠠堨庠򍠠䬠΍䍠䮩䮠占Į󍠠宍󎍍à堢ɠ䢍󍠠宍Π􍠠􍠠宠堧ç箠䠨렧婠堧宍宍䮠䮠Π뮠ή뮠ө󮍠Π䮠ō뮠קŮ堧קΠ련ԩ堧ç嬠Ԡȧ玍Ǻ莍󮎍ﮍ堨卧ɠ姠Ԡ嬠䬠堧ŧ堧çԠ宍Ϡ뮠堧ᠧ宠堧玍堧ŧ򮍠堧çԠ宠堧ϧ堧ç堧砧ʧ堧Ӡ䮍堧䮍堧򮍠砧ŧ堧ħԢɬʬˠ͠宠嬠宍堧ϧ©쬍嬠嬠宍穠卧Ƨҧ堧䠧Ƨ򮍠려򠤰묠򍲩묠򍳩덍펍宠ᠠ뮠砧Χ뮍ǺΣ堢Σ堳庍ֱ󠧷렱쮠렷堧ֱǺҲ򠨱堧Ƨ堲˧Ǻ򠨱宠󍠠ΠŬ宍ؠîɠ󎍠Ʃ䮍堹Ԡנ򍠠ﮠΠ獠썠宠􍠠䮠􍠠Ӡ䍠ՠ󍠠󍠠占묠䍠􍠠묠䍠宠䬠퍠󍠠場򠸰Ҡ򍠠䮠Πˠ͠̠ΠϠ䍠Р򍠠宍Ơ䮍򍠠򍠠Ǡ占堧ǧ􍠠Ԡɠʧԫ󍠠占􍠠䍠î占䮠󠨫򍠠󠠠Š占Π̠占Ѡڠ􍠠􍍫獠󠨫堧Լ䍠ɠ􍠠󍠠à̠ƠȠ占ɠ뮍ĠŠ嬠占占󍠠፠Π堲Ч􍠠àà占宠占򠿽РŠƶĵĵĹ򎍍嬠Ӡ򮍍ԽȽթŽ˽Ӡ󠶴Ӡ󮍍Ӡᮍᠢ玍宍ɠ宠䮍宍ᠢɬʬˬ͠嬠뮍򎍍砢Ԣ쮠뮍ᠱˠ묠䠠뮠䮍'+򎍍            Š뮍Ԡ占Ԡ󮍴Π占堢آ占ӠŠ占䍠宍Í庍̠Ϡ͍󺍍Π占Ӡ͠堰àᠢ墍Š®䬠®򎍍Ӡ卶뮍Ġ䮠ĵĠ卢墮堳堨©Ӭ箍䎍ĵ򮍠嬠Š¬堢墮宍ӠŠ􍴫ĵ󠢴嬠묍묠 ®Ӎ䮠庍蠠亍砠庍蠠栤蠢뮠묠䬠卧ħ䠢碬笠墮宩묠묍堨䩠ĵ䬠ᠹӠ䮠栢Ƣ뮠ĵӠ칶ƍ厍䢠ᠢ䢮ᠶ፠䬍򮍍à􍠠󍠠􍠠󍠠占嬠묍󮍍̾Рĵĩ占䬠捠󠴠蠶宠󍠠堳䍠䍠宍젴堢墠󮍠占荠䩠占占箠䍠𮍠󍠠䬠宍䬠􍠠占占砱箍占場򮍍ž󍠠箠󍠠捠򍠠􍠠䮠庠捠려쬠嬠􍠠占󮍠䠨䩠砢Ţ䮍򍠠ᮠ䍠䩠占򬍠砢բ󍠠箠󍠠占󍠠Ġ򍠠፠占ﮍ箠占占򍠠󮍍Ԡ뮍፠Ӡ򍠠􍠠 占򮍍Š捠򮍍̾Ҡ덠占󍠠荠󎍍ɬʬˬ͠占占̠ɬʬˬͬ占占䬠¬Ӡ뮍ĵĠ󩮮Š嬠Ƭ󳮳ө󺍍亍堨쩠멠㩠멠獭ĵŠ亍堠ᠫ卭䍨󩮍Ӡ箠笠堨ɬ堨ɬ쮍ˢ䠢ˢ讍堢ɢɠ䍢좮Ӡ뮍庠蠢ע蠢ˢ栢卢ɩ砢תˢˢ穮䮠󮍠堢栱묠멮䮠묠ή䬠䮠䬠嬠堢ĵ󮍠Ӡ።٢ᠢ笠䍨Ӡ堨婍펍ӠάӠŠɠ뮍Šө'GŠ򎍍뮠        󍠠䮍嬠占ӠîӠ뮠ﮍΠ宠쮍󎍍ӠĵŠĵĮŠᩬӠ󮍠Ӡ쬠宍쮍󠱠䠲󎍍󍸩占󍹩Ӎà󮍍ﺍ󍲩󍳩󍴩󍵩堢墠卶󍷩Ӡ嬠Π롍Ӡ򬠉򎍉ˠ쎍묎嬠ɠάӠӠ뮍Ӡ󍠠堨ĠԍàӠ宍΍Ӡ宠亍ӠΠӠҍ󮍠Ӡ嬠'Ӡ򎍍Ӡӧ뮠Ӎ         !!! ! ! ! ! !!!!!!!!!Πɠ쮍䮠堨堢Ţ덤ũΠà󎍠򠳮󩬠廍宠嬠ɍ렰򠰮Ӡ򍠠 占 򍠠뮍占Ӭà퍠ӠӠ䍠Ӡӭà宍Ӡà􍠠ӮԠ䍠Ӎ뮠򍠠ĬӠ􍠠𮍲宍ӎӠ讍ӎӠ뮠嬠䬠Ӡ宠묠箍厍뮍笠ᠢ󮍍뎍뮠䮠Ӡ󎍍Ӡ뮠Ӡ厍󮍍󍢴쬠âӧ䮍󎍍䮠婠à󮍠2(A$):'GET A KEY@'A$:(A$"1"A$B$)A$(13)10180q'A$(13)A$(((40)(41)256(36))128)|'A$;:'DISK ERROR'ERR(222):ERR15ERR254Ĺ216,0:822:'ERR254ĺ"TYPE AGAIN PLEASE:"::(ERR255ij (ERR0A$"IATE":10140M~'A$"FORMAT BACK UP FIRST? N"(8)::12:450:A$:A$"Y"İ380':A$"INSERT DISKS IN PROPER DRIVES.":470::1000'GET SLOT AND DRIVE#'450:::10)"SLOT=>"S28)"DRIVE=>"D2;'16:B$"7":10180:S2(A$) '32:B$"2":10180:DJV'IO768:SLT779:DRV780:VOL781:TRK782:SCT783:BUF787:CMD790:OVL792`':DOS16:MB151:HX$"000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F202122"j'8::A$"ORIGINAL":S26:D21:10140:S1S2:D1D2 t':::D2(D21)1:A$"DUPLIC50710060L.':A$"* SUPER IOB *":450:::A$"CREATED BY RAY DARRAH":4508'10:A$"INSERT SUPER IOB DISK":450::::A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$B':(4)"BLOAD IOB.OBJ0,A$300"L'TKSTVLCDDVSO:RD1:WR2:INIT4:10220R254CDRD10230':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:'CONFIGURATION TIME'BLOAD RWTS HERE $'(768)(769)1: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)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" " " " """""""""ЍҠҤâϱҤ˨˨ԍ"