' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֝uW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`  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#0FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `FF`ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx-#(#6 @F͠٠ˠ@跻~!Wo*9~~~~ɬƬ~UVERIF!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 @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHn 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)nooõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõL&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ Fu`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d ֠Fz# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `r>XH00L1Lhȭ0`eL! ̻wfUD3DUfwwfUD3"p%2Ǡʠàՠ٠РؠвٍРì؍Ѡؠ؍ؠŠвٍŠЍӍ ٍРŠ؍ؠؠčĠ؍РٍѠԍ؍ŠčؠР؍ԠؠҠҠҠٍРčѠˍРčѠˍРѠˍРōѠˍРÍѠˍٍҠРԍˠٍҠٍҠԠҠĸōؠР؍ؠĬĬŬÍ   `aaa a ` Paa ` aL`$a $ $  ɍɝəɎɌ $ L`$ $ aL`%(ǠʠРƍѠ̍Р² ̠٠ٱٍĠРѠαرٍŠٱРԲαٍРŠرٍРŹŠرҠԍРرԲРѠԳµīР̍ԠҠҠҠҠĸōӍԳ٠زٍРРöѠ؍زٍŠزԴРѠčĶЫРԳؠٍРŠزҠԍРز ĠīöЫčñōòӍ²٠РٍñРčѠ΍٠ٍŠЍРˍΠٍРŠٍٍРŠٍٍРŹŠٍҠԍРٍˠРŠıӲčñР²ıӲРѠԲ¹ñР²Բ٠вٍòРōѠβٲٍŠв˲РѠčōòРԲβٍРŠٲٍРŠٲҠԍРٲРŠٲҠԍРٲҠԍРٲ     `EQaL` ɥL.` Pa B`L`RaəARa`L `$ $ $ $ !!!` RaɘRa֍|`Lv` Pa B`L``ƍ|`Ra`΍a` ɭL` Pa Qa B`L`Ra Ra`L`ɘ Ra`L` RaɗRaލaLa Pa Qa B`Laa B`L!a B`L$a +뷩귩췩 񷩷 ` `  ::"OPTIONS:":::"1) PRINT A HEXADECIMAL/DECIMAL":"CONVERSION CHART, OR"::"2) GO TO THE MAIN MENU, OR"::"3) QUIT."::"CHOICE: ";:G$:G$:V(G$):V1V3Č198:10V1ĺ(4)"RUN CHART"(V2ĺ(4)"RUN APT SCANNER" 2V3ĉ::"BYE!":   :(4)"BLOAD SND":(1:D:X1D:A$:70:XC<120|FH(40(A$))2:H:L1(A$):(A$,L,1);:E(16336)PL:Zd5n "THE EDITOR"," ","PROGRAMMED BY","BOB IGO","------------"x16368,0}768(4)"RUN MENU"" MENU"  ׍Ԯ΍ϨԨӨ٨ҨըϤΨäԺźԠӧԠŠĠӠٮǤĠӬ΍  ׍Ԯ΍ϨԨӨ٨ҨըϤΨäԺźԠħԠŠĠӠٮǤĠӬ΍  "NEW"3(NA$,4)"EDT."NA$(NA$,(NA$)4)H"LOADEDIT.MAIN"X"400DATA"X"120DIMA("X"),NA$("X"),OO("X"),T("X",30),S("X",30),BY("X",30),FR("X",30),TU("X",30),O$("L"),N("L"),C$("L")"""150TEXT:HOME:?"Q$"INSERT '"NA$"' AT DRIVE 1"Q$":?"Q$"AND PRESS A KEY."Q$":GETG$:?"YLN410:L1X:LN"DATA";:NA$(L)","A(L):LNLN10:g:LN1010 L1X:E1A(L):LNLN10:LN"DATA"TR$(L,E)","SE$(L,E)","BY$(L,E)","FR$(L,E)","TU$(L,E)","OO(L)E:L "RUN"*(4)"CLOSE"4(4)"NOMONICO"1>:23:"DONE.":"PRESS ANY KEY":G$::HH(H$)2H$"0"H$RDE0:HE$"0123456789ABCDEF":H1$(H$,1):MP16:860:H1$(H$,1):MP1:860:\P116fH2$(HE$,P,1):H1$H2$DEDE((P1)MP):D$(DE):pz"";X$:"390?"Q$"YOU GOOFED!!"Q$":?:CALL-198:?"Q$"ERROR #"Q$"PEEK(222):END"]"SAVE EDIT.MAIN""HOME:?"Q$"EDIT.MAIN HAS BEEN ENTERED AND SAVED."Q$"DELETE EDIT"(4)"CLOSE":"TYPE 'EXEC EDIT' TO INSTALL":"THE BASIC PROGRAM.":G$::80"340IFC$(L)="Q$"ON "Q$"THENPOKEA+BY(L,N),TU(L,N)"hb"350IFC$(L)="Q$"OFF"Q$"THENPOKEA+BY(L,N),FR(L,N)"l"360IFOO(L)=2THENPOKEA+BY(L,N),VAL(C$(L))"v"370POKERW,W:CALLP:NEXT:NEXT""380VTAB23:?"Q$"DONE."Q$":?"Q$"PRESS ANY KEY"Q$":GETG$:?:RUN"G e::A$"EDITOR CREATOR II":(40(A$))2:L1(A$):(A$,L,1);:X(16336):X(16336):2:1:L120:"- ";:X(16336)::34,3:(2"DO YOU NEED TO CREATE THE PROGRAM, EDIT.MAIN ?";:OO$:OO$:OO$"N"80 <OO$"Y"Č198:4:50 FNA$"EDIT":310t P:"ENTER ALL TRACK, SECTOR, BYTES, AND BYTECHANGES AS ONE OR TWO-BYTE HEX NUMBERS." Z8:"HOW MANY ASPECTS OF THE GAME WILL YOU BECHANGING? (0 RETURNS TO THE MAIN MENU)"::"ANSWER:";X$6 _X(X$):X0ĺ"INSERT THE EDITOR DISK AND PRESS A KEY.";:G$::(4)"RUNAPT SCANNER" `X20ĺ:"YOU MAY ONLY CHANGE 20 ASPECTS PER FILE."::"PRESS A KEY.";:G$:::90 dA(X),NA$(X),OO(X),TR$(X,30),SE$(X,30),BY$(X,30),FR$(X,30),TU$(X,30) nL1X:9 x4:"HOW MANY SECTOR-EDITS ARE NECESSARY FOR ASPECT #"L;:A(L):A(L)0Č198:120 }A(L)30ĺ:"YOU MAY ONLY HAVE 30 SECTOR EDITS":"PER ASPECT."::"PRESS A KEY.";:G$:::120) E1A(L):"PRESS RETURN ALONE FOR DEFAULT VALUES."::"EDIT #"E":"::"TRACK:(";TR$(L,E1)")";:11:890:X$""TR$(L,E)TR$(L,E1):1509 TR$(L,E)X$ "SECTOR:(";SE$(L,E1)")";:12:890:X$""SE$(L,E)SE$(L,E1):170 SE$(L,E)X$ "BYTE:(";BY$(L,E1)")";:10:890:X$""BY$(L,E)BY$(L,E1):190 BY$(L,E)X$- "FROM:(";FR$(L,E1)")";:10:890:X$""FR$(L,E)FR$(L,E1):210= FR$(L,E)X$ "TO:(";TU$(L,E1)")";:8:890:X$""TU$(L,E)TU$(L,E1):230 TU$(L,E)X$ ::"WHAT WILL YOU CALL THIS ASPECT?":"(SUCH AS: TOGGLE UNLIMITED BULLETS)":"ANSWER: ";NA$(L)l:"IS THIS ASPECT (1) ON OR OFF,":"OR (2) A NUMBER VALUE ?";:OO$:OO$:OO(L)(OO$):OO(L)1OO(L)2Č198:240r:13:1:"WORKING ON HEX CONVERSIONS";:L1X:E1A(L)DH$TR$(L,E):840:TR$(L,E)D$:H$SE$(L,E):840:SE$(L,E)D$:H$BY$(L,E):840:BY$(L,E)D$:H$FR$(L,E):840:FR$(L,E)D$:H$TU$(L,E):840:TU$(L,E)D$l:".";:CL(16336):CL(16336):,:"WHAT WILL YOU CALL THIS EDITOR":NA$:1"AFFIX AN 'EDT.' PREFIX? ";:G$:G$:(G$"Y"G$"y")3102NA$"EDT."NA$3E6"INSERT A FORMATED DISK TO SAVE THIS":"EDITOR AND THEN PRESS A KEY.";:G$:W7(4)"MONICO"z@(4)"OPEN"NA$:(4)"WRITE"NA$JQ$(34)TNA$"EDIT"710^"NEW"h"90ONERRGOTO390"r"100IFPEEK(768)<>169THEN?CHR$(4)"Q$"BLOADRDWRT"Q$-|"110HOME:TR=784:SE=789:RW=779:R=1:W=2:A=8192:P=768"V"130READX:FORL=1TOX:READO$(L),N(L)"e"140NEXT""160FORL=1TOX:FORN=1TON(L)""170READT(L,N):READS(L,N):READBY(L,N):READFR(L,N):READTU(L,N):READOO(L):POKERW,R:POKETR,T(L,N):POKESE,S(L,N):CALLP"J"180IFPEEK(A+BY(L,N))=FR(L,N)ANDOO(L)=1THENC$(L)="Q$"OFF"Q$":GOTO210""190IFPEEK(A+BY(L,N))=TU(L,N)ANDOO(L)=1THENC$(L)="Q$"ON "Q$":GOTO210""200C$(L)=STR$(PEEK(A+BY(L,N)))""210NEXT:NEXT""220HOME:?"Q$"OPTIONS:"Q$":HTAB5:?"Q$"PRESS 1-"Q$"X"Q$" OR 'S' TO SAVE."t"230?:FORL=1TOX:VTABL+3:INVERSE:?C$(L);:NORMAL:HTAB5:?L"Q$") "Q$";O$(L):NEXT:?:?""240INPUT"Q$"CHOICE: "Q$";C$""250C=VAL(C$):IFNOT(C$="Q$"S"Q$"OR(C>0ANDC<=X))THENCALL-198:VTABX+6:GOTO240" "260IFC$="Q$"S"Q$"THEN300"D"270IFC$(C)="Q$"OFF"Q$"THENC$(C)="Q$"ON "Q$":GOTO291""280IFC$(C)="Q$"ON "Q$"THENC$(C)="Q$"OFF"Q$":GOTO291""290?"Q$"ENTER NEW "Q$"O$(C)"Q$":"Q$":INPUTC$(C):VTABC+3:?"Q$" "Q$":POKE34,X+6:HOME:POKE34,0:GOTO291"$&"291INVERSE:VTABC+3:?C$(C):NORMAL:VTABX+6:GOTO240"0"300?"Q$"DO "Q$";:INVERSE:?"Q$"NOT"Q$";:NORMAL:?"Q$" REMOVE THE DISK OR"Q$":?"Q$"YOUR COMPUTER COULD EXPLODE."Q$:"310FORL=1TOX"D"320FORN=1TON(L)"N"330POKERW,R:POKETR,T(L,N):POKESE,S(L,N):CALLP"1X        0 Z390.d(768)169ĺ(4)"BLOADRDWRT"^n:TR784:SE789:RW779:R1:W2:A8192:P768xX:L1X:O$(L),N(L)~L1X:N1N(L)T(L,N):S(L,N):BY(L,N):FR(L,N):TU(L,N):OO(L):RW,R:TR,T(L,N):SE,S(L,N):P (ABY(L,N))FR(L,N)OO(L)1C$(L)"OFF":210N (ABY(L,N))TU(L,N)OO(L)1C$(L)"ON ":210h C$(L)((ABY(L,N)))p : :"OPTIONS:":5:"PRESS 1-"X" OR 'S' TO SAVE. :L1X:L3::C$(L);::5:L") ";O$(L)::: "CHOICE: ";C$ C(C$):(C$"S"(C0CX))Č198:X6:240, C$"S"300N C$(C)"OFF"C$(C)"ON ":291p C$(C)"ON "C$(C)"OFF":291 ""ENTER NEW "O$(C)":":C$(C):C3:" ":34,X6::34,0:291 #:C3:C$(C)::X6:240 ,"DO ";::"NOT";::" REMOVE THE DISK OR":"YOUR COMPUTER COULD EXPLODE."* 6L1X8 @N1N(L)[ JRW,R:TR,T(L,N):SE,S(L,N):P TC$(L)"ON "ĹABY(L,N),TU(L,N) ^C$(L)"OFF"ĹABY(L,N),FR(L,N) hOO(L)2ĹABY(L,N),(C$(L)) rRW,W:P:: |23:"DONE.":"PRESS ANY KEY":G$::. "YOU GOOFED!!"::198:"ERROR #"(222):Z    b] ::"PRINT A DECIMAL/HEXADECIMAL CONVERSION":"CHART? (Y OR N): ";:G$:G$:G$"Y"100tG$"N"Č198:10(4)"RUN MENU"cdHX$(255)e:13:15:"WORKING..."iHX$"0123456789ABCDEF"jY1:X0xZ116 HX$(X)(HX$,Y,1)(HX$,Z,1)! XX1:X2562008 Z:YY1:Y16Y1A 120 ::"ENTER PRINTER SLOT: ";:G$:G$:SL(G$):SL0SL7Č198:200 :"TURN ON PRINTER AND PRESS A KEY":"WHEN READY.";:G$:: SL "HEX/DEC CONVERSION TABLE":"COMPLIMENTS OF THE EDITOR"0 "_________________________"6 E ,L02553d -L$(L):(L$)1L$"0"L$ .L2$(L1):(L2$)1L2$"0"L2$ /L3$(L2):(L3$)1L3$"0"L3$ 1L$"= $"HX$(L), 2L255340 6L2$"= $"HX$(L1), @L3$"= $"HX$(L2) JL T0L ^::"PRESS ANY KEY TO GO BACK TO THE MAIN":"MENU.";:G$:` h(4)"RUN MENU"    Fz#??????? ԮӠĮӠԠĮ͠ӠҠ à ҮԠޭԠҠޠޠﮠޠ󠠠ޠޠ ޠ⮮ޭ Ϡ ՠҮà"ԠҠԠ ԮΠҠҠɠ ԮĠ ԮӠԠҮàҮîӠ ҮɠҮɮӠĠ͠٠ˠҠĠΠϠРȠҠӠ͠Ӡͮʠؠ嬠堨堨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: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 ((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 85: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) "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 DIRECTORY !!!": |:10005 1:" 80N":0,63998:0X     򍍼ɠɠ婮ɬԠدàԠ廠Ӡ٠宠ɠ䬠ɠ뮩謠堯㮠嬠䮠򮍍䮠嬠讠宠堤쬠ﬠﮍ     󠤰 䠤ù󠤲󮍍6 THEXDER ENERGY MODIFIER7BY: VINCENT ANDREWSOWRITTEN: 24 MAY 89U(2::A$"----------------------------------------":40 CHARS<A$;::9:"THEXDER ENERGY EDITOR":11:"BY VINCENT ANDREWS":A$:34,5:16:A$:35,15FMAIN MENU" P:9:5)"(1) UNLIMITED ENERGY"> Z5)"(2) NORMAL ENERGY"S d:5)"(3) QUIT"a n16368,0| xK(16384):K128120 16368,0 K177X128:180 K178X240:180 K179ĉ: 120 TYPE OF THEXDER FILE :7:3)"WHICH TYPE OF FILE DO YOU HAVE?"/ :5)"(1) THEXDER"K 5)"(2) THEXDER.SYS16"g 5)"(3) PREVIOUS MENU"u 16368,0 K(16384):K128240 16368,0 K177N$"THEXDER,A$1000,L$1,B$522C,T$B3":290 K178N$"THEXDER.SYS16,A$1000,L$1,B$522C,T$B3":290 K179ī703 "BLOAD/MODIFY/BSAVE= ,370I 6D$(4)g @D$"PREFIX/THEXDER,D1,S5"z JD$"BLOAD ";N$ T4096,X ^D$"BSAVE ";N$ h70 rERROR ROUTINE |:" PLEASE INSERT THEXDER DISK" " IN DRIVE 1, SLOT 5: UNLOCKED" 16368,0# (16384)1284105 16368,0:70嬠䮠򠤰ج٠䬠䮍򬠤嬠嬠嬠蠤쬠欠𠴠©éݭΠݭݠݭݮ ̭ݮ련ﮠݠ宠嬠䠤®ﬠ報ݮ򬠤Ƹ堲ݮ򬠤󠤲宠宠嬠    }  D$(4)*D$"BRUN AVALANCHE LOGO";I12000:IC(:\22:1:"T A I P A N"o<"-----------"F6:1:"TAIPAN, YOU MAY SELECT"P"FROM THE FOLLOWING"Z9:1:"THE (I)NSTRUCTIONS TO THE GAME, OR"d"THE (G)AME OF TAIPAN."( n13:1:"WHICH DO YOU SELECT (I/G)?";:A$T xA$"I"ĺ:D$"BRUN TAIPAN INSTRUCTIONS"s A$"G"ĺ:D$"BRUN TAIPAN"| 110𠴠堨箍𠵬ԮΠ殠嬠𠵠려򠤰Ŭ堤Šﬠ堨󩬠宠Ŭ䠲ﬠ묠嬠Ʈﬠ嬠려򠤰Ŭ󠤱䠤Ŭ宠堢à墠ԮΠ󮍍䮍硍硍   3200%I768796:S:I,S:Iu 169,3,160,8,32,217,3,96,1,96,1,0,0,0,25,3,0,16,0,0,1,0,0,96,1,0,1,239,216(::"PLEASE INSERT THE DISK WHICH SPACE IS TO BE ADDED TO":"PRESS RETURN TO UPDATE":A$2785,14:780,17:781,0:788,1:7684 <(3648)0(3649)0ĺ"UNSUCCESSFUL---CHECK DISK":L F3648,255:3649,224^ P"SUCCESSFUL" Z"DO YOU WANT TO RUN IT AGAIN (Y/N)":A$:A$:A$"N"A$"Y"90 _A$"N"Ā d20  &THE VARIABLE A IS THE GRID TYPELTHE VARIABLE P IS THE # OF PAGESlLINES 76-77 PRINT TOP LINEIN LINE 78 THE VALUE AFTER TO IS THE NUMBER OF LINES TO PRINTTHE VARIABLE X IS THE WIDTH TO PRINT ::"WHAT TYPE OF GRID DESIGN DO YOU WANT" ::( :"1 HEXAGONAL": (:"2 SQUARE"X 2"WHAT IS YOUR CHOICE":Ah 3A1A250 7"HOW MANY PAGES DO YOU WANT TO PRINT":P 8P155 <A2A$"|_":X38 FA1A$"/ \_":X19" G:"PLEASE MAKE SURE YOUR PRINTER IS ON":20:"PRESS ANY KEY TO CONTINUE":D$) H14 JK1P KK1Ċ0::12:"PLEASE LINE FEED YOUR PAPER TO THE TOP OF THE FORM"::"PRESS ANY KEY TO CONTINUE":D$:1 LA2āL138:" _";:L: MA1āL119:" _ ";:L: NJ156 PI1X UA294 ZJ2(J2)ĺ"\_/ ";:968 [I2(I2)ĺA$;:96P ^A$;:IXA2ĺ"|";Y `I:` nJg sKn x0 "DO YOU WANT TO RUN THIS AGAIN(Y/N)":Z$:Z$"N"Ā 101   p2 ::255:D$(13)(4):Q$(34):D$"MON CIO"y:" RWTS WORM ";::" APPEARED IN COMPUTIST #61":23)"PG 35.1"D$"BLOAD RWTS WORM.OBJ,A$9500" :"DISK'S RWTS WILL RESIDE AT $1900 AND IS $800 IN LENGTH:"::Q$"BSAVE XXX.RWTS, A$1900, L$800"Q$S 14:"INSERT DISK TO CAPTURE AND PRESS A KEY":13)" EXITS";:A$:A$i #A$(27)Č38144o ( m Ɲ3LLJLKL`L,SVSmknnLԮӍ򠠠ͮͮ򠠠͠ՠϠՠčǠԠҠŸ퍠Ҡ²ƠҠŹ䍠ҠŸ䍍͠ ύ􍪍ö٠ؠҠō卪ؠDZ٠DZƸ󿍠РѠ͍ؠƹ۫Šÿ٠Íàڍ͠ؠà󠨯ө٠čڠР卪DZDzčDzōРӍDzÍdzdzÍР𠦠􍪍dzðŸӍ卪Šͫ٠ϫ٠űٍͩϩٍٍŠűàͫàϫ؍ŠűӍ㍠𠤱𠦠􍪍糠ᠤ帠󍍪卪﫱屠ᠨ     ĮӍ堠ͮͮ㭸䠠򠠠ԠՠĠՠĠՠˠՠàՠϠՠİҸՠð̸ՠðÍĠՠð͠ՠðӠՠưРՠƵŠՠΠՠƵڠՠ򍍠ǠРԍؠŠ ڍŠӠڠ卍Ԡ٠Šì٠퍠ӬٍٍŠō٠ƍԱŬ٠占Ŭٍٍ̠ԱؠӠĭƍЬ؍؍ӠЬ؍؍̠Ӎ٠ƠЍ͠져㍠čҸ̸àӠύӍϫӍϫϫϫÍ䍠䠽䍠렰򠶍ҠϠ򠤸Р퍍àՠ䰰Ǡİ栢좠卪ӠččÍàԍԠȍЫàЫԍЫÍÍЫЫ٠ˍѠԍ̱à占ЫàЫЫàЫٍŠ̱卪ԠĠ򮮮РƠѠԱ堤ﻠ àԱ䍠ЫҠӍ øנЍӠҍЫ棍ЫЫҠӍ Š덠נЍӠҍĠ忍РѠčРѠōȠƠ䬠ҠҠōҠōР΍ĠҠӠ占 䍠נЍӠҍРōŠҠӠ占  占נЍӠҍРōŠҠӠ ÍנЍĠԍ򍪠䮠󍪠ﮮÍӍӠɠ󍪍Р נōנ ƣР  ƣנננР  棠Р  棍 נ鍍卪ŠӠڍЍ占⠤棍⠤⠤棍      p / Ơ [ 8  LE LLW L``鍍卪占⠤棍⠤⠤棍 LF @ ? XʩXX L` Lإ8_i i?0,A Ȕ Τ  LY ʚL ˚L ̢` Lإ8_i i?0,A  }L;Y;8LܽJ 0 뽐Lܽ LL@..  LLD- аLܽ 0:LD 1i;Y; L<  LL< :݌`8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`(L*'8*! | G')  G G) ` mI꽌ɪ򠚽ɭG)U F)UFEGG㽌)U F)UFEG ɪ`8``80',HhHh & YHJ ݌Hhh ݌$&HJ $&ꝍ݌Hhh ݌ 8`Hh`GG   KK L HhG09HhHhHh o- GL A AA# *GG80',HhHh & YHJ ݌Hhh ݌$&HJ $&ꝍ݌Hhh ݌ 8`Hh`GG   KK L HhG09HhHhHh o- GL A AA# *G   g  RKXFERd::*nD$(4):(21)ExD$"BLOADRKDOS,A$7D00"^A768806:B:A,B:BS0:BE1:CMD3:TRK4:SEC5:LOCATIONS OF BUFFER START, BUFFER END, COMMAND, TRACK, SECTOR FOR RKDOSIOSAV(4):I03:IOSAV(I)(54I)::SAVE $36-$39> RKDOS976:RKDOS,76:RKDOS1,0:RKDOS2,189:$3D0: JMP $BD00 SRC$">>> INSERT SOURCE (RKDOS) DISK":DEST$">>> INSERT DESTINATION (PRODOS) DISK" BU24:$1800 - $7BFF (100 PAGES) *** GET INFO "RKCRACK BY M.M. MCFADDEN" ::"READ FROM DISK IN SLOT 6?"(8);/ A$:A$(13)A$"6"A A$(27)ĺ:b A(A$):A1A7ĺ(7);:220 (8)A" ":RKDOS3,A16:SET SLOT # 18)"DRIVE 1?"(8); A$:A$(13)A$"1" A(A$):A1A2ĺ(7);:260 (8)A" ":RKDOS4,A:SET DRIVE #. :"USING MORE THAN ONE DRIVE? Y"(8);N A$:A$"N"A$"n"A$"Y"m A$:SWAP0:A$"Y"SWAP1 ,:SWAPĺDEST$:1000: 1"PATHNAME TO SAVE AS: ";F$:F$""Ā 6400 @D$"VERIFY"F$:"FILE EXISTS, OVERWRITE IT? Y"(8); JA$:A$"N"A$"n"A$(3)ĺA$:& T"Y":360= ^D$"DELETE"F$:400` h"UNABLE TO DELETE OLD FILE":j 420 D$"CREATE"F$",TBIN":500 "UNABLE TO CREATE FILE": *** NEW FILE CREATED; READY TO GO 216,0:TURN ONERR OFF[ :"MAKE SURE YOUR RKDOS-BASED DISK IS IN":"SLOT "(RKDOS3)16", DRIVE "(RKDOS4)", AND PRESS A KEY":1000 TMPSWAP:SWAP0:1100:SWAPTMP:SWAP IN RKDOS QUIETLY CMD,1:BS,BU2:BE,BU8:TRK,0:SEC,2:1300BS,BU10:BE,BU99:TRK,1:SEC,0:1300:READ THE REST OF THE FIRST 100 BLOCKS3&1200:SWAP IN PRODOSU0PART1:1400:SAVE FIRST PARTX1100:BS,BU:BE,BU99:TRK,10:SEC,0:1300b1200:PART2:1400:SAVE 2ND PARTl1100:BS,BU:BE,BU99:TRK,20:SEC,0:1300v1200:PART3:1400:SAVE 3RD PART11100:BS,BU:BE,BU49:TRK,30:SEC,0:1300X1200:PART4:1400:SAVE LAST PARTw:"TRANSFER COMPLETE"(7)}*** SUBROUTINESWAIT FOR KEYA15:QQ(16336)(16336):16368,0:16384,128:16368,0:(16384)27ĀL*** SWAP IN RKDOS7QSWAPĺ:SRC$:1000HV0:0::768`A16:(8);::868:COVER UP PRODOS TRACE GLITCHES...j*** SWAP IN PRODOS768:A03:(54A),IOSAV(A)::RESTORE PRODOS I/O HOOKSSWAPĺ:DEST$:1000*** READ FROM RKDOS DISKDSZ(BE)(BS):SZ0ĺ"BAD READ":(X(TRK)10(SEC):YXSZ:DT(Y10):DSY(DT10):CALCULATE ENDING TRACK, SECTOR2:"--- READING FROM TRACK "(TRK)", SECTOR "(SEC)<15)"TO TRACK "DT", SECTOR "DSFRKDOS: x*** SAVE FILE TO PRODOSK:"+++ SAVING PART "PART" OF 4 TO "F$D$"BSAVE"F$",A"BU256",L"((BE)BU1)256",B"(PART1)(100256)'*** DATA'SWAP $7000-72FF WITH $BD00-$BFFFf'160,0,132,252,132,254,169,125,133,253,169,189,133,255,162,3,177,252,133,251,177,254,145,252,165,251,145,254,200,208,241,230,253,230,255,202,208,234,96E53,230,255,202,208,234,96(100256)'*** Data'swap $7000-72ff with $bd00-$bfffg'160,0,132,252,132,254,169,125,133,253,169,189,1      RKEXECd::$nD$(4)Ix:"RUN CRACKED RKDOS PROGRAM":j"FILE TO RUN? ";F$:F$""ĀF$"CAT"ĺD$"CAT":130D$"BLOADRKLOAD.SYSTEM,A$2000,TSYS"FS8198:FS,(F$):A1(F$):FSA,((F$,A,1))::8192 S3,169,189,1ΠԠĢРؠˠ˩ˠé٠ؠںԠԠ٠Ӡ٠Ԡ͠ŠǠˬҍԠԠˠ˩ˠéԠ¨ҍ㾍͠ҍԠ̠ŠĤҤԠҤԠĤӬİҠϠĠºŠºԠӠŠĠˠà͠ӠƠҠԬҠĬĬˬҠҠӍ֨͠ҠɠϠ֨ɩˠɩԠ͠ŠӠŠӬŠӠŠӠ͠İРİäөˢԤөˢՠ͠Ơө͠ԠύԠͮͮ΢ԠԠԠҤԠƠҤΠƠҤΠԠĠ̠ƠҠΠԠҤϠԠҤŠӠ͠ԠԠԠ¨ҤԠƠҤΠ̠ƠҠΠԠҤϠԠҤŠӠ͠ԠŠԠԠſ٢ҤԠƠ΢ĠΠ٢ԠРƠ٢ΠРԠƠРΠԠԤ ԠԠӺƤƠƤΠĠҠϠԠĤ٢ƤԠӬԿ٢ҤԠƠ΢ҠҠҤΠԠĠԠ٢ҠϠԠĤŢƤϠԠŢРҠϠԠĤŢƤ΢ϠԠŢР͠נŠĻ٠ϠύŠ͠ΠҠƍԠԠӭ΢ԠˠӠˠӠ٢ РкР Рк͠РΠӠٍŠĬŠӬՠŠŬՠŠˬŠì ŠӬՠŠŬՠŠˬŠì ͠ĠŠԠƠŠԠӍ ͠РΠӍԠ ͠ŠԠԍ ŠӬպŠŬՠŠˬŠì  Ԡ ͠ŠĠԍ ŠӬպŠŬՠŠˬŠì  Ԡ ͠ŠĠԍ ŠӬպŠŬՠŠˬŠì  Ԡ ͠ŠԠԍԠԠŢҤĠĠ͠Ӎ͠ԠҠٍҠϠѠˠˠԠŠԠŠƠˠΠĠΠ͠РΠӍƠРΠԠԠä ΣңŠ̠ҠϠԠҤԠ̠͠ҠРӠŠӮΠ͠РΠӍ̠ҠϠŠ֨Ԡ͠ŠӠɯϠӍƠРΠԠԠԤ Π͠Ġ͠ӠˍڠˠũˠөƠڠ          !!! ! ! ! ! ͠͠РƠȠİƍŵčųƳųñųĴ¹ÍƸô¹·Ƶƹðĸ°ƶŸƱƷƲ¹ĶƱİű±ķųķƲƸčòč°ø±ijƲŷƍø´ŲııƍƸķöōŶ³ŵԠӍ̠ӺΠ͠ŠŠϠӍԠԠԠƤԠĤŢƤՠ̢ˠũՠ¢ԠΠ  --APT SCANNER--. --BY BOB IGO--B768,0:24578,0J:n((768)169ĺ(4)"BLOAD RDWRT"2"SCAN FOR:"::"1) ALL OCCURRENCES IN WHICH A":"CERTAIN NUMBER IS BEING STORED, OR"::"2) DECREMENTS TO A PARTICULAR LOCATION."2 <:"OR:"::"3) CREATE AN EDITOR PROGRAM."::"4) QUIT."v F::"CHOICE: ";:CH$:CH$:CH(CH$):CH1CH4Č198:1:1:50 PCH3ĺ"INSERT THE EDITOR DISK AND PRESS A KEY.";:G$::(4)"RUN EDITOR CREATOR II" ZCH4ĉ::"BYE!":N dCH1(24578)141ĺ"INSERT THE EDITOR DISK AND PRESS A KEY.";:G$::(4)"BLOAD SCANNER.II":120 nCH2(24578)97ĺ"INSERT THE EDITOR DISK AND PRESS A KEY.";:G$::(4)"BLOAD SCANNER.DEC" x:TR784:SE789:RW779:R1:W2:A8192:P768 T$(34),S$(15) T034:T$(T):::S015:S$(S):M "STARTING TRACK ($00-$22): $";VA$:650:STXXz "END TRACK ($00-$22): $";VA$:650:ETXX "SLOT FOR OUTPUT: ";:SL$:SL$:SL(SL$) CH1230e :"I WILL SCAN FOR UP TO FIVE FEASIBLE":"WAYS OF DECREASING A MEMORY LOCATION.":"FOR WHAT ADDRESS WOULD YOU LIKE ME":"TO SEARCH?"::"VALUE ($0000-$BFFF): $";VA$:650 XX49151ĺ:"YOU CAN'T DECREMENT A ROM LOCATION."::"PRESS A KEY.";:G$:190 750 24913,HI:250[ :"I WILL SCAN FOR LDA, LDX, AND LDY.":"WHAT VALUE SHOULD I SEARCH FOR AFTER":"EACH OF THESE?"::"VALUE ($00-$FF): $";VA$:650e LOXX :"REMOVE THE EDITOR DISK AND INSERT THE":"DISK TO BE SCANNED AT DRIVE 1."::"PRESS A KEY.";:G$: 24912,LO::34,1 RW,R:SL"CH1Ģ3:"TRACK SECTOR BYTE ADDRESS"H"CH2Ģ3:"TRACK SECTOR BYTE"R,34,3d6VT4:24915,0q@TSTET}JS015TTR,T:SE,S^0h1:1:"TRACK $"T$(T),"SECTOR $"S$(S)rVT|PSL24576VT(37)19CH2(8448)255ĹTR,(8448):SE,(8449):P:BY(8192(8450)):440B590hHI255(BY165BY181)NP4:490HI255(BY198BY214)NP2:490HI255(BY173BY189BY185)NP5:490HI255(BY206BY222)NP3:490198:"ODD ERROR.":4BY165FR$"A5 "LO$" E9 0"((8192(8450)3))kBY181FR$"B5 "LO$" E9 0"((8192(8450)3))BY198FR$"C6 "LO$BY214FR$"D6 "LO$BY173FR$"AD "LO$" "HI$" E9 0"((8192(8450)4))BY189FR$"BD "LO$" "HI$" E9 0"((8192(8450)4))\&BY185FR$"B9 "LO$" "HI$" E9 0"((8192(8450)4))~0BY206FR$"CE "LO$" "HI$:BY222FR$"DE "LO$" "HI$D"CHANGE THE BYTES, "FR$", ON THE ABOVE":"LOCATION TO";:L1NP:" EA";:L:".":VTVT2 N8448,255sXVT19SL0ĺ"PRESS A KEY TO CLEAR THIS AND":"START AGAIN AT THE TOP OF THE SCREEN.";:G$:::VT4bS:T:0l"PRESS A KEY TO RESTART THE PROGRAM.";:G$::30%v 00,01,02,03,04,05,06,07,08,09,0A,0B,0C,0D,0E,0F,10,11,12,13,14,15,16,17,18,19,1A,1B,1C,1D,1E,1F,20,21,22+K(VA$)2CH1VA$(VA$,2)k(VA$)4CH2VA$(VA$,4)(VA$)1CH1VA$"0"VA$(VA$)4CH2āX1(4(VA$)):VA$"0"VA$:HX$"0123456789ABCDEF":D0:MX2:Q1:CH2Q3:MX4#M1MX:W015:(VA$,M,1)(HX$,W1,1)720*WLD1W(16(Q)):DDD1:QQ1:MXXX(D)^|HI$(VA$,2):LO$(VA$,2)D0:MX2:Q1:VA$HI$:700:HIXX:VA$LO$:D0:Q1:700:LOXX:HI0HI255"" " " " " """""""