#@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED228 FREE SECTORS COPYING---D1:DISKFIX.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 160ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u8<<  B JKIHiDiELV`L8 8 BLV`LxT}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`HU}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0ICV}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::iX}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8Y} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9Z}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  [} L;D8:; :9 :Y;L-@m}@ $( SELECTION >0@@ @] Ap-@$@ +( =-@$@ OAdAn}UY A], 4DOS@e@) A ,.S27@<@,4P*+"@)"@,=@o}I6-@S AL7@<@,4P(6-@B0@L AG7@<@,4Dp}(6-@2 A =@G A$$7@<@,4SA: 6-A:,& @)!&@&0 Aq}: A_ B(}@;@@G6-S"@_6-@4$-@%r} @$ +67@<@,.7@<@,S67@<@,.7@<@,l67@<@,.s}.67@<@,.7@<@,Y 6.-@@,6-@:7<,,B"@F)"@XY67B:,%@,t}.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,G @@+@e@=Au}RG Apr +@-@@4(@LOADINGF-@@d(@7@<@,nv} A@r%h A(@4(@FILE NOT FOUNDT(@OR NOT A LOAD FILE^ A`h AXC Bw}AR@1@C@@9b1 }ATARI SYSTEM STATUS1  ...WORKING...glhh;Ax},;@@,;@@,;A,;@,;@,;@@,;@@,;A#,v8 AP-@@y}P:8@,@,6.P: G A@<@@D2:*z}.*G@LL6.BD1: ˠŠD2: ˠŠ A--6.#D1: ˠ{}Š C A @8@@R:C@aa6.WR1: ӭԠ|}R2: ӭԠR3: ӭԠOO67B:,%@,.7R4: Р}}1@1@@D:*.*-@@@''7@<@~},4SECTA-@!   ''7@<@,4SECTA@ A $@ -}@"@!$ *. A .7@5<@5,42A04 A>''@@D2:*.*H}@R''7@<@,4SECTAp\ A@f-@"@# p--@ @"- }IJz8@ -@ @ 8 ı7-7 ATARI SYSTEM STATUS UP TIME:i-}@B 'DEVICES PRESENT SYSTEM DRIVE FILES:T-@#@i EXT U-@$  E:} 3  S: D  K: U  C: *-@*  -@ }( 4(6.P: D7@4<@4,4 D6.!D2: ˠŠW 4W6}.FR1: ӭԠR2: ӭԠf 4f67B:,%@,.GR3: ӭԠ}R4: РXX ODEVICES NOT PRESENT } h-@ . ź?  BASICh #٠ź})6-AP!%I:,)  Bytes/=6-+'A$,46-P:$@%?,'@= K.-@} |.-@33 *$E-@E *}.--@@#-@) |- 8.-@ @##-@* |. B F:Ad},AUA`LaE6-P:+F:@,$BU6%F:@,$AV%F:@ ,,'@Y'C@,S!%@Ya6-%@`V6-}P:'@`,6-&`D 6.=:,"67B:,%@,.:. @D67B:,%@,.0j67B:,%@,.=:,t-@1}  ~ A"F:Ad,"@1" A"F:Ad,"@0" A04F:Ad,"@}*AdAU4 APF:Ad,"@(*@@4+FAdAUP A66POKE 82,2:PO}KE 83,39:GRAPHICS 0:POKE 764,255:NEW!6.D:*.*!AdAU AP"6.D2:*.*"AdAU A}P6.SYSTEM DRIVE FILES:67@<@,4266.DISK DRIVE 2 FILES:-@ @ 5 A}@5@@ -@@@''7@<@,4SECTA`(-}@! 2 <''7@<@,4SECTA`F@ A@P"@AZ8-@}-@!4  8 d-@"@!n9@'7@<@,429-@"@#x }%- % A@% D:D!n9@'7@<@,429-@"@#x 8@noD [ XYRXYMAXMAROWCOLMYSCALXSCAL@} %%ҠΠȠǛ};;ADAPTED FROM SOME COMMON BASIC PROGRAMS, ATARI ED...GRAPHICS SUBROUTINES ADDED AS FO LLOWS:%%LINE 800 SETS S}CREEN PARAMETERS99LINE 900 SETS SCALING, LINE 1000 PERFORMS PLOTTING + (LINEAR REGRESSION( (} NUMBER OF KNOWN POINTS(9<@,2 AINITIALIZE DATA< ASET SCALINGc//-LOOP TO ENTER }COORDINATES OF POINTSd-@n( X,Y OF POINT x+ 68<@,-+68<@,-}! AP!}FOUND DATA BOUNDS##-ACCUMULATE INTERMEDIATE SUMS 6-% 6-%6-%#@6-%#@ 6-%$}  -COMPUTE CURVE COEFFICIENT!!6-+$&$,'+$&#@,6-+&$,'""(F(X) =  + ( * X)}""-COMPUTE REGRESSION ANALYZIS6-$+&$', A 6-&#@' 6-&( 6-'$$(COE}FFICIENT OF DETERMINATION(("##(COEFFICIENT OF CORRELATION:# (M:,$(,##(STANDARD ERROR OF ESTIMATE:}-(M:'+&@,,6(T""(PRESS ANY KEY TO SEE GRAPH^##@@K:h)@r A}| AINITIALIZE AR RAYC-@(68<@,-?68<@,-C 6-6}-$SET SCREEN PARAMETERS 6-@y*6-AY3''80*160 SCREEN FOR GRAPHICS MODE 74$Q##TES}T BOUNDARY X AND Y VALUESR%8<@,!%6-8<@,\%8<@,!%6-8<@,z$&&SET SCALING F}ACTORS FOR PLOTTING 6-' 6-'SOACING$PLOTTING SUBROUTINE +@.0@@}.X/Y AXIS COLORDR. THE X AND Y AXES!,!/ / @ORANGE POINTS-@}$/+,P:8<@,',&P:8<@,',/ -NOW PL. THE TREND LINE. @8',&+','PL. Y IN}TERCEPTB-@L16-%8<@,$1/8<@,'&+',V `=-=(#ACTUAL DATA=YELLOW;} TREND LINE=BLUEj1(REGRESSION EQUATION:1 F(X)=X + t$D:REGRESSIA.BAS@@}@E6,144,@L BwC EQUATION:1 F(X)=X + t$D:REGRESSIA.BAS@@"wNTOTASUABCCLKHROROHCLFROKIJMMARLSSACHMIRIBLNRIBLRICCICDMIMJHALMIIJJ}HALFHAROWKINKIKSTRKSTQUTOPBORIGLEFRBOTOMRCEXMMIROWHJKRRXROWROW2LCAHGHGFRCSCLRRTEYETIQUTIMTI}TA))Af')) }} !"#$@%@&'()*+,-.}/0123456789:;<=}>?@ABCDEFGHIJKLAMA}Nc++9@@<@@,9@@<@@,d +@-@@2(@MAGICD-@@X(}@SQUAREr0@-@A iV0@>( by Ernest Colem}anR-@AV l +n   s  TYPE A VALUE FOR Nt!!  WHERE N= NUMBER OF ROWSxz}&P:, A}; @; ' SORRY, NUMBER MUST BE GREATER THAN 2.~ @ A 6-$6}-+$+%@,,'@ 6-'6-@-@-@8<,-8<,-6}-%@   +-@A %+((+(  THE ORIGINAL SQUARE IS-@ }-@%8<, @%  8<,3#8<,@*8<, A3  8<,2#8<,A*8}<, A2  8<,"8<,!A"  8<, (    ,-'@&P:'@,6} A0; A@ 6-+'@,&P:'@,J" A@O" A}T#"*# APA MAGIC SQUARE IS FOUND-( (-(ӠԠϠŠà"F:B2y},"@" A"F:B2y,@" A +((1 +((1 THE MAGIC SQUARE HAS EACH}!! ROW, COLUMN, AND DIAGONAL  EQUAL TO -@A    -@-@%}8<, @%  8<,3#8<,@*8<, A3  8<,2#8<,A*8<, A2  }8<,"8<,!A"  8<,      ****************** * ERNEST COLEMAN * *}***************** A""@@P/ @ @$ @/ @ ** @}THE MAGIC SQUARE FOR N=& @),, @THE SUM OF EACH ROW, COLUMN*-- @AND DIAGONAL IS EQUAL }TO , @2-@4-@6.8<, @. @ 8<,7<#8<,@*8<}, A< @ 8<,8;#8<,A*8<, A; @ 8<,9+8<,!A+ @} 8<,: < @ = @> D@S$$(ӠԠҠנT"F:B2y,"}@" AU"F:B2y,@" AX Ab00TYPED IN A NUMBER WHICH WAS NOT AN INTEGER%%(}TYPE IN AN INTEGER , PLEASE .-@A  + A$ STEM FOR ODD N 6-@} 6-P:'@,%@ 68@<,-@ 6-@6- '6-@6-6-'6-@ A5} $ 6-%@6-  6-6-%@ SUBROUTINE FOR ODD N -  6-6- 6-%@ }6-&@   6-  !6-8<, A6P68<,-$ A6B6-%@6-}D  6-L68<,-` t$;;SUBROUTINE TO FIND MAGIC SQUARE THAT IS MULTIPLE OF 4-@-}@6-8<,68<,-  6-'@6-&@6-"-,6-}6-@@@-J6-@%%T6-@%%+@$,^6-8<,h6-@%}+@$,&r6-8<,|68<,-%@&68<,-%@& 6-%@ 6-%@} $00SUBROUTINE TO FIND THE OTHER MAGIC SQUARES6-'@6-'@6-P:+&@,'@,}6-&@THE B ELEMENTS ARE ZEROUPPER LEFT CORNER 6-$6-@6-P:,%@68<},-@ 6-@6-'6-@6-6-'6-@ A5(LOWER RIGHT-HAND SET26-P:,%@}<6-P:%,%@F68<,-%@P6-%@6-@$Z6-P:,%@6-d 6-6-P:,%@}n A5UPPER RIGHT-HAND SET6-@6-P:%,%@68<,-@$%@'6-@}$%@'6-@$6-@6- 6-6-%@ A5LOWER LEFT-HAND SET"6-%@},6-P:,%@668<,-@$%@J'6-@$%@'6-@$T6-%@6-^ 6-6-}@h A5|""NOW INTERCHANGE SOME NUMBERSMIDDLE ROWS OF LEFT SETS6-P:,%@ 6-P:, 6-} 6-%-@6-%@6-8<,68<,-8<,68<,- -@ 6-}% 6-%% 6-& 6-&%-@& 6-06-8<,:68<,-8<,D68<,-N6-8<},X68<,-8<,b68<,-l v NOW EXCHANGE RIGHT SETS" AY 6-&-}6@-@ 6-6-%6-8<,68<,-8<,68<,-   o$D:MAGICS}QU.ARE@ C A  6-6-%6-8<,68<,-8<,68<,-   o$D:MAGICSPm2FBA1XA1XA1XBA2A2A2BA3A3A3A4A4B1A5A5B1A6B2T} }@(>:A%,&&(<** ΠȠج٬ڠ **>>""  -----------}---------- >>(6THESE EQUATIONS WRITTEN IN COMPUTER LANGUAGE ( 6-$%$%$6-$%$%$6-}$%$%$( -(2 7(< A(F..(A11*X1+A12*X2+A13*X3=K(P..}(A21*X1+A22*X2+A23*X3=U(Z..(A31*X1+A32*X2+A33*X3=_(x6-+6$,%+$,}(}A42=6-+6$,%+$,(A43=6-+6$,%+$,(B11=6-+6$,%+$,(A52=6-+6$,%}+$,(A53=6-+6$,%+$,(B12=A0 6-'6-+&+$,,' A6}-+6$,%+$,(A63=6-+6$,%+$,(B21= ( ( 6-'"6-+&+$,,',6-+&+$,&+$,,'}6(X1=X2=X3=@-%C-%F-%H(J (X=M (Y=P (Z=}T( D:EQUAT1.BAS.BASD_ B0uNA1/(0 BAS CHARP (Z=r *+kAA@ + !(! SIMULTANEOUS }EQUATIONS  --------------------- (9@<@,( NUMBER OF EQUATIONS2< COEFFICIENTS MATR }IX:F-@P U  EQUATION Z-@%@d"%@A0n  COEFFICIENT x } A@ CONSTANT68<,-  -@ -8<,A0 } NO UNIQUE SOLUTION A@-@%@6-8<,68<,-8<,68<,- 6 }-@'8<,"-@%@,68<,-$8<,6 @-@J"AT6-68<,^- }@%@h68<,-8<,%$8<,r |   -@;; X = P:8<%@,$ }A%?P,'A  D:EQUAT2.BAS,1, 2,1, 1,2RVE COEFFICIENT;; X = P:8<%@,$ Y@CYSTARRRJRJRJRJRJRJRJRJRJRJ1R10R1R2R3R4R5R6R7R8R9RJR1R2R3DA @$}@@@ @ $} $}!@"@#@$@%&A'( A9@+90@$} 9@<@,-@@DD** line 30 enters the row number in the first column **$}68<@,-(-@@077* line 50 sets the last 4 columns at zero *268<,-<  $} NNN** line 80 reads the category for the next person in the survey **P""6@AEb::** 'Q' goe$}s thorough the 15 guestions **d-@@n"s!!68@<,-8@<,%x68<,-8<,%$} JJline 140 sends the computer back to read another line of data @-@@,,6$}8<@,-8<@,%8<@,,,68<@,-8<@,%8<@,,,68<@,-8<@,%8<@,$},,68<@ ,-8<@,%8<@,,,68<@,-8<@,%8<@,-@@&&68@$}<,-8@<,%8<,  ""( Survey Program $$** the printing begins here **//('QUE. MALE$} FEMALE MA. FE. TOTAL TOTAL//('No. 21+ 21- 21+ 21- .. .. 21+ 21- .. //('***************************************$}-@@-@@T(-%@%@((8<@,^(-%@%@((8<@,$}h(-%@ %@((8<@,r(-%@%@((8<@,|(-%@%@((8<@,($}-%@!%@((8<@,(-%@%%@((8<@,(-%@)%@((8<@,(-%@$}3%@((8<@ ,(-%@7%@((8<@,6-%@ //('***********************$}****************%%4,1,0,1,1,1,0,0,1,1,0,1,0,1,0,1%%4,1,0,0,0,0,1,1,0,1,1,0,0,0,1,1%%3,1,1,1,1,0,0,1,0,1,0,0,1,1,0$},0%%5,1,1,1,0,0,0,1,0,0,0,1,1,1,1,0%%2,1,1,1,0,0,1,0,1,0,0,1,1,1,1,0%%5,0,0,1,0,1,0,0,0,1,1,1,0,0,1,1%%5,0,0,$}0,1,1,1,0,1,0,1,0,1,0,0,1%%2,0,0,1,1,0,0,1,1,0,1,0,1,0,0,1%%4,1,1,1,1,1,1,1,0,0,0,1,0,1,0,0%%2,1,1,0,0,1,0,1,0,0,%}0,0,1,1,1,1-1' +@'0@1-@@1(@survey program1-@%}@1(@**************%-@@%(@BY,-@@,(@ tal yosef,-%}@@ ,(@ ---------$-@A .' +@'0@8.-@@%}.(@ m a t r i xL.-@@.(@ ***********V--@@-(@ dim s(r,c)`/-@%}@/(@ DIM S(16,10)j-@A t@~' +'0@%}''( ABOUT THE PROGRAM....''( *********************_-@@(_(A In this guestionn%}aire we have to show the answers according to ))(!the sex and ageof the population.LL(D The answer could be just YE%}S=1 NO=0 which appears in the 'DATA'.hh(_ The first number in every data line is the number of the group who gave the %} answer and the  ''(other are instead of YES or NO.1(1(& No. 2=male 21+ No. 3=male 21-x00(( No. 4=fem% }ale 21+ No. 5=female 21-pp(h 'ATARI' can't use in the 'MATRIX' but by the command 'DIM S(R,C)' we can to solve a % }lot of problems.4-@@"4(Press 'START' to begin.... F:B2y,@A$D:MATRIX13.% }BASA@j@@@@ F:B2y,@A$D:MATRIX13.$DmsQPAA@@A2@h BT" BX@Bw (>:A%,) }--(% PROFIT OF VARIOUS ITEMS IN VARIOUS --(% ********************************** (( BRANCHES 2 ()} ******** (<""ԠΠӠӠF++9@<@,9@<@,P-@@)}Z-@@d"68<,-n"68<,-x  -@@6--@)}@6-%8<,$8<, +#(ITEM NO. PROFIT IS +6-% ""-THE PROFIT OF BRANCH IS 'S')}-@@6--@@6-%8<,$8<, ,,( IN BRANCH NO. THE PROFI)}T IS  "(,(TOTAL PROFIT IS 6!!(=========================^3350,10.1,81,51.3,14,92.2,37, 20.1,18)},70.2h3372,9.3,127,49.8,158,89.8,82, 21.6,17,68.9r//21,11,28,53.2,79,90.3,187,18, 252,65.3|33137,9.8,50,51.9,)}87,90.8,32, 19.7,19,69.833181,9.3,87,52.3,17,94.1,89, 19.8,87,71.32229,11.4,17,53.4,58,91.5,127, 17,132)},68.2 D:PROFIT3.BAS@, 3,17,94.1,89, 19.8,87,71.32229,11.4,17,53.4,58,91.5,127, 17,132(1@TU  ABDDDA A< @@@@ @@ A -}x  KK******************************* * *KK* ͠Ǡɠà-}ӠѠՠҠŠ * * *%%******************************* # (}#0@-}4-@4(The given permutation is :4-@@4( &&9@ -},9@ ,9@ ,68@,-@-68@,-@B68@,-@W68@,-@l68@,--}@ 68@,-@68@,-@68@,-@68@ ,-@<(%(1 2 3 4 5 6 7 8-} 9((x168@,-8@,%8@,%8@,_68@,-8@,%8@,%8@,68@,-8@,-}%8@,%8@ ,68@,-8@,%8@,%8@,168@,-8@,%8@,%8@,_68@-},-8@,%8@,%8@ ,68@,-8@,%8@,%8@ ,68@,-8@,%8@,%8@-}, 8@,@A` 8@,@A` 8@,@A` 8@,@- }A` 8@,@A` 8@,@A` 8@,@A` 8@,@-!}A` A A1-@@ #68,-8,' 1 A < -@@6@<8%-"}@,!8,A    )-@&@%68,-8,) 6"-@ %@6@68,!8,AP-#} '68,-8,68,-8,'68,-8,3-%@@ /68,-8%@&,3 --@@ #(-$} 8,' *(-$3( (3(%YES!!..This is the right permutation!"--(%,<(<(1-%} IF DO YOU WANT TO KNOW THE SOLUTION press 6 F:B2y,@A@' +@'0@J6-&}-@@6(@the magic square isT(@(@^0-@@ ,(@ 8,0 h-'}-@A r' +'0@|6-@@6(THIS IS THE SOLUTION OF THE 5-@-(}@5( &-@@&( MAGIC SQUARE&-@@&( !-)}-@@!(!-@@!(|2|7|6|!-@@!(!-@@ !(|9|5-*}|1|!-@@!(!-@@!(|4|3|8|!-@@!( ( (VV(M T-+}he problem was, to find that permutation which give from every side,""( including diagonals '15'. ( (-,} D:PERMUT.BAS@@@@ @@@@@8,85including diagonals '15'. ( (,QYZjXlCC1CCCLTC3C3C12C9C6C12C1CC12C6LAOLPNSIK@@@@1.}A@1@2A( @ @d A' @ @A @` n.Ab1/}@ @@@@Bv@4@AI@By@ A6!@AJJ10} JJ MOVING ADVERTISEMENT 11} $$?6-@6-@'6-@36-?6-@a6-A12}6-@1'6-@236-A(?6-@K6-@dW6-A'a6-%%#6-@6-A #6-& &&13};A `,;A,;@,867@,.[,])67A `,.[,]867@,.6-C:,%%(WHAT IS YOUR 14}MESSAGE6-B:,((HOW MANY CYCLES- A000 (HOW FAST 1-SLOW 10-FAST$06-+%,'2 -<15}6.7<, F,6-BsD%$@!-,6-F:%,P6-$A %%s!!2@%@@x  16} }+%2@++% 6-C:,6-&--6-F:@,%AV$F:@,%@Y -17}- 6-%AU#A- A@6-@A -%6-?:A6<%<,-@18}  6-F:A, &X 6-@:,!6-&b !* 6-&$l  6-%v$ A-A19}6A"!=2@@@A  %%2@ ))104,104,133,199,104,133,1981:},104,133 ""201,104,133,200,162,8,160,12 $$177,198,145,200,136,208,249,24 ""165,200,105,10,133,200,144,3 ((230,2011;},24,165,198,105,120,133,198 144,3,230,199,24,202,208 221,96,0,0,0,0,0,0,0,0,0 ""202,208,215,96,0,0,0,0,0,,24 1<}$ D:ADVERT.BAS[[[[[[[230,199,24,202,208 221,96,0,0,0,0,0,0,0,0,0 ""202,208,215,96,0,0,0,0,0,,24 0'jk  AAMTJWPPDDDDJMOHAMJTAMKKKKKJVOJAFEMAAPMAJUJUAUSEOCNODE@@5>} 5?} !5@}"#nn * Monthly Bar Graph * 5A}0&;@ ,9@,9@,0 A g +@'0@@@A0@@@M65B}-@g0@@96-@6-/6. MONTHLY GRAPH9 @ O,@@ +/AX5C}@ =/@@uO/@@  AK%6-F:A`,%F:Aa,$AVK6-F:%@,%F:%@,5D}$AVb-B:,86-BsD%++@:7<,,&@2,$@,N6-%$@ %%&b-@#%$@ F5E}:%,  #$d#-@8,!#6-8,n x6-'@e6-@&6-@u&+8,',268,-P:,5F}6 *B 6-P:'A,* A*A 6-P:'A,* A*A 6-P:'@,* A5G} 6-P:,16-'@6-P:&,16-P:&+$@,,-6-P:&+$@,,-6-P:&+$@,,3 6.=:,5H}6-@&B:,)6-@3 @ !! @)!@A3 6.=:,6-@&B:,)6-@$3 @ 35I} 6.=:,6-@&B:,)6-@83 @ 3 6.=:,6-@&B:,)6-@R3 @ 3 6.=:,6-@&B:5J},)6-@f3 @ 3@'@@@3AR,2(2(' K J F M A M J J A S O N D5K}.//(' E A E A P A U U U E C O E0//(' Y N B R R Y N L G P T V C6-@6-&8,5L}@%+$@,8,:/@%%+$@,8,@!!/@%%+$@,@uJ!!/@%+$@,@uT5M}-@%+$@,8,^=Ae@=@@S:hA -@6@925N}8,@= A '@@'@@9 Am +'0@A0@5O}@[0@mAR@ (( MONTHLY GRAPH 4.(+( TYPE AMOUNTS FOR EACH 5P}MONTH: .(H+(( DO NOT USE NEGATIVE AMOUNTS +(5 A"(JAN=+68@,-5 B5 A"(5Q}FEB=+68@,-5 B5 A" (MAR=+68@,-5 B5 A"0(APR=+68@5R},-5 B5 A"@(MAY=+68@,-5 B5 A"P(JUN=+68@,-5 B55S} A"`(JUL=+68@,-5 B5 A"p(AUG=+68@,-5 B5 A"(SEP=5T}+68@ ,-5 B5 A"(OCT=+68@,-5 B5 A#(NOV=+68@,-5U}5 B 5 A#(DEC=+68@,-5 B` $D:BARGRAPH.BAS+68@,-4m0++BRAFGTXLMTLYLKCLYABPTSFILEYMAYMIGVLOHDISCALXLABEPTLCOLSTAREECHARSEEP9W}OWEFILR @ @ @ @9X}9Y} !"#$%&'()*+, cc9Z} V-G R A P H cc 9[} ANTIC 1986 #06-@$F:B2y,"9\}@06-(hh;@ ,;@,;@7,;@@,;A,;@r,;@@,;@ ,;@%,29]}LL;@,9A<@,9A,9A<@,9@,<L.6.$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC=679^}@7,.L6.>:A%,Ff +@@1@@9<@\@@K:f A09_}PH(-@@%(V-GRAPHH( by Alfred H. Filskov, IIIZ](](RThis program will plot graphs with up to9`} 100 points based on data from disk files.d/(/(#Do you want a disk directory (Y/N)?n A(A@x?( 9a}A@?@@D:*.*?@( ?7@<@ ,0FREE A0N@9b}((N(4How many files do you want to graph at once (1-3)?<)@6-&@H< @)!@A9c}PV( (6-"6-.6-B66. G67@6,. V67@,.󠛴=6-%@9d}0(Enter filename . D:=@c 6.D:67@,.% A0@M@@Y69e}-c AP:@!B0(DATA TOO LARGE!: A/ %(DATA LESS THAN 0!/ A9f}06-%@$68<&@,-* 06- !6- AA:"6-&@0(BAD LOA9g}D FILE!: A3 68,-%67$@&@,.3 A"@A --"@*8@,"8@9q}B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB7^MENU BASBREGRESSIBASB0MAGICSQUAREB EQUAT1 BASBEQUAT2 BASB MATRIX13BASB PROFIT3 BASBPERMUT BASB-ADVERT BASB=BARGRAPHBASBXVVGRAPH BASBHEXER BASB BARCHARTBASBSORTING3BASB SORTING4BASBSORTING5BASBDATING BASBSEPARAT BASB PARABOLABAS!CALCULUSBASGUY DEM. GUY11 09GUY10 iCLKMAKERBAS9wTEXTEDI1BASPTEXTEDI2BAS,A "CC"@*8@,"8@,*8@,"8@,A ,D:(2FILES DID NOT HAVE THE SAME NUMBER OF D9r}ATA POINTS!D A6,("( DISK ERROR #F:A,, A@ A0堛J AT 9s}^m BA@d)+3 A0E@@H(K(\( M E N U m( ---------h;((9t} 1. BARGRAPH(( 2. LINE GRAPH;(3. POINT GRAPHrO(4. CHANGE SCALE,(5. CHANGE LABELS<( 6. NEW DATAO(7. END PRO9u}GRAM|+(( YOUR CHOICE?+@@<)@6-&@H< @)!@A'("@9v} A0' AP#"@ A# AP"@%"@(K!@((;( DO 9w}YOU WANT VERTICAL LINES (Y/N)E AK6-)+@%@ A0)@9,@V@9x}'/@VAU9/AAU'-+&,''6-AU&+&,$$,@P/@U$6.=:,,6-@9y}&B:,"6-&@, A@)-@YA@%,)  B 06.,6-@ &P:B:,'@,9z}86-B A@c 0-@B:,&6.7<,26-U6-@r&B:,$@%$@_ A@c &9{}"@A026-@-@26.7<%&@,:Q-@6.7<,-6-8,'@C6-AI9|}%$@M A@Q D 6-%!B:, 6-@N X9!@+&@A@A 9b`9}}*!@-@<-AT@ 6@E,8,I M `l7A A@A@79~}vb6.(M)enu6-(6-A`2 A@@6.(P)rintL6-X6-Ahb A@.)9}@.@w*@A@"@wAPQ !-@U-,A`9/At= 9}G@Q A0$$򮸫囨 A`/6-F:@,%F:@,$AV:@Z@9}@P:(@>:@',A>:@,H-@9H(@>:@',L>:A(,>:@9},K -A6@56-F:%%$@@,K(@>:,>:,! (@ !@ B9} A0򮸠K 6-P:,6-P:,!6-@@K6-+F:@,$AV%F:@,,%$% -@B:9}, 6-@:7,,=% @2)+!A'* A`,36-%@d= A'!@1* @'6-&@2 $$6-F:A9}V,$AV%$@ -@@6@ %$F:%, *36-%@'6-%$@36-9}46-%@ $>H6.KEY: - ->67@ ,.7@<@,^67@!9},.7@ <@,j6-@v6-A A@Rb!@6-A'6-A36-@= AI6-A9}U6-@_ Ab$\3-A@#,A//A3 f,AA'/AA9/A9}AK/AA]/AAo,AA/AAp$z*6. 9}KEY: - - -J67@ ,.7@<@,j67@!,.7@ <@,67@3,.7@<@$9},%6-6-A% A@!@6-@R'6-A36-@= AI6-AHU6-@9}_ Ak6-ADw6-@ A$3-@P@T#,A//A3 ,AFA'/A9}FA9/APAK/APA]/AFAo,AGA/AIAo,ABA'9}/ABA9/AFAK/AFA],ADAo/ADA$蠛-@9}&"@6-6@& A<"@6-6@& A26-@< AS"@6-6@9}& A36-6@= AI6-@S A0   $蠛'-&@'9}-@/ 6-8,6-8<,%6-%@/ A$   ."@$8O-&@3,8@,9}8@<,A-@O/8,8<,B  $LV3 ,&@)/%@3@9}`{"@,#,&@9,%@&@O/%@%@e/&@%@{/&@&@j9}m"@,+,&@&@A/%@&@W,%@&@m/%@%@tg"@%,9}%@%@;/&@%@Q,&@%@g/&@&@~g"@%,&@&@;/9}%@%@Q,%@&@g/&@%@$󠛜A-%@),8,%8<9},:/8,%AU> A$Z /-8,%%@8,%%@@,8<@,L/ATP Z@a,8,9}%AU*/8,%8<@,H/8,%%@8<@,a/8,%%@AU]8<@, AR;-8<@9},AS@F,8,%Y/8,%%@] $""8<@,!ASAP +,8,%%@9}8<@,D/8,%%@ATb,8,%%@8<@,{/8,%%@AT@a,8,%AU*9}/8,%8<@,H/8,%%@8<@,a/8,%%@AU=!,8,%%@8<@,:/8,%%@9}AU=$ӠϠR (YA@d*)@R@x*@*AUA"A9}U6-@ % (>:,"6-+&@x,'@%$/(/(CUSTOM LABELS: ( DATA POINTS)(A(A(59}HOW MANY CHARACTERS LONG WILL EACH LABEL BE (1-3)?2F A0)@(6-&@HF @)!@A09}<U( (U(FTYPE THE LABELS FOR EACH POINT. PRESS [RETURN] WHEN YOU DONE ANDF2&(YOU WANT THE LABELS TO REPEAT.269}-@P6(*(TYPE LABEL FOR POINT . >66-@Z>)@0"AU*"@*!@;(REPEAT>$9}d!! @2)!A#Apn67$&%,.>:,(>:,x!  6-%@! Ap!  6-%@! A`9} ( $󠛠>-@e@+67&@d,.>:,/ ;6-@>$󠛴X A`(-(S9}TARTING MONTH # (1-12)1:6-P:,X @)!@A`;6-@%6-$@&@86.7<%@5,;$9}X A(-(STARTING WITH # (0-900)1:6-P:,X )!A A+ 6. 67A9},. +67@,.H6-B:=:%,,-@A67$&%@,.=:%&@,E H$٭堛(9}(SET Y-AXIS SCALE:8(%(ENTER LOW VALUE FOR SCALE.8((0-) 0= (06-! Ap%= 9})!A@堛" 6-&,6-65A6-'@+6-%@5 A@5 @9}6-$@+6-&@5 AJ6-P:%?,T2'@"P:'@,(6-@2 A`^2'@9}"P:'@,(6-@2 A`h2'@"P:'@,(6-@2 A`r6-%@ A |/!9}-@+6-$@/ 0 -6@,6-'@0 6-AD' 6-%>('(T9}OP VALUE FOR SCALE = .>(IS THIS OK (Y/N)? AA`K A (G(+WHAT TOP VALUE DO YOU WANT (G9}REATER THAN )K )!BA  6-& A""K( (CALCULA9}TING POINTS.../6-8@,=-@K-@{+68,-P:AE'$+&?P,%@e,J68,-P:8,'@,$9}@{68<&@,-P:AUP&+8<&@,&,$,  $,(,(SET LABELS: ( DATA P9}OINTS)+('(ENTER A TITLE FOR THE GRAPH.+&("(ENTER THE Y-AXIS LABEL.&&"@A0>(*(ENTE9}R THE LABELS FOR THE FILES.>((8 LETTERS MAX):?(6. 67@$,. .67@,.?67@7,. DG-@9}G(FILE  (7$@&@<$@,) N'0'67$@&@,.X 67@%,. bb(9}b(VLABE X-AXIS WITH (K)-CUSTOM LABELS, (L)ETTERS, (M)ONTHS, (N)UMBERS, OR N(O) LABEL?lNA@d")@9}06-&@tN @)!@AvB(>:%@t, @BAA@A`A$KA9}@'A@9A @K@w+@A+B7tA$t+@9}%@%@' A09A@dKAR@t($} *** PRINTER OFFLINE ***I-@@9} 5+@%@%@2? A0I A0 D:VGRAPH.BASD:*.*@8|DAADTEM ;@ ,;@,2 +(/( HEX NUMB=}ER CONVERSIONS2(\(/($Enter 'D' for DEC to HEX conversion.X($Enter 'H' for HEX to DEC conversion.\(B:,"=}@024HA<0D@0Z @d<(<(1ENTER A DECIMAL NUMBER FROM 0 THROUGH 9999999999.n=} (DEC:x# )E# A6-@  6-6-P:'@,6-&$@' @=}67<,.=:,' A 67<,.>:&@%@:A,,'6-&@' A@(HEX: 7<@ ,(=} A, A68(8(-ENTER A HEX NUMBER FROM 0 TROUGH FFFFFFFF.@ (HEX:J6-T-@=}B:,Y6.7<,20A^-7<,/9#6-$@%A:,- Apc2AAe3FAh%%6=}-$@%@:,&@:A,%@r |(DEC: ( A  D:HEXER.BAS3AAh%%6<oBCcyLINECOLMMONTHXSALESNUHLMISCALSPAC@@ @0$$$A' @A A}A  A A` @ @ @4@$@@ BAR CHART PROGRAM  !!DATA TO BA}E USED FOR DISPLAY##EACH PAIR IS MONTH,THEN SALESJAN,800,FEB,820,MAR765,APR,779,MAY,610JUN,650,JUA}L,780,AUG800,SEP,825,OCT,840NOV,870,DEC,910' +'0@@@#0@A}("6-@"NUMBER OF MONTHS26-@ 6-@07KP"";$@,;@,9,WXA}read in the sales dataYZ-@d"read month namen67B:,%@,.x" 68,-A}find highest,lowest sales 8,6-8,8,)"6-8, find plotting scale%6A}-+%,'@%expected mean6-P:&,'6-P:',spacing,AR@, 1983 SALES (000'S)A}now plot the data-@ A -@-@1%@##6-+&@,$@%@A} 7<%@, 8,, 6 Aplot subroutine 6-$ 6-++&+%8,,'@,,' A}@:,plot char. , /-@@$ -%.6-+&@,$@%8 7<,B LA}$D:BARCHART.BASJANFEBMARAPRMAYJ-@@$ -%.6-+&@,$@%8 7<,B L@(%&[ q PSWIKTHAAeAx eA@A @ E} @ A < +@-@@F(@sorting with aK,(@,(@ binary tE}reeZ-@A d +i ( ( (nPM(E SORTING WITH BINARY TREE E}P(33(+ This uses a binary tree traversal to sort.\Y(Q A list of up to 99 numbers, this canbe altered if you E}change the DIM statement.\(-@A ##9A<@,9A,- FREE STORAGE AREA6-AE}6-@!!68@<@,-6E!!68@<@,-6@68<@,-6@-@E}&@68<@,-%@ ,,($} Input values one.Type -99 to STOP.(" (VALUE,6E}6@A0@ AJ A`T A^h$$-TRAVERSE THE TREE SORTED LISTr|6-8@<@E},(TT(LHere is the sorted list: -------------------------------------- A1(1(&------E}--------------------------------&- SUBROUTINE LOAD(V)"6@A A(No fE}ree storage AP 6-6-8<@,68<@,-68<@,-6@68<@,-6@E}&6-@06@A: APD 8<@,AN AX-'THEN' FOR 'LESS THAN':E}b 6-l6-8<@,v"6@AP A@68<@,- A@33-'ELSE' BRANCH FOR 'E}GREATER OR EQUAL' 6-6-8<@,"6@A  A@68<@,- - RETURNE} TO THE WHILE TEST A`$- SUBROUTINE INORDER2(N) @@- NOTICE THAT S MUST BE DIM/D E}HERE IF SUBROUTINE 6-A*6-433- START THE UNTIL AND INNER WHILE>6@APHE} A PR- PUSH(N)\6-%@f!A p 68,-z A  (Stack full RUN abandoned AE}@6-8<@, A0$$- END OF WHILE: CONTINUE UNTIL- POP(N)- TEST FOR EMPTY STACK"E}A@ 6-8,6-&@(8<@, 6-8<@, A0- STACK EMPTY, SO RE}ETURN$D:SORTING3.BASA@, 6-8<@, A0- STACK EMPTY, SO RD8 -.fWORDWX A+@%@/0@@ @I}A-@@(@ sorting words/(@/(@and names from list#7(@(@I}7(@ alphabetizing&-@A (;AP,;@,)' +'0@@*I}*(*( Before and after sorted words+,)(!  ,(2(-@AP$67<,. ( I}<-@AP@F"P67<%@ ,.U(Z d-@A@@i!!-%@AI}P@ni#7<%@ ,27<%@ ,66.7<%@ ,V67<%@ ,.7<%@ ,i67<%@ ,.x  I} -@AP@-@#%@(7<%@ ,6-%@  ( (IIMONI}OPOLY,DETECTIVE,EXECUTIVE,POSSESSIVE,RESTRICT,SELECTIVE,COMEDIAN##LEA,LIBRERIAN,ERASURE,BIOLOGY""SIMON,YOSI,DROR,DAN,I}MOLECULAD:SORTING4.BAS//(' 3=Change arrival rate; 4=N##LEA,LIBRERIAN,ERASURE,BIOLOGY""SIMON,YOSI,DROR,DAN,H? pqiE [ NLFRTBNAXYISIZBEFIMIBSIBBELBELFIBJBEBJFIBLBEBLFINAAM}AVAhA$t) ) @ @ @ @A@P@@@M}@@@@@@@d' +'0@M}@n!6-A!x$$;@$,;@$,9,z;@!$,9,|;@ ,;@ ,M} Ap(}Select desired option (===================== (''(1 = Sort by last and first name(2 =M} Sort by birth year A` BAPAp A@M}堛6-@ 68,-6-@ A%67<,."% 4ZZZ6-&@% A ' A%M}67<,.,6-@6"68,-;6-%@ Aw@$E嬠䠛J"O)6. M} )6.7@<,T 6-B:, 6-B:,Y67@<,.7@<,^c 6-M}@%$+8,&@,h6-$8,m$KK(C}Sorted by last & first names M}-@##6-@%@!$+&@,1#6-@%@$+&@,16-@$M}67<%@ ,.7<, 67%@<%@,. ##67%@<%@ ,.7<, 6-@! AM}6-@!:?JJ(B} Sorted by birthyears D-@M}H$6.=:8,,6-@$68,-N A567<,.X 6-@ A6-@M}6-@$A6-P:+&@,'@,"A-@&$-@6M}. 6-%0 6-@%$+8,&@,16-$8,2 6-@%$+8,&@,36-$8,87<,/7<,AM} ! 6-8,68,-8,!68,-   A0᠛ 6.6--@M}4A'6-@ AP6-@ AP(7<,  AP(7<, 6M}-@  (88,,6-%@ "1-@@ 1( TOTAL OF  PERSONS""TAL,YOSEF,1938,TAL,ANAT,1M}943!!TAL,IRIT,1965,TAL,YAEL,1968TAL,RONEN,1975;;AUGUSTUS,JOHN,1878,PAUL,NASH,1889,WALTER,SICKERT,1860>>JACOM}B,EPSTEIN,1880,WILLIAM,MORIS,1834,WILLIAM,BLAKE,1757++ROBERT,ADAM,1728,STANLEY,SPENCER,1891' ZZZ'D:SORTIM}NG5.BASTAL TAL TAL TAM,BLAKE,1757++ROBERT,ADAM,1728,STANLEY,SPENCER,1891' ZZZ'D:SORTIL( Z[;' ; CSHALDTGHALDHAH1A1L1D1H2A2L2D2@@@   @d@!Q}@@ @   @d @!@@@@AAA8AR}\AAAAA$ '+@%@'-@@(@compute a mateC(@R}(@$(@C(@ DATING PROGRAMGG;@,;@,9@,9@,9@,9@R},#GG;@,;@,9@,9@,9@,9@,(-@A 2 +<H(E(R}: The program will mate the clients on following questions:H(>(1. Name.@(2. Sex(M or F).B(3. Height(inchesR}).D(4. Age(in years).Ftt(l5. GIVEN THE LIST:(1)MUSIC,(2)SPORT, (3)TRAVEL,(4)THEATER,(5)PETS,CHOOSE NUMBER FOR R}YOUR MAIN INTERESTHGG(?6. From the same list choose a number for your main dislike.JRR(J This information will wriR}tten as a 'record' of the form in the data.KL(L(AFor example:JOHN,72,22,1,2 ----------- LR}V(V(KIt's said:JOHN are 72 inc.high,22 years old,music loving,sport-hating male.Z-(-("To begin the program preSS R}Ԡ_ F:B2y,@@d(>:A%,nII***************************** * *R }pII* DATING PROGRAM * * *r##*****************************sxGD(< R } COMPUTE A MATE G(6-@1(1( There are  clients to be matched.R }-*("-----------------------------------(6-6-%@A A6-6-R }%@!A`" A  6-6-%@A" A`,"6R }0A0@ APJAPT AP^(MATCH  AND h6-O:&,r!@A|R} A( ; HT. DIFF.=6-O:&,!@A0 A@( ; AGE DIFF.=( ApR}# A+( ( (+(Program finished correctly"JOE","M",72,25,1,5"ALICE","F",60,22,4,2"CINDR}Y","F",68,24,1,4&"FRED","M",78,31,2,40"DAVE","M",64,21,3,5: D:DATING.BAS"DAVE"""M"7 EMPTY, SO RETR}UR,"F",68,24,1,4&"FRED","M",78,31,2,40"DAVE","M",64,21,3,5: D:DATING.BAS"DAVE"""M"7 EMPTY, SO RETP\FWAZxx@ ] +(Z(E This programV} separates words ](;A ,;@,(-@@$67<,. ( V}-@@@("67<%@,. 2-@@@<7<,4Y(A7?@ABCDEFGHI^'}JKL@M@NOPQRSTU =% >:A%,^(}Ӡ(tm)= Atari BASIC versionYO GCopyright (c) 1982, The Soft WarehouseBox 11174, Honolulu, Hawaii 96828Y Ap^)}2 6-&6-&<" 6-8,6-8,) "$F @PP @P"@PZ$xK 6- A ^*}-%)68,-8,16-&5 K %@A$$ "8,6-&6-$ A  6- $)6-8&,^+}"8,*!O:,&6-&)$!O:8,,6-$ 6- $; O:,6-N:,$'16.smaller magnitude; A+6^,}-P:<%,%<O:&,+6-$" 6-%!8,$,!8,A6 A ATE 6- A^-}-%'6-%368,-8,7 EA^ 6- $|"A A@"$, A@6-%^.}68,-, A$ 6-"A A@"$, A@6-%68,-, Ap^/}$ 6-& !8,6-&$!8,A A A : 6-8, A I 6-X Ap6^0}-8,$v 6-% A , -6-%68,-8,# )6-,$ 6- 6- A ( -%6-%!^1}68,-8,% ($ 6- Ap 6-%68,-$ 6- 6-%68,-$ A&p 6-%68,-^2}$ 6-%68,-$ 6-& 6-8,"6-$  6-$ A AA^3}$ 6- A  A&p4 A"6-$>"A0H 6-f 6-6-"6-&p ^4}"6-&C 6- A6-6-%6-/ A56-C"AP"A @`!A^5} A# 6-% AP#"A 8 "68,-6-& 6-&6-.6-&8 A 5 A @^6}"68,--68&,-56-&"Ap+ "6-& A !6-+ A@/ 6-&6-8,6-&%6^7}-8,/ Ap. 6-& A 8 6-& A@V9 6- A "6-%6-/ A 9 AP` ^8}6-e 6-8,6-8, Ap~+ "6-8,6-8,!6-+ A p9 6- A "6-) A /6-^9}9 AP 6- A%* 6-8,"6- 6-&* Ap9 6-6-8,"6-( Ap.6-66-&^:}9$ 6-6-"6-& "6-&8,)8,Ac 6-& A 6-%%6-&/ A 7^;}6-%@68,-K68&,-S6-&Y6-c A0()8,Ap(8,*8,A2% 68,-6-&%"^<}8,AP<p 6-& A 6-&' A 068,-;68&,-F68&,-N6-&V6-&` A h6-%p6-&^=}AI A 6-%68,-)68&,-468&,-?68&,-I A`F| 6-& A 6-&' A 068,-;68^>}&,-F68&,-Q68&,-\68&,-j6-&@r6-&| A KA 6-%6-& A %6-%.68,-968&^?},-A6-%PN68&,-68&@,-068&@,->6-&@D6-N A0Z%%()8,)8,*8,A^@}d% 68,-6-&%"8,A@n APxL 6- A`6-6-%6-/ A`56-L(*!O:8,,A ^A}(*!O:8,,A @`!Ap A 6-(6- 6-(6-(6-8,%^B}8, AP((A0 " A  A0/ 68,-6-& A '68,-/6-&"A- ^C}"6-&6-&# A - A/ 6-&6-8,6-&%6-8,/ A`,# "6-&6-&# A6^D}- 6-& A 6-#6-&- AT)O:8,,Ap^>6-8,$8, AP!6-'6--&668,->6^E}-&h A0E 6- A "6-%6-/ A 56-;6-E A 6- 6-8,6-8, A`^F}9 6- A "6-%6-/ A 9 A 6- A 6-& A 2 "8,6-& A ^G}( A 2 A` A 6- A  AR A()"6-$")(A0 A^H}P A@:)(*O:,A@D) 6-6-& AP) AN 6-& APl2 "8,6-&^I} AP( A 2 Av AP A { 6-} 6-%$A"*+)O:, ,6- 6-&6-0 AP66^J}->6-%A$) 6-6-6- A ) A# Ap6-6-# AK 6-% A AP%6^K}-+6-5 A@=6-&K!A 6- A0>M 6-8,6-8,+!O:,*+!)"P:,,36-%;6-#C6-&^L}M Aq HF "6-& Ap!6-)6-%268,-< AF AqRL "6-&6-! A)6-$16^M}-&96-&C A0L6-8,\" 6-" Ap6-"$ )P:,A"*"A+")",*^N}A"P8 6-%68,- Ap$6-,6-%568,-8$" 6-"*&$P:',!"6-N A-+%,'^O}#6-&- Ap56-%D68,-&&%N A+"8,*&$P:',! Au+ A" Au> 6-%68^P},- A8:6-$N:%&8,,$+&%,'> -"$P:',6-%#68,-'- A : 6-%68,-#+&, 6-* ^Q}A 06-: A  A4^0$. A48 / As6- Ap%6-%/ A@V 4 A"^R})( A (6-%168,-4$` A$0j - !* #6.nonzero divisor- At ! A 6-%68,-^S}!$~ < 6-6-6- O:,( As@2 A< Aq  & A! A%   6-& A! 2 "8,^T}6-& A!( A2 A$  A! A  6-%6-& A@  6-6- < 6- As^U}-%&6-8,<!)!)!A% &6-8', Ap& A&  6-%68,- A&  )"*!^V}A%( 'AqAs@AxpAuAw AxAuAy@AvPAAA#AA ^W}A02 #  6- A0#A%E7 6- $P A4n " 6-8,!O:,68,-6"$x  " A^X} A 4)O:8&,, 68%,-(6-%168,-4$ '68&,-68&,"8&,'6-& $  6-%68,-^Y}  6-& Ap  6- Ap A  Ah6-& # 6- A'6-# A0 6-&  6^Z}- A A  6- A 6-  6-%!$ & 6-8," A& A(0"    A^[} A(0, 'A)A0A1A0pA10A1`A0@A2 A1A2PA2A)PA) ^\}A)&A3ph g 6- A Ap' A1 As76-A ApI6-%S A@] A'g An  ^]}A  A(0 V 6- A6-8,& As/68,-9 AA6-%L68,-&V A0  A' A(0^^} A A' A#  A A(0 ! A' Au! A0  A' Au ^_}A  A&p A(0 Q68%,-6-%68,-) A'3 A#= AG A Q A0: ! A'^`} Axp! A0X + A' Ay@! A#+ A0rv + A' A'! Aw + A0 + A' A'^a}! Ax+ A0r  A3@ A(0  A3@ A0t =68%,-6-%68,-) A'3 A#= A^b} A   A# A* / A"6-&% A'/ A(04 > 6-6-& A$68,-*^c}6-4 AQt> A(0R   6-W   6-\  6-%!B:,6.$f 6.7<, 4A4 p  <4^d}6- A4 z  >46- A4 |  [46- A4 ~  ]46- A4  $  A4+4^e}A4 -4A&@ # A5@ A# #A%E $ (4Ad '4Ag`  .46- ^f}A7 A/*Z1A7` 0/*91A6P +4 A4 A5@F -0<6.*+, -, ', digit, dec^g}imal point, letter or (F A! A4 A5@! A&pB 6-LJ0/*91$6-$@%A:,,6-%5B^h}:,@6.7<,J A6``.0A70~ 6-R 6-%B:,6.7<,-0/*91;6-@$H6-%A:,'^i}R A7 ) AP6-%68,-&6-&)$B:, %A7;6.7<%,6-$-@547$&<$,^j};6-y  6-% A4yAqAs0Ax`AupAwAwAuAy0Av@AAp^k})6-@:,&@d6-8,)Ap 6-%68,-$$ 6-& Ap 6-& Ap 6-& ^l}Ap A A A A  A 6- Ap A@0A 6- $^m}) 6-6- A ") A8 * 6- A 6-*"8,A9 ( A " A8 2 6- A^n} 6-$P+ 6-&6- A !"+ A8 Z A8pxdd8,'A@0A@`AB@AA AAA^o}BA@ABpAAPACAC08 6-&6- A $"8,. A8 As@= 6-%68,-8,%^p})68&,-'8,3 A= A3D 6- Ap5 A A@0! A + A75 A! A7 ^q}Au! A&p A7 Au6R A@0 A7! A,68%,-768%,-?6-%H68,-R A7;^r}+ A# A ! As@+ A8T! A7 Axp! As@r! A7 Au! As@5 A@0 A7^s}! Aw + A 5 As@+ AD2 A! Aw + As@ AC A c A@06-& ^t}A) A468%,-<6-%E68,-O A7Y A#c A A  A# AC A ^u} A' 6- A ` 6-"8,6-&%68%,-068%,-;68%,-F68%,-T6-%@]68,-`$^v}"8,AEp, A6-& ACB,(ADP& A# A9`D# 6- A 6-# AP ^w} A7R 6-%68,-$U 6-%68,-$b 6-8,AEpl) 6-& A6-)"AFv^x}P:,AEp{@"*"8&,6-6-$6-. Aap66-&@ A}!AEp, A6-& ACB^y},(AEp> A#6-8&," A(".6-46-> AEAEp 6-6-, 6- AW^z}6-# A )6-,$ 6-%& 68,- A@06-& AQr 6- Ap 6- Ap 6-^{}& Ap! AE Au! A#! AE Au! A#P:,*%"P:%,AGR P:,)!^|}AEp AR0(AEp  ARp(AG@* A"AF4] -%6-%"68,-&&, ^}}AR6 A#>6-%I68,-&S AE] A3D93 AD7 A7! A#)6-'3 A8>)6-$+%%,^~}  AE) AHl 6-%68,-& AR* A#26-%=68,-%G AEQ A3DY6-%b68,-l A^}M!AG0R` 6-%68,- AE( A&p2 A#86-B ApL AEV A` AvPW ^}A6-%68,-\! A A8! AGPf AD4p AE A#zd AG AE! A^}+ A5 AG? AEI A3BS As@[6-%d68,- AG  AG[ 6-%68,-& AR* ^}A#26-%?68,-%%I AES A3D[6-%!68,-#6'+%%,! A4 6-%6- A@!6-+ ^}A 16-4$" 6-% AR0"(AEp!AGt 6- ARp (AGp& 6- ARp6-^}&(AGv7 A&p6-"# A- A7 AGdb AE6- A'-36-'+%,>68%^},-Q68%,-+&,'&Y6-%b68,-i A A#! A)6-%868,-+&,'B AEL A#V A^}^6-%i68,-'b A7 A#! A8)6-$- 7 A?6-%N68,-+%,'X AEb A#K6^}8%,-+%,'6-%%68,-/ A9 A#C AK6-'8 A A"68%,-*6-%8 AGh^}d 68,- AR A* A#4 AE?68%,-G6-%P68,-Z Ad A7I A A#! ^}A + As@5 A? A8I AGPc 68,- A A#* A&p4 AE<6-%E68,-O AE^}Y A&pc A#5 A A! A+ A85 AGPA68%,-&'6-%#68,-- A7 A#^}A AE' " As@ A' AGP[ 6-%68,-% A#`* A26-%G68,-#+&,'+%,^}Q A[ AGP` A&p6- AE#6-- A8-6D6-'+&,O68%,-`68%,-+%,'i 6-%^}68,- A( A#2 A:6-%K68,-+%,'&U AE_ A#i A" 6-%68,-&'" A7^}; A# A8#6-$+&,' 1 A; AGPf68%,-'+'%,6-%+68,-'%5 AD2? A^}J68%,-U68%,-]6-%f68,-a A A6-(68%,-06-%968,-C A'M A3DW A^}a AGP "8,$5 A6- A'' A3D+5 A%EP ACD6-%"68,-, A8^}6 A3D@ AD4F6-P A As6- 8,$ / A A'u! A3D%/ A%E1 ACD^}6-! A9`'6-1 A 6- A 6-$2 6-%6-3 68,- Ap4 6-6 6-%^}68,-$P0 A A'(8,'6-&-6-0$U A# ACDn3 6-& A'6-!6-+ ACB^}0(3$xh 6-6-6-6-%&68,-0 A: A7D AN AEX AEb Ah6-} 6- ^}A 6-$!O:8,,6-N:8,,$M 6-  Does sign ($ Ai 8 ) = +, -, or 0<D4+J6-M$^} 4-6-$00AR 6- $< A76-%68,-( A'u2 A< AI 6-&6-^} A !6-+ AQ0(66-@ A F6-I$= 6-6-6- AQ$(*6-4 A :6-=$< 6-^}6-6- A %6-.6-8,<"AUp"AWp"&AQp@" 6-& AR"(AQpJ" ^}6-& AR"(AQpT 6-8,"AU0^&AQp|E As A 6-' A71 Au; ^}A&pE AU@1 As A 6-' A71 Aug A'u A86-&) A'3 A896-C ^}ApN68%,-V6-%_68,-g6-&P A' A#6-%(68,-2 A'u< A#F A3BP A^}"8,AW0"8,AV" 6-& AR"(AQpa 6-8,"6-" Ap, A&p:6-%@^}C68,-M A W A8a A- 6-" A7# Au- AV`&AQp! A7 Au^}! A&pB 6-%68,- A8$6-. Ap8 A8B A:,"8&,6-6-"6-%, AaE^}D AQpbB 6-& A 6-8&,B) )P:,)8&,AQpl 6-6- AaEp 6-%68,-%^} AEt 6-%68,-% AExP-%6-'! AWV/6-$+%%,3 ;6-%F68,-%P AEy^}6-$P:',& A|+ A AD7! AE+ A8+ A AD7! AE+ A8& 6-& ^}A&P:,AQp"AXP)8,AQp0 6-6-& A0P:,)AQp( 6-6^}-& AR((AQp8 6-& Ap AE) A88,AQp 6-!AX3"AX^}Q-%6-'! AW`/6-$+%%,3 = AWDG A&pQ A6-$P:',&!AX ' !^} A AWR' A # A AE#AXAXA AXDAXB5 Axp A^}E! Aw + A 5 AXCA AXF AX&\ AWH A&p! A.-&6^}<6-'+%%,F AWVN6-$R \ A86-&$P:',(AX# A AE#AX2 AX^} Axp AXC!AQp ! AWR AX8R AWD A$-&626-'+^}%%,< AW`D6-$H R A86-&$P:',(AXE/ A AE% Au/ AXC ^}AD4 A Aw  As@ A8 AA! A AE! AXD A^}Qp"8,Aa0-"8,*"8&,6-#6-%- AaE" 6-& AR"(AQp 6-8,"A^}a "6- AY@ &AQp* 6-4 AS@8,AQp>^6-8&,68,-%# A#`- A^}36-=-E6-%N68,-T!^68,-6HS 6-%68,- A7( A#2 A7?$P:',I Au^}S AYuR AuWB A A86-$46-%&$P:+%,',8 B A, 6-%6-6-%,8&^},AQp AaEe 6- A86-# Ap)6-46-8&,>-G6-6$T68%,-&\6-%e68,-^}^ A#6-%"68,-%&(6-2 Ap< A#F A8J T A^ A7 6-& A7) )^}P:,)8&,AQp 6-6-8&,% 6- Aap As68%,-6-%68,-) A#16-%96^}-'B68,-M68%,-X68%,-`6-%i68,-s A3D[ -6-6$'#68%,-+6-%668,-&@ A7^}J A#T A8X [$BV 6-6- A #6-+6-&16-; AC6-%L68,-V AL% 6-^}&8, AC`"6-%$V9 6-&6- A8` (&6-0 ASp66-9$`X 6-&6- A8`!6-'6-0^}&8,: AC`D AsN A0X Aj+ ASp As! A0+ A Ah6-&, ACD^}6-%"68,-, A, 6-6-&8," Ab, Acp 6-& Ab2 "8,6-& Ab^}( A 2 AcP Ab A  6-%6- A@' Af)06.)' A$2 A4^}9A%E< /4 Ag  Ae`F *4 A4 Ae`P (4 Ad Ae@Z '4 ^}Ag` Ae@d% .46- A7% Ae@n%A/*Z1 A7`% Ae@x03)92$ A6P^} A# A%E A AdW AdP +4 AdP Af) @4 A4 A%`) ^}Af %4 A'@ Af $4 Ab Af -0$ AdP A&p A  Af^}@! A A4! A#h2 A4A3)Z2(6.letter2 Ar6-@:,&@d A7 A^}dP6-8,- !#6.unassigned variable- A$ 6-&'  8, ( Ai $ )'$ Ai ^} 6-&/ 6-8,$ >:@d&',,6-&/$   =:,6-&$:  6-$' 7&<,06-^}8&@,: Ai&"Ap 0"App:% " Ah` $ % Ai D!O:8&,,6-N$ Ah^}` ^6-$ AhpS)*  U 6- Ah`l/ 6-&8,"6-&%  - / Ai v0 ^}8,*8, &  - 68, 0 Ai$ Ahp  6-$ Ahp Ah`HH"8,* 8&,*!8&,)"8^},*"8&,* 8&,*!8&,Ai - 6-8,!* "  - 6*6-&-$  +  6- Ahp AP^}68,-$ 6-&$  A5@( 6-8,!O:,6-J:,( Aq  "AqP* 6-H 6-%68,-^}$$fD "8,6-& Ar&6-%268,-8,:6-&D Ap9 6-8,!* 6-&&6-%/6-K:,9 A^}q z* 6-"6-&! Ap'6-*$# Ap6-6-# Ar@ A5@/ 6-6-()8,% ^}Arp/ At0 6-& Arp2 "8,6-& Arp( A 2 As Arp A  6- A^}0$6-8&,)D1"8,*!* )"8,*"*!8&,* 8&,; A&pA6-D$. 6- $L A5@V( 6-8,^}!O:,6-G:,( Aq `"$@AqPj% At` Au% A&pt6-@ Ar@ A5@^}( 6-8,!O:,6-E:,( Aq "$@AqP At`Au 6- Ar@ A5@^}( 6-8,!O:,6-D:,( Aq "$@AqP% At` AvP% A&p6-@  Ar@^} A5@(- 6-8,!O:,#6-G:,'E:,- Aq 2"$@ AqP<G 6-68%,- 6-%)68,-^}3 Ap= AuG A3DP6-@ Ar@n A5@x- 6-8,!O:,#6-E:,'G:,- Aq G 6-^}68%,- 6-%)68,-3 Ap= AuG A3D6-@ Ar@ A5@* 6-8,!O:, 6-'^}E:,* Aq % Au A% A#` 6- Ar@ A5@* 6-8,!O:, 6-'G:,* Aq ^}% Au A% A#`"6-@ Ar@@ A5@J7 6-8,O:,-6-D:'M:+&,$+%,,,7 A^}q T"AqP^% At` A% A&ph6-@ Ar@ A5@7 6-8,O:,-6-D:^}M:+&,$+%,,',7 Aq "AqP6-@ Ar@: 6- Ap6-8,& Ah 0 A0: Ac^}z6-p6-66-%&6-%26-p:6-%B6-&J6-&R6-%Z6-%f6-@&r6-@z6-&^} 6-%6-%6-%=6-P:I:,'@,&@h9,;@,;@,;@B,;@,;@,;^}@3,68,-) -68,-  "6-6)6-6@16.'EXPLOGSECCOSTANCOTSINCSCATNASNACSASCACC96-'@6-6 ^}DD :@:,&@2,- #  6-#A3)Z2A`:^} # 6. A4#=4ApD  6-&6.N S 6- Af6-6-#)6-/6-9 A%E=C6-I6-^}S A%Ev L 6-6-6- A %L "Some storage wasted: notify author ;4A ?4A^} . 0$6.different character. A  6- Ai   4A@ 06-@:,&@d6-8,0$"8,^}A`  68,-(A0 @ 6-6- A0'-@&08,@68,-8,&%   6-  A4^}4A ! A0 !(6-& A@! 68,- A ! 6-!!'6-% A"!> -^}    4 ERROR, expected > A4!?!8,)@ 8,56.existing topic number? A>!p >:A%^},p8,A AA@AAAA"A&A4AFA`f!V' >:A%,Help i^}s available on* V &1: Expressions 7: Compound Linesg!P' 2: Algebraic Expand 8: QuotingP $3: Functions ^} 9: ReEvaluationh!b* "4: More Expansion 10: DerivativeO  5: Assignments 11: Integralb 6: Non-displayi!A > 3^}Enter a topic number followed by a question markA j!T, $Study topics in order the first time/ J See manual for deta^}ilsT A !QQ IAfter each question mark prompt, enteran expression using digits, decimal!T(  points, parentheses and^} 1-letterT &variables together with operators +, -!SS K/, * and ^. The latter means raising to a power. *, meaning mu^}ltiply, can!UU Lbe omitted. Following each such inputan equivalent expression is displayed,!K) !derived by reordering^}, collectingK similar terms, and other mild![+ #transformations. As examples, type. H 3 X^2 Y + 5 (XYX - 7)[ (A^}^2*B)^.5 / A! A!N& Type < to turn on expansion ofN #positive integer powers of sums and"P) !full distribut^}ion of numerator orP "denominator factors over numerator"R' sums. Type > to turn off theseO #transformations. For e^}xample, typeR "@  <(X+Y)^2>!  <(X+Y)(X-Y)6 (X+Y)/(X-Y) + 5>@ A$"UU LExpressions can include the six radian^}trig functions SIN, COS, TAN, COT, SEC."UU Land CSC, along with their first three inverses ASN, ACS and ACT. Expressions^}8"UU Lcan also contain the natural log and exponential functions, spelled LOG andB"RR JEXP. Parentheses can be omitted ^}from around arguments that are constants,L"SS Kvariables, functional forms, or their negatives. Automatic transformations^}V"aP Hexploit symmetry, inversion, logs of powers, and numeric arguments. Asa  Examples tryZ"E  > COS -X!  EXP L^}OG X/  LOG (X^2); 4 ATN 1E A\"RR JWhen ALGEBRAIC expansion is turned on via <, logs of products or quotients^"^}SS Kare rephrased as sums or differences of logs, and other trig functions are`"RR Jreplaced by sines and cosines. Typin^}g[ turns on HARMONIC expansion, whichb"PP Htransforms positive integer powers andproducts of sines and cosines intod"S* "^}'linear combinations' of sines andS $cosines of multiple angles and anglef"ZW Osums or differences. Typing ] turns off ^}harmonic expansion. As examples, tryZ h"W  < LOG (XY/Z)$  TAN X CSC X6  [ SIN X COS YM SINX^2 + COSX^2 ]>W A^}j"> An entry of the form ;  variable = expression> l"N) !causes the resulting value of theN  expression to b^}e ASSIGNED to then"S& variable for use in subsequentP %expressions. For example, try typingS p"4  P = 5(X+Y+Z)* ^}P + 1/P + X LOG P4 Ar"ll dFollow an assignment with a semicolon to suppress display of an assigned value. For ex^}ample, tryt"%  P = S+1; P^3% Av"RR JSeveral assignments can precede an assignment or expression in a si^}nglex"]: 2entry, separated by semicolons. For example, try= S P=R+1; Q=L+P; Q^2] Az"QQ ITo prevent a name fr^}om contributing its value to an expression, precede|"Q(  the name by an apostrophe. ThisQ $provides a way of clearing ^}the value~"L: 2of a variable back to its name. For example, try= L  P=L+5; P^2"  P='P; P^2 A"< If we^} enter the line 9 H='H; P=H+1; H=2; P^2< "PP Hthen H becomes 2 after P becomes H+1, so the displayed result is (H+1)^}^2"UU Lrather than 9. However, we can followthe expression P^2 with the operator @"OL Dto RE-EVALUATE P^2 so that H t^}herein is updated to its new value 2:O "d H='H; P=H+1; H=2; P^2 @" d =@ has the same precedence and left-to-right o^}rder as addition" A"MM ETo determine the partial derivative ofan expression with respect to a"T2 *variable, e^}nter an expression of the form5 Q  expression % variableT "L(  % is named to suggest a ratio ofL infinitesimals.^} % has the same"LI Aprecedence and left-to-right order as addition. As examples, tryL "C% X='X; A='A; AX^3 + SIN X^} % X9 A^2 X^3 % X % AC A"UU LTo determine an antiderivative of an expression with respect to a variable,"I' _}enter an expression of the form* F  expression $ variableI "R) !$ is named to suggest an integralR $sign. $ has_} the same precedence and"PP Hleft-to-right order as addition. Avoidexpansion of integrands, which may"L(  mask a known _}integrable pattern,L because algebraic then harmonic"PP Hexpansion are tried automatically if the given form can't be _}integrated"^# directly. As examples, try& H X='X; A='A; 3AX^2 + COS X $ X^ COS LOG X / X $ X(#f \ QAfter ente_}ring several such examples, enter a question mark to see the help menu.f A %"6.easier problem" A'_}D:CALCULUS.BASroblem" A'\c?L[BAa@1@ C +A @1ACAR@c};@0,""6. ǠԠ(-@@$2$-@@$(7@<,<::2c}@%+H:,$@0,@@F-@@0 P)%2) Z-@c }A d (}n-@@x-@@ (-@AP -@@ c }( -@AP  ( %D:GUY11D:GUY12 @ `u *+k0?RUAW@@E+@%@'-@g }E(@ BLUE MOOVEYB$(@ BY GUY MELLER B(@ 1986(C)-@A g } K +@'0@@A0@K@ " ,( "2"A3 @ g}<"6@ APF /P @@77100,50,110,50,111,49,112,49,113,48,115,48,333,333((130,54,131,57,g}131,59,132,60,132,64YY132,65,132,66,131,67,131,68,130,69,130,70,128,72,128,74,127,75,127,77,126,78,126,81!!125,82,125g},91,124,92,124,98@@125,99,130,99,131,98,137,98,138,99,144,100,145,101,150,102ff333,333,92,72,94,72,95,71,102,71,102,7g}0,106,70,333,333,107,65,107,73,108,74,108,81,109,82,109,92$BB110,93,110,98,111,99,111,105,112,106,112,107,113,108,150,108g}.%%333,333,99,49,92,49,91,48,85,488II333,333,92,72,92,74,91,75,91,76,90,77,90,78,89,79,88,79,87,80,85,80L''333,333,86g},81,333,333,85,79,87,79V333,333,92,72,89,71`,,333,333,85,2,200,2,200,108,85,108,85,2j,,333,333,75,0,210,0,210,118,g}75,118,75,0t$$333,333,150,102,153,99,167,108~77333,333,170,10,170,23,169,24,169,28,168,29,168,36DATA 167,37,167,4g}677333,333,170,9,169,6,169,5,167,4,166,3,165,3,163,1 333,333,148,1,148,3,139,10 139,21]]333,333,159,7,156,7g},155,8,154,8,149,13,149,18,148,18,147,17,145,17,144,18,143,18,138,2366138,28,134,28,128,34,128,35,126,37,126,38,122,42g}??333,333,164,13,164,16,160,20,159,20,158,21,154,21,333,333``156,21,156,24,148,32,146,32,146,35,144,37,141,37,141,39,140g},40,138,40,136,42,133,42,129,46>>129,47,130,47,130,53,127,56,121,56,120,55,120,49,333,333//120,51,118,51,117,50,117,4g}4,120,41,123,4133DATA 333,333,143,1,136,7,136,17,138,19,138,22SS333,333,162,100,164,100,165,99,169,99,185,102,190,103g},192,103,196,100,200,108 -1,-10@p6-AW6-@0'5 @!,%@@7g}5/%@@F'+,&@@@+/&@@F$'{,%@@F+/%@@R?/%@@Sg}S/%@@Vg/%@@W{/%@@a.'S/%@@b+/%@@e?/%@@fSg}/%@ @r8'+,%@ @r+/%@AB'+,&@A+/&@@rL'+,&@@Fg}+/&@@rV'+,&@@U+/&@%@U`'{,&@$@a+/&@#@c?/&@"@eg}S/&@ @eg/&@@d{/&@@bj'+,&@#@a+/&@@`0-@g } :5 !,%@@75/%@@F:+,&@@@+/&@@F:{,%@@F+/g!}%@@R?/%@@SS/%@@Vg/%@@W{/%@@a:S/%@@b+/%g"}@@e?/%@@fS/%@ @r:+,%@ @r+/%@A:+,&@A+/&g#}@@r:+,&@@F+/&@@r:+,&@@U+/&@%@U:{,&@$@ag$}+/&@#@c?/&@"@eS/&@ @eg/&@@d{/&@@b:+,&@#@a+/g%}&@@` N5 @!,%@@75/%@@F*N+,&@@@+/&@@F4N{,%@g&}@F+/%@ @R?/%@!@SS/%@!@Vg/%@"@W{/%@"@a>NS/%@!g'}@b+/%@!@e?/%@ @fS/%@@rHN+,%@@r+/%@ARN+,&@g(}A+/&@@W\N+,&@@F+/&@@WfN+,&@@U+/&@%@UpN{,&g)}@@a+/&@@c?/&@@eS/&@@eg/&@@d{/&@@bzN+,&@g*}@a+/&@@`N+,&@$@a+/&@@aW+-@ !"+ Bpa5 g+}!,%@@75/%@@Fa+,&@@@+/&@@Fa{,%@@F+/%@ g,}@R?/%@!@SS/%@!@Vg/%@"@W{/%@"@aaS/%@!@b+/%@!@g-}e?/%@ @fS/%@@ra+,%@@r+/%@Aa+,&@A+/&@g.}@Wa+,&@@F+/&@@Wa+,&@@U+/&@%@Ua{,&@@a+/&@g/}@c?/&@@eS/&@@eg/&@@d{/&@@bb+,&@@a+/&@g0}@` b+,&@$@a+/&@@ae6-&@ BxiM-@A %9,&@g1}@UM/&@%@Ui{,&@@a+/&@@c?/&@@eS/&@@eg/&@g2}@d{/&@@bi+,&@@a+/&@@`i+,&@$@a+/&@@ai] @g3}!,&@@G5/&@@UI/&@@D]/&@$@Di+/&@#@P+/&@"@Pg4}i?/&@@W+,&@"@P?/&@@Di{,&@@W+/&@@`?/&@@bg5}S/&@@dg/&@@d{/&@@bi+,&@@W+/&@@X_m-@@g6}`m5 @!,&@0@75/&@5@2jm+/&@@@2+/&@U@Gtm/&@U@Im5g7} !,&@0@75/&@5@2m+/&@@@2+/&@U@Gm/&@U@Im-@g8}@P  To%D:GUY10D:GUY111@@_m@@Gm/&@U@Im-@dT 56ADWT90Q@@!@A@A k:} @@Zw+@%@/0@@I0@S@k;}e@@wB7t@d "n ,x ""A3 A"6@ B /k<} A KK100,90,100,93,88,99,82,102,81,103,77,105,75,107,73,108,71,110,333,3337760,120,58,122,58,125,57,126,57,1k=}28,59,132,333,333``72,130,73,129,91,120,93,118,99,115,101,113,102,113,104,111,105,111,106,110,106,109,333,333 ӛk>}\\105,97,105,101,106,102,106,104,107,105,107,107,108,108,108,110,109,111,333,333,117,111OO118,110,118,103,119,102,119,9k?}7,116,97,115,96,110,96,109,97,105,97,333,333$RR126,90,126,93,138,99,144,102,145,103,149,105,151,107,153,108,155,110,333,33k@}3.==166,120,168,122,168,125,169,126,169,128,167,132,333,3338ee154,130,153,129,135,120,133,118,127,115,125,113,124,113,1kA}22,111,121,111,120,110,120,109,333,333BΠ22110,125,100,125,99,126,96,127,91,131,333,333``62,120,62,127,6kB}1,128,61,132,60,133,60,138,63,141,66,141,72,143,73,144,76,144,77,145,87,145**88,146,96,146,97,147,105,147,333,333gg69kC},121,69,127,71,132,73,133,74,133,76,132,77,131,82,131,84,133,85,133,89,131,92,131,94,133,96,133LL333,333,70,120,73,117,75kD},117,76,116,76,115,75,114,71,114,70,113,70,110EE69,109,66,109,62,112,61,113,61,114,60,115,60,118,62,120,333,333 55116,kE}125,126,125,127,126,130,127,135,131,333,333mm164,120,164,127,165,128,165,132,166,133,166,138,163,141,160,141,154,143,153,kF}144,150,144,149,145,139,145 --138,146,130,146,129,147,121,147,333,333*EE157,121,157,127,156,132,154,133,153,133,150,132kG},149,131,144,131/55142,133,141,133,137,131,134,131,132,133,130,133 UU333,333,156,120,153,117,151,117,150,116,150,115,15kH}1,114,155,114,156,113,156,110 MM157,109,160,109,164,112,165,113,165,114,166,115,166,118,164,120,333,333 0091,131,87,129kI},85,127,85,126,83,124,333,333 JJ73,109,59,89,59,83,61,81,62,81,63,80,66,80,67,81,68,81,88,99,333,333 TT153,109,167,89,1kJ}67,83,165,81,164,81,163,80,160,80,159,81,158,81,138,99,333,333 135,131,142,124,333,333 33100,90,100,89,99,88,99,87,98kK},86,98,85,333,333 77126,90,126,89,127,88,127,87,128,86,128,85,333,333 "SHDAYEEM TT109,81,106,81,105,82,103,82,102,kL}83,101,83,100,84,95,84,94,83,93,83,92,82,92,77 <<96,75,97,74,102,74,103,75,105,75,106,76,109,76,333,333%%93,78,95,78,9kM}4,78,94,79,333,333YY117,81,120,81,121,82,123,82,124,83,125,83,126,84,131,84,132,83,133,83,134,82,134,77>>130,75,129,7kN}4,124,74,123,75,121,75,120,76,117,76,333,333))133,78,131,78,132,78,132,79,333,333))111,90,112,90,112,91,111,91,333,33kO}3BB92,81,76,89,333,333,73,85,93,72,103,70,105,70,108,71,333,333FF134,81,150,89,333,333,153,85,133,72,123,70,121,70,11kP}8,71,333,333gg110,70,116,70,120,67,120,65,121,64,121,61,122,60,122,57,118,52,114,52,113,53,112,54,112,55,110,5777107,kQ}57,106,58,106,63,107,64,107,67,110,70,333,333]]109,59,111,59,333,333,116,59,119,59,333,333,113,64,112,63,333,333,113,64,1kR}14,63,333,333LL132,70,126,66,126,64,127,63,127,60,128,59,128,56,126,50,116,45,333,333RR97,70,103,66,103,64,102,63,102kS},60,101,59,101,56,103,50,113,45,115,45,333,333]]110,126,119,126,120,129,121,129,124,132,126,137,125,138,125,141,124,142,1kT}24,143,121,146UU119,148,118,149,110,149,108,148,103,141,103,139,102,138,102,135,103,134,103,132106,128,110,126,333,kU}333%%111,126,113,122,116,126,333,333107,129,107,136,110,140' -1,-1')6-A)0@j'kV}-@@@t'U @,AA1/AAC/AAU/A$A~'K,AAkW}'/AA9,AAK/AA'K,AA'/AA9,AAK/AAkX}'',A@f'/A@f'-@ 'U ,AA1/AAC/AkY}AU/A$A'K,AA'/AA9,AAK/AA'K,AA'/AkZ}A9,AAK/AA'',A@f'/A@f<(U @,AA1/Ak[}A C/AA U/A$AF(K,AA '/AA9,AA K/AAPk\}(K,AA'/AA 9,AAK/AA Z(o,A@f'/A@f9/A@k]}gK/A@h]/A@ho/A@gn(-@ (U ,AA1/AAk^} C/AA U/A$A(K,AA '/AA9,AA K/AA(K,Ak_}A'/AA 9,AAK/AA (o,A@f'/A@f9/A@gK/k`}A@h]/A@ho/A@g:6-&@  @U @,AA1/AA C/ka}AA U/A$A Ny @,AA 1/AAC/AAU/AAg/Akb}Ay/AA*No,AA '/AA9/AAK/AA]/AAo/kc}AA4N',AA'/AA>N',AA'/AAHN1 @,A@f1kd}/A@fzN-@@N%%6-P:H:,$@0,%AN%%6-P:H:,$@0,%@pN% @ke},A@%/N5 ,A@5/%@&@N-@@  NK )2kf}K2@a-@A e9 +'0@9kg}AR@:uoBv@'Bx@9By@KAR@]@@oB7t@kh}D:GUY10NN7t@B9By@KAR@]@@oB7t@h0,i ##@@K:--(%Insert Diskette with Dos,Press $oj})@$AU@0(@2..@@ D:AUTORUN.SYS<,-@A"(*@ok}, F@P(FINISHEDZ77255,255,0,34,251,34,255,1,0,0,160,81,162,34,169,6d::32,92,228,32,13,34,169,ol}64,141,231,2,169,35,141,232,2n--96,112,112,66,35,34,1,0,0,0,0,0,0,0,0,0x++0,0,0,0,0,0,52,41,45,37,26,0,0,0,26,0&&0,om}26,0,0,0,0,0,0,0,0,0,0,0,0,0,0110,0,0,0,96,0,13,173,0,34,48,61,173,48,2,2017727,208,7,173,49,2,201,34,240,27,173,48,2on},24,105,388141,33,34,173,49,2,105,0,141,34,34,169,27,141,48,2;;169,34,141,49,2,206,78,34,208,15,238,79,34,169,60,141oo}8878,34,165,66,13,0,34,240,3,76,95,228,206,80,34,208998,169,13,141,80,34,206,78,34,248,173,77,34,24,105,1::141,77,op}34,201,96,208,39,162,0,142,77,34,173,76,34,24::105,1,141,76,34,201,96,208,21,142,76,34,173,75,34,2499105,1,141,75,34,oq}201,19,208,5,169,1,141,75,34,206,79::34,208,185,173,75,34,32,4,35,140,54,34,141,55,34,1736676,34,32,4,35,140,57,34,14or}1,58,34,173,77,34,32,4::35,140,252,34,119,35,60,34,141,61,34,76,95,228,72,748874,74,74,32,16,35,168,104,41,15,24,105,os}10,96,173,2::34,133,10,173,3,34,133,11,173,14,34,133,12,173,15,34<<133,13,172,96,228,174,97,228,169,6,32,92,228,169,0ot},141"::231,2,169,34,141,232,2,108,10,0,165,12,141,14,34,165,;;13,141,15,34,169,4,133,12,169,34,133,13,160,81,162,3468ou}8169,6,32,92,228,173,1,34,208,3,76,16,34,165,10,141@992,34,165,11,141,3,34,169,20,133,10,169,35,133,11,76J16,34,226,ov}2,227,2,64,35D1:CLKMAKER.BAS@992,34,165,11,141,3,34,169,20,133,10,169,35,133,11,76J16,34,226,l5 !"*Vl N;#@@K:)(};@!N6-6( Šɠsx}Ԡ"N  ٠̠ #N ( $N..(& So you've created the best program%N))(!ever to be written sy}in BASIC since&N11((Dartmouth College invented the language.'N ( (N//(' It's so good that you want to share)N,,(sz}$your creation with the world,well...*N,,($Britain at least, you decide to send+N**("your brain child to your favourites{},N##(magazine (ATARI COMPUTING?)-N ( .N( С/N ( 0N--(% Haven't you forgotten something??1s|}N,,($yes thats right The Programmers Bane2N11((documentation (Thats instructions to you3N//('and me) You begin to come s}}out in a cold4N--(%sweat as you think of the hours spent5N//('over a hot PRINT statement getting your6N (text in the s~}right place.7N ( 8N8-@#8( Ӡ٠٠ϠΠ9N)@:N (};N ( N$$(for (yes of course you s}have)?N ( @N..(& The Atari Text Editor (and programAN--(%generator). The idea came to me whileBN--(%slogging my s}heart out over a review ICN//('was writing,why not have a program thatDN--(%would let you type your text onto theEN--(%s}screen as you wanted it to appear andFN//('then let the computer take over puttingGN**("the text into PRINT statements ans}dHN--(%actually writing the program to printIN11((your text,exactly as you want it,for youJN ( KN,,($ Well thiss} is it ,from now on youLN--(%be creative while the computer breaksMN--(%out in the cold sweat over writng theNN(PRINs}T statements.ON8-@#8( Ӡ٠٠ϠΠPN)@QN (}RN ( SN/-s}/( Using the EDITOR:TN ( UN..(&To use the editor run it (really?) andVN(then wait for prompts.WN ( XN11(s}( First you will be asked at what lineYN//('number you want the PRINT statements toZN**("start at (between 20000 ands} 32500)[N ( \N//(' Make a note of this for calling the]N..(&instructions from your program.Or have^N..(&the insts}ructions as a program on their_N,,($own and LOAD your program at the end`N ( aN..(& After you have given the starts} no.bN..(&the screen will clear and you will seecN..(&the bottom two lines disappear off thedN##(bottom of the screen s}(Why?)eN8-@#8( Ӡ٠٠ϠΠfN)@gN (}hNC-C(( The reass}on for losing the bottom twoiN//(' lines is that the EDITOR automaticallyjN//('inserts first a blank line and then theks}N,,($message 'Ӡ٠٠ϠΠ'lN(into your instructions.mN ( nN11(( Between each page the editor ins}sertsoN(these lines as well: pN ( qN( GET#1,ArN( ?'(clear screen)'sN ( tN..(& The first lines} generated is alwaysuN ( vN11(( OPEN#1,4,0,'K:':? '(CLRSCR)':POKE82,0wN ( xN..(& Remember this if your insts}ructionsyN//('and your program are together as errorszN,,($will be caused if you open channel 1{N (again before closis}ng it.|N8-@#8( Ӡ٠٠ϠΠ}N)@~N (}N:-:( Back to s}the cut down screen.N ( N11(( To use the screen type on it exactlyN,,($as you would in the BLACKBOARD MODE.Ns}//('Editing the text as normal using BACK SN))(!CLEAR(watch this one) INSERT etc.N ( N//(' The return key alsos} works as normalN**("except it doesnt put anything intoN,,($memory. If you do a SHIFT INSERT andN//('a line disappeas}rs off the bottom of theN//('screen don't worry it will come back atN//('a SHIFT DELETE as the two lines missingN//(s}'from the bottom of the screen are stillN..(&there its just that you can't write inN(them but the ATARI can.N (s} N,,($ Though if you insert a characterN..(&into a line and the line moves forwardN++(#chopping bits off the end s}then I amN--(%afraid these are lost and will resistN&&(all attempts to retreive them.N8-@#8( s}Ӡ٠٠ϠΠN)@N (}NC-C(( The EDITOR can only handle a page ofN//('tes}xt at a time ,so after finishing eachN--(%page press CONTROL AND 3 together andN))(!the EDITOR will format that page.s}N,,($ (This takes a while so be patient)N ( N..(& When the EDITOR has produced PRINTN..(&statements from yours} text it will ask;N ( N!!( WAS THAT THE LAST PAGEN ( N11(( If you answer 'N'(o) then the EDITORN..(s}&will return you to the cut down screenN11((ready to accept the next page as before.N ( N**(" If you answer 'Ys}'(es) then theN++(#EDITOR will make a few adjustments.N11(((Changes 'Ӡ٠٠ϠΠ' toN//(''Ӡ٠s}٠ϠϠΠϠ' andN!!(adds a CLOSE#1 statement.N8-@#8( Ӡ٠٠ϠΠN)s}@N (}NA-A(' At the end of your text it is up toN,,($you to put a GOTO RETURN or CLOAD ts}oN(start your program.N ( N ( N--(% You will then be presented with aN--(%menu which will LIST the js}ust createdN,,($text to screen ,printer or cassette.N//('I suggest that you LIST it to cassette,N,,($and make a notes} of the line numbers.N//('Remember if the instructions are in theN..(&same program as the game/whatever thenN//('wats}ch for double line no.s or bits willN( go missing.N ( N))(! When LISTed you will then getN11((another menus} which is the option to LISTN..(&the text editor ,run it again or chainN(the next program.N8-@#8(s} Ӡ٠٠ϠΠN)@N (}N@-@(& WARNING: If you run it again startN,,s}($your text at the same line number asN..(&before as unless you reload the editorN,,($then the text lines from before s}willN(still be there.N ( N//(' One helpful hint: Keep your text asN--(%short as possible,although the EDIs}TORN,,($ignores totally blank lines and alsoN11((strips surplus blanks off the end of theN''(lines , memory does gs}et used upN//('slightly faster than normal but not tooN//('much ,besides it's a small price to payN(for the conves}nience.N ( N//(' Well enjoy your instruction writingN( from now on.N ( N##( ON TO THE EDITOR >>>>s}>>N4(4((THESE INSTRUCTIONS WERE WRITTEN WITH THEN(EDITOR.N=-@#= " Ӡ٠ϠϠΠϠs}N)@NZ.(&}THE NEXT PROGRAM REQUIRES OVER 16K OFZ('MEMORY. IF YOUR ATARI HAS ONLY 16K THENNC,($WIND Ts}O THE END OF THE TAPE AND PLAY:( SIDE TWO.=(@(C(N3@ ( LOAD:TEXTEDIT3D:TEXTEDI2.BASD:TEXTEDI1.BAs}S %@ SIDE TWO.=(@(C(N3@ ( LOAD:TEXTEDIT3D:TEXTEDI2.BASD:TEXTEDI1.BAp" ''WORKMSGBLANKABCDEFGHIJKLMNOPQRSTUVSELECTOPDLISSCNSTSCNENTEXTSTTTEXSTLINCHARw}ACTECHAWLEWBFLA w} w} !"#$%&'()* +@w} @ THE @ "" @ text  @ ANDw}## @  @ @ !! @ GEARY  @  @ w} @  @ april 1984-@A  $$***Π٠ӛ&&;@@w},;@@,;@@,;@e,;@e,;@e,;@e,;@e,;@e,;@e,;@e,;@ew},;@e,;@e,;@e,;@e,;@e,;@e,RR;@e,;@e,;@e,;@e,;@ew},;@e,;@e,;AV,226.( ++6.! Ӡ٠٠w}Π6- +##@@K:##@@E:'@@dw}'B7t@d%%***Ġ٠ԠĠΛ%%6-F:A`,%AV$F:Aa,%%6-F:@,%AV$F:w}@,6-%Ay!+%@'+%@("@#''  ENTER START LINE NO. FOR TEw}XT.$  6-%!! B%*!B@@&I! INVALID LINE NUMBER-RETRY5-@A9 ? }I @5(w} }) @S*)@+"@)@F,"@(@H- @P.?-F:@,%AV$F:@w},!&@@?@@#/ @Q0?-F:@,%AV$F:@, %@@?@@"1 @Q27w}%F:@,%AV$F:@,!7@3*@4 @B5+ B'g %AR@+ 7w}jj6.` !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_  8vv67@<Aw},.[`abcdefghijklmnopqrstuvwxyz{| 9``67A<AV,.Ew}߀ :6-@@6-@;6-<-6@w}=6-F:,%@>@6-@?!!"@*"@e@67<,.7<,A%6-&@%w}!@pB 46. C6-B:,&@DAAAAAAAAw}A@@@@@@@@@@@x@v@sE06-w}6-%@)6-@@06.F G AIp6. POS.0,0:?367@<@,.>:@4,L67@<@w}%,.p67@%<@%,.>:@4,J6"@9,67@%<@%,.;6 @iK @iL 6.?+67w}@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,t"@967@%<@%,w}.;M @iN 6.?+67@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,tw}"@967@%<@%,.;O @iP 6.?+67@<@,.>:@4,D67@<@%,.h67@w}%<@%,.>:@4,t"@967@%<@%,.;Q @iR 6.?+67@<@,.>:@4w},D67@<@%,.h67@%<@%,.>:@4,t"@967@%<@%,.;S @iT 6.w}?+67@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,t"@967@%<@w}%,.;U @iV 6.?+67@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4w},t"@967@%<@%,.;W @iX 6.?+67@<@,.>:@4,D67@<@%,.w}h67@%<@%,.>:@4,t"@967@%<@%,.;Y @iZ 6.?+67@<@,.>:w}@4,D67@<@%,.h67@%<@%,.>:@4,t"@967@%<@%,.;[ @i\w} 6.?+67@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,t"@967@w}%<@%,.;] @i^ 6.?+67@<@,.>:@4,D67@<@%,.h67@%<@%,.w}>:@4,t"@967@%<@%,.;_ @i` 6.?+67@<@,.>:@4,D67@<@w}%,.h67@%<@%,.>:@4,t"@967@%<@%,.;a @ib 6.?+67@<@w},.>:@4,D67@<@%,.h67@%<@%,.>:@4,t"@967@%<@%,.;c @w}id 6.?+67@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,t"@96w}7@%<@%,.;e @if 6.?+67@<@,.>:@4,D67@<@%,.h67@%<@w}%,.>:@4,t"@967@%<@%,.;g @ih 6.?+67@<@,.>:@4,D67@w}<@%,.h67@%<@%,.>:@4,t"@967@%<@%,.;i @ij 6.?+67@w}<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,t"@967@%<@%,.;w}k @il 6.?+67@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,t"@9w}67@%<@%,.;m @in 6.?+67@<@,.>:@4,D67@<@%,.h67@w}%<@%,.>:@4,t"@967@%<@%,.;o @ip 6.?+67@<@,.>:@4,D6w}7@<@%,.h67@%<@%,.>:@4,t"@967@%<@%,.;q @ir 6.?+6w}7@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,t"@967@%<@%w},.;s @it 6.?+67@<@,.>:@4,D67@<@%,.h67@%<@%,.>:@4,tw}"@967@%<@%,.;u @iv--***ŠɠŠϠ͠Ӡ˛w1 }%@'@w}1%@(@xpp***נԠŠ͠ΠΠĠŠĠĠϠԠ͠Ϡ٠͠w}Ωyoo***ĠĠӠĠ٠ŠԠӠϠŠĠƠ٠ΠŭǠ͛zw}"@A${p-@p  OPEN#1,4,0,>:@4,K:>:@4,:?>:@4,}>:@4, :POKE w}82,0|#-@# %@} %@~ %@ %@ %@ %@w} %@ %@ CONT*-'AB@*&AB@ }#-w}@# %@  %@ %@ %@ %@ %@ %@w} %@ CONT*-'AB@*&AB@ }#-@w}# %@ %@ %@ %@  %@! %@" CONT*-w}'AB@*&GG***ҠĠĠƠӠΠӠŠԠŠǮΛAB@ w} }O-@O %@#POSITION 0,23:?>:@4,>:@4,; %@$ GET#1,A// %@%w} ?>:@4,}>:@4, CONT*-'AB@*&AB@ }ARw} WAS THAT THE LAST PAGE***̠ӠԿ)@ ***ЛCC>:,4Y)>:,4y)>:,4)>:,w}4)>:,4)>:,4A ***śCC>:,4N)>:,4n)>:,4)>:,4)>:,4)>:,4Au Ahw}!!***̠͠ӠΛ+%@'+%@(6-%@'6-@``***ҠŠw}ԠӠԠӠ͠ŠԠΠԠˠϠŠԠś 6.6.6.6.&6.-6.46.w};6.B6.I6.P6.W6.^6.e6.l6.s6.z6.6.& 6.6.6.6.&6. @@w}GG***ƠԠӠŠԠΠŠӠϠԠנӛ }-@bb %@#POw}SITION 0,23:?>:@4,$ Ӡ٠ϠϠΠϠ>:@4,; %@$ GET#1,A77 %@% CLw}OSE#1:?>:@4,}>:@4, CONT*-'AB@*&AB@ }## w}PRESS C TO LIST TO CASSETTE  S TO LIST TO SCREEN!!  OR P TO LIST TO PRINTER)@CC>:,4S)>:w},4s)>:,4)>:,4)>:,4)>:,4ACC>:,4C)>:,4c)>:,4)>:,4)>:,4)>:,4ACC>:w},4P)>:,4p)>:,4)>:,4)>:,4)>:,4A A }%@@ A }C:w}%@@ A }P:%@@0 # Ӡ٠Ϡ0)@ }   Ԡw}   && 1/LIST TEXT FORMATTER PROGRAM.   ** "2/RUN TEXT FORMATTER PROGRAM AGAIN && 3/GO BACw}K TO TEXT LIST OPTIONS    4/CHAIN IN NEXT PROGRAM)@>:,41)>:,4A!>:,42)>w}:,4%>:,43)>:,4A>:,04*>:,0A A$@A#/ " Ӡw}٠Ϡ/)@ A+(+( Hit Reset To clear this program.A@ A%w}!!***ӠĠD:TEXTEDI2.BASA@ A%tZ