' +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` `HH`ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx-#(#6 @H͠٠ˠ@跻~!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ƴ Hu`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` i d ֠Hz# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `ɫ嬠砢â砢âɫ宠ɫ宠󠸰ɫ󮍍׺˩ע嬠嬠Ӡ䠨㮠䮠Ӡ󮩠Ӡ󠭠䬠נ䮠䠢󢮠󮠢Ţ䠢ĮǢנ嬠쬠נ׿砢׿嬠婮䮠Π堨䬠à溍ͬ欠䮠ì殠à䮠箠ӨĨ婠󮍍ɧ嬠殍뮠嬠蠢ЮϮӮ󠦠迍㮠宍򍳲Ӯ宍ᠴɫɫݢ堢堢ܢ䮠蠢䬠砢㮠箠宍嬠亍ԠҤנݢ嬠讠宠嬠Ϡ󺠍נݍ堢䮠נݤݍ򍱰ԠҤנݤݢݠנ׮Ӯà׮Ӯà䠢䮠쮠䬠堢欠笠Ӡ箠堸宠讠廠砢䠢Ԣ宠纍䮠ᠢҠ嬠Š笠仠ﺍנݫݍנݫݍנݫ場䮍庍Ԡ嬠䠢碮笠笠󠷰砢䠢᢬󢩠󺍍ԠҤңԠҤנà󺍍ԠҤңԠҤנݢ嬠宠笠ӠàԠҤנݢӭàɧ墠󮍍쮠䬠ӠԠɠР䠢䢠٠謠Ӯ場򠸰箠ᠢ袠宠ɫ嬠嬠宠䬠笠䬠碠쩠箍䠯毺宠䠢毢򠤳毠򢬠ԠР䬠ԠР󮍍Π򠢭Ӡ䬠Ӡ󮠨䠢î͠󢬠쮩嬠ݢݠ򠴰򠸰򠰠򠳠򠸰䬠                  Q8QQQ(Q I IQQ +K JQ PDQ PJJJ DQQ) Q PJJJJJJ Q DQQ)?J DQ)ŒQ P) VQ0LCP +K JQQ PQȩQ8Q KQQ PQQLPL?PQQQQQQQ QLsI I΢QQ. iJQQ`QQ +K8QQQQQ Qi?8QBQC ,QiQQ`Q8Hz #?? ŲϮűӠӠҮӶҠҠ֠ҮʠήԠ àȠĮԠ!ŠŠӠ˭"נ׮Ӡ,   ͠٠ˠ ͠ӠԠǮҠŠҠĠŠàȠ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:0C     * PNP: PRODOS C2+ PARM NAMES PRINTOUT2:Y2"C2 PARM FILE NAME OR CAT >> ";Q$4Q$"CAT"ĺ(4)"CATALOG":Q$::507(4)"BLOAD"Q$",TTXT,A$1000,B$200"9N$Q$<F(48859)256(48860)A"LENGTH= ";F" >> ";:Q$:dS4096nQ0" :"PRINTOUT? (Y/N) ";:Q$:Q$G Q$"Y"ĺ(4)"PR#1":(27)"L007"Q :N$^ I0F1k Z(SI) Z0ZZ(SI1):ZZ0400 Z128Q1:250 Qĺ:Q0 (Z); I :(4)"PR#0" 20 K@@ @ LMTO USE: LOAD COPYA> EXEC CAPTURE.LISTT RUN 1000Z{(4);"OPEN COPYA SOURCE,D2"(4);"WRITE COPYA SOURCE"33,301,999:LIST PROGRAM.(4);"CLOSE COPYA SOURCE": NOTE THAT WE DON'T TRY TO* DELETE THE FILE FIRST, ASF WE RUN THIS ONLY ONCE.L - #* CUSTOM FUNCTION SUBROUTINE**RL"WOULD YOU LIKE TO PATCH DOS? ";Q$eV(Q$,1)"N"ı|`(Q$,1)"Y"1100j"IGNORE DOS READ ERRORS? ";Q$t(Q$,1)"N"1200:CONTINUE TO NEXT PATCH~(Q$,1)"Y"113047426,24 "IGNORE RWTS ERRORS? ";Q$' (Q$,1)"N"1300> (Q$,1)"Y"1200L 48712,24m "MODIFY ADDRESS MARKS? ";Q$ (Q$,1)"N"1400 ((Q$,1)"Y"1300 22000: MOD OR IGNORE ADDRESS x"IGNORE DATA CHECKSUM? ";Q$ (Q$,1)"N"1500 (Q$,1)"Y"1410 47406,0 $ *G * Modify/Ignore Address Marksc * Careful, this kills!j * 4"MODIFY OR IGNORE FIRST BYTE? (M/I): ";Q$ >(Q$,1)"M"2200 H(Q$,1)"I"2100 R47447,0: IGNORE 1ST BYTE. \2300: M OR I 2ND BYTE) "WHAT DECIMAL VALUE FOR BYTE? ";DI 47445,D: READ MARKER ONLYy "MODIFY OR IGNORE SECOND BYTE? (M/I): ";Q$  (Q$,1)"M"2400  (Q$,1)"I"2300  47457,0 $ 2500 ` "WHAT DECIMAL VALUE FOR BYTE? ",D j 47455,D: READ MARK ONLY1 "MODIFY OR IGNORE THIRD BYTE? (M/I): ";Q$G (Q$,1)"M"2600^ (Q$,1)"I"2500k 47468,0u 2700 ( "WHAT DECIMAL VALUE FOR BYTE? ";D 2 47466,D: READ MARK ONLY     : : D$(4)::D"ENTER THE NAME OF THE PICTURE"d("YOU WISH TO CONVERT FROM"|2"PAGE 2 TO PAGE 1"<F"";F$: GET THE NAME OF YOUR PICTURE YOUR WISH TO CONVERTP:16302,0: FULL PAGE GRAPHICS PAGE 1( ZD$;"BLOAD "F$",A$2000": LOAD THE PICTURE INTO PAGE 1/ d: nD$;"BSAVE "F$",A$2000,L$2000,S6,D2": THIS SAVES YOUR PICTURE AS A FILE IN DRIVE 2 x: D$;"CAT,S6,D1": THIS GETS YOU BACK TO DRIVE 1 AND SHOWS YOU THE CATALOG "TRY ANOTHER? (Y/N)" A$ A$"Y"A$"y"ī52 A$"N"A$"n"2008 VE "F$",A$2000,L$2000,S6,D2": THIS SAVES YOUR PICTURE AS A FILE IN DRIVE 2 x: D$;"CAT,S6,D1": THIS GETS YOU BACK TO DRIVE 1 AND SHOWS YOU THE CATALOG "TRY ANOTHER? (Y/N)"   144***********************;* *X* DOS 3.3 ENHANCMENTS *u* BY BILL JETZER ** ************************ ::"DOS 3.3 ENHANCEMENTS":"BY BILL JETZER" (44803)78ĺ:"THIS DOS HAS ALREADY BEEN FIXED":R (47721)174ĺ:"THIS VERSION OF DOS IS TOO OLD": (:"FREE 15 SECTORS, $BA76.BA83, $BFC8.BFDB, AND $B7A5.B7B4" 2H$"B70E:A9 17":5000 <H$"B710H$"AE2D:F6 B6":5000BHH$"AE64:4C 8E FD 4C 48 F9":5000RH$"BFC8:48 29 7F C9 20 68 B0 9 29 3F 2C 1F C0 10 2 9 40 4C ED FD":5000\H$"AE1C:C8 BF":5000fH$:H$H$" ND9C6G"X1(H$)511X,((H$,X))12872,0     H ***********************;* SUPER 6.0 FASTCOPYA *X* LOADER *u(* BY B.D.BRETT *2* JUNE 27, 1989 *<***********************F:PD$(4)Z1:10:"SUPER 6.0 FASTCOPYA" d10:"ARRANGED BY B.D.BRETT" n14:"JUNE 27,1989"M x6:5::"CHANGES FOR LS OR DOS3.3 RWTS":} 9:3:"This is an utility to allow you to" "modify the Locksmith 6.0 Fastcopy RWTS" "or DOS 3.3 RWTS in order to" "read from and write to protected"# "software. Use a Nibble Editor to find"O "any address or data field changes in"| "a diskette and note which error traps" "need to be aborted in DOS. Make these" "changes (next page) prior to using" "Locksmith or CopyA, but be wise in your" "choices."? 22:"PRESS ANY KEY TO CONTINUE ";:Z$:E o 3:3:"Do you wish Locksmith (L) or" 5:3:"Do you wish CopyA (C) ?";:X$: X$"C"X$"L"260 "FL1:X$"C"FL2:16384,0 ,16383,FL 6X$"C"ĺD$;"RUN COPYA.REV"% @D$;"BLOAD LS 6.0 FASTCOPY"G JD$;"RUN SUPER 6.0 FASTCOPYA"    DRESS EPILOGUE BYTE #1,DE,13519,47505,13531,48302,222rADDRESS EPILOGUE BYTE #2,AA,13520,47515,13532,48307,170ADDRESS EPILOGUE BYTE #3,EB,13533,48312,235:W BYTES ONLYDATA PROLOGUE BYTE #1,D5,13522,47335,13534,47187,213:R/W BYTES0DATA ***********************;* SUPER 6.0 FASTCOPYA *X* BY B.D.BRETT *u(* JUNE 27, 1989 *2***********************<:FFL(16383):FL1FL2ĺ(4;"RUN LOADER.S6FCA"PLS 6.0 (FL=1), COPYA (FL=2) ZA$(12,2),A(12,5),B$(11),B(11,3)7 d1:10:"SUPER 6.0 FASTCOPYA"X n10:"ARRANGED BY B.D.BRETT"y xLS 6.0 (FL=1), COPYA (FL=2) I15:A$(I,1),A$(I,2),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5): A$(6,1),A$(6,2),A(6,3),A(6,4),A(6,5)& I711:A$(I,1),A$(I,2),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5):U A$(12,1),A$(12,2),A(12,3),A(12,4),A(12,5) I111:B$(I),B(I,1),B(I,2),B(I,3): *** MENU 3:14::" PATCH MENU ": 8:3:"CHANGE READ BYTES (1)" 10:3:"ALTER ERROR TRAPS (2)"& 12:3:"CHANGE WRITE BYTES (3)"M 14:3:"EXIT TO COPY DISK (4)"t 16:3:"QUIT (5)" 22:6:"CHOICE? (1 - 5) ";:1060: X(X$):X1X5260 X5Ā "X4FL1Č8192:EXIT TO LS 6.0 FASTCOPYJ ,X4FL2Ĺ103,(16379):104,(16380):175,(16381):176,(16382):80:EXIT TO COPYA.REV_ 6:X340,610,750h @190 J*** READ BYTE CHANGES T3:7::"BYTE READ CHANGES FOR RWTS": ^6:"Do you wish Address byte changes (Y/N)";:Z$: hZ$"Y"470% r22:"ENTER CHANGE OR (N) FOR NO CHANGE"5 |VT9:I15q VT:"CHANGE ";A$(I,1);" FROM ";A$(I,2);" TO ";:1060:| CH$X$ CH$"N"I5460 CH$"N"VTVT2: (CH$)2(CH$)2390 1020:A$(I,2)CH$ A(I,FL),CH VTVT2:26:958:"Do you wish Data byte changes (Y/N)";:Z$:CZ$"Y"590p22:"ENTER CHANGE OR (N) FOR NO CHANGE"VT9:I7111VT:"CHANGE ";A$(I,1);" FROM ";A$(I,2);" TO ";:1060:CH$X$CH$"N"I10580CH$"N"VTVT2:&(CH$)2(CH$)2510'01020:A$(I,2)CH$7:A(I,FL),CHEDVTVT2:KNkX*** ERROR TRAP ALTERATIONSb3:6::"ERROR TRAP CHANGES FOR RWTS":l6:3::"ADDRESS FIELD AND DATA FIELD EDITS":vI111(I64);". ";B$(I):%"L. RWTS Changes selected-Back to Menu"U22:868:"SELECT LETTER & HIT RETURN ";Z$lZ$"A"Z$"L"670{Z(Z$)64Z12ıB(Z,FL),B(Z,3):Z6FL1Ĺ9226,24FL2Z11Ĺ47411,106670*** WRITE BYTE ALTERATIONS3:7::"WRITE BYTE CHANGES FOR RWTS":V6:"Do you wish Address byte changes (Y/N)";:Z$:gZ$"Y"880 22:"ENTER CHANGE OR (N) FOR NO CHANGE"VT9:I16 VT:"CHANGE ";A$(I,1);" FROM ";A$(I,2);" TO ";:1060:*CH$X$4CH$"N"I6870>CH$"N"VTVT2:2H(CH$)2(CH$)2800HR1020:A$(I,2)CH$Z\A(I,FL2),CHhfVTVT2:p6:958:"Do you wish Data byte changes (Y/N)";:Z$:zZ$"Y"100022:"ENTER CHANGE OR (N) FOR NO CHANGE"VT9:I712/VT:"CHANGE ";A$(I,1);" FROM ";A$(I,2);" TO ";:1060::CH$X$PCH$"N"I12990gCH$"N"VTVT2:(CH$)2(CH$)29201020:A$(I,2)CH$A(I,FL2),CHVTVT2:HEX-DEC CONVERSIONCH0:L0:L(CH$):LL48(L64)7:CHL16.L((CH$,1)):LL48(L64)7:CHCHL4GINPUT ROUTINEW$X$"":Z$""d.Z$:Z$;8Z$(8)Z$"":36,(36)1:1070BZ$(13)X$"":LX$Z$VZ$:Z$;`Z$(8)Z$"":LE(X$):LE1X$"":868:1070jLE1X$(X$,LE1):LE0:868:1110#tZ$(13)ı6~X$X$Z$:1110~ADDRESS PROLOGUE BYTE #1,D5,13516,47445,13528,48250,213:R/W BYTESADDRESS PROLOGUE BYTE #2,AA,13517,47455,13529,48255,170ADDRESS PROLOGUE BYTE #3,96,13518,47466,13530,48260,1505AD      39,47272,235:W BYTES ONLY^ADDRESS PROLOGUE BYTE #1,9043,47447,0:ERROR ADDRESSES & PATCH ADDRESS PROLOGUE BYTE #2,9054,47457,0ADDRESS PROLOGUE BYTE #3,9065,47468,0ADDRESS CHECKSUM,9095,47498,0(ADDRESS EPILOGUES,9100,47503,142READ ERROR FLAG,9117,47426,24G<DATA PROLOGUE BYTE #1,9134,47337,0oFDATA PROLOGUE BYTE #2,9144,47347,0PDATA PROLOGUE BYTE #3,9155,47358,0ZDATA CHECKSUM,9203,47406,0dDATA EPILOGUES,9208,47411,14L PROLOGUE BYTE #2,AA,13523,47345,13535,47192,170jDATA PROLOGUE BYTE #3,AD,13524,47356,13536,47197,173DATA EPILOGUE BYTE #1,DE,13525,47413,13537,47262,222DATA EPILOGUE BYTE #2,AA,13526,47423,13538,47267,170DATA EPILOGUE BYTE #3,EB,135 x ~ ҠԠ ɸɰP z ~ Ԡ֠ЧˠΠŠݠϠ ɛ`L` hh   L HH`  H 췠H 귩뷍  h췭#Ţ $ - & HH&T'& 'Ȅ'X T'&i&hh`hL L ~ ңz ~ L  ? ,.:;:TT^X*..AAAAAAAAAAAA;?;;.......????????;........?A++++A+???????=??????????????????????GG == ???????????????????????????????@????????????????????+??????????????????????????????????????????????? ?????;?A???????????????????????????????? FSUNBURST)TK3:ST0:LT35:CDWRCT1TK:490:360:550f430:100:STST1:STDOS1030sBF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070 BTKLT10201100:"COPY DONE":E '(6400)162ĺ(4)"BLOAD RWTS.SUNBURST,A$1900 ˨ҤҮӶű˨ű˨ű˨ű˨űűҤҠɽαβγδƽҤҽµ±ԢЩөҤҤТҤҤӢҤεĤңҤ΢϶ĤңδοϠӠԢϹϱĤҤԺԢҠ˿ڤԺĤң  eNsύXX?kL1 M 9LmQQ 3N mQQ  mQ eN JL ̚Q`QQ,Q T?QABRAC ,BLM`جӠĠآɠ)Qʽɠ)Q5STUPQLMQɿ QLC8LQQQQQQQQQQQQQsQQ{QQ4QQQQFQQLBQQ`Ȣʈ=QQɠɍvɠ BɥUQQQɫQQ Qɭɤ0Qɍ! KQQQɍ ) KQ ЈQQ BQ8QQQQ1 !Q1Q_ɛ7ɍ>)QۍQQQLdGFHQFhQQL[HLIQLIHQQQF JMLGQ* J Q*Q( 9 I hQQ mQ ɍ ɛQLILuEQQmQQQ8QQ0X ɍ~,Q00u譾Q/Q oKQQQ8QmQiQL[HQȭQQLHQQ QQQQ) -eiQ QQ ILuEL[H eN 9QH@QQ1Q,Q%QQ I hQ mQ ɛɍL$D MQ{ I`QQ`QQ`QQ````Q)?2`LQ)2`L8QQQQQ Q ` 3N mQL[NQQLLXQ*`LQ8QQJ J`Q!QB͖T`LENQQQQQQQQQ ʜQLLENQmQQQmQQQ͡Q Q͠QQ`QmQQmQ` +K8QQQQQQQQ Q=i?QmQBQmQC<QBBC<>=?<=߭Q JLLJLNLPQQȽɍ K QQQQQLE)a)`Q*: 9 I hQ $2 mQ2 J I hQ mQ hQ$LQiQQiQحQ*` L!#" JQ> JQɣ ɍ' ɍ8Q JQթL L J J JLJQQ LQHJJJJ Lh) ɰ,QP`QL{ IQH,$ hQ #S0SWS mQ# LI${ hQ#S0SWS mQ#LIQ$QQ M"{  hQ B$ I mQLIQ$QQ M{  hQ B$ I mQLIQQ M{  hQ$ I mQLI${ hQFLJQ L mQ :J` "" " " " " """""""""