@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0,0'@R !L` ` C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`0ABA@$(A@ooŧӠɠҠέ Ӡ͠}Š ӠΠҠ1 +@@1@@9s (} (p(_THIS PROGRAM} DEMONSTRATES AN ABILITY TO READ THE CONTENTS OF AN ENTIRE SCREEN AT ONE TIME.s(ur(jWHEN THE ? APPEARS, ENTER ANYTH}ING YOU WANT ON THE SCREEN, EVEN USING THE CONTROL UP AND DOWN ARROWSu(ro(gWHEN YOU ARE FINISHED, PRESS RETURN, A}ND THE PROGRAM WILL READ AND REWRITE THE CONTENTS OF THE SCREEN.r(vO(GUSE THIS TECHNIQUE IN YOUR OWN PRO- GRAMS TO ALL }OW FULL-SCREEN ENTRY.R(v(Ġ٠͠͠Ơ --@A@ -@ ;A,; }@@, 6.##@@ E:<-@#F-P@Z67B:, }%@,.d n }x-@A  7@:@2, 6-&@* B)'BB:7%@<,, }@7. 7@<,? 7%@<,B$.'6-%@73'6.7<,8'*0>:@2, 6-&@* B5='SB:7}%@<,, @7. 7@<,? 7%@<,P 7%@<,S$B'6-%@7G'6.7<,L'*0>:@2, 6}-&@* BUQ'H 7@<,# 7%@<,4 7%@<,E 7%@<,H$D:AUTOSCRE.DIT''s'AA@A!@UooŧӠɠҠέ Ӡ͠Š} ӠӠϠ +--6-@%F:AB,$AV%F:AA,0@@@}70@@@Q0@@c-@@(ATARI COMPUTER ENTHUSIASTS("-@&@"(}2<-@@<("the 魸 personal computer<e%@@+%@@?%@}@S%@ @e-@@F-@@P-@A Z dAUAUn}-@A x AU INPUT A$ @ D:BACKWARDӠ͠ŠcvDECBINPBINBWDEEDAD#+?P.@ @ }  TYPED BY HOWARD SIEBENROCK 9 +@90@11;@,;@5,; }@,;@,1( (1(# DECIMAL to BINARY CONVERSION(Y( (V(H Press to convert from DECIMAL to } BINARY or BINARY to DECIMAL.Y(2V#(#(} DECIMAL to BINARYX00((Z } (1[( 2 6 3 1\!!(0-255 8 4 2 6 8 4 2 1](  BIT^(7 6 5 4 3 2 1 0_30(( !}3(d( DECIMAL: nB:, @ Ax 6-A:,z?!AU5(  >255  "} ? A6-A( @ A  A   A( ERRO #}R&,67B:,%@,.1 6# 6-&6-'@# A67B:,%@,.0 6-'@ A( $} 6. ( A!!(} BINARY to DECIMAL00(( %}( 1  ( 2631  ( 84268421  ##( BIT  DECIMAL( 765432 &}10  (6-6-@( BINARY: 4@L-@B:,Q6-&@V+7 '}<,41+6-%P:@#%?P,` j( o (t AD:BINDEC@ @ d AAAe@@@@@d. BUBBLE-SORTn$$. BY PAM YOCUM - ATARI)} - 11/80x9A,%%. READING NUMBER OF ITEMS TO BE"". SORTED & DATA TO BE SORTED. INTO AN AR*}RAY%%. *****************************"-@"68,- . PRINTING UNSORTED LIST+}. **********************  UNSORTED LIST-@ 8," ,6. THE SORT@. ********J1,}6-1***FLAG=1 IF NEEDS MORE SORTINGT-@&@^8%@,8,Ah$ 6-8,$***TEMPOR-}ARY REGISTER|68,-8%@,68%@,-6-@ "@A0. PRINTING SO.}RTED LIST. ********************   SORTED LIST-@ 8, . DATA ITEMS/}. **********10&9,1,5,10,4,7,2,8,3,60 D:BUBSORT.NUMd. BUBBLE-SORTn$$. BY PAM YOCUM - ATARIK  \A @g ;@, 1}A  (%(DO YOU WANT INSTRUCTIONS? Y/N((0YA   AR@(.+(# TO USE THIS PR2}OGRAM, ADJUST THE.(2-*(" COLOR POT, LOCATED AT THE BACK-(<,)(! OF YOUR COMPUTER, SO THAT THE,(F,)(! BARS3} SEEN ABOVE AND BELOW THE,(P,)(! THIN BLACK LINE ARE IDENTICAL,(Z4( IN COLOR.'-@7@"4 >:@3,4}_-@A0 de +@A@3-@@= A A O6-%@[6-@e A 5}n AxL6-%@ )-@7,%E/@y%I L$?-@ @#+%@26}7-@A; ?  Az +@-@1AAI(@ GTIA COLOR[-@7}@z(@ALIGNMENT PROGRAM-@ @%(@by7-@@V(@PETER SANTEUSANIO8}h-@(@ATARI COMPUTER CLUB,-@@ ,(@ OF DENVER-@A3329}P:H:,$@u,@@ ) )2-@A $ D::}COLORALI.GNA @g ;@,  NO@@A<}@AP@@@ @ A B B @ A 0@4@PAAbA%=}ASAVBBrBBBSAABTAd0A AAP B7t!A%"A #>}$%&'()A*A+A, A-#.l;/;A0;31<2<?}3456789:;<=>?@AB@}CDEFGHIJKLM6-6-@'6-@A}36-A?6-@K6-APW6-@c6-@o6-@{6-@6-A 6-B6-BB}6-@ 6-A 06-@46-@P6-A6-Ab'6-A%36-AS?6-AVK6-BBrWC}6-BBc6-BSo6-A{6-A6-BT6-Ad0U6-A 6-A'6-AP36-B7t?6D}-A%K6-A U A 3 6-F:,6-F:,6-F:,$*03$  $d+00E}0i:((ŠҠ (:( REQUIRES 32K DISK 800xI()(YOUR SCREEN WILL BE BLANK WHEN,(I(INTERRUF}PTS ARE DISABLED.22;,;,;,;,9,9,9,9,;,X;,9,;,;,(D(#REMEMBER ... All files usG}ed must beX in LIST format.B  SOURCE FILE NAME )6.D:767B:,%,.BG ! DESTINATION FILE NH}AME%.6.D:<67B:,%,.GH A ( NUMBER OF VARIABLESD USED IN SOURCE PROGRAMHS6-AI}'&- SOURCE PROGRAM LISTING:0 4 <-E68,-I S A06  6-%(" /")8,3 6J}& " 1 -6-A:78,<8,,,16-P:&P:',$,68,"A@ 8," AJ 6-%!6K}-^ A 68,-68,-8,%   5 -68,-  -)6-8,/!56- E68,-L}8,% !6-O '6-2-6E%8,!AX)6-%8,6- )( LINES IN= "I  #6M}-A%' 36-@:6.A6.I-j8, At; 6.Q67,.=:,'67B:,%,.=;67B:,%,.=:8,,N}B:,%B:,A4 =:, 7:,'(>:,F(OUTPUT FILE IN LIST FORMATI 6-6-6-B:, %! 7<%,4:REM $7Y}<%,4 REM $%!Ab7<%,4 DATA Aa7<%,0:DATA   6-6.: "$Z} 6-% 87<,0>:,AcB9 6-%6.>:, "" 2  INPUT ERROR6 9&` 6-%  BP[}"Ad Ac + 6-&+7<,1A*7<,/ZAcP 6-%68,-68,- 6- 6-%\}APE($'& 6-6-B:, 6-6&6-6~'.6-B:,&6--+47<%,.$'  6-$:< 6]}-6--B:,27<,10*7<,/986-< :7<,4. : " : 7<,4E6- BS: ^}" :7<,0-*7<,0+ ; 6-; (< 6-&"$<<6-A:7<,,$ N B:,"$!N,  (6-_}% $B:,!) ,$4N#-B:,7<,4  #$HN*   REM  REM #$' *& D:COMPACTO.R`}% $B:,!) ,$4N#-B:,7<,4  #$HN*   REM  REM #$' *& D:COMPACTO.R  :TcCMNAU @A   A'@@d'B2y@db};@,;@, ##@@K:AR@ (}'('( WHAT IS YOUR FIRST NAc}ME !(!(ERROR- 12 AT LINE 10(76-@#6. &(0(READY7()'@@d'Bd}2y@d2.)@"AU$( . A<167,.>:,6-%@1"@@ F ((e}P @P!7@<@,4RUN!%$$4LIST10)4LIST 10A4LISTA< 4NEW((f}/( OHHHHH,NO YOU DON'T!!2(< @@! 4DOS(}!% D:DOS.SIS/#7@,4R*7@,4D/%D:CRASHg} A+@"(@-(@8(@K(@WHAT?_-@Ac m+AR@h} @@,( ("(10 GOTO 897658769800, @@XE( ((10 GOTO ANYWHERE4(20 RETURN TO HEREE( 30 LET X=100b9i}( 8 LET Y=200%( 246 XY=4560009(50 GOSUB MARINEl7,($60 DATA 0,0,0,0,0,0,0,123456765432107(70 ENDv @@j}D:CRASHcCMNAU @A   A'@@d'B2y@d   5ABCLIINrrr''*********************************''**** l} Reprinted from ****''**** ****''**** JUNE 1981 ****''**** 3662 VI m}NE MAPLE DR ****''**** EUGENE, OR 97405 ****''**** **** ''************************ n}********* &&** MATT LOVELESS *** %%*** FOUNTAIN VALLEY, CA **** 1 +@1@ o}@9';A,;A,'6-a @(}((8(STARTING LINE (100-32000)<a A)!B p} )P:,@U @ ((,(INCREMENT BY (1-20)0U @)!@ )P:,@  B(' 6. q}=:,'67B:,%@,. DATA -a3(>:@),>:@),>:@),>:@1,a(>:@(,>:@(,>:@(,>:@( r},2( LINE NUMBER (<##B:,%B:,!A@F-67B:,%@,.-67B:,%@,.,K @`PW s}AB@"67B:,,.((}+(.(1(4(8(B(CONTT-@W&UGAB@6-%)!B  t}D(LINE NUMBER TOO HIGH!!GZ @@ D:DATAMAKE''*********************************''**** =8W @@ARA#A@HHŧӠɠҠ $v}ӠŠ͠ ll˭Š٠ ƠˠҠϯٯҠ ٠Ҭ$w};@ ,E Month, Day, Year "B"*"*"E  A6-%A#Z- @$x})!@) @)!@1P *** Try AGAIN!! A REAL date.Z @0(+ @6-&@+6-%@2[$y}[6-%@$%P:?`$+%@,,%%P:'@,&P:'A,%P:'A,%@7, #@-@"# , $z} <k#F-@P:+'@&P:'@,,$@%?P,%@J"N h  ,  is a k F @0${}P>>,,,,,,ZccJanuary,February,March,April,May,June,July,August,Septem$|}ber,October,November,December,January D:DAYOWEEKA#A@HHŧӠɠҠ $89:  BSLESLENENTRIEATEMPMAKSLENKSLEKSLENSLENDON@@ @((( @(~}@ BUBBLE SORT""FROM ATARI BASIC REF. MANUAL pg(}.H-5T +'0@@*(T(%ǠԠD @0(2(ENTER MAXIMUM ST(}RING LENGTH 6D6-&@#h @)P:,(^(@ PLEASE ENTER A POSITIVE INTEGER GREATER THAN ZERO.(}  CHYEFAAUdA@d@ ;@,;A,DOS BY CHRIS,} CRAWFORD6.FILE ##@@K:d''(}DISK OPERATING SYSTEM 9/24/79n(COPYRIGHT 1979 ATARI,}x+(+( A. DISK DIRECTORY I. FORMAT DISK++(#B. RUN CARTRIDGE J. DUPLICATE DISK))(C. COPY  K. BINARY SA,}VE))( D. DELETE (S) L. BINARY LOAD,,( E. RENAME  M. RUN AT ADDRESS++(F. LOCK  N. DEFINE D,}EVICE**( G. UNLOCK  O. DUPLICATE  ( H. WRITE DOS (( ("6-@d("( SELECT ITEM4)@,}(>:,$AU*6-4 A @e6-@g!! A%@$+&@d,"( NO SUCH ITEM A,},))(!DIRECTORY--SEARCH SPEC,LIST FILE?-&)@AU& A.:/@@D:XZKXKX,}ZV.YZW:@0J(( DOS SYS 0640-@@F( STARAID OBJ 088J 1( (000(((TYPE RETURN FOR,} MENU2&)@"AU& A3 (>:, A6-@@)#-@ 2( CARTRIDGE>-@!,}`2@@27&P:'@,"'@& A8(  ,} A:(  ;  A@ AJ5+(#YOU HAVEN'T DONE SOMETHING ELSE YET5 AT@6-9,}(%GIVE NEW FILE NAME (MAX 5 CHARACTERS)@6.V0)@&"AU)"@0 AEW16-%@67<,.>:,},'(>:,1 ABY#((DONE A# A^]/@@D:XZKXKXZV.YZW:@S( IS AL,}READY LOCKED] Ah A Ar?-@A'(DOS  + 5 A? A|%%(PLEASE SE,}LECT DESIRED FORMAT:+!(F7.3 I4 H21 F8.0 A7+ A.(WHICH DRIVE TO FORMAT?( A.(1:/@,}@D:XZKXKXZV.YZW:@H"(TYPE 'Y' TO FORMAT DRIVE 1, A2(YH(FORMATTING DISK 1R-@,}@C@@D:XZKXKXZV.YZWN@R  AF+(#YOU HAVE TWO CHOICES: EITHER I SA,}VEF(YOUR  OR I DON'T.L A#(THE COIN FLIPS...- AB(SORRY, YOU LOSE.L A3(LOAD FROM WH,}AT ?' A 36-E%6-P:@$H:@,%@,; @*!@E A6-%@ A,}%1(LOAD FROM WHAT ?' A 1 A0(ON WHICH DISK DRIVE?& A 0 A)( ARE YOU SURE? ,}A ) A,(THE ENTIRE FILE?" A , A( I GIVE UP A( I GIVE UP Au6-F:,}Aa,!6-F:A`,5-@@I-@AUUA`Y ] iAauA`7#(} SCAR,}ED YOU, DIDN'T I?- A7 AN+(# (di vis'), n. 1. Something N(made, usually for a particularo(( wo,}rking purpose; an invention orN(!contrivance, esp. a mechanical oro(electrical one. 2. A plan,]( scheme,6(!or ,}trick for effecting a purpose.]("3. A representation or design usedl*("as an emblem, badge, trademark, orE(the like.,} 4. A motto.l("5. Something elaborately or fanci-Q(( fully designed. 6. (Literary) aQ($particular word pattern, com,}binationR,($of word sounds, etc., used to arouseR(!a desired reaction in the reader.F)(!7. (Archaic) devising; inve,}ntion.,(F(PRESS RETURN FOR MENU&)@AU& A8 AH0@@@70@,}@@>(H+@Y-@@(,(@}>-@@U(@ EEOYOW!Y ,}0&(IOCB FAILURE....HASP CRASH....0 A((OLD PSW WAS $3A73.....( AS#(REFORMATTING MAIN DRIVES...- A,}I(OH WOW, BAD CYBERKARMA!S A8-@@8(COMPUTER TO CAPTAIN KIRK....1#(THE KLINGONS ARE A,}TTACKING!- A1 '(OH MY ACHING HEAD....' A + A A.(WHICH DRIVE TO FORM,}AT?( A.(1:/@@D:XZKXKXZV.YZW:@H"(TYPE 'Y' TO FORMAT DRIVE 1, A2(,}YH(FORMATTING DISK 1R-@@C@@D:XZKXKXZV.YZWN@R  A ,}-@A $%+ +@+(@ GALACTIC CHART*[-@@((@ <-@@,}L(@_P [(@,H(@ (-@@9(@I = H(@.H(@ ,}(-@@9(@I = H(@0 4$-@@$(@*6$-@ @$(@,}*8$-@@$(@*>$-@@$(@K@$-@@$(@EB$-@,}@$(@KD$-@@ $(@KH(PRESS RETURN FOR MENUR&)@AU& AP,} +$")@"AU("$ (>:, A  D:DOS.SIS,;A,DOS BY CHRIS,\3@A@2%%DOT-CROSSHATCH GENERATOR FOR TV!!ALIGNMENT BY ROBIN KOPETZKYCREATED 0}ON 02/21/81 1+@%@'A1@;-A@;-A@ ,0}  ;#@@K:0)@;@1+@%@'A1@;0}-A@+,7/A; ;-A@+,7/A; E#@0}@K:0)@;@E @ D:DOTBAR.GENV!!ALIGNMENT BY ROBIN KOPETZKYCREATED 0M.l@%B`AUAV@d Q-AA#A' Q6-F:@,%AV$F:4}@,%A -@@$(6-P:'AV,86-&AV$D@fR%@`%@n6-%@4}|6-&@@ m@e#%@7%@@IA`[Aa@mAU@4} D:DOWNSIDE.UPB`AUAV@d Q-AA#A' Q6-F:@,%AV$F:4XSSB"t ((FAST PLAYER GRAPHICS BY Edward Chu** NEED JOYSTICKS **dX;@,8}"BBy@4B2w@FAY@FXA@n]]6.Sh| ۭ}ܐ!Іx)8}x)WZʈx6-B"t@$/%@@$C%@AUW%@@$8}k%@@$("}USE LEFT JOYSTICK TO MOVE OBJECT6-?:C:,,D:FASTMISP.LERYSTICKS **dX;@,8bGCODINIOPCODHIGLO !!*** FRIENDLIER KEYBOARD ***!!**<}**** BY RIC MEARS *******!!****** COMPUTE 12/81 ******!!* COURTESY OF BILL STUART *6-A!6-A69<}9** SWITCH ABOVE IF YOU WANT TO USE THE CASSETTE ***-%A0 "  ,-%@6 " <}@ |6-P:'AV,6-&$AV%@%@ 6-?:,(( ALL DONE ""*** MAI<}N PROGRAM AS DATA ***!!165,66,208,81,138,72,152,7288*** SECOND # IN 520 CONTROLS AUTO-REPEAT SPEED*** 160,15,17<}3,9,210,205,242,2 208,5,173,241,2,208,55,173""9,210,201,159,208,10,173,255&2,73,255,141,255,2,176,380##201,1<}16,240,43,201,118,240,39:!!201,182,240,35,41,63,201,39D 240,29,201,60,240,25,173,9N!!210,141,252,2,141,242,2,169X<}3,141,241,2,133,77,140,43b""2,104,168,104,170,104,64,160l5,32,216,252,162,8,142,31v##208,162,75,173,11,212,208,<}251%%202,208,248,136,208,235,160,255$$173,11,212,208,251,136,208,248 160,40,173,15,210,41,4,240189,208,203<}""*** INIT ROUTINE IN DATA ***104,169,253,141,8,2,169,3141,9,2,96D:FRIENDLY.KEYARD ***!!**<nW ACDDD((A@BIB@@$Bd@ e;@@,;@@},96.Text in Hi Res GraphicsE6-@Q6-@[+@e@7%6-F:@,%F:@,$AV76-%$@@@}%?-@B:,6.7<,) A?6-BsD%$@(B-@,%$@@F:%,0 >6-%@}@B 2 @Pd& 6-@:,!A'&6-&A(e*!@1* @'6-&@2*$f @26-%@}@dg$D:GRAPHIC8.PRT(A@BIB@@$Bd@ e;@@,;@@$32000 GRAPHICS 032010 BEGIN=PEEK(560)+PEEK(561)*256+432020 POKE BEGIN-1,7032030 FOR ROW=2 TO 24:POKE BEGIN+ROW,6:NEXT ROWD}32040 POKE BEGIN+25,65:POKE BEGIN+26,PEEK(560):POKE BEGIN+27,PEEK(561)32050 END FOR ROW=2 TO 24:POKE BEGIN+ROW,6:NEXT ROWDR32000 GRAPHICS 032010 BEGIN=PEEK(560)+PEEK(561)*256+432020 POKE BEGIN-1,7132030 FOR ROW=2 TO 12:POKE BEGIN+ROW,7:NEXT ROWH}32040 POKE BEGIN+13,65:POKE BEGIN+14,PEEK(560):POKE BEGIN+15,PEEK(561)32050 END FOR ROW=2 TO 12:POKE BEGIN+ROW,7:NEXT ROWHR&j%;7j=K&&L&M&N& + 5J&&&© M2 -L*J&˜ ' 5&0& M2&L}& $+L*& & M2 H-ƅ& & M2 H- 1- *`RUNTIME ERROR AT LINE &&L*, ,L&L}` '' &L&PROGRAM STOPPED&&Ńł ȱ`iL 'HH Z*L/ * . M2 + Q. .L} @. M2 @. ' M2 + @. 'hhL@.ʥ`HHhh`8L'uL}`Huh` L*L' L*L' ) .. ( .. ' * @.LL}* ) .. ' :, ( .. ' + ' * ' + M2 :, @. *L* ) ' ' :, ( .. ' + ' * L}' + M2 :, .. /( @. *L* ' Z* Q.L/` ) * ..L.. ) . .. + ' .. ' :,L' ) L}' :, ' .. + 'L'K&L&M& ) M2 M2,M&eK&iL&`M&8LV& .. L}Q.M&`ʔȱȱȱ Z*Șe惠 惨65*66* L*jem#6m$6 ..вHL} xTFILEFILE1SELDPAGFLG P} n Axp-@"D ٠ΠŠ V-@ @ p(NEW DRIVE # P} |-@$@  ( * A0<-@$@ NAdAURh @)!@r A| P}A0 B$e +@-@@< @DISK # NOTN-@@e(@ ON SYSTEMP}8 A A`#6-@- Ap8@ B Ab-@"C((͠P}ӠˠM BX@b A`m A-@@P:?-@"m (P}ҠΠŠ6@ Ap" A`, B6 A l-@"C (P}ҠԠΠŠM AW A`b@l Bn A@.@@R1:@-P}@"n((ӭ̠ӠΠŠ,@ Ap" A`, APW-@"C(P}(ӭ̠ӠԠΠŠM AW A`" B@" A-@A P}$b%2@@@9-@@P= _2b$b%2@U@P}@9-@@P= _2b$"z1;@,;@,;@,;@,CP}@U@ea6-@m6-@z6.D :*.*, +AR@90@P}S0@] Bw67@<@,.=:, AP@@6^2(*}ŠP}ŠˠŠD-@H(Z-@8^(@A@!6-5-@@4P}? A`L@V Bb @v-@%(0J7 @*!@ --@%P}7(T1!@+-@ @%&@1(^ h F:A,A6ArM @-P}"( .-@A( FREE SECTORS M6-@|m!@+-@ @%&@2( N-@%@%&@R}Hhh```L*ʱ` +⅄* &JL&J *HHl L}JLw TO BOOT FOR DOS TO RERUNp B V8,` 3+ȱL*&&8#6$68凅刐SL}Jj)ee`ффiiLL+8LL+ LV&uuuL*8MC}%&N4HAZC*>@9@8@9X} A Aa Aa5 @2A \A@2@X}@@8 @F!@ "H7#$ (} RR9@,;X}A ,;@ ,;@0,9A,9A,;A ,E-@A&68,-568,-9 E6-X}%%( ***Š***mm(eWill prevent your 'BASIC' program from being read or changed,by writiX}ng over the basic statementsRR(Jwith Control Characters.MAKE SURE YOU HAVE A BACKUP COPY OF YOUR ORIGIONALjj(bPROGRAMX}! There is no need to enter a 'D:' at FILE NAME prompt. **********************#(ENTER INPUT FILE NAME#X} 6.D: 67B:,%@,.( @@2#(ENTER OUTPUT FILE NAME#< 6.D: 67B:,%@X},.F @@P1-@@$)@-68,-1 Z//6-8@,%AV$+8@X},&@,d//6-8@,%AV$+8@,&@,n//6-8@ ,%AV$+8@,&@,x//6-8@,%AX}V$+8@,&@,//6-8@,%AV$+8@,&@,-@')@'67B:,%@,.X}>:,1A(*AV'6-%@1 B   ( A$ ( ENTER CHARACTER NUMBER$-@X} 68,-   6-1 6-&6-&6-&#6-&+6-&16-(''68@,-&P:'AV,X}$AV%%68@,-P:'AV,%@''68@,-&P:'AV,$AV%%68@,-P:'AV,%@'X}'68@ ,-&P:'AV,$AV%%68@,-P:'AV,%@"''68@,-&P:'AV,$AV,%%68@X},-P:'AV,%@6''68@,-&P:'AV,$AV@%%68@,-P:'AV,%@J-@@TX} 6-8,*@^ h-@r 6-8,*@|  B )@*@ X} A3/(&FILL TABLE WITH SPECIAL CHARACTER(Y/N)3 4Y A7#(CHANGE VARIABLES ONE BY ONE'74X}YBm#!@&)!)!U6-+%,$@%+&@&&&,$@%@&a6-@m6-@X}-@ &8,"@ AP& A&8,"@ A`& A!@&Ar$*68,-@dX}%%A(*6-%@. A076-%@!@&)6-@76-%@368,-%@e86-%X}@B68,-%@d%A(L6-%@ ( A   8,"@ 6-%@X}B6-%@"68,-@d%06-%@?68,-AdB$pB6-%@"68,-@d%06-%@?68,-AhX}B$'6--@'6-%@$'Q)@:7<,,A*@:7<,,AG67<,.>:@:7<,,&A(,Q X}BP)'Q)@:7<,,Av*@:7<,,AG67<,.>:@:7<,,&A(,Q BP.'Q)@:7<,,"Ad)@:7<,,"AhY}G67<,.>:@:7<,,&A(,Q BP8' *9 6-B:,-@+68,-@:7<,,/ 9 A :+(+( OLD VAY}R NAME: 7&%@<,:( ENTER NEW NAME: :MB:,"%(7&%@<,C67<,.>:@:7<,,%A(,M Y}BP5:--67B:,:@:7B:,@9@8@9X-ERAMTOSIXADDSIZAA(B'hA'd6-A 6-F:,(6-$AV]}"6-AU&F:,(( F:,"6-%@(AU&9( (3(%ŠРƠҠɠӠ 6(9(e]}( ( ((e(L SUBTRACT THIS NUMBER FROM 40960--THE RESULT IS THE NUMBER YOU SUBTRACT FROMBB(: DISPLAY POKE STATEM]}ENTS WRITTEN WITH MAXIMUM MEMORY.(48K) D:RAMTOP.MAXA'd6-A 6-F:,(6-$AV\;  ].AB@E@@@@ A ATARI(BASIC)a } BY FRANK BRANDLE #3Q0@@70@@@Q0@@@;@,;a }@!,' (}AR@'6-@6.AEIOU(6.BCDFGHJKLMNPRSTVWXYZ- (}6-@2-@a }@P7!@DA<-@@F%%6-P:@ $H:@,,%@K2@@@a }P (7<,Z%%6-P:@$H:@,,%@d (7<,n x%%6-P:@ $H:@,,%@ (7<,(a}  6-%@!@Ap A(!6-@!@w@ %%2@a}-@B  (} % D:RANDOM.WD A ATARI(BASIC)`NMAXMAXTRUFALSCASNCNUMHOLDFILEINFILEOUTLOLDLNEWLSECTLBYTEBOLDBNEWBSECTBBYTEBLOLDBASINCREMEe}NTESEQNUMBEBRANCXXBHOLDEXAMABMAXXXXX1ADFILEINFOAA@e}  A 8-A F-A T-A b-Ap-A~#-A*-A1-A8-A@e}A  !"#$%&e}'()dRESEQUENCING PROGRAM BAY AREA ATARI USERS GROUP,THIS PROGRAM NOT FOR SALEDDAUTHOe}R ROBERT BURKHALTER 22NOV1980 (RE801122.002)Xb""ĮǸ٠̠Ӻl##ĠӠe}vΠӠϤĠӠԽԣ96-A6-Ae}'6-@36-96- ;@,;@,;@,L;@,;@,;@,e}9,9,9,9,x9,9,9,9,9, FRE(0)=I:,@)) !ԠŠԠŠΠɠŬre})) !ԠĠĩ6-6@6-6@ ENTER NEW STARTING # l ENTER NEW INCe}REMENT 4 6-&`  FILESPEC OF INPUT  ( @@  FILESPEC OF OUTe}PUT  T < 4' SPECS CANNOT BE IDENTICAL2@< A$ @@  FILESPEC OFe} INFO   @@    PROCESSING INPUT F BHF* GET A CHAR e} FOR FIRST TIMEH * HANDLES A LINE NUMBER 6-%@t BS * GET AN OLD SEQ68,-A:,<Pe}RINT "LOLD(A)=";LOLD(A) 6-%(!B'g% SEQUENCE OVERFLOW(h 68,- 68,-68,-0C BeC* e}POSITION TO NEXT NUMBER" A4 * HANDLES A GOTO,TRAP,ETC.\6-%@e }68,-8, BS * GET AN OLD SEQ$68,-A:,PRINT "BOLD(B)=";BOLD(B) 68,-68,-P AD*e!} LOOP:: STORED  LINE NUMBERS AND  BRANCH NUMBERS|,, 8, IS HIGHEST NEW SEQUENCE NUMBER** THEe"} BUBBLE SORTD STARTING SORT 1 -&@p-%@8,!8, Ac8 Ahe#}! 6-8,68,-8,!68,-! 6-8,68,-8,!68,-d! 6-8,68,-8,!68,-! 6-8,68,-8,!6e$}8,-,! 6-8,68,-8,!68,-  X- ZZLPRINT X7;" LOLD=";LOLD(X7);"LNEW=";LNEW(X7)e%};" LSECT=";LSECT(X7);" LBYTE=";LBYTE(X7) -LnnLPRINT X7;" BOLD=";BOLD(X7);"BNEW=";BNEW(X7);" BSECT=";e&}BSECT(X7);" BBYTE=";BBYTE(X7);" BLOLD=";BLOLD(X7) )) !SUPPLYING BRANCHES WITH NEW SEQ #x33*** SUPPLY BRANCHES WIe'}TH NEW SEQUENCE NUMBERS@ 6-6-6-6- '8,!8,6-%@' Al 38,"8,e(}68,-8,)6-%@3 A 11IF YOU GET HERE BOLD(B) < LOLD(A), AN ERROR4!DD @ BRANCH TO 8, IN Oe)}LD LINE 8, NOT CHANGED!'68,-8,6-%@' A! ! A`" A"DD @ BRANCH TOe*} 8, IN OLD LINE 8, NOT CHANGED(#68,-8,6-%@# ! ABUBBLES 2# AT$1 !e+} A1BUBBLESORT 2 BY SECTOR,BYTE$ A%%*** BUBBLES NUMBER 2%  BUBBLE SORT 2H&-&@e,}&-%@'8,!8,Bt'!!8,"8,*8,!8,B' B<(! 6-8,68,-8,!68,-e-}(! 6-8,68,-8,!68,-)! 6-8,68,-8,!68,-h)! 6-8,68,-8,!68,-) 0* *-e.}*ZZLPRINT X7;" LOLD=";LOLD(X7);"LNEW=";LNEW(X7);" LSECT=";LSECT(X7);" LBYTE=";LBYTE(X7)\+ +-$,nne/}LPRINT X7;" BOLD=";BOLD(X7);"BNEW=";BNEW(X7);" BSECT=";BSECT(X7);" BBYTE=";BBYTE(X7);" BLOLD=";BLOLD(X7), ,P- e0}CREATING NEW FILE-*** CREATE THE NEW FILE.DDI WANNA COPY, CHARACTER BY CHARACTER TILL I HIT A LINE #, THEN|.GGREPLe1}ACE WITH NEW. SAME FOR BRANCH #. WILL BE DRIVEN BY SECTOR +.!!BYTE # AND CARRIAGE RETURNSD/WILL NOT SCAN/6-e2}6- 0@p0 @@0)@81@1  8, B12  e3}8, B1d2 BY2 B',3  8, B53  8, B53 BvX4 B'4 BH e4}5 B'5 BH5 B(L6 BH6 B27  FALL THRUx7*****************7*@8* S e5}U B R O U T I N E S8*9*****************l99((** G E T A C H A R A C T E R4:)@: 6.>:,e6}:$`;;&&** G E T A N O L D S E Q(< !  MAXA EXCEEDED< !  MAXB EXCEEDED<;;* ASSUMES Ie7} AM SITTING ON FIRST CHARACTER OF A NUMBERT=@= 6.>! BH!* GET A CHARACTER>H @X*!@Ge8}>67B:,%@,.7@<@,H BY>bb** SOFTWARE PROBLEM - TAKING VAL DESTROYS ABILITY TO CONCATENATE, SO, e9}TO PROTECT NUMHOLD$...H? 6.?$@t@66** P O S I T I O N T O N E X T L I N E #@))* WILL STOP AFTER A CAe:}RRIAGE RETURN}H I 4  BpI 4T BI 4S B18J BuJ BHK BdK BHK e?}4O B,L BuL BHL 4  BXM BuM BH N5 @X*!@G%6-@e@}+6-5 BFN BuN BHLO 4H BO 4R BP BuxP BHP 4E eA}B @Q BuQ BHR 4N BlR BuR BH4S 4  BS BuS BHeB}`T 4G BT5 @X*!@G%6-@+6-5 BF(U BuU BHU 4A B"Td}` ,L*iL*豂Hȱh`p ,L*,H, BHI, 5 ?-N&h`8`MD} :,L, :,#` :,0 :,0L, :,0` :,0L,L,`޵` `Ȕ`ME}ʔ惥u`, BHI DEH 5 ?-HyN&N&hL* , ?-N&`,JJJJ`-MF},- +- -0 -L* t-L*` -H t-h 0 -`L,8 0ƅ`66&L-HH` B VhH)KhMG})0 IJD-EB 5hL*S:,L*TUVL* -`,,L, ?-N&8ɰɅ ,`ʱȱȱ`ȵMH}ȵL*L* Q. @. @.ʥ @. .. Q. @.L3 Q. .. . . Z*uȱuȱu * Z* ..MI}0 j,L3 ȱL* ~,L.ʵ`eeLV&HHhh`ؐHH Z*LMJ}/ *HH . .6 +i i .i i @.hh @. @. 'hh @.`HH Z*% *MK}HH `2LQ/ Z* Q. LV& .6 + .. +` Z* Q.ޠ .. `2 +L/ L0H, B Vh`ҩ2ҵ ҵML}  *L*H,BHI 5,h,LM2,DuEu *,IHKJBH 5hMM} *L* -,H`B 5h`00LM2L*L* +`H *hLM21HZH eMN}HHƆeiH Q.lꦆ M2Օ`0  L,`8`1-1- R- M201LM21MO}01`K2 * Q.J2L2 M29 Ɔ채+K-J2L7280L2 .9K22K2LV& L2, Y2 . Y2 Y2 +MP}, M2 +ƆеJ2 +`ʕ`66`HHH66666uuuhhhLMQ}* +愵 ' + 'I M2 380/66&&&`uuu` 3 3MR}Ј 3 * +` 4B3C3 .A3B3A3B3C3 LV&ȥC3iA3B3 4`L$+3B3MS} 3`LV&C38A3ƅ3 ȱC3A3B3` 3L33L3H 4 G3h`1+ %  MT}88L 4 * *` * *`  * *` 4$' 4"0 40 4L, {4L, t4L,LMU}M2LM25 M2 Q. .5555`H,? ,,HI5D55E5B 5H5h` VLV&5` MV}45 M2555 M2L5 45LV&55, 555 M258e555 M2K2L1 MW} 'L*hh iL* 5LD3 5L$+5B3&&ȱ0 6L5 6#6$6&& L5&&`MX}i`K&&L&M&` 3+ȱ&&%8e慱HȱhױM&iK&iL&L*, BMY}H Vh M2L*,&BH 5hN M2 *L M2ML*,%BNLMH 5hL*)*Z*w***`2`2+:,2+,,,j,YMZ},~,c,r,S,*$++++,,,1-.H----.`..0////D331000 1)&0001K0k04444{4t40&K'G(m(()0)])5555$155}1g1M[}53%636&6661%;B;F; J;e;;;(;2 <<;'>'M\}>:>:>:?:}?:?:&@:]@:@:@:A:9A:pA:A:"B:zB:B:C:YC:C:C:C:5D:D:D:8E:oE:E:E:F:KF:FM]}:F:F:'G:^G:G:G:H::H:qH:H:H:I:MI:I:I:I:)J:`J:J:J:K:>an internal part of the resequencer (version 2). Thanks.m}D:RENUMBER.INS$$ӠҠҮӛdRESEQUENCE PROGRAM,;;WRITTEN BY ROBERT BURKHALTER 22NOV1980 l787 L ABLEN1LIN2LINE1LIN1LINE2NUMFRLINELINEADR@@@q} oo q}場 庠Ԯ°%%*** SORT OUT ***%%*** By GENE KRAJCA 3/26/81 ***q}EE*** This program will compare a revised program with the ##original.It will separate the ""changes, rq}ecording them in a llfile, e.g. "̮Ȱ" WAS created in this manner. *************************q}* @@1.STORE THE ORIGINAL PROGRAM AS ԠĺǮ̢.@@2.STORE THE REVISED PROGRAM AS ԠĺĮq}̢``3.LOAD AND RUN "Ԡ". THE CHANGES WILL BE FOUND IN "Ǯ".II*** A$ HOLDS q}ORIGINAL LINE B$ HOLDS BLENDED LINE ***2%%*** OPEN FILES -- #1 = ORIGINAL3$$*** -- #2 =q} BLENDED4$$*** -- #3 = CHANGES57V;@,-(DO YOU WANT INSTRUCTIONS1A4Y)4YESSq}@V<RR;AU,;AU,9@W,9@W,;@,;@,;@ ,A++@@q} D:ORIG.FILF,,@@ D:BLEND.FILP,,@@ D:CHANG.FILdi*** START LINEq} BY LINEjCOMPARISON. ***kn# A#*** Strip 1st # ***x# A#*** Strip 2nd # *** 6-A:,6-A:q}, " A    A0 ! A@LQ*** SUBROUTINE ***RGET BLENDED LINE #SV" 6q}.  AP"@`-@@j+68,-@:7<,,+8,"@2A`t#6.>:8,,#67B:,%@q},.~ :$:*** LINE1$ HOLDS 1st LINE #. ****** SUBROUTINE ***GET BLENDED LINE #q}" 6.  AP"@-@@+68,-@:7<,,+8,"@2A`#6.>:8,,#67B:q},%@,. :$:*** LINE2$ HOLDS 2nd LINE ". ****** SUBROUTINE ***COMPARE A$ q}WITH B$ 4 A 0 @ A  *** SUBROUTINE *** DELETE LINE1$, FILE B$ q} $(@ A$ A0*** SUBROUTINE ***FILE B$, GET NEXT LINE2(@ Aq}" 4 (@" A` A0*** SUBROUTINE ***CLOSING ROUTINE4 *4q} A`, 4 (@" B, Ap Bz$@@$@(} SORTING COMPLq}ETE D:SORTOUT.B01N2LINE1LIN1LINE2NUMFRLINELINEADR@@@ptkCSKEYAT@@di@i @ @@ @ s @u} (}  SHELL-METZNER SORT  BY ROBIN KOPETZKYD-@@@ %ENTER NUMBER OF STRINGS TO BE ENTERu}EDD3-@@/(ENTER STRING LENGTH 3;$%@,;,;,$-@$ 67<,. $ u}# (}(-@)%-@B:,!67<,. % , (}-4-@@0(ENTER STRING #  42u}$$67+&@,$%@<$,.< F##(TO START SORT, PRESS RETURNK%%  THE SCREEN WILL TURN OFFPZu}AYd 6-6-P:'@,"A, 6-&6-@ 6-X 6-%GG7+&u}@,$%@<$,/7+&@,$%@<$,A $$6.7+&@,$%@<$,`?67+&@,$%@u}<$,.7+&@,$%@<$,`67+&@,$%@<$,. 6-&L@A6-%@u}!Ax AAY@4@ (} SORTED STRINGS ARE:-@l"" 7+&@,$%@u}<$, 4 D:STRINGSO.RT@di@i @ @@ @ s @t)[;[;[;\;P\;\;\;\;,];c];];] ;^!;?^";v^#;^$;^%;_&;R_';_(;_);_*;.`+;e`,;`-;`.; a/;Aa0;xa1;a2;a3;bM}4;Tb5;b6;b7;b8;0c9;gc:;c;;c<; d=;Cd>;zd?;d@;dA;eB;VeC;eD;eE;eF;2fG;ifH;fI;fJ;gK;EgL;|gM;gN;gO;!hP;XhQ;hR;hSM};@iT;iU;iV;ZjW;jj " PLEASE WAIT'*:* 2;@2;@2;@;af_lec>rf_r>M}rcvr>`_ai>_qqfmjcAҰĠŠ unprotect routine;by Yogi of Jellystone ParkA;;D/-B;;M}D/ (201)7823825B<;-<$;;F52-C<%-<$;;F5<%<<$;M}F5 -<%-<$;F52 -<% Insert a COPY of your Broderbund$original. To get a copy use aM} sector"copier and copy the disk, ignoring"all protection in it. When you areready press ]M}K7;6=;pJ All Done!=;p:p=$";1,=%*>K104,169,1,M}141,1,3,169,87,141,2,3,169,0,141,4,3,141,11,3,169,128,141,5,3,169->>P91,141,10,3,32,83,228,238,5,3,238,10,3,173,10,3,201,10M}9,208,240,169,205,141,10,3>>169,2,141,11,3,32,83,228,96>+=$";1,=%?X88,216,169,0,141,47,2,141,0,212,13M}3,65,162,130,154,24,105,63,149,127,202,208,249,164,185?}?^162,127,181,128,85,129,118,130,245,128,54,129,117,130,72,85,128,5M}4,129,245,130,118,128,117,129??^72,85,130,149,128,202,16,225,136,208,220,230,166,165,133,69,181,133,167,166,140,161,176,14M}1,10?&@?3,169,0,141,4,3,169,5,141,5,3,32,83,228,108,4,3,0,0,0,0,0,0,0,0)@]@10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,M}0,0`@@10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@@10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@A10,0,0,M}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0A9A10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0XrX10,0,0,M}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0uXX10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0XX10,0,0,0,0,0,0,0,0,0,0M},0,0,0,0,0,0,0,0,0,0,0,0,0,0XY10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0YNY10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,M}0,0,0,0,0,0,0QYY10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0YY10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0YN }CYMRTA) ##MORE READ TIME CLOCK-IN BASICBY WALTER SNELLSAN DIEGO ACE( }@2-@A<"F%A5P Z(}MRTC UTILTY 1.0_(HH:MM:SSd A6-?:A6},i++162,0,32,199,6,24,42,42,42,42,141,255n++6,32,199,6,24,109,255,6,157,240,6,232s,,224,3,240,11,169,58,141,251,2},32,208,6x))76,2,6,173,49,2,133,205,173,48,2,24}//105,63,133,204,144,2,230,205,169,0,141,14,,212,169,79,141,36,2,16}9,6,141,37,2,169..64,141,14,212,76,0,160,162,0,202,208,253,,248,14,162,0,173,243,6,105,1,141,243,6--201,96,144,96},142,243,6,173,242,6,105,0//141,242,6,201,96,144,35,142,242,6,173,241--6,105,0,141,241,6,201,96,144,20,142,241,,6},173,240,6,105,0,141,240,6,201,18,144++5,169,1,141,240,6,173,221,6,208,41,24))162,2,160,8,189,240,6,72,41,15,9,160}0145,204,104,136,106,106,106,106,41,15,9,1633145,204,136,169,26,145,204,136,202,16,225,200..169,0,145,204,76,98,228,}142,254,6,32,226..246,174,254,6,142,254,6,32,170,246,41,15$$234,174,254,6,96,0,0,0,0,0,0,0D:TIMECLOK.UT}L2,254,6,32,226..246,174,254,6,142,254,6,32,170,246,41,15$$234,174,254,6,96,0,0,0,0,0,0,0D:TIMECLOK.UT12 HXCONTHAMASAHOTMITSECTYOLDSEXILV@0@0}@ @) A @ @ @6?@?b$` ;@,;@, ******* *TI}MER* *******BY SRH, 3/81]]THIS PROGRAM WILL SET UP A DIGITAL TIMER AND DISPLAY THE ELAPSED TIME FROM THE} ENTRY OFJJANY 'ALARM TIME' UNDER 9:59:59. IT WILL ALSO DISPLAY THE ALARM TIME. A@ +@AdAU}0(0(%HOW LONG DO YOU WANT BEFORE ALARM (AS#&&(HRS,MINS,SECS; UNDER 9:59:59)( -KA'A}9AKA/'6-6-'6-2@@w@'-@@}@(@::3?-@@? @(:: --ALARM!)4O6-@$F:A,"}9F:A, @E @O A5OF:A,!@ $ @06-@EF:A,"O A6} """A7"F:A,@U8 6-<;6-P:F:A,'@,,6-F:A,;6-F:A,F } @Pd+ (}+( ϠРԠŠҠfA@3)-@@556-?0A6-@M6-@}W A[ g6-?s6-@6-@ Ag F:Ad,AUAhQ%2}G2@Q AiQ2@@;2@@B@C6-$Q!}Aj$nQ%2G2@Q @ #-@ (@ } #$ ##A2,00,E6,CB,A5,CB,C9,3C,90,2A 86,CB,E6,CC,A5,CC,C9,3C 90,20,86,CC,E6,CD,A5,CD C9,3C,90,02,86,CD,E6,}CE A5,CE,C9,0C,90,0C,86,CE E6,CF,A5,CF,C9,3C,90,02 86,CF,4C,62,E4,==TIMING SUBROUTINE$ (}$ Setti}ng up my timer...6-A `#A0"4==AA?%6-@:7@<@,,&@H1!@ ?6-&@}?%6-@:7@<@,,&@H1!@ ?6-&@+$@%!6-%@+ A@ KBB}'AHA9AI@KBB@dh$ D:TIMERALA.RM@0@0X .JIMINMISEA ?@ffffdeBy Clark Petersonl6(Press any key t}o start,6( Then stop timer.mAdAUn F:Ad,"AUAx0@'@ 0}Time 0AdAU F:Ad,"AUA@9%6-AV$F:@,%F:@ ,9Jiffy is 1/60 Sec6-}'A6 6-P:,6-+&+$A6,,'@`## TIME =  Min  Sec  D:TIMING.RTNPress any key tlY10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Y*Z10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0-ZaZ10,0,0,0,0,0N },0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0dZZ10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ZZ10,0,0,0,0,0,0,0,0,0,0,0,0,N }0,0,0,0,0,0,0,0,0,0,0,0Z[10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 [=[10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0N },0,0,0,0@[t[10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0w[[10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0[[10N },0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0[\10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\P\10,0,0,0,0,0,0,0,N}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0S\\10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\\10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0N},0,0,0,0,0,0,0,0,0\\10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\,]10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,N}0,0/]c]10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0f]]10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]]10,0,0,N}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]^10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ^?^10,0,0,0,0,0,0,0,0,0,0N},0,0,0,0,0,0,0,0,0,0,0,0,0,0B^v^10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0y^^10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,N}0,0,0,0,0,0,0^^10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0^_10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0_N}R_10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0U__10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0__10,0,0,0,0,0N},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0__10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0_.`10,0,0,0,0,0,0,0,0,0,0,0,0,N}0,0,0,0,0,0,0,0,0,0,0,01`e`10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0h``10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0N},0,0,0,0``10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0` a10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 aAa10N}8K8P?@     Y`  Y0 l `8Eiͩk}Ω͙kCop j`j {j`Hi͝Νh`L"UNEM:D" NURͩkp ` 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  0}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}P%P1}% |||DDOS DOSDOS SYS }2}}23}B TIMECLOKUTLBTIMERALARM BTIMING RTNB TVTEST BAUTORUN SYSCDOS SYS4} 0`BDELV !B ۖ5}`LVUQ   ]   TU J ]L!T  #      TU 6} L ? .  t`GBJ V~DEHI B V0dV7}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh8}DEL8HI   0 HI,0 0  9 .G VLO9},0 LD*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEGH&I:} 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 VBGH&>}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL?}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e@}1i1232435ޥ<<8} CE: vC y@y@`A# *` :105L; 0L>! * 0` * : k;` 1 *` 1 *` Disk Drive SpB}eed:XXX RPM~~~Drive # X PRESS:C > check drive speedL > list error sectorsP > print error sectorsW > write alC}l zeroesto error sectorsM > return to main menuCATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟D}R'S  ==D;EHI 1 1! @ :ɛ8A0.) ȅ 1 1iE}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU!L; .{z:*{}.|~ 1 0 0F}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # O 0 n&|D! 1L NOT A DISK FILEG}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBHH}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L I} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED007 FREE SECTORS COPYING---D2:DIGDJ}UG.EXEN# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: BK} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#L}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%M} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@Cn> ` 0l>^>  D, N; ,`COPY SECTORS`RLS : , ,>  , ,]}>  ,ޢ>  , ,`e= `h=L :ɛ`hL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLt^}% A.=s ` <0 0 .@L# .BJ 1  DEHIB V L1 = g <0,L. К_} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 =s ` <0,0Lf- B V`},A#P=s ` <0 0L#L ߢ) 1* 1 ~0Yj…C8C}mm ݭa}}`8}``|* ? ɛ,`|:(|/ 1L `INVALID DESTINATIb}ON:DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξc}hAΞB,0 J 1 BޝDEHI,HDE 1H$IHIDELSAVE-d}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L e}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥf}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{g}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1h} L ERROR- 165ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDi} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4Cj} ;CC ;C ;CC ,CC 7: *DCC ,s=  ,k} lɀL +ͼCͻCC.LY4 H:泭C0iiʹCL{3CLP3 7: *DCC ,=  , /,l}C0 8 l0N S0G r:ͼCͻC# H:浭C0iiʹCЪLP3 ,=  * N;L8 D, N; ; ,Wm}C  L 4C=  :>810ꍲCC , > 1C1=  :7>810ꍳCC , > 1CͳCC n}, 1â= 1 :YhhL `i=CCЍCCCCCCCCC a; a; a; , 4L3 ,9> 1 * 鈹Cɛሢo}Cɛ )CC0CC ~* 6CCCC CL> 1 * Cɛ ~* 6ܭCCCC C˭CͼCLY5p}CͶCLY5`C``C`~, , Y5C 4L3? , Y5C 4C ;RD浭CC  Cq}CC0C S ɀGCL6 SCѰɈiՅi@CͼCͻCLe6CCCCL8h= : њr}, ,p  , ,  ,@  :ɛL 15))C q+L7h= , ,3@  ,R@  :ɛL H 7 7L_7 s}7L_7D 7 7Lx7 7Lx7@ `C ` ,q@  * ECɛ>0$蹨C *00C0C *0" CCL7`t}C X*`8` ,@  *0\X TCɛM ~*HC)JJJJ *6CȽC) *(CC0CCC`8`u}h=84=Wy 84=PyL ON : *nDEǍHI 1C L8 :C q+L8L 9 N;L8P 9 N;L8Wv} +L8ML 15))C g+L8 ,CD?E BHCCC /,C\XCC X*C ?0  ?ʚw}C0L:8鉍C mC mC"??C V0*CͼCͻC L49Cˢ? `CL 9PC B VBӝD@x}EJNK V0 9 ,? PC D,P B V`εCC mC mC??L9CC`i`y}i`i`i`i`P B VBНD@EJ VBHz}IL1HI B} V@`HS S ShH )L@;LG;h` 0)¢)  N; ,` *;hL; b,hL; ,> {} , ,L,h=L1 :HOh:` k; 0L>!}DISK UTILITIES (c)1984 Atari Ver 3.2A by A.C.E. Softwar|}e A. DISK DIRECTORY K. BINARY SAVEB. RUN CARTRIDGE L. BINARY LOADC. COPY FILE M. RUN AT ADDRESSD. DELETE FILE }} N. CREATE MEM.SAVE. RENAME FILE O. DUPLICATE FILEF. LOCK FILE P. COPY SECTORSG. UNLOCK FILE Q. CHECK SECTORSH~}. WRITE DOS/DUP R. RADIX CONVERTI. FORMAT DISK S. DRIVE SPEEDJ. DUPLICATE DISK T. WRITE VERIFY:ƛ9!&x#!7&p))ٚ}'&5./)L''-6(6876j8COPY DISK Insert source disk and Λ Insert DESTINATION disk and Λ IT'S DONE !'Y' to} execute or for menuSource drive # ?DESTINATION drive # ?Source drive is # 2Destination drive is # 1Enter first s}ectorEnter last sectorCHECK DRIVE # X >>>>ERROR # 128<<<! * 0` * : k;` 1 *` 1 *` Disk Drive Sp$,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Daxa10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0{aa10,0,0,0,0,0,0,0,N}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0aa10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ab10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0N},0,0,0,0,0,0,0,0,0 bTb10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Wbb10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,N}0,0bb10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0bb10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0b0c10,0,0,N}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,03cgc10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0jcc10,0,0,0,0,0,0,0,0,0,0N},0,0,0,0,0,0,0,0,0,0,0,0,0,0cc10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0c d10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,N}0,0,0,0,0,0,0dCd10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Fdzd10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}dN}d10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0dd10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0de10,0,0,0,0,0N},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"eVe10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Yee10,0,0,0,0,0,0,0,0,0,0,0,0,N}0,0,0,0,0,0,0,0,0,0,0,0ee10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ee10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0N},0,0,0,0e2f10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,05fif10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0lff10N},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ff10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0fg10,0,0,0,0,0,0,0,N}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0gEg10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Hg|g10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0N},0,0,0,0,0,0,0,0,0gg10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0gg10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,N}0,0g!h10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0$hXh10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0[hh10,0,0,N}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0hhM0,0,0,0,0,0,0,0,192,234,200,74,91,183,3,218,128,179,181,242,109,145,159,56,2N}9h@iX63,196,244,93,40,142,191,33,187,48,181,153,101,136,36,125,47,168,152,221,170,32,82,0,240CiiW92,237,82,241,57,128,53,N}77,81,23,187,73,118,210,243,22,179,122,80,136,192,186,98,142,61iiX166,92,79,42,178,78,216,242,145,187,128,171,52,40,64,157N},51,77,176,27,39,208,203,227,123iZjY41,138,245,148,74,61,71,111,52,173,163,0,221,126,160,49,89,201,178,126,15,150,252,125,1N}99]jj&133,237,31,112,61,209,42,0,186,15,31,0+&lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllN}lllllllllllllllllll112,61,209,42,0,186,15,31,0+&lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllL: P STACSSTESKRERR@TA@ AA@d @YV}A ~f AA f @b@fff + JJQUICKSORT FROM DONALD KNUTH, ART OF COMPUTER PROGRAMMING,VOV}L 3,P 117CODED BY E.P.MCMAHONIISORTS N RECORDS R(I) BY THEIR KEY K(I) BY A PARTITION-EXCHANGE SORTMMADDEDV} VARIABLES K(0) AND K(N+1)ARE REQUIRED. K(0)ANYKEYKKYOU MAY WISH TO PLAY WITH M TO MINIMIZE RUNNINGV} TIME FOR YOUR PROBLEMddTHIS SORT WORKS BY CORRECTLY PLACING THE FIRST ITEM SO ALL ABOVE ARE SMALLER, ALL BELOW LARV}GERffTHE TWO SUBFILES THUS CREATED ARE SORTED IN TURN. THE STACK KEEPS TRACK OF SUBFILES TO BE SORTEDHHSUBFILES SIZE V}M OR SMALLER ARE SORTED BY A SRTAIGHT INSERTION SORT__LINES 810-830 IS THE INSERTION SORT WHICH IS ITSELF ABOUT TWICE AS V}FAST AS A BUBBLE SORT.;;(THE ONLY THING GOOD ABOUT A BUBBLE SORT IS ITS NAME)55DROP ALL THESE REM'S WHEN USING V}THIS SUBROUTINE!&&9@ ,9A,9A,( A --DEMO CASE2!!-- DIM R(.) AND K(.) TO N+1344-- SETV} N TO THE SIZE OF THE ARRAY TO BE SORTEDc-- SUBROUTINE STARTS HEREd;6-6-@!6--6-@ ;!AV}7& A7- SORT SUBFILE FROM K(L) TO K(RT)! 6-6-6-8,!6-8,UU- IF KEYS K(.) START OUT NV}EARLY IN ORDER, REPLACE LINE 210 WITH THE FOLLOWING--<<210 I=L:J=RT:Q=INT(RND(0)*(L-RT))+L:TEST=K(Q):REC=R(Q),$  8,V}6-&@$ A% 68,-68,-% A)68,-8,68,-8,)6-%@$ 8, 6-%@V}$ AX9 !68,-8,!68,-8,/6-&@9 Ab 68,-68,-6-U &&&68%@,V}-%@46-%@=68,-K6-&@U AK68%@,-"6-%@368,-&@A6-%@K V}A88STRAIGHT INSERTION SORT FOR SUBFILE SIZE M OR LESS ;-%@%@$6-8,-6-8,;6-&@*V}L  8, 68%@,-8,468%@,-8,B6-&@L A4)68%@,-%68%@,-) H"V}AHIF ALL SUBFILES ARE DONE, WE ARE FINISHED SORTCLICK TO SHOW OPERATIONALG%2@ @@V}G25 6-8,6-8&@,+6-&@5 ASORT IS FINISHED$V}K AND R DIM'ED EARLIER##( Š Z-@A468,-P:H:,$A,H68,-8,$@V}V(8,8,Z V,($̠ŠĠӠԠӡ@-@AD VAY9@V}'@9@ D68,-6@.68A,-A:6-AD AAY@4V}DD6-++F:@,$AV%F:@,,$AV%F:@ ,,'@`-@ 8,8,  (( SV}ECONDS*D:QUIKSORT.BAS@,,$AV%F:@ ,,'@`-@ 8,8,  (( ST#a( FREE SECTORS m6-@M B-@"M((ίЩŠĩŠөӠ>-@R}@ $( SELECTION >0@@ @] Ap-@$@ +( =-@$@ OAdAUR}Y A]S27@<@,4P*+"@)"@,=@I6-@S AL7@<@,4R}P(6-@B0@L AG7@<@,4D(6-@2 A =@G A$$R}7@<@,4SA: 6-A:,& @)!&@&0 A: A_ B(}@;@R}@G6-S"@_6-@4$-@% @$ +67@<@,.7@R}<@,S67@<@,.7@<@,l67@<@,..67@<@,.7@<@,Y 6R}.-@@,6-@:7<,,B"@F)"@XY67B:,%@,.>:,H1+!@G* @X,)+!@d* @R},H67B:,%@,.>:,G @@+@e@=ARG Apr +@-@R}@4(@LOADINGF-@@d(@7@<@,n A@r%a A(@4(@R}FILE NOT FOUNDT(@OR NOT A LOAD FILE^ A`a%D:MENU PLE