@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}  |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8K} 3E:}DOS ĠǠĠ V2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. ,} DISK C. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 +,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG} v,(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4 uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4 u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GV}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5W}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118X}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&Y}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5Z}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4[}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24\}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333 BASIC LANGUAGE OBJ > k}MACHINE LANGUAGE DOC > DOCUMENTATION PIC/MIC/FNT/MVM > GRAPHICS AMS/MUS/MBD > MUSIC LST > BASIC LISTING l}-SOME MACHINE LANGUAGE PROGRAMS CAN ONLY BE RUN BY BOOTING THE DISK MENU "WITHOUT" BASIC.-FOR SOME PROGRAMS, XL OR XE MOD m}ELS MAY REQUIRE A "TRANSLATOR" PROGRAM TO BE BOOTED FIRST. [AVAILABLE SEPARATELY FROM B E L L C O M.]-MOST PROGRAMS ARE n} RELATIVELY SELF-EXPLANATORY; HOWEVER, SOME HAVE SEPARATE DOCUMENTATION FILES AVAILABLE. BASIC PROGRAMS MAY CONTAIN INSTR o}UCTIONS IN THEIR PROGRAM LISTINGS.-TO WRITE THIS GREAT MENU PROGRAM ONTO ANOTHER DISK, (Q)UIT MENU, BOOT DOS, AND USE TH p}E "O" COMMAND TO COPY THE MENU FILE "AUTORUN.SYS" ONTO YOUR DISK. < MENU by DAVID CASTELL >ONTARIO, CANADA K9J 7A5 e./OACADEBCDEFr} s} !"#( B) %-t}g +@2(@ =(@\(@ FORMATTEDg(@2{"(@ u}DRIVE #1.@K(@ W@u(@ esc {7$ F:," +@v}$ @A< 6-F:, @(@UF: +@@4(@ working:P@6-?:<<<<,,6-Fw}:,%AV$F:%,@ A!AZ*@*(@ WORKINGK -% 6-?:<%<<<,,@x}G(@ K %6-?:<<<<,%6-?:<<<<,4 % D:DOS.SYS4$%D:Gy}@ ,(@ aan ??3)G"@@A %+J+000+-@z};( >(JARV 6-6-%-A6Ab=6-F:,%F:%,$AVI!A L'V A@{}G -( SECTOR# #6-%7%"$* Ax=6-G6-%$+%"@7* A !6-+6-$% -|}A E-@#*(̠ɠ٠Π8-A< E6-F:,`+@C,*+@5,)-@#}}D( SHALL I TRY AGAIN ??R-AV ` A@$"@5+.  @A Z+A~}@P5( ;Z(() Write DOS to disk(s). M( (,(() Change directory sectors./(2(M(}() Use boot sectors. B( ("(() Skip to format.%(((B(() Do both and . )( (#( Selection:>>>}) F:,"A0 K )$+!@S,)+ @I,5( C-AG K  ' (>:,6-&@H}' %$A  ((A10! E (}E(1CANNOT write DOS if BOOT sectors are being used.& 6(0($Press }'Y' to cancel BOOT sector use.6+ F:,"A10 % )(>:,%"@A105 L('( Write DOS CA}NCELED./-9-$= D(H L : L 6-6-+67@<@,.>:$,.(L(Adjusting to write DOS.? A}6-@:7<,,!A%6-&367<,.>:,A67<,.>:,D ( --$  ($ (  ((A20 : }(}:(&MUST write altered DOS to diskette(s). 6(0($Press 'Y' to cancel BOOT sector use.6 F:,"A2} % )(>:,%"@A20 L('( Directory alter CANCELED./-9-$= D(H L  h 6-}6-+67@<@,.>:$,.(L(Adjusting to write DOS.h67@<@,.>:$, R67<,.>:A,+67<},.>:A,9-AC-$G N(R  `(} ٠+@46-F:,`( Directory leng}th is  sector(s). !(( NEW LENGTH=! F:,"A2P G )+!,)+ @I,1( OUT OF BOUNDS}9-= G A2@ 6 (>:,6-&@H*6-A2p6 A2`% )67<,.>:,%67<,.>:@c,)  )67}<,.>:,%67<,.>:@1,)  )67<,.>:,%67<,.>:@,)  )67<,.>:,%67<,.>:@,)  )67<},.>:,%67<,.>:@,)  )67<,.>:,%67<,.>:@,)  )67<,.>:,%67<,.>:A,)  %67<,.}>:A',%67<,.>:, ? 6-%&6-@:7<,,#6-%167<,.>:,?67<,.>:, Z(4( Directory changed to F:,} sector(s).7(T( Press 'Y' if correct.Z F:,"A2  )@A2@ ! (>:,-A} !  ((A30 J (}J(6 CANNOT use BOOT sectors if DOS is being written. 2(,( Press 'Y'} to cancel DOS write.2 F:,"A3 % )(>:,%"@A30 O(*( Use BOOT sectors CANCELED}.2-<-$@ G(K O  Y 6-6-/67@<@,.>:A',2(Y(! Adjusting to use BOOT sector}s. 56-@:7<,,6-%'67<,.>:,567<,.>:, ( --$  ($ ( H $ a 6-67<,.>:A},167<,.>:A,Q67@<@,.>:A',W6-a A2@'<;A`,;A(,;@,;A,};A(,H6-@T6-Ad`6-A6l6-@3x6-AU6-A0'c6-@6-A`#6-%+6-%}36-%;6-%G6-B2yO%W6-&c6-@' +@@7(@ DISK FORMATB(@\(}@ g(@(@ verify6-'ic67@,.Phh h  hhhhhh8}˥`Ω1iˍi6-$'XX67@,.Ei̍  @! W)  Y}&''67AP,.>:AU,'6-A9('67AQ,. ԩ`)'A@ (@8(@ by: }A6-C:,.'`-AA867&A<&A,.>:F:,,< W67@<@,.`6-C:,8'nn6.d}='8/67A,.}86-C:,B'1-A(% )6-@V16-%G'? 6.67A(,.%67,..6-C:,}<K:?$D2:FORMATIX.BASA(% )6-@V16-%G'? 6.67A(,.%67,..6-C:,(476) x66ɸfɮAɕ^ɗZɒ8ɯ /66i07 6L47Lx6L6p 6 6 } h2GH 6!@ YG GLI6EcE ?7G7E<7;76:76ɒL5G }ȱGL56 &76 x6<7 67:76 x6 :7;7Gԍ=7ȱGՍ>7 ؠȱ67)6767 x6N>7n=7j****}jH=7i h1EEE8E;7Ȍ;7L4<7:7 芢&7 x66ɗMEFh 6 6<75#7 `<7}i 6 66ɕO7 6 6L4 6B D7E HIKJ V6 660L4ԩ ؠ 7ȱ 7) }77 x6L4DEHI BLVp BLV   16`y YhhLI6/ } mt DOS oth ero lr uitD1:DOS.SYSError #128Bad sectors :  78w T }BDE(HI VLNo DOS.SYS: press Ԡ to re-boot44 78w T RR''DIRENTESPGCIOCIO2SRCDSTNAMESLOCKSTRTLENGLINETMPFILEUSEDVBUFLEBUFDRFILEINFILOUTFIL}APPNINDEFILENININRETRISTAOUTINDNAXREDDIMRUDXPROGCHOIC#9-} < C JMP@APAAA\z}AA  !"#$%}&'()*@+,@-./012 u +Q;}@,;@,;@,;@",;A,;@,c@@uAR@11;@,;@},;@,;@,pp;@d$@,;@d,9@d,9@d,;@0,;@,;@,9@d,};@,Q0@@@70@Q0@@s( }Š>(%...}.for drive configurations(0VERS.3.2,1984by %%( BASED ON and ))(}!  in the public domain.Y-(% ==> CLEAN OUT DISKSY(' ==> MULTICOPY, DOS FNCTNS }''(Ԡ ==> EXIT TO BASIC#&6-F:B2y,&"@@5("@A5-"@+}2PA@/0@@@I0@@P6.7+ 6. 67A,. +67@,.}:M%(}Π WHICH DRIVE?/ APM@I*@P@U<= 6.D1:6.D1:*.*&"@P36.D2:*}.*=6.D2:A @p AF @@K @P11()}ˠ٠}U@( Z@( @_)@&(ĠƠǮ)$dO(( ==> ABORT}1( ==> CONTINUE; APO"@e@%i6-@6-@nb( }TO PURGE7( AFTER EACH FILE DIS}PLAYED PRESSb(&̢Т TO DELETE OR -PRESS Šs: AE( TO CONTINUE:@@x@}"-@@h7@<@,0 FREE SECTORS*7@<@,0 FREE SECTORSl(o(}(Š A0}} AE AP@+-@@9( CHOICE V-@6?@r2@ @}v  A 67@<@,.B67@<@,.7@<@,[67@<@,..67@<@},.7@<@,q67<,.6-%@*6-%@G-@6? c2@@@g q} A  A ( (J,($PRESS TO , OR TO 6 APJ"@A`AUAP} A'6-@6-@'6- A6.7<,,-@@:6-%@G7<,4 }k67<@,.7%@<@,67@<@,. 6-&@ (@6@M}@3@[6-%@i6-%@u6- Ae@@ @p}&(  = RERUN&( = MENU# AP"@# @U @% (}*'( SHALL I PURGE THE FOL}LOWING?*(% A06-@%6-@##(7<,7%@<%@,17<,4 !($(. B}1$)6-%@06-%@0) A  B($Ю, ver 2.1$$REVISED 10/84 BY JOHN DEFIELD}S AUI@.@@K:;)@F@I$U +A 1A}ACAR@UA@6.h V`6.h V`  6.NN(6-(;6-@P$P:+I:},&AV,'@P,G6-@N;,SA@'-@S( erify=,ormat,ir,opy,=>MENU}.$( ename,ock,nlock. AP"@I6-@"9"@*4N'A@/6.Y9 A}'/"@*4Y'A@/6.N,"@pA %1"@hA E6"@gA@;}"@'%@"@AEE"@vA`J"@ApO AuTO(}Š===>}( AP/(>:,E@I*@PO A@Y# 6.D1:"@P#6.D2:^S"(Π===>, A}P3(>:,I@I*@PS APc# 6.D1:"@P#6.D2:hF"(INSERT DISK(S) AND HIT<(ANY KE}Y TO CONTINUEF APm1 4D1:1@@D1:*.*r1 4D2:1@@D2:*.*wd}-@@P`67B:,%@,.2 d |//('}Enter to duplicat}e, to continue--(% 6- A0@(**7@<}@,4SECTORSA5**7@<@,4SECTORSA5( dupl(Y/N)? * AP(>:,*+@,}A_6-%@E67$@&@<$@,.7@<@,_67,.7@<@, A6-&}@ @(" %(( ===> ABORT ( ( ===> CONTINUE AP"@e}%3-@ 68,-/68,-3 6-@6-@6-6-@!A}8,!A A 68,-&&6.7$@&@<$@,;;(Ժ 7@<@,} 7@ <@, AU @@;8,!@-6-@;6-&@} 68,-68,- 6- A"A6A`*!%@ ( Ġ* AP!}@A&; @6-%@1( - ; A0+5+(# after 5 retries, ٠5} Au0 (8,5@:6-%@?!!%@&A%AuD AI(8,N@}S@X6-@]"@A`(bJ 4*(Insert Ԡ disk, hit 4 AP@AU}J Ag -@8," 6-l q&&6.7$@&@<$@,v::(Ժ 7@<@, }7@ <@,{ AU3"@6.7@,$6.367@,.A`* A e*@}@ Ae& 4&@@ 6- AP)@}@6-%@ A!A(J 4*(Insert disk, hit 4 AP@AU}J A Ap> A -@07<,4*A4 > A e(N"@.(Insert } disk, hit 8 APDAUN A-@ AP&&6.7$@&@<$@,(}˺  AU3"@6.7@,$6.367@,.((@5@  6-} A e 6. 6.-@@7<,4 A67B:,%@,.7<,  67B:,%@},..+(67B:,%@,.7@ <@,+$AP@ 6-C:7,,%;$AR&AV$P:'AV,};ASP:'AV,*6-%@&/6-A%$P:'A%,4;$AV&AV$P:'AV,;AWP:'AV},96-?:C:,,>%%6-F:AV,%AV$F:AW,C+6-F:AQ,(!@*A6+$H68,-8,%M 6-}%$RAf@W6-C:7,,\;$Ah&AV$P:'AV,;AiP:'AV,a 6-8,f;$Ar}&AV$P:'AV,;AsP:'AV,k6-?:C:,,p F:Ag,!@A u6-%8,$z#6-6@}#6. ||||||||||||(-@(8,A ..27$@&@<$@,A &&6.7$@}&@<$@, 6-   $>-@@#4(ŠҠ> Au^A@R4(}} OR > APT@I*@P^ A %# 6.D1:"@P#6.D2:\<(HIT TO F}ORMAT >:%A(, , TO ABORTF APR@\ Au< A 2AT@< }AuK(} of: or ' AP36-@?"@PK6-@"@6-@!! @I)}!@PAu A &&(}Ԡ٠'6.D1:*.*4D2:'6.D2:*.*@ @}p 6. Au,,(}Ԡٺ>:%Av,46-6.D:*.*'"@46.D2:*.*} A @p"("( ==> PRINT DIRECTORY( ==> CONTINUE) AP@:P,6.) Au}) A(%( ˠŠ)@@.@@P:@(@+@+@}@L A@(@ 1-@@>@L(@   (@  A0}M'(@(@'@2@< B'gC6.M Auw A(('(Ġ ==>+4}6-B:,K67@<@,.d67@<%@,.w6. j(נ ==>:67%@<%@},.,C6-B:,`67%@<%@%,.j A=(@2@3@= Au$! A} A! A)=(@5@3@= Au.! A A! A3=(}@6@3@= Au886.D1: ,6. 86-@=_ (}}Ƞ ==>* AP1(>:,="@PS6.D2: _6-@B$G<(Ƞ ==>667@}<@,.9(<$LA@"@>@@D1:*.*A$Q*'@@D2:*.*}*$V( ===> ABORT[( ===> CONTINUED:MAIDD1:*.*A$Q*'@@D2:*.*KUVNeSUBSTARSUBENBASTOAMEMTOBUBUFLEGPWRERROLINFILELEDRIVSTRTSECSECTCN} } $$CASSETTE BOOT MANAGER VER. 2.0BY H.E.STRIEPE 13JUL82###THIS PROGRAM IS IN THE PUB}LIC(""DOMAIN, FURTHER DISTRIBUTION*##MUST CONTAIN THIS REFERENCE !-.WRITTEN FOR ANTIC,/THE ATARI RESOURC}E,0AND FRIENDS123>>> THIS IS PART A <<<47""NOTE: THIS PROGRAM CONTAINS<""RELOCATABLE SUBROUTI}NES THATA!!CAN BE USED FOR GENERAL I/OFFROM BASIC AND BASIC A+K ( THE LATTER ALREADY HAS APFAST LOAD ROUTINE} ).Q""THESE SUBROUTINES COULD ALSORBE STORED IN STRINGS.SUV##TO ENHANCE SPACE UTILIZATION,W##THIS PRO}GRAM IS IN TWO PARTS.X""THIS PART A IS FOR SET-UP OFZ""SUBROUTINES, PART B DOES THE[$$ACTUAL WORK; OTHER SCHEMES ARE}\##POSSIBLE. FOR CASS. VERSIONS,] PART B SOULD BE SAVED WITH^$$'SAVE "C:". COMPATIBILITY WITH_!!BASIC A+ HAS BEE}N RETAINED.`c!!THIS ROUTINE SETS UP SCREENn +AAF1AADCAR@}F(n(#CASSETTE BOOT MANAGER VERS.2.0(by H.E.STRIEPE 1982(X( ( ((X(DThis program permits the dup}lication of privately owned single-stage:*("cassette boot tapes to cassette or4(disk.7(:(PP(H DO NOT USE TO I}LLEGALLY COPY COPYRIGHTED MATERIAL !!! -A@-OPEN UP BOTTOM WINDOW+,""NOW WE LOAD SUB}ROUTINES, AND- CALL THE COMPANION PROGRAM.18(>:A%,8(#LOADING MACHINE LANGAGE ROUTINES...6 A A} @,(>:A%,,(LOADING MAIN PROGRAM...E$$POKE 764,12 for CASSETTE vers.Jh% D:CBOOTMGBh<<<< CHANGE TO 'RUN} "C:" ' FOR CASSETTE VERSION NOTE: CBOOTMGB must have been savedTwith ' SAVE "C:" 'THIS SUBROUTINE ADDS DISK} HANDLING ROUTINE EXPECTINGDISK DEV#,DISK COMMAND!!(ASC("w") OR ASC("R)),start""SECTOR,SECT COUNT,BUFFER A}DDAS USR CALL ARGUMENTS6-A6-A -"   32,68,218,104,201,5,208,74}!!104,104,141,1,3,104,104,141$2,3,104,141,11,3,104,141.""10,3,104,133,204,104,133,2038104,141,5,3,104,141,4,3B}32,83,228,48,35,173,4,3L24,105,128,141,4,3,173,5V3,105,0,141,5,3,238,10`3,200,3,238,11,3,198,203j""208, }222,198,204,16,218,160,1t132,212,96~$BINARY PUT/GET SUBROUTINE LOAD ROUTINE EXPECTING I/O""CHAN }.,COMMAND(7-GET,11-PUT),BUFF ADD,BUFF LENGTHAS USR CALL ARGUMENTSGET COMMAND RETURNS FILE##LENGTH IN $C }B & $CC (203/204)6-A6-AQ -"   32,68,218,104,201,4,208,43!!104,104,1 }0,10,10,10,170,104 104,157,66,3,104,157,69,3104,157,68,3,104,157,73,3  104,157,72,3,32,86,228,132*!!212,189 },72,3,133,203,189,7343,133,204,96>$ !!THIS IS PART B OF C BOOTMGR  VERS.2.0 BY H.E. STRIEPE 1982}  INITIALIZATION& + ;@,0 %%6-F:AD,%AV$F:AE,: %%6-F:AA,%AV$F:AB,D }6-%AN 6-&X 16-@6-@&6-@:W,16-@:R, h3(>:A%, INSERT BOOT SOURCE CASSETTE INTOR}(CASSETTE DRIVE,PRESS ,h(AND PRESS  QQTYPE 'PLAY' AND 'RETURN' IN PREVIOUS LINE IN INVERSE VIDEO (ATARI LO}GO KEY) /#@@A(C:/SHORT IRQ 00(>:A%,LOADING CASSETTE BOOT FILE... 6-?:A<@}<<<, $@6-A2$ A@P a"@F(>:A%,>:AS,INSUFFICIENT BUFFER SPACE...Z-@}AP^ a% %%6-F:A,%AV$F:A,  THIS ROUTINE ASKS FOR ""INPUT ON WHETHER CASSETTE OR }DISK BOOT IS DESIRED  H1(>:A%,DO YOU WANT A COPY ON CASSETTED( OR DISK (C/D)H $$7@<@,4}CA7@ $$7@<@,4DA5P (((>:AS,INCORRECT RESPONSE... A3   THIS ROUTINE }CREATES A BOOT DISK  //(>:A%,INSERT A FORMATTED DISK INTO A(DRIVE #1, PRESS ATTYPE 'RETURN'} IN INVERSE VIDEO 46-@6-@46-P:'A(,%@ H#@@K:0)@96.>:},D@H((((>:A%,WRITTING BOOT DISK...6-?:A<<<<<,6-A5P A@P$&&(>:A%,}DO YOU WANT ANOTHER.( COPY (Y/N)8$$7@<@,4YA3 B%t~""THIS ROUTINE CREATES ANOTH}ERBOOT CASSETTE TAPE[4(>:A%,!INSERT DESTINATION CASSETTE,PRESS[(! AND , ANDPRESS }KKTYPE 'RECORD', 'PLAY', AND 'RETURN' IN PREVIOUS LINE IN INVERSE VIDEO##@@A(C:(((>:A%,}WRITTING BOOT FILE... 6-?:A<@<<<,$@6-A7@$ A@P62(>:A%,DO YOU WANT ANO}THER COPY (Y/N)6$$7@<@,4YA3 %THIS ROUTINE EXAMINES THE##ERROR VALUE RETURNED} FROM THEUSR FUNCTION="@)"A6$=NORMAL I/O EXIT OR END OF FILE"A@O:(>:}A%,>:AS,I/O ERROR, CHECK PERIPHERALSO(AND TRY AGAIN..."-@A '" p +-@ }@m(>:AS,>>>>> PROGRAM ERROR, REVIEW USR <<<< ARGUMENTS...p&D1:CBOOTMGR.BAS-@tUVu SUBSTARSUBENBASTOAMEMTOBUBUFLEGPWRERROLINFILELEDRIVSTRTSECSECTCN!"} !#} !!THIS IS PART B OF C BOOTMGR  VERS.2.0 BY H.E. STRIEPE 1982  INITIALIZATION& !$}+ ;@,0 %%6-F:AD,%AV$F:AE,: %%6-F:AA,%AV$F:AB,D 6-%AN 6-&X 1!%}6-@6-@&6-@:W,16-@:R, h3(>:A%, INSERT BOOT SOURCE CASSETTE INTOR(CASSETTE DRIVE,PRESS !&},h(AND PRESS  QQTYPE 'PLAY' AND 'RETURN' IN PREVIOUS LINE IN INVERSE VIDEO (ATARI LOGO KEY) /#@@!'}A(C:/SHORT IRQ 00(>:A%,LOADING CASSETTE BOOT FILE... 6-?:A<@<<<, $@6!(}-A2$ A@P a"@F(>:A%,>:AS,INSUFFICIENT BUFFER SPACE...Z-@AP^ a% %%6-F:!)}A,%AV$F:A,  THIS ROUTINE ASKS FOR ""INPUT ON WHETHER CASSETTE OR DISK BOOT IS DESIRED !*} H1(>:A%,DO YOU WANT A COPY ON CASSETTED( OR DISK (C/D)H $$7@<@,4CA7@ $$7@:AS,INCORRECT RESPONSE... A3   THIS ROUTINE CREATES A BOOT DISK !,} //(>:A%,INSERT A FORMATTED DISK INTO A(DRIVE #1, PRESS ATTYPE 'RETURN' IN INVERSE VIDEO 46-@!-}6-@46-P:'A(,%@ H#@@K:0)@96.>:,D@H((((>:A!.}%,WRITTING BOOT DISK...6-?:A<<<<<,6-A5P A@P$&&(>:A%,DO YOU WANT ANOTHER.!/}( COPY (Y/N)8$$7@<@,4YA3 B%t~""THIS ROUTINE CREATES ANOTHERBOOT CASSETTE TAPE!0}[4(>:A%,!INSERT DESTINATION CASSETTE,PRESS[(! AND , ANDPRESS KKTYPE 'RECORD', 'PLAY', !1}AND 'RETURN' IN PREVIOUS LINE IN INVERSE VIDEO##@@A(C:(((>:A%,WRITTING BOOT FILE... !2} 6-?:A<@<<<,$@6-A7@$ A@P62(>:A%,DO YOU WANT ANOTHER COPY (Y/N)6$$!3}7@<@,4YA3 %THIS ROUTINE EXAMINES THE##ERROR VALUE RETURNED FROM THEUSR FUNCTION!4}="@)"A6$=NORMAL I/O EXIT OR END OF FILE"A@O:(>:A%,>:AS,I/O E!5}RROR, CHECK PERIPHERALSO(AND TRY AGAIN..."-@A '" p +-@@m(>:AS,>!6}>>>> PROGRAM ERROR, REVIEW USR <<<< ARGUMENTS...p& D1:CBOOTMGB-@@m(>:AS,> U_`0RSTARTYNNAMECORBUFARAIOCFIRSBOOLASFIRSTLASTASIZAUXSIRLENTBURSTARPOLON%8} %9}^&;@,;@,;@,@6-P:?$I:%:},,R;,;A,^6-+-@@1"'67,.>:,+ a +(*0@@Q6%;}. DOS 2.0S DISK TO CASSETTE TAPE[ @5^(a(?6-@$@+-@@/";67,.>:,? Z @%<}B6.. ENTER FILE NAME (D:FILE) AND PRESS L @5PZ B4 @*@@4 %=}@K(=(ERROR F:A, FILE >:@4,>:@4,H@Kw B)@')@=%>}AU)AU_6.FILE NOT BINARY SAVE FORMATi @5t@w )@)@-6-%AV$86-%?}&B:,E)@R)@b6-%AV$"A6*"A7@C 3 -)@/67B:,%@,.>:,%@}3  K @)@')@76-%AV$K"BU5@ *A6@ M"A6)%A}@))@96-%AV$M"A7@D"A6@F 6-6-&&@"6-B:,.%B}F67%<%,.>:,T)@)@-6-%AV$56-&J*B:,%T @A B)%C}6.LOGICAL RECORD ERROR!3 @5>@A,F:A,"A6" B, @!IF:A,"@<6.%D}RAM TOO SMALL IN THIS SYSTEM!F @5I(%(>:AU, ERROR F:A,(w@6-P:'AV,/6-&AV%E}$I67@<@,.>:,c67@<@,.>:,w"AU@&n @"n6.ZBINARY FILE IS NOT LOAD-AND-G%F}O (NO RUN ADDRESS APPENDED TO FILE)!PLEASE ENTER DEC.-ADDRESS0"6.$A000 HEX IS 40960 DEC. , @50+ B+%G} )!BU4@"X6-P:'AV,$6-&AV$>67@<@,.>:,X67@<@,.>:,66-P:%H}B:,'A(,($A(B:,66-%@67@<@,.>:,B86..WRITE PREPARE BOOT TAPE! BEEPS REQUIRE RE%I}TURNB @5i6-A(6-@'6-@K6-P:B:,'A(,$A(%A(T6-C:,^ @Fi@ %J}@0:6.& ANOTHER COPY OF BOOT TAPE? Y/N RETURND @5H7@<@,0Y*7@<@,0N@0%K}. B.7@<@,4Y@( ~ @286.$ANOTHER BINARY DISK FILE? Y/N RETURNB @5F~7@%L}<@,0Y*7@<@,0N@2!) B&7@<@,4Y)%"#Q%6-F:@,&F:@,%@%M}36-%@?6-NB:, @Q$$7 B:,"(6.4@F:@,&@7$% B:, (6.%N}$&b6.7<,#4 )4>:AU,16-&@@(7@<,V6.7%@:,7)@Q6%Q}7@<@,.>:,]6-AU`$."@ @G3/! B!@C:0A2%%@%R}100A2%%@&+P:'AV,$AV,2$$A2%%@P:'AV,300A2%%@&+P:'AV,$A%S}V,4$$A2%%@ P:'AV,5A2%%@6A2%%@7 6-C:,6-?:<,$8bb0%T},1,0,33,0,33,169,60,141,2,211,169,2,133,9,169,0,141,68,2,165,12,133,2,165,13,133,3,108,12,09104,104,104,170,76,86,228:%U}%0@@% A D2:OBJD2CAS,12,133,2,165,13,133,3,108,12,09104,104,104,170,76,86,228:$<*+ANREADADBTOOTOSTARFLELASSECTO)W} d +n;@,x(!!(PLACE BOOT TAPE IN PLAYER(REWIND TAPE - )X}(DEPRESS PLAY BUTTON(PRESS RETURN KEY(##@@C:)@)@)Y})@)@@(SYSTEM PARAMETERS:(%%6-F:AD,%AV$F:AE,(BASIC ME)Z}MTOP = %%6-F:AA,%AV$F:AB,( OS MEMTOP = ( FREE RAM = &"(,6-%AV$6(Y)[}OUR BOOT TAPE NORMALLY@(LOADS STARTING AT J"6-AVT( CONTAINS  RECORDS^6-A($)\}h( =  BYTESr(|6-%A 6-% A(WORK AREA REQUIRED(( TO )]}((INSUFFICIENT FREE RAM( (SORRY&-A6Ai"  104,162,16,169,7,)^}157,66,3104,157,69,3,104,157,68,3&104,157,73,3,104,157,72,30""32,86,228,16,4,169,1,133,212:96D(REWIN)_}D THE TAPE AGAINN(DEPRESS PLAY BUTTONX( PRESS RETURNb(l##@@A(C:v6-?:A6<<)`},@@A(TAPE READ ERROR&(PUT A FORMATTED DISK IN(DRIVE #1 - PRESS RE)a}TURN(Ai@DUNIT=1 Ap@ WRITE=87AyDAUX1=0-A6)b}A@"   104,32,83,228 96*-@4$$Ar&AV$P:'AV,>As)c}P:'AV,HAxR6-?:A6,\6-%A(f p(z (DONE D2:BOOTTAPEAs(rkl<Z q ARRAYFILENAMEDISKFILECOUNCHOICLOOPAUSCIOBUFBUFLEINDEAUXISTAOUTINLENHELPFCOUNOLDZL-e} -f}pp˭ϭŠƬé -g}٠Πɠͭ ҠӠ9;@,6.h V`9PLA/LDX #$10/JSR CIO/RTS-q}#b'DOS SYSb*+DUP SYSb UAUTORUN SYSbaHELP DOCb,qFORMATIXBASbFORMATEROBJbPTHEMAID BASb,CBOOTMGABASb!CBOOTMGB b7OBJD2CASBASbVBOOTTAPEBASbdDISKTAPEBASbACARTCOP DOCbCARTCOP OBJb#BLKRABITBASbSYNCOPY OBJb DUPFAST OBJb*DUP2DRIVBASb>POLYCOPYBASb+\MFDUP BASbDBLSCOPYOBJbSECTCOPYOBJbCOPY130 BAS&&;@,;B@,;@, 2&;A(,;@,;@ ,26-@ ;@,'@@'-r}@@93 +@-@@3 @b(@*(@ G(@ -s}b(@ d(@)(@ IS DISK YOUG(@ WANT BACKED UPd(@-t} IN DRIVE ONE?K(@.(@ is cassette unitK(@ set to record#O(@+(@ -u}6(@O(@ ( F:Ad,@@@- +2 6.D1:< 6.F67B:,%-v}@,.*.*P6-@w''@@D1:*.*y 6.{-@}@(7@-w}<@,4SYS( A!''7@<@,4MENUA!  @ 6-%@++67@<@,.7@-x}<@,++67@<@,.7@<@,@ A67B:,%@,. A` 6-y}.ab-@A^67B:,%@,.2 b e6-B@STA-z}RT UP COPY6-@2 6.D1:267B:,%@,.7@<@,]7@<@,0 D67@<@,.-{}7@<@,]67@<@,..A 6.-@B:,(7<,0 A67B:,%@,.7<, 76--|}4C:$6-A(7SHORT RECORD GAP! B A$! A0'$(̠ӠĠϠ'-}}@@$$( NOW READING 7@+%%6-F:AV,%AV$F:AW,C++6-F:AQ,(!@*A6-}+$H+ 6-R+ 6-%f+$.WRITE FROM BUF$.(AP@(WRITE CHARACTERS.6-C:7,,.;$AR&A-}V$P:'AV,;ASP:'AV,/ 6-/;$AV&AV$P:'AV,;AWP:'AV,/6-?:C:,,&-}/.F:AQ,!@+( WRITE ERROR:.&:/$D:DISKTAPE.BASh:'AV,;AWP:'AV,/6-?:C:,,&,J ******************** * * * * * CARTRIDGE COPIER * * ===1}============= * * * * Make back-up * * copies of your * * cartridges onto 1} * * cassette tape! * * * * To the best of * * our knowledge, * * t1}his program was * * created by ALEX * * KOSKI of Canada. * * * ****************1}**** |||||||||||||||| ---------------- WARNING ---------------------------------|PLEASE N1}OTE THAT THIS PROGRAM IS ||NOT TO BE USED TO MAKE ILLEGAL ||COPIES OF COPYRIGHTED SOFTWARE! ||ITS ONLY PURPOSE IS TO PR1}OVIDE ||YOU WITH BACK-UP COPIES OF YOUR ||CARTRIDGES FOR YOUR OWN USE ONLY.| --------------------------------- 1} CARTRIDGE COPIER ----------------THIS PROGRAM WILL ALLOW YOU TO MAKEYOUR OWN BACK-UP COPIES OF YOURATARI CAR1}TRIDGES ONTO CASSETTE TAPEUSING THE ATARI DATA RECORDER. IF YOU WISH YOUR BACK-UP COPIES TO BEON DISK, THERE ARE SEVERAL P1}ROGRAMSAVAILABLE IN THE PUBLIC DOMAIN WHICHWILL COPY BINARY BOOT TAPES TO ADISKETTE.CARTRIDGE COPIER WILL COPY "SOME"KI1}NDS OF 8K CARTRIDGES. IT WILL NOTCOPY 16K CARTRIDGES IN ITS PRESENTFORM, BUT THOSE WHO ARE ADVENTUROUSMAY BE INTERESTED IN1} ALTERING THEPROGRAM TO DO THIS. THE ASSEMBLERLISTING IS INCLUDED ON THIS DOCFILE FOR THIS PURPOSE. INSTRUC1}TIONS ------------YOU MUST FIRST COPY THE PROGRAMCARTCOP.OBJ ONTO TAPE. THERE ARESOME PROGRAMS IN THE PUBLIC 1}DOMAINWHICH WILL ALLOW YOU TO COPY BINARYDISK FILES TO TAPE.NEXT INSERT THE CARTRIDGE YOU WISHTO COPY INTO THE LEFT SLOT1} OF YOURATARI 800 (THE ONLY SLOT OF A 400/XE/XL). TURN ON YOUR COMPUTER WHILEHOLDING DOWN THE START BUTTON (BOTHTHE START1} AND OPTION BUTTONS ON ANXE/XL MODEL) AND BOOT IN CARTCOPFROM YOUR ATARI RECORDER THE SAMEAS YOU WOULD BOOT IN ANY BINARY 1}LOADTAPE.IF YOU FIND THAT THE PROGRAM WILLSIMPLY NOT LOAD WHEN YOU HOLD DOWNSTART AND POWER UP (YOU DON'T HEARANY BEEP)1}, IT MEANS THAT YOU HAVEWHAT IS CALLED A DIAGNOSTIC CART-RIDGE IN YOUR COMPUTER. IT CAN NOTBE COPIED USING THESE METHODS.1}IF YOU FIND THAT THE PROGRAM BOOTSIN OKAY, BUT YOU ARE STARING AT ABLACK SCREEN, IT MEANS THAT THE CARTRIDGE IN YOUR COMP1}UTER IS A 16KNON-DIAGNOSTIC CARTRIDGE AND IT CANNOT BE COPIED USING THIS PROGRAMAS IT NOW STANDS.IF YOU FIND THAT THE PR1}OGRAM BOOTS IN OKAY AND YOU ARE LOOKING AT ATITLE SCREEN, IT MEANS THAT THECARTRIDGE IN YOUR COMPUTER IS AN 8KNON-DIAGNOS1}TIC CARTRIDGE AND YOUARE ALMOST HOME FREE. JUST FOLLOWTHE PROMPTS AND YOU WILL BE ABLE TOMAKE A BACK-UP OF YOUR CARTRIDGE 1}ONTAPE FOR YOUR OWN USE. AFTER YOUHAVE A BINARY BOOT TAPE OF THECARTRIDGE PROGRAM, YOU MAY THEN COPYTHE PROGRAM ONTO DISK1} USING ONE OFTHE PUBLIC DOMAIN PROGRAMS AVAILABLEFOR THIS PURPOSE.YOU MAY ENCOUNTER ONE MORE PROBLEM.CARTRIDGE COPIER W1}ILL NOT COPY ANYCARTRIDGE THAT IS COPY-GUARDED. ITACTUALLY "WILL" COPY IT, BUT WHEN YOU GO TO BOOT THE PROGRAM IT WILLNOT1} WORK LIKE THE ORIGINAL CARTRIDGEPROGRAM. ASSEMBLER LISTING FOR CARTCOP =============================THIS ASSEMB1}LER LISTING IS INCLUDEDFOR ANY ASSEMBLER ENTHUSIASTS WHOARE INTERESTED IN SEEING HOW THEPROGRAM WORKS. THE PROGRAM WAS CRE1}AT-ED USING THE ATARI ASSEMBER/EDITORCARTRIDGE.10 *=$60120 PMST=$9FF030 PMST2=$9FB840 PMST3=$9FB750 PMND=$BFFF60 1}FLEM=PMND-PMST+127/128*12870 FLEM2=PMND-PMST2+127/128*12880 FLEM3=PMND-PMST3+127/128*12890 FMLW=FLEM & $FF0100 FMHG=FLEM/1}2560110 FMLW2=FLEM2 & $FF0120 FMHG2=FLEM2/2560130 FMLW3=FLEM3 & $FF0140 FMHG3=FLEM3/2560150 NUMR=FLEM/1280160 NUMR2=FLE1}M2/1280170 NUMR3=FLEM3/1280180 ICCOM=$3420190 CIO=$E4560200 ICAUX1=$34A0210 ICAUX2=$34B0220 CCLOSE=120230 COPN=30240 1}ICBADR=$3440250 ICBLL=$3480260 ICBLH=$3490270 PACTL=$D3020280 SCREEN=405600290 DOSVEC=$0A0300 FLAG=$6000310 BAK=$D01A1}0320 CONSOL=$D01F0330 PST .BYTE 00340 .BYTE PND-PST+127/1280350 .WORD PST0360 .WORD HERE0370 CLC0380 RTS0390 HERE1} LDA #$3C0400 STA PACTL0410 RESTRT LDA #180420 JSR GRAPHICS0430 LDX #00440 LOOP LDA DATA,X0450 STA SCREEN,X0460 I1}NX0470 CPX #950480 BNE LOOP0490 LDA $BFFD0500 STA FLAG0510 CMP #$040520 BNE DISKBOOT0530 LDX #$00540 LOOP2 LDA1} DATROUT1,X0550 STA $9FF0,X0560 INX0570 CPX #160580 BNE LOOP20590 LDA $BFFA0600 STA $9FF40610 LDA $BFFB0620 S1}TA $9FF50630 JMP READ0640 DISKBOOT CMP #$050650 BNE DIAGNOSTIC0660 LDX #$00670 LOOP3 LDA DATROUT2,X0680 STA $9FB8,X1}0690 INX0700 CPX #720710 BNE LOOP30720 LDA $BFFA0730 STA $9FBC0740 LDA $BFFB0750 STA $9FBD0760 JMP READ0770 1}DIAGNOSTIC LDX #$00780 LOOP4 LDA DATROUT3,X0790 STA $9FB7,X0800 INX0810 CPX #730820 BNE LOOP40870 READ LDA CONSOL01}880 CMP #60890 BNE READ0900 LDX #$100910 LDA #COPN0920 STA ICCOM,X0930 LDA #80940 STA ICAUX1,X0950 LDA #$80091}60 STA ICAUX2,X0970 LDA #CFILE & $FF0980 STA ICBADR,X0990 LDA #CFILE/2561000 STA ICBADR+1,X1010 JSR CIO1020 BMI 1}CERR1030 LDA #$0B1040 STA ICCOM,X1050 LDA FLAG1060 CMP #$041070 BNE DISK1080 LDA #PMST & $FF1090 STA ICBADR,X11}100 LDA #PMST/2561110 STA ICBADR+1,X1120 LDA #FMLW1130 STA ICBLL,X1140 LDA #FMHG1150 STA ICBLH,X1160 JSR CIO1171}0 BMI CERR1180 JMP CONT1190 DISK CMP #$051200 BNE DIAG1210 LDA #PMST2 & $FF1220 STA ICBADR,X1230 LDA #PMST2/25611}240 STA ICBADR+1,X1250 LDA #FMLW21260 STA ICBLL,X1270 LDA #FMHG21280 STA ICBLH,X1290 JSR CIO1300 BMI CERR1310 1}JMP CONT1320 DIAG LDA #PMST3 & $FF1330 STA ICBADR,X1340 LDA #PMST3/2561350 STA ICBADR+1,X1360 LDA #FMLW31370 STA I1}CBLL,X1380 LDA #FMHG31390 STA ICBLH,X1400 JSR CIO1410 BMI CERR1420 CONT LDA #CCLOSE1430 STA ICCOM,X1440 JSR CIO1}1450 BMI CERR1460 JMP READ1470 CERR LDA #CCLOSE1480 STA BAK1490 BRK1500 CFILE .BYTE "C:"1510 DATROUT1 .BYTE 0,NUMR,1}$F0,$9F,0,0,$A9,$3C1515 .BYTE $8D,$02,$D3,$20,$65,$E4,$18,$601520 DATROUT2 .BYTE 0,NUMR2,$B8,$06,0,0,$A9,$3C,$8D,$021530 1} .BYTE $D3,$A9,$A0,$85,$6A,$20,$F6,$F3,$20,$65,$E4,$AD,01540 .BYTE $07,$EE,$CE,$06,$D0,$03,$EE,$CF,$06,$8D1550 .BYTE 0,$A1}0,$EE,$D9,$06,$D0,$ED,$EE,$DA,$061560 .BYTE $A9,$C0,$4D,$DA,$06,$D0,$E3,$A2,$0,$8E1570 .BYTE 0,$07,$EE,$ED,$06,$D0,$F8,$E1}E,$EE,$061580 .BYTE $A9,$28,$4D,$EE,$06,$D0,$EE,$18,$601590 DATROUT3 .BYTE 0,NUMR3,$B7,$06,0,0,$A9,$3C,$8D,$021600 .BYTE1} $D3,$A9,$A0,$85,$6A,$20,$F6,$F3,$20,$65,$E4,$AD,$01610 .BYTE $07,$EE,$CD,$06,$D0,$03,$EE,$CE,$06,$8D1620 .BYTE $0,$A0,$E1}E,$D8,$06,$D0,$ED,$EE,$D9,$061630 .BYTE $A9,$C0,$4D,$D9,$06,$D0,$E3,$A2,$00,$8E1640 .BYTE 0,$07,$EE,$EC,$06,$D0,$F8,$EE,$1}ED,$061650 .BYTE $A9,$28,$4D,$ED,$06,$D0,$EE,$6C,$FE,$BF1670 DATA .BYTE 0,0,0,0,0,0,0,0,0,01680 .BYTE 0,0,0,0,0,0,0,0,0,1}01690 .BYTE 0,0,35,33,50,52,50,41,36,391700 .BYTE 37,0,35,47,48,41,37,50,0,01710 .BYTE 0,0,0,34,57,26,0,33,44,371720 1}.BYTE 56,0,43,47,51,43,41,0,0,01730 .BYTE 0,0,0,0,0,0,0,0,0,01740 .BYTE 0,0,0,0,0,0,0,0,0,01750 .BYTE 0,0,0,0,0,24,43,01},54,371760 .BYTE 50,51,41,47,461770 SNAME .BYTE "S:"1780 GRAPHICS PHA1790 LDX #6*$101800 LDA #CCLOSE1810 STA ICCOM,1}X1820 JSR CIO1830 LDX #6*$101840 LDA #COPN1850 STA ICCOM,X1860 LDA #SNAME & $FF1870 STA ICBADR,X1880 LDA #SNAME1}/2561890 STA ICBADR+1,X1900 PLA1910 STA ICAUX2,X1920 AND #$F01930 EOR #$101940 ORA #$0C1950 STA ICAUX1,X1960 1}JSR CIO1970 RTS1980 PND1990 FLEN=PND-PST+127/128*1282000 LDX #$102010 LDA #32020 STA $0342,X2030 LDA #82040 STA1} $034A,X2050 LDA #$802060 STA $034B,X2070 LDA #CFILE & $00FF2080 STA $0344,X2090 LDA #CFILE/2562100 STA $0345,X21}110 JSR $E4562120 BMI STOP2130 LDA #$0B2140 STA $0342,X2150 LDA #PST & $00FF2160 STA $0344,X2170 LDA #PST/256211}80 STA $0345,X2190 LDA #FLEN & $00FF2200 STA $0348,X2210 LDA #FLEN/2562220 STA $0349,X2230 JSR $E4562240 BMI STO1}P2250 LDA #$0C2260 STA $0342,X2270 JSR $E4562280 BMI STOP2290 BRK2300 STOP BRK2310 .ENDSR $E4562240 BMI STO0g `<ө p_Ls HLshI5}BJKDE V0n BDEH I V0ILDEH I V0)LDEH I5} V0 B V0Ls C:A< e`A<өj eM(M`A<5}өj eM(Ml#!242)$'%#/0)%2"9!,%8+/3+)5}+6%23)/.S:H` B V`BDEhK)I J V`BJKDE V0) BD5}EHI V0 B V03)/.S:H` B V`BDEhK)I J V`BJKDE V0) BD4+,BUFMLBYTTOTALINCHECKSUBUFFESECTO9} d""****************************n""* BLACK RABBIT 2.0 MAKER *x""* BY BRIAN MORIARTY *9}""* ANALOG COMPENDIUM V.1 *""****************************X;Ah,;@,2-@@6"9}B67,.>:,F XAR@d67@,.%67Ah,.467@,.P(}Verifying DATA lines.d(Readi9}ng Line 56-6-!6-A +#A5 AP6-%@-@@(C-@@%9}%6-%@)"16-%?67<,.>:,C @%F:A,%AV$F:A,=(Line missing.@""9}A A`2AR2F:A,@A`C(DATA lines verified.C(!Insert a blank disk i9}n Drive #1.$$(Press to write disk. F:B2y,@A"IAi@'Ap@3=(F9}ormatting disk.I6-?:C:,,,hF:Aq,@,(}Format error!L(Remove write-protect tab or^( replace disk.h 9}Ap6C(Writing data.(Ap@:AyC6-C:,@-@@JSAx&AsP:9}'AV,GAr&+AV$F:As,,S6-?:C:,,T6-%A( ^(Rabbit disk okay.h#(Bad data at l9}ine  #r104,76,83,228|* M/L DATA^^0,6,128,4,134,4,169,0,168,145,94,32,77,6,165,106,201,192,176,12,169,159}8,133,134,169,2582__6,32,131,6,76,157,4,162,0,142,198,2,134,129,134,131,142,68,2,232,134,128,134,130,134,5130aa9,142,9}1,3,134,144,24,165,88,105,239,133,136,133,138,165,89,105,0,133,137,133,139,32,77,7734bb6,169,192,133,134,169,6,32,131,6,29}4,165,88,105,122,133,140,144,2,230,141,230,138,208,2,10584gg230,139,162,2,160,0,169,14,145,138,200,192,240,208,249,24,1659},138,105,240,133,138,144,2,230,14151jj139,202,16,231,32,143,6,24,165,136,101,128,133,138,165,137,101,129,133,139,169,226,9}133,134,169,17380$YY6,32,131,6,32,91,6,169,82,141,2,3,165,128,141,10,3,165,129,141,11,3,32,83,228,19320.``173,3,3,16,4,9}169,31,208,15,160,127,177,132,208,7,136,16,249,169,16,208,2,169,128,133,219798dd143,160,0,132,77,145,138,230,138,208,2,2309},139,230,128,208,2,230,129,165,129,201,2,208,6,25359Bcc165,128,201,209,240,31,165,143,201,128,208,181,24,173,4,3,105,128,19}41,4,3,133,132,173,5,28387Lff3,105,0,141,5,3,133,133,201,188,208,156,24,165,136,101,130,133,138,165,137,101,131,133,139,319}296VYY169,4,133,134,169,7,32,131,6,32,91,6,198,144,208,32,32,66,6,169,33,141,2,3,32,33276`\\83,228,173,3,3,201,1,240,149},169,72,133,134,169,7,32,131,6,32,91,6,240,224,32,143,35843j__6,169,87,141,2,3,165,130,141,10,3,165,131,141,11,3,160,0,1329},77,177,138,133,143,201,38312tdd128,208,5,32,83,228,48,251,169,142,160,0,145,138,230,138,208,2,230,139,230,130,208,2,230,49}1796~ee131,165,131,201,2,208,6,165,130,201,209,240,30,165,143,201,128,208,193,24,173,4,3,105,128,45090XX141,4,3,173,5,9}3,105,0,141,5,3,201,188,208,172,76,1,5,169,38,133,134,169,7,32,47206]]131,6,173,31,208,201,6,240,10,201,3,208,245,32,123,9}6,76,119,228,32,123,6,76,160,4,49854[[169,0,141,4,3,169,4,141,5,3,96,24,165,88,105,42,133,140,165,89,105,0,133,141,96,5209}15bb169,100,141,0,210,169,170,141,1,210,169,0,133,20,165,20,201,15,208,250,169,0,141,1,210,55028ff173,31,208,201,6,209}8,249,173,31,208,201,7,208,249,96,133,135,160,33,177,134,145,140,136,16,58486__249,96,169,128,133,132,141,4,3,169,7,133,19}33,141,5,3,96,50,101,109,111,118,101,0,99,60917bb97,114,116,114,105,100,103,101,27,0,114,101,113,117,105,114,101,115,0,209},24,43,0,50,33,62844gg45,162,236,225,227,235,128,178,225,226,226,233,244,128,146,142,144,0,98,121,0,34,114,105,97,665639}``110,0,45,111,114,105,97,114,116,121,41,110,115,101,114,116,0,51,47,53,50,35,37,0,100,68466cc105,115,107,12,0,112,114,9}101,115,115,0,179,180,161,178,180,0,0,0,41,110,115,101,114,116,70837^^0,35,47,48,57,0,100,105,115,107,12,0,112,114,101,119}5,115,0,179,180,161,178,180,0,0,72898aa0,0,0,179,180,161,178,180,0,116,111,0,114,101,13,114,117,110,12,0,175,176,180,169,9}175,75459ZZ174,0,116,111,0,98,111,111,116,0,0,0,50,101,112,108,97,99,101,0,98,97,100,0,35,77294 ]]47,48,57,0,100,105,19}15,107,12,0,112,114,101,115,115,0,179,180,161,178,180,0,0,0,0,79320 D:BLACK.BAS0,0,35,77294 ]]47,48,57,0,100,105,18W̻ L3H ȩ h  B JKI=}HiDiELV` BHI V䅠`Ԇ ؠPIPPȹP`Hh=}ƣĢ` Fj`8冨凪` EӅӥ `ʆǪƩ Ɛee` '=}ƦʆǢ &Ɛeǐ K KLhihiHHȱȱL0c !#3`@ `L=} Ⰵ㰅Lz䰅尅miJJJJJ)eimi)=}L `ppppppppppBA{ppppppppppBAH ԩh@Lԩܢ گL Read Sector:=} L Write Sector: LSYNCOPY/ 착ȑ=}`Lu10iqqEL`L/<./. گ./Q.i/iR& .=}i'./i/./EȌLJ././|.i'./i/./|L././Z=}.i/iR& .i'./i/./C1{0` me.e/.i=} /i./L"././I./L`L'#  ( (I*LO Lb(I+Lb=}8  # Lr L# (IL/`L 1I! I"LʹxLҴ=}   LYL @N `L'# O# `LQM=}M M $`Lyuu u $` LDensity?t LõSingle =}LڵDouble L1050 착 $ r ILH$$$L1 NLЍL I>}L$hhLu vL]ЍL` LDestination drive?p L1>} LӶ2 착 $ $`L충  m춅i گm춅i ` LF SIO error:>}q; L\RetryV LqSkipl LAbort 착  | 착 $ ILƷL>}ӷ ILӷ 0 r`L޷ڷٷȌ 8j宅寅8׷طI ILD׷m׷׷طmط>}ط$IL~ LgInsert source diskpT 착 ( r-,m׷mطLǸ>}  L  L$ٷI ڷIL$L0ڷٷ-,>} @R Ld 5L0,m,-m- L߸$IL˹ LInsert destination disk>}n 착 ( rI IL4!(L"(@($ L* 5L߹>}-, ghgh L#  LٷI ڷILLڷٷ-,> } P$ Lܺ 5L,m,-m- LVM MLD`"/ 8> }j   21DȄ PLbK:_ 3 L(c) 1985 by The 4th Works, Inc.i| 찠> }ȌEL ۷L` PLbK:_ 3 L(c) 1985 by The 4th Works, Inc.i| 찠<'001ᩀ멀  Lt11j8iR'Sx867X /E /XBB } / / / /1    I  Lȍ /ɠ R  B}  /  ` /! 8  /Q P 12 `詀R@ YLiiB}    R `Я` /m L / / L  ` LwPpM`WB}7 ` / LSECTOR BY SECTOR DISK DUP Vers.1.1 BY H.E.STRIEP23E 1982 START - commence I/O SELECT - writeB} with verify OPTION - REBOOTInsert source disk and press START, or select OPTION to REBOOTReading SOURCE disk...InserB}t destination disk, press START, or SELECTWriting DESTINATION disk...******3^4 DUPLICATION SUCCESSFUL *********** DISK B}I/O ERROR!TRY AGAIN *********** BREAK KEY INTERRUPT! ******00******3^4 DUPLICATION SUCCESSFUL *********** DISK @G|}U 6CIOCIO2ADRV2NAMESLOCKSTRTLENGLINETMPFILEUSEDBUFLEBUFFILEINFILOUTFILAPPNINDEFILENININRETRF}ISTAOUTIN@@ @ F}d%%DISK DUPLICATE F}PROGRAM 06/25/81n%%DUPLICATES D1 TO D1 OR D1 TO D2xALPHABETIZES FILES9;@,6.h V`9PLA/LDX #$10/JSF}R CIO/RTS9;@,6.h V`9PLA/LDX #$20/JSR CIO/RTS;@,;@,2 (}2($Have you formattedF} and written a DOS!(file on the new disk! 0Y( Use 2 drivesL'#(Enter source disk(DRIVE 1)F}'Q4 4Y0(Enter destination disk(DRIVE 2)4V&&@@D:*.*`ee;@($@,;@(F},9@(,9@(,;@0,;@,;@,9@(,a6/6-@P$P:+I:,&AV,'@P,6;,F}dd-@@P`67B:,%@,.2 d e""(Enter Y to duplicaF}te file:j6-t A~@(**7@<@,4SECTORSA3&7@<@F},4 DOS SYS)(3 AP3&7@<@,4 DUP SYS)(3 AP3&7@<@,4 MEM SAV)(3 AF}P>+7@<@,4BAD AP>IGNORE BAD FILES( dupl(Y/N)? U#@@K:F }0)@;@B(>:,U@:Y,AP6-%@7767$@&@<$@,.7@<@,F!}67,.7@<@, APSTART UP COPY6-&@@ B(3-@ 68,F"}-/68,-3 6-@6-@6-77SET UP BUFFER FOR COPY FROM SOURCE TO DESTINATIONF#}6-@x!!A !NO MORE FILES}38,!A3CONTINUE PREVIOUS FILE4 B4FILENO IS SF$}MALLEST(ALPHA) FILE INDEX 68,-&&6.7$@&@<$@,;;(INPUT: 7@<@, 7@ C 0Y(@@ CAPPEND WHEN ONLY 1 DRIVECOPY FILES6- BF/} WRITE OUT FILEV)0Y@VCLOSE ONLY IF FILE FINISHED, LEAVE OPEN FOR APPEND(2 DRV)6-%@F0}  A 0 CHECK IF FINISHED !A@ & 0Y"(Enter source disk& A!!FINISHED, NF1}OW PROTECT FILES4-@&7<,4*A@ * 4 AP/"@+(Enter destination disk/-@F2}7<,4 AA&&6.7$@&@<$@,(LOCK:  BFIX FILE NAME= 4F3}Y6.7@,$6.D2:367@,.=USE D2:((@5@  DONE(Copy comF4}plete.&'FIX FILE NAME' 6.$' 6.D:.'-@@8'7<,4 BB'67B:,%@,.7+%%6-F:AV,%AV$F:AW,C++6-F:AQ,(!@*A6+$H+68,-8,%R+ 6-%f+F9}$.WRITE FROM BUF$.(Af@(WRITE CHARACTERS.6-C:7,,.;$Ah&AV$P:'AV,;AiF:}P:'AV,/ 6-8,/;$Ar&AV$P:'AV,;AsP:'AV,/6-?:C:,,&/.F:Ag,!@+F;}( WRITE ERROR:.&0/6-%8,:/$ NGET NEXT(ALPHA) FILE NAME*N##FILENO = INDEX OF LOWEST NAME4N#6-6@#6F<}. ||||||||||||>N-@HN8,B RN..27$@&@<$@,B \N&&6.7$@&F=}@<$@,fN 6-Q Q$D:DUP2DRIV.BAS.27$@&@<$@,B \N&&6.7$@&D?WXH/KBUFIKDSYEMAOSPLIHAPNADDYROOKDSNTOFSEBYTXSIZCIKKXK1COERASJ?} J@}@ Au(+((POLYCOPY JA}- ATARI version 2.06,( (Space for P:'A%, sectors)/(66-6 AP"@@!   AU!"JB}@%# A5(= 6-&"(Type 'Y' if o.k. , A5/(=A5-% 6-6-6-6-% @U2JC}( A%7 6-C:,6-<% !6-& AE% A@A, 6- A0 @(, F# (JD}Loading # AK; @  6-1( Contin'g ; AP/ 6-F:A,/ApAJE}U@(( not found,@("..do you want to try another disk?Z? AP("+(Insert new disk5 A0? JF}@e_ 68<,-6-% @`d68<,-iG6-?:<<@<<,)6-F:AQ,G A()"A6AnJG} ( Ap @s0( size=68<,-0"A6A%x (/6-} ( + 6-%JH}6-&!!6-%+ @`) AE6-%)!@` @P " $&((Insert 'to' diskJI}& A0'6-8<,6-8<,'"A - 6- A06-@%"-6-%; A "JJ}"1( Append'g ; Au(Writing ( size=6-?:<<@<<,6-F:Ag,* AJK} * A(A #Ab Ap# A G/(&Disk full, try another? 9 A5GAJL}5 A @36  "(Insert new disk, A06 AU" 6-6-6-'" @PJM}  6-% AU$, 6.D:"67,.7$%<$%,, A`(( 䡡  AU"@JN}  b A%)@D:*.*/ 56-<6.b(! íѭ! !JO}B:, @A 4 6.-@$"@467B:,%,.. 7<,4 Au67B:,%,.7<, JP}4DOS.SYSAU( B:, (67B:,%<,. - 6- A-6-A:7@<@,,"< (%JQ}@(+@(2(?< A@'*"@g (>:@0,C* A, (>:,"@A 1 AUJR}6'67B:,%,.6-%'"A ; AU@  $E(Insert 'from' diskJ(, press any key!O JS}A@(>:,$T# )"@''# A5Y$^ A@($c%((Any more files?% A5h46-F:JT}Ad, Ad&4"@(A5m$rC([] I/O error on =(...skipping to next file!@(C$w""JU} 塛|++-@@+( S6-6-@#6-%+6-%36-%;6-$JV}G6-AVS6-B16-@-AV#6-&1K:,6-@,;@,;$,9&<,B6-JW}A `-@B!")%- BA F:A,!!104,104,104,10,10,10,10,170!!104,104,157,66,3,104,157,69JX}3,104,157,68,3,104,157,733,104,157,72,3,32,86,228189,72,3,133,212,189,73,3133,213,966-AB6JY}-@5G6-Au6-APG 󡛽2 A`2 JZ}F(>:A%,(#-@'(+ 4(CONT:-F@&- 6-I:,&;,#6-&- @J[} D:POLYCOPY,(#-@'(+ 4(CONT:-F@&- 6-I:,&;,#6-&- @HsCIOCIO2NAMESLOCKSTRTLENGLINETMPFILEUSEDDIRVBUFLEBUFDRFILEINFILOUTFILAPPNINDEFILENININRN]}ETRISTAOUTINDN@@ @ N^} N_}Ю, ver 1.1%%Dave Schambach, 7/83  @ I@.@@N`}K:;)@F@I$ U +A 1AACAR@UA@7;Na}@,;@,)6.h V`76.h V`{;@($@,;@(,9@(,9@(,;@0,;@,Nb};@,9@(,;@,;@,6.NB/6-@P$P:+I:,&AV,'@P,6;,B6-@xNc}A'-@V(Drv,Drv,erify=,ormat,ir,opy,` @l"@Px6-@"@INd}6-@9"@*4N'A@/6.Y9 @(/"@*4Y'A@/6.NNe}"@pA`"@hAf "@g@8"."@'!A@++.$ @ &Nf}4*("}Insert disk in D1, hit 4 @(?"@5(!Insert Ԡ disk in D2, hit ? @*&&@Ng}@D:*.*,d-@@P`67B:,%@,.2 d Nh}.JJ(B}Enter to duplicate file: 06- @h2@(4**Ni}7@<@,4SECTORS@p63&7@<@,4 DOS SYS)(3 @P83&7@<@,4 DUP SYNj}S)(3 @P:3&7@<@,4 MEM SAV)(3 @P<( dupl(Y/N)? >* @(>:,*+@,@PNk}@_6-%@E67$@&@<$@,.7@<@,_67,.7@<@,B @PD6-&@Nl}F%@(%"@ H3-@ 68,-/68,-3 J6-@6-@L6Nm}-N6-@P!A0R8,!@T AFV 68,-X&&6.7$@&@<$@Nn},Z;;(Ժ 7@<@, 7@ <@,\ A^ @@`;8,No}!@-6-@;6-&@b 68,-68,-d6-f Ah"A6Aj*Np}!%@ ( Ġ* @l@A$n; @6-%@1( - ; Ap5+Nq}(# after 5 retries, ٠5 @ r (8,t@v6-%@x!!%@&A%@zNr} A(|(8,~@@6-@"@Af9 @/(Insert Ns}Ԡ disk, hit 9 @ -@8," 6- &&6.7$@&@<$@,::(Ժ 7@Nt}<@, 7@ <@, A7"@6.7@,(6.D2:767@,.ATNu}* Ar*@@ AV, @,@@ 6- ANv}0)@@6-%@ A6!Ar9 @/(Insert disk, Nw}hit 9 @ @x> AX-@07<,4*At4 > Ar7"@-(Insert dNx}isk, hit 7 @-@7<,4 A&&6.7$@&@<$@,(˺  Ny}A7"@6.7@,(6.D2:767@,.((@5@  6- ArNz} 6. 6.D:-@@7<,4 A67B:,%@,.7<, 67B:,%@,.N{}.+(67B:,%@,.7@ <@,+$AP@6-C:7,,;$AR&AV$P:'AV,;ASN|}P:'AV,6-%@&6-A%$P:'A%,;$AV&AV$P:'AV,;AWP:'AV,N}}6-?:C:,,%%6-F:AV,%AV$F:AW,+6-F:AQ,(!@*A6+$68,-8,% 6-%$N~}Af@6-C:7,,;$Ah&AV$P:'AV,;AiP:'AV, 6-8,;$Ar&AVN}$P:'AV,;AsP:'AV,6-?:C:,, F:Ag,!@AX6-%8,$#6-6@#6.N} ||||||||||||(-@(8,AV..27$@&@<$@,AV&&6.7$@&@N}<$@, 6-   $A-@@#7(ŠҠ>:%Av,A @ NA@R0(}EnN}ter to D: @N@@  6.D"@ 6.D2< AX2AT@N}< @  K(} of: or ' @36-@?"@PK6-@ "@6-@!!N} @I)!@P@ 6,(}Ԡٺ>:%Av,6 At46-6.D:*.*'"@46.N}D2:*.*l Ax@5@@I-@@`W6-%@d@h(l  6.N} @ D:MFDUP5@@I-@@`W6-%@d@h(l  6.L((pp0B(pppBpBA()nsert3/52#% 0ress)nsert$%34).!4)/. 0ress]2eadingR}7riting]&ormatting(it &/2-!4$upinprogressR}()c *an $arek-ihocka!"#$%&1R@?1P?Ѝ` (H (HR}( ( ( D)! Yh (h (Щ Э LX)ӽ4)()JJJJ4)()4)( D)ҥӍR} H Ѝэ)*h ) LYս4)()JJJJ4)()4)( N)ԥ8L) (((0(1!/ЅR}ՅӅׅ X)j((( X) (( ( ),ѩT (( (ԍ(((Յ )0)ՅՈѥґХӑ֥jR}ӥƥץK*U+$ X)4 (( ( )Щ,ѩt (( (ѱЅȱЅ *L}*/ e ХxLt R}D*tץK*U+$ X)4 (( ( )Щ,ѩt (( (ѱЅȱЅ *L}*/ e ХxLt P 2< }   膀 } DLt  S8`i ƀ急   SV}0`,   U I IB01 hH(&%8*!/B`ppV}ppF`F`B`B 00000000A2350?:*8@ "2%!+!"/2%22/2!%22/2/V}&/2-!4%22/).3%24$)3+3/52#$%34).!4)/2%!$).&/2-!44).72)4).6%2)&9).9%./#/09#/-0,%4%3%#4/2#/0)%V}2 01!/ O O  M l     l x ŚV}  ŗŖ * L ȄȄ   * LȄ8倅偅8嘅V}   Ɯ   P  P  I P  v v6D FV} vD F[ = L  )  ) ) ȥŌ印L0 b [ з ) V}L  @Ȋ " L Ɇ  гL v#O )LtV}膘 , F<8d !@F  S0L[( FLdq 5  ) -  P ްϠV} "  饟Ltz 5 L ) + S  0౎W /09 " 𹅔 V}L  ƢL#膝 9L= , Lc 9  LLO )?ҥM0 ҅V}~ML R@   ,  Y0`Lƣ΢  , ʠ , O V} O 8` L)?`S S0`Ӣ  ,  , L`Ō ȱ)?ō`  )8` FV} 0 )@ "  L)`)?`8吅呅`8逅` e` `u`҅ V}` ЭJf`˅ `  ` u ȑ * c 0혠& L %LV} %Ŕ啐Ř噐ȩ_Ќ Ԉ` L Ff*` D HJJJJ D h)V} iؑ` c#+ L Ę߄ ͢)(`3/52#%V}$2)6%$%34).!4)/.$2)6%34!24).'2%!$3%#4/2%.$).'2%!$3%#4/234!24).'72)V}4%3%#4/2.5-"%2/&#/0)%36%2)&972)4%3&/2-!4$%34).!4)/.372)4%",V}!.+3%#4/23RSr2عyzz:[;V}y۹[[[y۹ZYy[YrSӑS 2 2<<<0⠀}  L V}<۹[[[y۹ZYy[YrSӑS 2 2<<<0⠀}  L T@+d>+0@;(!BACKUP 130XE by WilZ}liam W. Tan>(nR-AAd"!% F6-AV$+F:AE,%@,R6-B@x='(INSERT SOURCE DISK, PZ}RESS START36-@= A@L(/($INSERT DESTINATION DISK, PRESS START;6-@E A@I+L F:B2y,Z}@A@+"@+AT@D:AS26-?:A<<@<A <,@-@VZ}A%%@$6-?:A<<A!%A%$<A%<Bc, $[[104,104,104,141,2,3,104,141,11,3,104,141,1Z}0,3,104,133,204,104,133,203,104,141,5,3,104``141,4,3,32,83,228,173,4,3,24,105,128,141,4,3,173,5,3,105,0,141,5,3,238,10,3,Z}208,3,238,11,3''198,203,208,224,198,204,16,220,96 D:COPY130.BAS24,105,128,141,4,3,173,5,3,105,0,141,5,3,238,10,3,XK