' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `HH`>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-#(#6 @H͠٠ˠ@跻~!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 ~(` i d ֠Hz# Hu`㮠宍򍳲Ӯ宍殍뮠嬠蠢ЮϮӮ󠦠迍箠ӨĨ婠󮍍ɧ嬠䮠ì殠à䮠堨䬠à溍ͬ欠砢׿嬠婮䮠嬠쬠נ׿נ䮠䠢󢮠󮠢Ţ䠢ĮǢנӠ󮩠Ӡ󠭠䬠ע嬠嬠Ӡ䠨㮠䮠宠ɫ宠󠸰ɫ󮍍׺˩ɫ嬠砢â砢âɫᠴɫɫݢ堢堢ܢ䮠蠢䬠砢笠󠷰砢䠢᢬󢩠󺍍ԠҤңԠҤנ笠Ԡ嬠䠢碮仠ﺍנݫݍנݫݍנݫ場䮍庍纍䮠ᠢҠ嬠Š笠讠廠砢䠢Ԣ宠Ӡ箠堸宠쮠䬠堢欠笠נ׮Ӯà׮Ӯà䠢䮠䮠נݤݍ򍱰ԠҤנݤݢݠ堢謠讠宠嬠Ϡ󺠍נݍ嬠亍ԠҤנݢ㮠箠宍à󺍍ԠҤңԠҤנݢ嬠宠笠ӠàԠҤנݢ򠴰򠸰򠰠򠳠򠸰䬠Ӡ󮠨䠢î͠󢬠쮩嬠ݢݠ䬠ԠР󮍍Π򠢭Ӡ䬠䠤毠򢬠ԠР宠䠢毢쩠箍䠯毺笠䬠碠嬠宠䬠箠ᠢ袠宠ɫ嬠Ӯ場򠸰䬠ӠԠɠР䠢䢠٠謠󮍍쮠ɧ墠ӭà                  Ӯ宍Ӡ򠣤嬠嬠򻍍 ξҠԠŻžҠӠŻþϠԠ͠ ĠƠ þϠŠŭ ӾϠΠҠԠ 򍠠ң ,'. 宍宍ԬР宍砭㾠卍㾠I΢QQ. iJQQ`QQ +K8QQQQQ Qi?8QBQC ,QiQQ`Q8Hz #??    àȠĮԠ!ŠŠӠ˭"נ׮Ӡ, ŲϮűӠӠҮӶҠҠ֠ҮʠήԠ͠٠ˠ ͠ӠԠǮҠŠҠĠŠàȠRECTORY !!!": |:10005 1:" 80N":0,63998:0C"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:     " :"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* 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 K@@ @ LON'T TRY TO* DELETE THE FILE FIRST, ASF WE RUN THIS ONLY ONCE.L -MTO 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 D LY1 "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 TE) "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 ON"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 BYRWTS 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)#* 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     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)" ",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)" : : 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$  14400>H$"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,0PRINTED AS INVERSE, NO PAUSE, CTRL-C EXITS"EH$"ADA9:8E FD":5000_ H$"ADAC:8E FD":5000yH$"ADC4:8E FD":5000 H$"ADC7:8E FD":5000*H$"AE2F:AD 0 C0 C9 83 F0 F6 CE 9D B3 AD 9D B3 4A 90 25 B0 26":50004H$"B6F6:8D 10 C0 4C 7F B3":505 CA D0 F4 88 D0 EC 4C 42 AE BD D3 C6":5000FH$"ADC1:B3 B6":5000k:"STOP FRAGMENTATION OF FILES"H$"B6EA:AD EB B3 ED EC B3 8D EB B3 4C FB AF":5000H$"B2B6:EA B6":5000+:"2 COLUMN CATALOG IF IN 80 COLUMN MODE, CONTROL CHARACTERS H$"BCDF:BD 0 2 C9 E0 90 2 29 DF 60":5000IH$"A196:20 DF BC":5000z:"PRINT FREE SECTORS AFTER CATALOG HEADER",H$"B6B3:20 42 AE 20 48 F9 A2 3 BD E6 B6 20 ED FD CA D0 F7 86 44 86 45 AC EF B3 88 98 A A A8 A2 8 B9 F6 B3 A 90 6 E6 44 D0 2 E6 4:"ALLOW BSAVE LENGTHS UP TO $FFFF";lH$"A964:FF":5000lv:"ALLOW UP TO $FFFF RECORDS IN TEXT FILES"H$"A968:FF":5000:"ALLOW USE OF THE BYTE PARAMETER FOR UP TO THE $FFFFTH BYTE"H$"A96C:FF":5000:"ALLOW LOWERCASE INPUT",631:A5 B7":50002&:"FIX HEX TO DEC CONVERTER"I0H$"AE45:B0":5000:H$"AE49:38 F9 A4 B3 B0 4 C6 45 30 9 85 44 18 68 69 1 4C 46 AE 68 20 ED FD 88 10 E1 60 0 0 0 0 0 0":5000DH$"ADAF:C":5000NH$"ADB1:AE":5000XH$"ADB7:D0":5000$b0:510%H$"BA76CH$"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:"CHWRITE 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. 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::"$)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):%"L958:"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:"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:,(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& 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),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,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 ***********************;* 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      READ 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,14L39,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,142 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 - & HH&T'& 'Ȅ'X T'&i&hh`hL L ~ ңz ~ L x ~ ҠԠ ɸɰP z ~ Ԡ֠ЧˠΠŠݠϠ ɛ`L` hh   L HH`  H 췠H 귩뷍  h췭#Ţ $ ???? ? ,.:;:TT^X*..AAAAAAAAAAAA;?;;.......????????;........?A++++A+???????=??????????????????????GG == ???????????????????????????????@????????????????????+??????????????????????????????????????????????? ?????;?A???????????????????????????? 00:"COPY DONE":E '(6400)162ĺ(4)"BLOAD RWTS.SUNBURST,A$1900FSUNBURST)TK3:ST0:LT35:CDWRCT1TK:490:360:550f430:100:STST1:STDOS1030sBF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070 BTKLT102011 ˨ҤҮӶű˨ű˨ű˨ű˨űűҤҠԢϹϱĤҤԺԢҠ˿ڤԺĤңɽαβγδƽҤҽµ±ԢЩөҤҤТҤҤӢҤεĤңҤ΢϶ĤңδοϠӠ  eNsύXX?kL1 M 9LmQQ 3N mQQ  mQ eN JL ̚Q`QQ,Q  JQɣ ɍ' ɍ8Q JQթL L J J JLJQQ LQHJJJJ Lh) ɰ,QP`QL{ IQH,QȭQȌQ`Q IQȱQȱQȌQLQ=i?QmQBQmQC<QBBC<>=?<=߭Q JLLJLNLPQQȽɍ K QQQQQLLXQ*`LQ8QQJ J`Q!QB͖T`LENQQQQQQQQQ ʜQLLENQmQQQmQQQ͡Q Q͠QQ`QmQQmQ` +K8QQQQQQQQ ɛ7ɍ>)QۍQQQLdGFHQFhQQL[HLIQLIHQQ Iޑ KQLKQT?QABRAC ,BLM`جӠĠ@ eNstieQBLM`ɖ᭳ߍQQsQtQ ǜQLENs#< \A= _ATA LENn@ Tit 3N mQL[N RA8BSAfBgBRAuQmSAuQBH /ɿȱ A"" " " " " """""""""