' +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- ( 6 Ϡ@跻~!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`Ԡ§󍱹àϫàӠԠŠҠƠӠϠōŠŮŠƠԠŬŠҠōӠĬӍŠŠĠŠӍԠŠĠōϩ٠ĠŠԠŠԠӍ٠ŠȠōŠŮŠϠРǠΠԍàͫԠΠ٠͠ĠŠ٠ԠϠҠԍ٠ύŮŠͩ٠ԠōĠŠԍϩ٠ԠŠŠŠŠĠŠӍͩ٠ĠŠ٠ȠſàеōΠύٍРŲƲв٠ԠԠǍеήƬ٠ԠōР͠ȿŠԮōϠӡбٍԮٍ٠ȍԮҩ٠ԠĠҮȍٍԮҩ٠ҍбԠҍٍԮҩٍ԰б֍ؠгŠ؍РҠȠŠōбήƬؠԠҍҠϱ؍ؠȍàбԠŠԍĠōҠύвȍгŠҍ֍бȍвؠ̍֍ҠؠΠϠԍؠȍϱҠϠԠҍȠРĿѠ΍ӍΠà֍à֍РԮǍؠŠؠ̿ӠұҠϱԠԍؠȠ̿àдϬϠà΍àȍдؠԠӍŠұӍ$B$((A)):"D$A$B$::1220,A$""NB$:B$(13)A$A$B$:1270T:B95E4$(E4$,B64)" "(E4$,91B)3:1010>ERRORb216,0:::"ERROR #"(222)(7)xA11000::1010DOS COMMAND:D$(13)(4)"COMMAND ->";A$:A$""840(512(A$))Ģ(37):64578:B$""A512(A$)768:(A)B,(E1$)):X41100"8AW(E1$)AB639A,((E1$,A,W))128:aLB(E1$):E1$"":253,(131)V254,(132):A(253)(254)256`A,B:AW,128:A2,2:AW(E3$)j253,A159:254,((E3$,A,W)):X(E2$):tC1010'~A3459:B((E3$,A,W))0:A2(A2)A$""E1$A$HC1:A(A2):A2(A2)C$""E1$C$A(A2):1260:A2(A2)A$""E3$(A$,65):E4$(A$,28):1060C0:E4$" ":A6590:E4$E4$(A)::E4$E4$" "$E2$"...............":AW4:E2$E2$E2$.:E2$(E2$AD"C$:1020ED$"OPEN"C$C1$:D$"DELETE"C$:D$"OPEN"C$:D$"WRITE"C${A2(A2)āBW(E1$):(((E1$,B,W))128);:(13);:A(A2):A2(A2)ĺE2$;(13);:A(A2):A2(A2)ĺE3$E4$;(13)D$"CLOSE":210XA:1260:C$A$:126+1 STAVARTAB+1& JMPEXIT.MERGEEXITVIAFIX.LINKS END.CSAVE+E+1 STAPRG.BEG+1 LDAPRG.END  STAA2 LDAPRG.END+1 " STAA2+1, JSRMOVEMOVEITDOWN!6 JSRSET.VIDPR#0@ JSR$3EARECONNECTDOSJ SECMOVEPROGRAMENDDOWNT LDAPRG.END ^ SBCLENh STAVARTABr LDAPRG.END+1| SBCLENMBERF INCCHRGET+1 P BNE.1Z INCCHRGET+2 d .1RTSn x * - *FINISHMERGE * - DONE.MERGE LDAPRG.BEGMOVEPROGRAM STAA1 LDAPRG.BEG+1BACKTO$801 STAA1+1 LDA#1 STAPRG.BEG STAA4 LDA#8 STAA4αԽ˽˫ƽ˼α˼αźԢǠϮˮϠӠΠ٢č˨ҤĠӮРҍ˽ԽԽĽҍԱ˺´³ϵ´±ԽԫԼααԽ˽˫˼α´˽ԱԽ³´±ԽԫԼ ƽ˼α˼αźԢŠȠ٢čĠҍ˽ԽԽĽҍԱ˺´´±ԽԫԼααԽ˽˫˼α´˽ԱԽ´±ԽԫԼαԽ˽˫ «РԮŠԠخӍĮōҠԮĠңҠԠӍàŠ͠Ġ΍Ǯčà΍ǮīàΫǮǍǮǫǮčǮīҠŠŠԠΡȠōŮōǮǠŠ͍ǮǫˠϠōٍРҮŠԠӠŠΠŠ͍ԠƠ٠ҍàԫŠàԫӍҠԍƬٍٍؠĠƠſŠŬŠԠō٠٠Ԡ̠̫٠ҠŠҠō٠ԠԠ؍ѠŮŠΠˠōҠԠԠҍ͍Ҡԍͫ٠̠ԠҍԮëϠԠōϠŠōϮΠРƠҍҠԠР ˍҠǮĠȠō ōǮī«ϮΠԠԠϠϮ΍ԮàϠԠ΍ϮΠĬōǮǠŠōР͠ӍŠϮŠΠčǮǫРѠĮҠšϮŠĠĠϠ׍٠ҠōͮРР͍ŠĮҠԠ͠ҬҡϠŠ͍ÍàĠȠƠǍ΍ǮīǮǫàǠȍΫÍРԮŠƠŠōŠĮҠϬҍԫҠŠҍ٠ԫԠϠԠԠĠǮĠŠԠƠ͍ǮǠ̠ϠԠĠƠǭǮǠŠŠ͍РҠӠԠѠٮ ϮˮϠҍĮҠРҠҡٮ ٠ǮǫŠƠԠӠ٠٠ĠƠҠƷŠѠРȍŠͮРԠΠȠϠ٠͍ĠŠҍĮ͍Р׍ԮŠѠĮ͍РخӍĮЍԠƠŠӍǮРؠĮҮ͠͠Ġ΍ؠĮҮ͠šРű͠΍ҠѠōĮ͍Р̠СԮĠѠôűؠϠ͠čؠԠōؠĮŭƷŠŮ̠֠ōӍϠŠҠōİؠ͠č؍Šٮ͠ȠōàٮͫԠōàٮͫĠŠٮ͠ԠšŮ֠ŬؠŠōŠŠŠŠύŠ͠čҮ͍Ү͠šؠԠԠύٮ͠İؠŠ͠ύĠРŠϠŠؠĮЭǮЭŮРǮЬ؍İĮЫǮЬ؍؍̠ŮЍЮÍİĮЫǮЍЮëŠčİĮЫǮЍЮëԠƠ͍ԠΠƷŠӠĠϠōҠԠƠŠٍˠРŠĠ΍àРҍңΠѠŠȠƠΠ͍Į͠ѠðĠŠčĮ͠ѠðĠӍĮҮ͠ѠðŠŠčҮ͠ѠðĠͬŠ͍űѠѠàŠ͍ѠŠŠύѠŠύŠѠŲàҠŠōخӠѠĴƲӠŠҠˠӍԮĠѠŹŠԠӠҠϠԠƠӍԮàѠӠԠԠϠԠō͠ѠĠϠŠŠŠŠŠΠԠ׍ƠѠԠҍҮŠѠĴԮҠѠ¸ЮàѠƵĠҍ̠ѠŲǮǠѠ͠ǠҍǮĠѠƠĠƠ͠ҍנѠĶ ŠԠӠ׍ Ѡ                1020/ L:"EVERYTHING O.K. NO DOS ON COPY":] '(6400)162ĺ(4)"BLOAD RWTS.13,A$1900"S^SWAP CONTROLLER0TK3:ST0:LT35:CDWRJT1TK:490:360:550m430:100:STST1:STDOS1030zBF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070 BTKLT  "DONE WITH COPY":1ASTANDARD CONTROLLER[TK0:ST0:LT35:CDWRjT1TK:490430:100:STST1:STDOS1030BF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0.430:100:STST1:STDOS1070 8ST0:TKTK1:BF0TKLT1070 BTKLT1020: L:  jLL@L=@Н$@'@X@`LLLK֭LH*gLhklg8hLMئijB67hh j j) jP jQ jȪLjԭkl`g? , 8i UTBUFFER .2JSRCHRGET STABUFF,Y INY TAXENDOFLINE? BNE.2NOPE,MOVENEXTBYTE INYYMUSTEQUALEOL+5 INYFORTHEENTERLINE INYROUTINE( INY02 JMPENTER.LINEPUTTHISLINEINTHEPROGRAM < CHRGETLDA$FDUMMYNU-V *DOONELINE` * -j DO.1.LINPLAPOPOFFJSRt PLA~ JSRCHRGETSKIPLSBLINK JSRCHRGETGETMSB TAX& BEQDONE.MERGEWHENLINK=0,DONE JSRCHRGETGETLINNUMBER STALINNUM JSRCHRGET STALINNUM+1 LDY#0FILLINPBEQHOLD.ERRNOPE!(DO.MERGELDAPRG.ENDSQUASHVARIABLESTAVARTABTABLE LDAPRG.END+1 STAVARTAB+1) LDA#DO.1.LINPOINTCOUTTODO.1.LIN$ STACOUT.VECSOTHATWHEN. LDA/DO.1.LINFINISHED,8 STACOUT.VEC+1DONEXTONEB L * .HOLDANDDOANEW\f* -p*TRYFORMERGEz* -M.CMPCMP#'M&BNEHOLD.ERRNOTMEITHER,ERROR!* -*DOTHEMERGE* -LDAPRG.BEGMAKESURECMP#1APROGRAMISBNEDO.MERGEONHOLDLDAPRG.BEG+1 CMP#8GETTOGETAT$801*HOLDLDAPRG.ENDMAKESTARTOFPROGRAM0STAPRG.BEGEQUALTOCURRENTENDOFPROGRAMSEC SBC#1FINDLENGTHOFPROG STALEN LDAPRG.END+1*STAPRG.BEG+14SBC#8FINDINGLENGTH>STALEN+1HCLCRJMPEXITCMP#1POINTERISAT$801BEQTRY.MSBO.K.SOFARHOLD.ERRJMPERRORERROR!(TRY.MSBLDYPRG.BEG+1SEEIFITIS81CPY#8YINSTEADOFABECAUSEOFMERGESTOREBNEHOLD.ERRNO,ERROR!STACHRGET+1FORMERGELATER'STYCHRGET+2CHRROMJMPFIX.LINKS END.AMP* -&*STARTOFCSAVEROUTINES0* -:.OR$F700D.TA$405ANCSAVE.EQ$405A XCMP#'H bBNEM.CMPNOTANHSOTRYMlv* -*HOLDTHECONTROLLER* -"LDAPRG.BEGMAKESUREPROGRAMOAHIDEORMERGE* -%BEG.AMPLDXRD.WR.RAMRAMCARDONLDXRD.WR.RAMTWICE! JMPCSAVE1PERFORMFUNCTIONERROR.EQ$3BELDARD.ROMJMPBELLBEEP!EXIT.HOLD.EQ$3C4LDARD.ROM JMPNEWEXIT.MERGE.EQ$3CALDARD.PAGEINCCOPY.ROM+2NEXTPAGEINCCOPY.ROM+5LDAANDSTA"BNECOPY.ROMNOTDONE!#,MOVE.CSVLDACSAVE,XMOVECSAVE6STACSAVE1,XINTORAMCARD@INXNEXTBYTEJCPX#END.CSAVE-$F700TBNEMOVE.CSVUNTILDONE^RTShr* -|*DXDEXBPLMOVE.AMP* -!*MOVETHECSAVEROUTINEINTO*THERAMCARD* -LDAWR.RAMLDAWR.RAMTWICE!LDX#0STARTATZERO&COPY.ROMLDA$D000,XMOVEROMINTOSTA$D000,XRAMCARDINXBNECOPY.ROMFINISHMP+BEG.AMP!STAAMP.VEC+1MAKEAMPERSAND(LDA/$3D0-END.AMP+BEG.AMP#2STAAMP.VEC+2STARTOFPROGRAM<F* -,P*PUTAMPERSANDJUMPROUTINEINTOPAGE3Z* -dLDX#END.AMP-BEG.AMP-1nMOVE.AMPLDABEG.AMP,XxSTA$3D0-END.AMP+BEG.AMP,083RAMATIZELANGUAGECARD(WR.RAM.EQ$C081READROM,WRITERAM+CSAVE1.EQ$F700CSAVEISMOVEDTOHERE.OR$4000OUTOFTHEWAY* -$*HOOKUPTHEAMPERSANDLOCATION* -LDA#$4CAJMPINSTR STAAMP.VECLDA#$3D0-END.A$FE2CMONITORMOVEROUTINE6~FIX.LINKS.EQ$D4F2FIXESTHELINNUMBERLINKBYTES.SET.VID.EQ$FE93ROUTINETHATDOESAPR#0(LEN.EQ$FELENGTHOFHIDDENPROGRAM'RD.RAM.EQ$C080READLANGUAGECARDRD.ROM.EQ$C082READROMS.RD.WR.RAM.EQ$CCATIONSTHATPOINTTOOUTPUTROUTINEA.LINNUM.EQ$50USEDTODETERMINETHELINEWEAREONRIGHTNOW8BUFF.EQ$200INPUTBUFFERBENTER.LINE.EQ$D46ALTXT.PTR.EQ$B8VA1.EQ$3CMOVEFROM`A2.EQ$3EMOVETOjA4.EQ$42MOVEINTO'tMOVE.EQE&AMP.VEC.EQ$3F5&COMMANDHANDLERBELL.EQ$FBE2-PRG.BEG.EQ$67PROGRAMBEGGININGPOINTER*PRG.END.EQ$AFENDOFPROGRAMPOINTER)NEW.EQ$D64BROUTNIETHATDOESANEW0VARTAB.EQ$69POINTERTOSTARTOFVARIABLES;$COUT.VEC.EQ$36LO      ҠϠϠԍ ƠöҮҠ̠ҍö ƠöҮҫ̠ҍÍàŠ׍àýРưҮҠѠĠŠҠӍҠѠóҠҠŠҠ΍ҠӠŠγƠ̠ӠơҮԍ٠Π׍ŠѠõҠԠ΍ҠѠð٠ĠǍγƠѠðŠ̠Ӎ   z#????   ҮӠ͠à Ҡ ®ʰ®ʰӠήĠήРҠ͠à ήԠή٠ ٠Š!٠ŮӠήΠϠΠҠǠҮʠҮӠǮŮRECTORY !!!": |:10005 1:" 80N":0,63998:02"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:     ED STATEMENT"H:"4= KEY":14:"ADD THE VALUES AND SELECT # (1 - 7)"a::" WHICH ?"(8);|A$:A$"1"A$"7"210A$:A(A$):::"FILENAME=>";C$::C1$"":B512(C$)768(B)C1$C1$((B)): :D$(4):XWĺD$"OPEN"C$C1$:D$"RE::15)"DISK ACCESS":7:"1) LOAD FILES"TR:"2) SAVE FILES"::"3) DOS COMMAND"q\::::" WHICH ?"(8);fA$:A$"3"A$"1"210pA$"3"1210z:X(A$):16)"LOAD FILES";:16:X2ĺ"SAVE"; :7:"1= ENCODED STATEMENT"::"2= UNENCODWHICH?"(8);:A$:A$;:X(A$):A$"3"A$"1"X:PR:AW(E1$)40:XWĺ(E2$,A,40)rXWX3ĺ(E1$,A,40)(13);::Z::P$E2$:700:P$E1$:2:700 START OVER LEAVE PROGRAM*:::"BYE":4DISK ACCESS>:1180)H3$)W9253,A159:254,((E3$,A,W)):X(E2$):::210VPRINT SPACED OUT STRINGW:AW(P$)40:(P$,A,40);:(37)3::HARD COPY:"PRINTER SLOT=>";PR:PR7PR02105:"1) "(E1$,20)::"2) "(E2$,20)::"3) BOTH"::-" 9A:254,95:X(E2$):E3$(E3$,AW)(95)(E3$,65A)qA$(91)A$"@"E4$(E4$,(A$)64)A$(E4$,91(A$))W:P$E2$:700:19:7:E4$;:590E4$" ":A6590:E4$E4$(A)::E4$E4$" ":E3$" "A3395:E3$E3$(95)::E3$E3$" ":AW(E0REMOVE MODE:E1$""ıSD34,20:35,24:::"REMOVE":::"A)LL"30)"E)XIT"N21:18:" "(8);:A$:(A$"!"A$(94))A$(5)A$(W)A$(5)XA$;:A$(5)ġ::210bA$(W)660lAW(E3$):(E3$,A,W)A$Ă:(7);:5905v253,15$"!"A$(95)ıIA$((A$)128):XZ:AW(E1$):(E1$,A,W)A$XXWe:23:18:X">"A$" ";:tPUNCTUATEE1$""ı"PUNC";:A161192:253,A:254,A128X(E2$)::P$E2$:W:700:A$"":A3264&A$A$(A)::E3$A$(E3$,32):(E3$)2253,159A:254,((E3$,A,W)):X(E2$):SAZ63:C(A)Z::AW(E1$)X((E1$,A,W))160:C(X)C(X)W::XW:AW63:C(A)C(X)XA:P$E2$:W:70023:18:C(X)">"(32X)" ";:Z:1002:COUNT A LETTER"?=>";:A$:A$;:ADIT ENCODED STRING<r:2:P$E1$:700:255,(E1$):2:W:Zs|56,Z:57,8:512,Z:"";E1$:253,(131):254,(132)A(253)(254)256:A,(255):AW,128:A2,2P$E1$:2:700:E2$"..............."AW4:E2$E2$E2$::E2$(E2$,(E1$)):AW)C$"@"E4$(E4$,(C$)64)C$(E4$,91(C$))b @B$;:E3$(E3$,(A$)32)B$(E3$,64(A$)32) J253,(A$)128:254,(B$):X(E2$):W:P$E2$ TB$(91)B$"@"E4$(E4$,(B$)64)" "(E4$,91(B$)) ^700:19:7:E4$;:18:21:4);:260hEA$(K$,A,W)Ă:280N A370,810,480,570,720,520,830,790:21:18:4);:260n A$"!"A$(95)E2$""260 "A$"=>";:B$:B$"!"B$(95)Ė18:4);:260 ,B$(91)B$"@"ĭ(E4$,(B$)63,W)" "Ė18:4)(7);:260/ 6C$(E3$,(A$)31,W):C$(91:2:P$E1$:700; 19:7:E4$;:21:W:"E)DIT"30)"Q)UIT"t "C)OUNT"30)"R)EMOVE":"H)ARD COPY"30)"P)UNCTUATE" "D)ISK ACCESS"30)"S)TART OVE";:2039,210:35,18:34,0 K$(5)(17)(3)(18)(8)(16)(4)(19) 21:18:A$:AW(K$):04 AW(A$):48,((A$,A,W))128:190:16336,ZN (16384)128Ă:150| E3$" ":16368,Z:AW64:E3$E3$(95): E4$" ":A6590:E4$E4$(A)::E4$E4$" ":210 Z,47Z:Z,4739:Z,39Z Z,39W:Z,3946:Z,3947: :P$E2$:700RUN BATMAN DECODER RING"N d0:0:1002:(2048)Zĺ(4)"BLOAD BDR.OBJ,A$800"p n::255::10,76:11,2:12,9 x:48,174:190:A$"!/-"(92) 3:11:"BATMAN DECODER RING":6:14:"BY RAY DARRAH" 12:10:"PRESS ANY KEY TO BEGIN":W1:C(63):ZU [+++++++++++++++++++++];[ ]X[ BATMAN DECODER RING ]u([ ]2[ BY RAY DARRAH ]<[ ]F[+++++++++++++++++++++]P Z(104)10Ĺ103,1:104,10:2560,Z:(4)"        %L"ȱȱL*hh8H H,(,` ɉ1툆șș LɄ# ʝ Ɉ \ۥ$'Џ%% "Lɍ`ɕ(ɠ߰蝀  \ۥ$`%%L"%$% "$  \ۥ$ ĿŠҮˍ̩٠ԠΠҍҮˠРſàұРƠſӠұήƬ؍ҠЍà֍ҠұРҍ̮͠РĠοŠ̮Սؠ̠ԍӍ̮ՠРŠҠѠҠӬϠЍؠŠӠҍҠϠЍȠРĿР̠ŠҠšà֠ŠȠŠҍҠԮǫРōŠ̮ȍŠ̮ȫӍ̮ȠРпŠ̮͍ؠϠӿŠ؍РȠĿѠîٍгήƬ؍؍ήƬ؍؍؍ؠȠſŠгî٠àǠҠԮǍРҍ̮ĠРſŠ̮ȍ٠ȠϠӿѠҍѠҍؠгٍ٠бſŠвšήƬٍٍήƬٍٍήƬ؍àȠŠҍӠҍؠȠ̍ӠҠЍٍؠбвήƬٍ٠ԠōήƬٍٍčӍҠҠ٠Ԡٍ̮ɠРԿŠ̮č٠ȠϠӿѠҠϠԍ٠̿ҫӠҍҫбΠԠč̠΍ٍ̩čԠٮԠҠƠҮʍԠбŠ΍РƠӍέԠؠ̍̍àӍήƠѠԠҠӠϠŠũбѠ٠ōвѠгѠÍ͠ѠĠŠӍϠѠŠȠӍōҮРѠôŠԠƠ΍ԠѠĸŠԠҍȠѠƠ͠ӠĠϠҍǮҠѠĠӠϠǠϠԍҮҠѠҠϠԠƠӳҠϠԠĠӠō̠Ѡ٠ѠİÍ ѠòԠ̍ȠѠҠ̍֠ѠҠ̍ϠѠµààԠ͠ĠΠԠō٠٠ȍĠѠð̠ѠٮԠѠðԮҠѠ       ΍ӍŠȠ٢čӽԽ±±Խϵ˽Խԫ´˽±ԍ±ȼα±ӽԽŴŴŴ΍ŴŴŴ±Ƚ±ȼԪα³´˽ԱԽ²´±ԽԫԼαԽ˽˫˽±˽±ƽ˼α˼αźԢıӠӍ˽ԽԽĽҺŴ´Ա˺˽Ľ±¸ӽ±ĽĺӽԱ±ź±ӽ˽ȯ´˽±ԽԫԼααԽ   ²³´˽ԱԽ´±ԽԫԼαԽ˽˫ƽ˼α˼αźԢŠȠ٢čӍԱΠҍ˽ԽԽĽҍԱ˺´ź±´Խ˽ź±±ԽԫԼααԽ˽˫˽²˼α  \ ``'`حJJJJLԩLLhhߚHH`Hh`ŠŠԠΠӍӍŠӧ󠠠٠ϠŠ§󍱸ƠŠΠéӍٍؠӮҫԠԠŠˠĠŠƠŠ ΧԠōӠԠԠӠŠˠҍҠؠӮҠàӠŠΠҠϠŠŠҠҠԠРҍРƠΠРŠϠФؠĠŠ٠ӠԠ̠ŠĠϠ٠ŠӠӢРӍŠҠΠҠàҍŠŠˠ͠ӠŠϠԠРŠӠŠǠӍؠӠӠĠΠҬԠŠҠōҠŠԠ٠ҍҍҍؠҠԠϠؠϠà̠ŠŠŠҠōРҠŠ֠ӠŠ٠ĠԠӠŠŠƠŠӠōӠӠӭҠˬҠԠӠĸҭΠŠԍӮҠӮҠϠөĠӠĠŠ˩ӮҠӠҠŠŠӮ¸Ӡȍ̠ӠŠҠƠԠĠˍԠӠԠ٠ĠϠŠŠӠōϠӠӠŠ ƠҠҠϡƠӠҠҠŠҠǠӠԠčԠӠŠԠҠ̠Ҡϩ֠ӠŠϠŠĠԠҠ̠ӠŠϠŠĠǠ̠ϩˠӠˠϠӍԠӠҠϠӍҠԠҠӠԠ¸ӠӮҠƠŠ٠ԠΠŠàҍӠŬ̠Ӡ̠Ϡ΍РӠŠƠŠ©ԠӠԠϠŠĠԠԬӸ̠ӠϠР٠ԠҠǠŠӠȠÍ٠Р٠ԠϠŠ ōҠӮ¸ϠϠŠҍϠѠŠŠӠϧҍӠѠŰҠƠӠƠ٠ϠōҠӠԠŠōƠ®ʰŠҠĠΠ؍ӮѠŰ٠ԠϠŠӠԠӠѠ¹٠ԠϠŠӠŠԠ¸ӮҠѠàΠҠҠō͠ѠàŠ͠ű®ʰ٠٠ȍӮ¸ѠĹ٠ԠϠӠ¸ҠѠĴŠԠӠàϠϠ     ERROR"!2(ERR8A$"READ ERROR"6<(12:450:(7):AD ERROR"^<(20:450:(7):v0DATA FOR MARKS  ) 'A$;:'DISK ERRORI'ERR(222):ERR15ERR254Ĺ216,0:822:p'ERR254ĺ"TYPE AGAIN PLEASE:"::(ERR255ij (ERR0A$"INITIALIZATION ERROR"(ERR1A$"WRITE PROTECTED"(ERR2A$"VOLUME MISMATCH ERROR"((ERR4A$"DRIVE RIVES.":470::1000-'GET SLOT AND DRIVE#Y'450:::10)"SLOT=>"S28)"DRIVE=>"D2;x'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$(((40)(41)256(36))128060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F202122"oj'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$"INSERT DISKS IN PROPER D450::::A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$`B':(4)"BLOAD IOB.OBJ0,A$300"L'TKSTVLCDDVSO:RD1:WR2:INIT4:10220V'IO768:SLT779:DRV780:VOL781:TRK782:SCT783:BUF787:CMD790:OVL792;`':DOS16:MB151:HX$"000102030405DRD10230 :ERR15Ĺ216,0:JD(7);:BUF,(BUF)1:(BUF)MBBF1PNh'CONFIGURATION TIME}'BLOAD RWTS HERE$'(768)(769)50710060.':A$"* SUPER IOB *":450:::A$"CREATED BY RAY DARRAH":450>8'10:A$"INSERT SUPER IOB DISK":RDA$"INSERT SOURCE DISK.":SOS1:DVD1:510UA$"INSERT TARGET DISK.":SOS2:DVD2mD1D2S1S2İ470:1:1:39);::A$"READING":CDWRA$"WRITING"450::80ONERR IGNORE UNREADABLE SECTORS&822:ERR(222) 0ERR255ERR254C3:10:"TRACK $"(HX$,TK21,2)" SECTOR $"(HX$,ST21,2)" ":XCENTER MESSAGEo21(A$)2:A$;:PRINT MESSAGE AND WAIT:11:450:13:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$:TOGGLE READ/WRITE,CD(CD1)1:CD"VOLUME NUMBER FOR COPY =>254"::450:32:"";VL$:VL(VL$):VL$""VL254_ VL255VL0380 CMD,INIT:SOS2:DVD2:A$"INSERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):470 80::A$"FORMATTING"::450::IO:VL0: PRINT TRACK & SECTOR#D0,A1: ,THE SECTOR EDITOR= 6A$:(A$,7)"CHANGES"310Y @A1(A$):A1,A2,A3,A4n JA1T1A1TKĂ: T9984(A1T1)4096A2256A3,A4:: ^SWAP RWTS AT $1900 WITH THE ONE AT $B800 h253,25:255,184:224,8:832: rFORMAT DISKJ |A$й47356,A3: NORMALIZERK 47505,222:47515,170:47413,222:47423,170{ 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 ' 16 SECTOR RWTS ALTERATIONSA ALTERED ENDING MARKS| 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::VOL,VL:SLT,SO16:% ZR/W SECTORi dBF0:TRK,TK:SCT,ST:CMD,CD:IO:BUF,(BUF)1:(BUF)MBBF1o n xMOVE S PHASES 49289SO16DV,0:49289SO16,0:APH(PH4)4:1144,128A:811,128SA:813,SO16:810:49288SO16,0:PHPHS:PH0PH7  *************************?** SUPER IOB 1.2 **^** BY RAY DARRAH **}(*************************2SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983:10010FINITIAL IOB SETUP PBUF,39:DRV,DV     ǠǺ͠ŠǠɠ͢ՠڬ٠٠ڠ٠ՠӠϠΠ̠Рڠٮʠڠ٬Ϡ̠נڠϧ̠ؠՠРٮϠͧȠ٠Ӡ֠Ǡ٧̠Рٺ٠ڍĠӮԬαԽ˽˫˼α´˽ԱԽ³´±ԽԫԼαԽ˽˫ƽ˼α˼αźԢ٠Ţč˨Ҥ¸źǢȺ´̺ԺҤϬӢӲĢIJ֢̺̽΍Рҍ˽ԽԽĽҍԱ˺´³ϵ´±ԽԫԼα    Í ghgh `Š͍٠°Ӡ΍ΰ΍ؠŠ͍٠ذΠŠƮ°ؠƠĠРǩ٠°ϠΠٍΰΠؠƠҠԠԠŠàҠ͠ōҠŠ̠ԍذΠŠؠԠƠǩ٠ϠΠٍō٠Π׍ŠѠó٠ԍذΠѠðؠŠ΍ΰΠѠðΠŠ΍   ?  *FJvwx?y\xvAC  +LA -` ҠĠŠˠӍŠŠԠӠĠϠĠˍؠ  ĠԠؠƠРԠϠàȠԠӍōٍٍŠԍŠĠϠԍɯϠӍ٠ŠŠΠŠϠԍĠōԠصàϠƠƠӠɠŠƍҧӠ͠Ӎ٠àԠϠ͍Ԡ٠ŠŠҠŠ̠ˍҠԠϠ̠ǍԠРŠύŠӍϠŠŠ͠ҠŠč٠Ơ٧ӠӮҠƠ٠ōؠƠԠΠҠƍҠàĠōȠӠŠϠˠҠƠŠ ٠ƍ٧ӠԮŠŠ̠ŠŠˠҠ͍ҠĠŠϠōԠŠŠԠ̠ōĠϠĠ!! ! ! ! ! ! XU^ƍi8L"