#@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 )*r@ABH@@w +@ )6-%@}"@)6-@ 0)6-%@"@)6- )6-%@ "@)6-@}#2@()6-%@"A)6-2)6-%@"@y)6-< ,F/@y&}P/@y&A&Z/A&d /n @  D:GTIAGRAPH.*$*88+&wKL,BHXHIISPCSECTORCIOHDDHCIDTSDCALROCODEDD 3= @}}12+B1 @  B) A ***}******************** DISC SECTOR EDITOR ** by B. WOODLAND ** (c) ATARI USER *****************}****** AINITIALISE( A SCREEN SET UP2! A"!GET SECTOR NUMBER< A$GET SECTO}RF A(DISPLAY SECTORP$ A0$PASS TO MENU CONTROLINITIALISATION##@@K:}&&;@,;@,;@Q,;@d,;A(,&&;@,;@I,;@C,$ AAEMPTY STO}RE8 6-C:,6-BSETUP MC ROUTINESL" A0V# %6-%@# Aj 6-C:,}$SCREEN LAY-OUT"(>:A%,"-@(àҠ!!("}"(|0|1|2|3|4|5|6|7|( ATASCII ""("@"(  0-}@06-P:'@,%@H**'@!P:'@,*6-%A(4(>:,: >@@$}GET SECTOR NUMBER&-@(&( "-@("(  A"P6-A:,}!! @)!A A"  B$_ ` LOAD SECTOR FROM DISCj A%0t %Ai@%=DRIVE N}UMBER~ %Ap@%=READ COMMAND SUPPLY DISC SECTOR NUMBER AyP:'AV, ""Ax&F:Ay,}$AV GIVE RAM STORAGE ADDRESS. AsP:'AV, ""Ar&F:As,$AV ""PASS CONTROL TO DISC} HANDLER 6-?:,  B$  B-@" $$(DISC ERROR!  -A} $  DISPLAY SECTOR DATA )Af@)-@ -@ !!-$@%@}%@ 6-F:%%$@,"  AB(|,   (|6 -@@ -%@(%@J (>}:F:%%$@,,T   -@@ ^ !!(h Af$  ROUTE TO} OPTIONS -@"( -@" --($View Edit Write Print Exit &)@(>:,}&6-&@I (A1 !! )!@A0 ''A5A2A8A1  A0 ! A"} A$! A(& A00  SAVE SECTOR TO DISC -@"( -@" !!(Save} on sector  OK? )@@$ &Ai@&= DRIVE NUMBER $Ap@$= DISC WRIT}E DISC SECTOR NUMBER AyP:'AV, $$Ax&P:'AV,$AV ADDRESS WHERE DATA STORED }AsP:'AV, $$Ar&P:'AV,$AV PASS CONTROL TO HANDLER 6-?:, $G  EDIT RAM DA}TA -@"( (-@"(( Address(HEX)   AC !!!A') A5 6}-P:'@, ;%6-+&$@,$@%@;6-$@%@ +!@%6-&@$+6-%@ -}  -(|! 6-%!-@'%'@$$6.7@<@,$ AC. (>:,8-@"}(L -@" (More?V$)@$"@A5`$sPRINT DISPLAYED SECTOR A@`}3Dump of sector 9931 0 1 2 3 4 5 6 7 8 9 A B C D E F;;33___________________________________}________________  -@ 6.=:,(67@,.|(-@6-F:%%$@,($ AB}6. $67@,.267B:,%@,. <67B:,%@,.|F 3 P;;33_______________________________}____________________dPRINTER TEXT DUMPn -@ 6.=:,x(67@,.|(-@6-F:}%%$@,!A(6-&A(% @2)!A"%6-@2 6. 67@,.>:,67B:,%@},. 67B:,%@,.|3 ;;33___________________________________________________ 3 3 $}PRINTER ERROR TRAP,-@"(,-@" (Try turning on printer!-A $}EMPTY STORE6.6. -@"67B:,%@,.,67B:,%@,.6   $g}hDECIMAL/HEX ROUTINEr6. |6-?:C:,>208,56,233,48,201,10,144,3,233,7,24,2}2,212,22,212,22,212 >>22,212,117,212,149,212,200,152,106,144,227,202,16,224,96OPDEC. TO HEX DATAZ66104,104,13}3,213,104,133,212,160,0,169,36,145,212d44200,152,106,104,144,5,72,106,106,106,106,41,15n4424,105,48,201,58,144,2,105,6,}145,212,200,192,5x208,228,96,-1D:DISKEDIT.OR*6626,106,106,41,15n4424,105,48,201,58,144,2,105,6,K05[CqCHVXISLVVHHHSPIAUXFLBURLBUFADXDUNICMSTARSSBUFHBUFLSECHSELCCIOSSTAMFTLNUN}AHH1HXCHRNMOMMAXSEBPBOSECLHCJIKCBBB} } !"#$%}&'()*+,-./012345}6789:;<=>?@ABCDE}FGHI####ůٯˠҠ##Π٠}##ΠǠ##䮩##ҠɠҠΠ#}#Ҡ##  8 +@8@@}S: A)` A' - $( -($2-6-@ &P:B:,'@,%-*(-$< -(7@<,}$F, --(-%() ,$P9 --(-%(+-2(6 9$Z( --!(}7@<,% ($dR6-@6-@ '6-@"36-@6= @OAdAUR$n$$ΠŠĠ}ҠŠԛx@@!"@6-!6-@"@6-@6-?:C:,<@}<<<,1"@16-F:@@,%AV$F:@A,@ 6-$ԠҠԠˠӛ!!٠}ǠԠˠӛ@@'6-@"@'6-@  6- -}P:'AV,"&AV$F:,,P:'AV,6&AV$F:,@6-?:C:,,J. 6-F:,@$A}. A PT6-%A(^ h"@6-&r$|$$Š٠ϯԠƠқ!"@!6-?:}C:,<<<,!"@!6-?:C:,<<<,$Šįś8@ 6-@,"@86-@}"@6-}6-@6-@ '6-@36-@6= @W6.READING CASSETTE...c"@}6}.WRITING CASSETTE...36-@ @P36-?:C:,<@<<<,@$ 6.C:H"@(6.}Ġ͠46-@> @PH A 06.ŠϠ&6-@0 @P6-A(=6-@}6-@!'6-@36-@6= @h%6.PRESS ON CASSETTE UNIT16-@="@h6.$PRESS } & ON CASSETTE UNIT&p @P6-@76.PRESS TO CONTINUEA @PM6-@f6.OR T}O ABORTp @P006-F:B2y,0@*@A`:!!"@*"@A!@D!!"@*"@}A'N+"@!Ad@+ A0X"@A!@bA6A@l%%6-F:A,%AV$F:}A,v A!@=6-@6-@!'6-@36-@6= @O"@/6.FILE TOO LARGE FOR BUF}FER;6-@E @PO Ap<&6.I/O ERROR, CHECK CONNECTIONS26-@< @Pg6-@.6.PRESS } TO TRY AGAIN8 @PQ6.OR TO ABORT]6-@ g @P06-F:B2y,0@*@A!}!"@*"@A!@!!"@*"@A' AI6-@"@56.Ġ͠ˠ}? @PI A@%6.ŠϠˠ% @P<6.Enter Filename >&6-@26-@< @@'}6-@!6-'6-@ AP6.-7@<@,4D:#6.- A  6.D: 67B:,%@},.6- =6-@6-@6'6-@36-@= @*f!6.PRESS TO CONTINUE-6-@}7 @PP6.OR TO ABORT\6-@ f @P406-F:B2y,0@*@A >!!"@*"}@A'H!!"@*"@A!@Rk6-@6-@6'6-@36-@ = @N6. LOADING...}Z"@k6. WRITING...\6-@ @Pf A P Ap"*"@A @z=6-@6-}@6'6-@36-@!= @ (.6.MEMORY FULL, INCOMPLETE LOAD:6-@D @PP6-@ n6.}PRESS TO CONTINUEz6-@  @P26-@!(6.OR TO ABORT2 @P06-F:B2y,0@}*@A "@A' A!@P6-F:A,("AD*"@F6.UNABLE TO WRITE TO DIS}KP A ="AD*"@36.UNABLE TO READ DISK= A 2"A0(6.DEVICE NOT PRESENT2 A })"Ab6. DISK FULL) A 6. I/O ERROR6-@6-@'6-@!36-@6= @I6-@}S @P|6." ϠҠԠɠΠǠϠРŠҠԠɠϠ6-@  @P&-@A  &@ A'}G6-@"@36.Ġˠ= @PG A@%6.Šˠ% @P}$.6-A@816-@6-@'6-@1 @B@6.Enter Start Sector >*6-@66-@@} @@LR6-@%6-@'6-@H36-@W?6-@I APR6-A:,V"@Ap`E @})!6-@%6-16-@; @E Aj@6.Enter End Sector >*6-@66-@@ @@tR}6-@%6-@'6-@H36-@W?6-@I APR6-A:,~?  )!6-@6-+6-@5 }@? A0O &!6-@#6-@/6-@;6-@6E @O A=6-@6-@!'6}-@36-@6= @f6-@-6.PRESS TO CONTINUE7 @PC6-@\6.OR TO ABORTf} @P06-F:B2y,0@*@A!!"@*"@A!@!!"@*"@A'}"@6-% A A!@F6-@"@26.Ġ͠< @PF Ap"6.}ŠϠ" @PA6.Enter Start Address >+6-@76-@A @@R6-@&6-@'6-@H}36-@W?6-@I APR6-A:, K )!BU5%6-@+6-76-@A @K Ap}"@A@E#6.Number Of Bytes To Move >/6-@;6-@E @@(R6-@06-@'6-@H}36-@W?6-@I APR6-A:,2G%!BU5)!!6-@'6-36-@= @G A<=6-}@6-@'6-@36-@6= @Ff!6.PRESS TO CONTINUE-6-@7 @PP6.OR }TO ABORT\6-@f @PP06-F:B2y,0@*@A`Z!!"@*"@A'd!!"@}*"@A!@n Ax A!@ (}ARĠқ.@.@}@K:<6-6. "67,. 167@,.7-<("AR -(-%}(1-@@FF:Ad,AUR6-@ @w$ $F:Ad,AUA0G -%}(&-@@ ;F:Ad,AUG6-@ $ $F:Ad,"AUAp -%( $)@}$"AUA"A%A`"A&AP"M @2)!A$--@@)?B2y}C M Ap,W"@# )!)"@G7-@@ IB2yM W Ap6 -%(}>:,@6-%@J67<,.>:,T -( Ap^Z)@&AU*A&:-@@ L}B2yP Z A0h"AUAr*!67<,. *6-&@|"Ap A} C"#-@ 5B2y9 C A`@$ A*6.Enter No. To Conv}ert >66-@B6-@ L @@r6.Precede No. With $ For Hex->Dec~6-@! @=6-@ 6-@2}'6-@36-= AP$$7@<@,4$Af-@B:,L@:7<,, @H)@:7<,,!@W}*@:7<,,@2X6-@\ f A- 6-A:,6-P:'AV,-6-&AV$h6-P:'@,$6-&@}$?6.7%@<%@,h67B:,%@,.7%@<%@,v6-P:'@,$6-&@$M67B:,%@},.7%@<%@,v67B:,%@,.7%@<%@, AL6-@ *6.HEX EQUIVALENT IS :$66- }@ @ @@L6-@) A6.7@,@6- -@B:,@7<,20*7<,0 A }7<,4 A`&7<,/9AP0##7<,2A)7<,3FA:;;6-$@%@:7,,&@H&@$+ }@:7,,!@d,D Nh A6-@ 36.DEC EQUIVALENT IS :?6-@ I @@U6-@(^6.=:,h A }XI'6.INVALID HEX NUMBER, TRY AGAIN1 A=6-@ I6-@bx 6. @@6-@!=6.PRESS  }FOR ANOTHERG @Pb6.OR FOR EDITORn6-@"x @Pl06-F:B2y,0@*@Av&}"@ A# A `&$ AϠˠϮśF A6-@!06.Goto Block No. :<6-}@F @@z6-@6-@H'6-@W36-@?6-@&I APZ6-A:,&@z )!&}@A@ 6- $Ԡ˛5 A6-@ +6. 5 @Pf!6.PRESS TO CONT}INUE-6-@!7 @PP6.OR TO ABORT\6-@"f @P06-F:B2y,0@*@A &}"@ A# A `&$G A16.ǠˮŠ=6-@!G @PD@9A}T@D:*.*D@ A A `$ N A86.$Π EXT,REV,AVE,OTO,}-EXITD6-@ N @PH&6.ONVERT HEX/DEC, ORMAT DISK26-@>6-@!H @@ 86-@"#6. }ODE: ATASCII((86. ODE: HEX*T6-@ @@%6-@36.CAPS:ONA(F:A,T67@,.OFF4P @}@6-@%,6. VIDEO:NORMAL9F:A,P67@,.REVERSE> @@H$RǠś\AR}@f (}6-!6-@-6-@87 @`C6-@O6-@"[6-@g6-@8q @p}}6-@6-@# @`pAdAUz556-P:'A(,%@$+'A(P:'A(,,!&@}6- 6-&@P6.EDITING BLOCK 767B:,%@,.=:%@,P67B:,%@,. OF }67B:,%@,.=:,6-@ @P6-@6-@% @`16-@)=6-@)I6-@U6-}@_ @pk6-@w6-@ @`a6-@#-@@16-@%7-](7$@&@}<$@,a -A'.6-F:%+$A(,%,G6-@%P:'@,f6-+&+P:'@,$@,,}6-@%@$%@$+!@,e -3(7$@%@<$@%@,A6-@0%G-e(7%@}<%@,  A `A6-6-t86-@%@$%@$+!@},%F:A,F6-@%L-T1t6-%+$A(,%+$@,% 116-%A($+ A(,&A($+!A',  } -(>:, ''ΠĠĠˠҠΛ$ !6-F:Ad,!6-F:B2y,. G 196-%A($+ A(,&!}A($+!A',?-G(>:,8 "AUA#B @A%L $$ΠĬˠΛV 9"@("}6-@'6-@1 A'9ԛ` 4"@a A@# A!@4ϠˠϮj 1"@V A##} A'`1Ԡ˛t F"@76-@&' A `1 A'`Fدɠś~ 4"@56-%@' $}A!P4Ԡ˛ 8"@6-&@' A!P8Ӡ˛ 5"@ A# A'`5Ԡد%}Û 1"@b6-@% A'1Š˛ P"@6-&@) 56-@? A'`PŠ&}ҠЛ R"@6-%@)!@56-? A'`RŠҠΛ S"@6-&@) '}56-@? A'`SŠҠԛ R"@6-%@)!@56-? A'`RŠҠ(}ԛ P"@`6-F:A,*"@d<AF A `P A'` A"@`"-A@d)}7 A `A A'` P"@96-F:A,*"<AA(F A `P A'` A"@9"*}A(-A7 A `A A'` "@A'` A'  -AF:A,-AF:A+}, 'A'A@d F@.@@K:;)@F@( 99+ @H,})!@W,*+ @e)!@p,A'2 - 6-F:,6-P:'@,-6-&@$< +6-&@H!@ +6-&-}@F (F:A,6-P F:A,6-Z A@&F:A,d 6-$@%n -6-@%.}@$%@$+!@,;6-@%A-k(7$@%@<$@%@,y6-@0%-(7%@</}%@,x F:A,A' O6-%@!@)6-76-%@C!@O6- -A0}F:A,-AF:A, A'` F@.@@K:;)@F@ 6-1}@%-@0%9(7%@<%@,c6-@%@$%@$+!@,i-(7$@%@<$@2}%@,  O6-%@!@)6-76-%@C!@O6- ! AU!Ad3}AU A# Π՛ # (} A0#6- 'A'A@d M6-@4}6-!6-@-6-@67 @C6-@M @` AdAU ;6.1 Cassette File%6-@165}-@; @@ .6.2 Disk Sectors$6-@. @@" .6.3 File On Disk$6-@. @@, (6.4 Me6}mory6-@( @@6 ;6.5 Quit6-@("@;6. 5 Abort Save@ 8 @@6-@,6. Edit Whi7}ch ?86-@ J ""@"6. Save Which ?T @@^ R6-@'6-@'6-@36-@I?6-@S8}I APR6-A:,c !!"@*"@A!@h "@A)Pr =6-@6-@!'6-@36-@69}= @| 6-@6- //AA A APA ;@@,;@@,;@@,;@C:},;@,;@,;@9,;@@,;@,;@2,;A,;AV,;@R, 467@,.%;}67@@,.467@,. 467@,. %67@@,. 467@,. KAA'AA9<}AR@K@ =6-@6-@8/-@@9 @`=  =6-@6-@!'6-=}@36-@8= @p 16-@"6-@'6-@81 @` ;%6.ů˯٠16-@>}; @P *6. Written By 6-@* @P 7!6.AaronFay Marketing Ltd.-6-@7 @P .6.Aaron ?}Spilling$6-@. @P .6.for ATARI USER$6-@. @P  $ .6.ŠԮ$6-@. @}@P %%6-F:AD,%AV$F:AE,& %%6-F:AA,%AV$F:AB,0 6-%A6-&: +-@@CA}"'67,.>:,+ D +-@@"'67,.>:,+ N aa104,104,104,10,10,10,10,170,104,104,157,66,3,104,157B},69,3,104,157,68,3,104,157,73,3,104,157X 9972,3,32,86,228,189,72,3,133,212,189,73,3,133,213,96b 104,32,83,228,96l +C}-@@9"'67,.>:,+ v cc104,104,133,215,104,133,214,104,133,217,104,133,216,104,133,218,104,170,160,0,177,2D}14,145,216 ==200,208,4,230,215,230,217,202,208,242,198,218,16,238,96 p6-Ap6-Aq'6-Ar36-As?6E}-AiK6-AxW6-Ayp6-P:'A(,%@ --@@R")67<,.>:,-  32,68,218,104,20F}1,4,208,43 !!104,104,10,10,10,10,170,104 104,157,66,3,104,157,69,3 104,157,68,3,104,157,73,3 104,157,72,3,3G}2,86,228,132 !!212,189,72,3,133,203,189,73 3,133,204,96 A*6. A6.0123456789ABCH}DEF -@AV26-P:+&@,'@,B6-&$@P6-%@a6-B:,%@q67<,.7<,67%@I}<%@,.7<, 67<,.>:&@, 6.  O"67B:,%@,.=:AV&,967B:,%@,. E6-@J}O @P #"AU#67<,.>:@',   6-@* $D:CASSEDIT.OR*K}AU#67<,.>:@',   6-@* $D:CASSEDIT.OR*@hi CHARCHPROGNUXYTEXTWWMW!M} d&&;A,;@,;A,n +@!N}6-AwxG-@@G(@$PLEASE WAIT WHILE DATA IS READ IN! #A0!-@A8"6!O}-&@'-@ @ 8(@ 67<,.>:, i #A !-@A%"36-&@E-!P}@ @ W(@ e67<,.>:,i  A w A +@%@90@@S0@!Q}@m0@@ @w A"6-?:C:,BB(2000 PROG$(1,80)=>:@4,7@<@,>:@4,HDD(2010 PRO!g}G$(81,160)=>:@4,7@<A`,>:@4,REE(2020 PROG$(161,240)=>:@4,7Aa<A@,>:@4,\E!q}B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB7^MENU BASBGTIAGRAP B*DISKEDITOR BCASSEDITOR B&L80COLUMNBASB {DEMO1 BASB DEMO2 BASBDEMO3 BASB?LIFE BASB7BARRIER BASBBIORYTHMBASB1CLOCK BASE(2030 PROG$(241,294)=>:@4,7AA<A,>:@4,f (CONTp-@zAB@&!r}AB@1 +Af@1-@@BB(2050 CHAR$(1,80)=>:@4,7@<@,>:!s}@4,DD(2060 CHAR$(81,160)=>:@4,7@<A`,>:@4,EE(2070 CHAR$(161,240)=>:@4,7Aa!t}<A@,>:@4,EE(2080 CHAR$(241,320)=>:@4,7AA<A ,>:@4,EE(2090 CHAR$(321,383)=>:@4!u},7A!<A,>:@4, (CONT-@AB@&AB@+ +!v}-@@+6-A)-@@%(%@$)  (CONT-@AB@&!w}AB@L-AAAV +-@@`)-@@ %(%@$) j!x} (CONT-@AB@&AB@ AB@4F#67@u<@u,!y}.>:@4,C67@<@,.>:@4,F$D:80COLUMN.BAS9A M-!z}A,C67@<@,.>:@4,F$D:80COLUMN.BAS9A M- 2200 REM ΠϠŠ2210 GOSUB 2420:GOSUB 22702220 RESTORE 2340:FOR I=1 TO 82230 READ X,Y,CH$:GOSUB 2002240 %|}NEXT I2250 GOTO 22502260 REM 2270 RESTORE 2300:COLOR 1:PLOT 8,61:FOR I=1 TO 192280 READ X1,Y1:DRAWTO X1,Y1:NEXT I2290 RE%}}TURN 2300 DATA 311,61,311,139,8,139,8,612310 DATA 73,61,73,139,99,139,99,61,127,61,127,139,171,139,171,61,221,61,221,139,25%~}7,139,257,612320 DATA 311,61,311,83,8,832330 GOTO 23302340 DATA 26,63,Total Memory Resolution Text Max.No.@23%}50 DATA 6,74,Model Price Ram for Basic (Max) (Max) of Colours@2360 DATA 3,85,Commodore C128 `269 12%}8k 112k 320x200 80x25 16@2370 DATA 3,96,Amstrad CPC664 `339 64k 42k 640X200 80X25 %} 16@2380 DATA 3,107,Enterprise 128 `250 128k 71k 672x512 84x24 256@2390 DATA 3,118,Memotech MTX512 `2%}75 80k 64k 256x192 40x24 256@2400 DATA 3,129,Atari 130XE `170 128k 100k 320x192 80x%}24' 256@2410 DATA 3,150,' Using Atari User Magazine's 80 column program.@2420 REM ԠΠҮ2430 DIM TEXT$(40)2440 %}X=8:Y=40:TEXT$="Micro Comparison table"2450 W1=PEEK(88)+PEEK(89)*256:W2=W1+Y*40+X2460 FOR ME=1 TO LEN(TEXT$):X=ASC(TEXT$(ME%},ME)):IF X>127 THEN X=X-1282470 IF X>31 AND X<96 THEN X=X-32:GOTO 24902480 IF X<32 THEN X=X+642490 TEXT$(ME,ME)=CHR$(X):NE%}XT ME2500 FOR Z=1 TO LEN(TEXT$):X=ASC(TEXT$(Z,Z))2501 W3=57344+X*8:FOR ME=0 TO 7:POKE W2+ME*40,PEEK(W3+ME):NEXT ME:W2=W2+1:%}NEXT Z2510 RETURN O LEN(TEXT$):X=ASC(TEXT$(Z,Z))2501 W3=57344+X*8:FOR ME=0 TO 7:POKE W2+ME*40,PEEK(W3+ME):NEXT ME:W2=W2+1:$2200 REM ΠϠǠ2210 DIM T$(1782)2220 X=1:Y=82230 T$(1,81)="Outside Blood Bank@"2240 T$(82,162)="You ar)}e in the middle of the block on a street that runs north-south.@"2250 T$(163,243)="Immediately to the east is the entrance t)}o a massive building. Next to the@"2260 T$(244,324)="entrance is a sign and a doorbell.@"2270 T$(325,405)=">READ THE SIGN@")}2280 T$(406,486)="'OUTSKIRTS OF LONDON BLOOD BANK:We pay `30 for a pint of blood. Painless, takes@"2290 T$(487,567)="only a)}n hour. Ring doorbell for admittance.'@"2300 T$(568,648)=">EAST@"2310 T$(649,729)="The Blood Bank door is closed.@"2320 T$)}(730,810)=">OPEN IT@"2330 T$(811,891)="It's locked.@"2340 T$(892,972)="RING THE DOORBELL@"2350 T$(973,1053)="You already d)}id that, didn't you?@"2360 T$(1054,1134)="NO@"2370 T$(1135,1215)="I think you're wrong. I'm a computer, so I have a really )}terrific memory, and@"2380 T$(1216,1296)="I'm almost positive you already rang the doorbell. Couldn't you be mistaken?@"239)}0 T$(1297,1377)="NO@"2400 T$(1378,1458)="Hmmm...well, I just looked back, and I guess you didn't ring the doorbell after@"2)}410 T$(1459,1539)="all. Do you still want to ring the doorbell?@"2420 T$(1540,1620)="YES@"2430 T$(1621,1701)="The bell ring)}s. A minute later, a stooped man opens the door and beckons you to@"2440 T$(1702,1782)="enter.@"2450 T$(1782,1782)="@"2460)} FOR I=1 TO 1782 STEP 812470 CH$=T$(I,I+80):GOSUB 200:Y=Y+82480 NEXT I2490 GOTO 24902500 REM 2510 REM 82,1782)="@"2460(l2200 REM ΠϠҠԠ2210 COLOR 12220 RESTORE 24202230 READ X,Y,CH$:IF X=999 THEN 22602240 GOSUB 2002250-} GOTO 22302260 NUM=242270 PLOT 24,24:DRAWTO 24,170:DRAWTO 315,1702280 X=1:FOR I=1 TO 142290 PLOT 24,170-I*10:DRAWTO 19,17-}0-I*10:Y=167-I*10:CH$=STR$(I*10):CH$(LEN(CH$)+1)="@":GOSUB 2002300 NEXT I2310 RESTORE 2410:X=2:Y=178:FOR I=1 TO 12:X=X+6:RE-}AD CH$:GOSUB 200:NEXT I2320 X=2:RESTORE 24002330 READ SALES2340 IF SALES=999 THEN 23902350 PLOT NUM,170:DRAWTO NUM,170-SA-}LES:DRAWTO NUM+24,170-SALES:DRAWTO NUM+24,1702360 X=X+6:Y=160-SALES:CH$=STR$(SALES):CH$(LEN(CH$)+1)="@":GOSUB 2002370 NUM=N-}UM+242380 GOTO 23302390 GOTO 23902400 DATA 110,50,40,36,43,49,39,50,30,90,120,140,9992410 DATA Jan@,Feb@,Mar@,Apr@,May@,J-}un@,Jul@,Aug@,Sep@,Oct@,Nov@,Dec@2420 DATA 1,6,Sales in@2430 DATA 2,14,1000's@2440 DATA 25,10,SALES OF ATARI COMPUTERS 198-}6@2450 DATA 31,18,(600/800/XL/XE/ST)@2460 DATA 999,999,X2470 REM 2480 REM 2490 REM 2500 REM 2510 REM RI COMPUTERS 198,m |}PCSDA0SDA1CCCCC1KEFRECOGERFLSREDLKKMCODEADSYOPPMVIXYC@1}@ 1} !1}"#$%& ** Š ** MARCH 1984 **d11;A(,;@,9@,9@,1}x&"&0,1,2,3,4,10,764 ADPM6-@6-@H!6-'6--6-176-A ABMAU1}( 6-R:,@(2@E]]6-%++ AV%%*+"@)"@)"@,,&+!*+")"@)"@1} ,,,$ 2YY6-%++ @*+")"@)"@,,&+!*+"@ )"@)"@,,,$B2H1}%67&,. T:," ,'+@&,',F:,"AUA02@E@0F:,@APO1}+@ %$B2w/AY@B9 AA?6-I ABO6-'B7t@d'@@dF:,1}@FAP 6-& AB&F:,@@A0SAUB2H'B2w9AY@4?1}6-I ABS2:$ A@$F:,@WApXG2@E@+AY@B7B2w=6-G 1}AB& 2F:,"@1& AT F:,"@0 AU F:,"@& ATeR(F:,"@$A1}( BPAU APA8,!A8,)6-&8A8,GA8,P6-?:,I 1}8,@8,'@w/6-%AAW@F(I$[%%@e#%&@f1%AC%%1}&@OAV[AWDAAR)0@1090A0D$h`AW$(MOV1}E  0AW?( un EQAW`( alt r?( lear "-AW@?( 1}Š lear |3(159x94"'AW@13(79x46 $3#(Ӡ٠٠Ϡ0)@3$bV1}AR@*( } ŠV(' Do you require instructions? or l7@K:$)@7@:1}Y,AGn@( } Šn(J This program demonstrates J.H.Conway'srules for cellular automata whichhh1}(_ he calls LIFE. Each cell is represented by one pixel on the screen and may be aliveor dead qq(i(bright or dark). 1}A new genera- tion of cells is produced each MOVE according to the following rules:JJ(B ` Each cell has 8 neighbour1}s which can be alive or dead.QQ(I ` If a live cell has 2 or 3 living neighbours it remains alive.WW(O1} ` A live cell with 4 or more living neighbours dies (over-crowding). AUU(M live cell with 1 or no live 1} neighbours also dies (isolation).VL(D ` A dead cell is reborn if it has just 3 live neighbours.V AC1}``(W} Succeeding generations of cells produce changing patterns as the programruns.ii(` After a number of mo1}ves patterns tend to die out, stabilise or oscillate (or some combination ff(]these). Since the game was invented in 11}970, lots of patterns have been discovered and %%(given names. Here are a few -U)(! ` `` ` 1} `U(' `` ` ` ` `` ``` `//(' `` ` `` `` ``` ```;( `;((BLOCK BLI1}NKER BEEHIVE CLOCK TOAD GLIDERkk(b To set up the starting pattern use thejoystick to move the target cursor and the fi1}re button toh^(V write or wipe-out thelive cells. Commands are given by keyingin the initial letter.h ACpp(g1}} Two screen resolutions are available; it takes longer to produce a new genera-tion of cells at higho( resolution t1}hough.o(O More information about LIFE can be found in Martin Gardner's recent bookkk(b'Wheels, Life and Other Mat1}hematical Amusements' which contains reprints fromhis 'Mathematical ll(dGames' column in Scientific American mag1}azine. If you prefer to research the origionals thay [Q(Iappeared in October and November 1970 and January to April 11}971.[ AC\WW(N} Which screen resolution do you require: ow (79x46) or igh (159x94) ? p1)@1}"@:H,!('6-1 AGPz$"@:L,(6-$ AGP AGmm(e A number of pre-programed starti1}ng patterns are available (and may also be re-selected later) -l(  NONE*( RANDOME PATTERN@( 'SPACESH1}IPS'V( 'GLIDER GUN'l( EXIT PROGRAMW(Enter your choice ?W(3 The program will then take a moment toi1}nitialze./)@6-&@:0,/ )!AHVY6-@H%@H$!6-&16-@B%$A6-A%$K61}-&$Y"BP46-F:A,&A&@4+@ %$W%6-F:A`,%F:Aa,$AV36-%@1}EB7t@dW@@dE AAAWE(& ** LIFE ** by Bruce Archer #BBy&#61}-+&,$AVd%6-F:A4,%F:A5,$AVS6-%A&+F:A@,%F:AA,$AV,d6-P:'AV,%1}&$AV%#-A(67<,.>:,# MAY@B!B2w3A@?A#MB2V1}&M 6--@ "#6-%167<,.>:,7"?6-%M67<,.>:, AU68,-F:&,68,1}-F:&,&68,-F:, 68,-&@&6-=6-8,%8,$AV1-Ay%$A@9%= P! 6-!6-+&@1},$AVZ("6%6-%( ARx 6-."6A6%$6-%. ARPAT1}" "6%" AS))%AYAT AUATe,Q6-8,%8,$AV%%$7-AY%$1}A M%P:H:,$AV,Q 1. ",@y@G+/@y.$6* ",AY@'/AY*$Y41}#B"-#"),- 14$|4#B"-#"),- 14$f$'0,16,16,0,198,1}0,16,16,0.BB169,94,133,214,169,161,133,215,160,20,132,225,169,40,133,224.BB162,0,134,216,134,217,134,219,134,220,134,221}3,134,226,240,83D/dd165,215,201,160,240,30,164,227,166,222,189,16,6,240,12,166,228,189,0,6,17,203,145,203,24,144,9v/``1661},228,189,8,6,49,203,145,203,164,225,132,227,166,226,134,228,232,224,8,208,9,200,230,225/cc230,223,230,224,162,0,134,226,161}5,220,133,221,165,217,133,218,165,219,133,220,165,216,133,217 04424,144,4,208,175,208,145,169,0,133,219,133,2162**164,221}3,189,0,6,49,205,240,2,230,219,3**164,224,189,0,6,49,205,240,2,230,2193>>164,225,189,0,6,49,205,240,2,230,216,165,217,241}0,2,169,938824,101,221,101,220,101,219,101,218,101,216,133,222DH//198,215,208,190,24,165,205,105,20,133,205NHKK165,2061},105,0,133,206,24,165,203,105,20,133,203,165,204,105,0,133,204XH198,214,208,1628J104,96,-1Jaa128,64,32,16,8,4,2,1,1}127,191,223,239,247,251,253,254,0,0,0,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,-1,L331,46,5,81,9,10,13,20,35,80,181,10,194,10,0,-1 Nb1}b28,0,6,0,7,1,7,7,6,8,5,8,6,8,7,9,5,9,6,9,7,11,3,11,4,11,8,11,9,12,4,12,8,22,1,22,7,23,1,23,7*N--24,2,24,6,25,3,25,4,25,5,1}34,4,34,5,35,5R0046,7,2,8,3,2,4,8,4,3,5,4,5,5,5,6,5,7,5,8,5Rff11,10,12,11,6,12,12,12,7,13,8,13,9,13,10,13,11,13,12,13,31},17,4,17,5,17,6,17,7,17,8,17,9,17,10,17R``11,17,12,17,13,17,14,17,2,18,14,18,14,19,13,20,11,22,12,23,6,24,12,24,7,25,8,25,1}9,25,10,25&R11,25,12,25aRAUB2H++@R("Press1 to Load the next programa)(2 to R1}un again)( 3 to Stop.a0)@6-&@H0 )!BP a " %a "(}aK(B(7BIKER REQU1}IRES 32K.CLOAD IF YOU HAVE SUFFICIENT MEMORYE(H(K D:LIFE.BAS@'2A@aK(B(7BIKER REQU0i VUHIKUKUCABCDSEEABCDGHXYABQWJBALLHYQLLOWAWOCOLOCJDEVO5}@@@@    $ @ A B AUAPA5}A0@@@@@9@@5} @ !@"@Q#@e$AP%@&@'@()AQ@*A+,-.@5}/AU0@1AU`23@4@5@67836-@6-@'6-@36-@5} 11;@,;@,;@,;@, A'AR:25}\2@~2@2@  6-6-5}o +!-@y'(+ o(? *>>> B A R R I E R <<<* !-5}@y(! 6-@0 A`6-@@ A``(6-@P A`02%"@6-@`%5} A`<6-BA?"@6-AU'6-AP36-A?6-A0B'@6-A@'6-A5}F6-6-'6-36-?6-K6-W6-c6-o6-u6-6-5}Pc"@6-%@)6-AY56-@yA6-@vM6-@Y6-@@c AZa"@6-@5}'6-@36-@?6-@ K6-@9W6-@a A_W6-@6-@'6-@636-@ 5}?6-@BK6-@yW6-@9d++@+0@xE,!/'/3/5}E/0@@@0@@ @0@05}@@' @'0@@@' '0@@ @ A @,5} @,-@@P 6-Ae B 6-AU6-A6-AP"6-5}@,6-@@@ A J1%%O T @,%% @ 5}@A A1%% A  @,%%1-@@#6-A5}- A1  A 6-@6-@33R:,"@*R:@,"@A6-R:5},6-A06-R:@,X l"@A A &"R:,"@*"@& 2"R:5},"@)"@.6-A2 2"R:,"@)"@.6-A 2 2"R:,"@)"@.5}6-A@2 2"R:,"@)"@.6-A`2  R:@,"@ 2"R:@,"@)5}"@.6-A2 2"R:@,"@)"@.6-A02 2"R:@,"@)"@.6-AP2 5}.2"R:@,"@)"@.6-Ap2 8 L6-&@ A0V6-&@ A@`6-%@5} A0j6-%@ A@t6-%@ A0~6-%@ A@6-&@ A05}6-&@ A@( wins.6-%@ ( SCORE IS  :  B( A%` (The comp5}uter wins -@A  6-%@ A%( wins-@A 6-%@5} A%I6-A @6-%6-+6-16-=6-I6- 1%%6-5}AQ@ 6-6-6-@ 1%%%6-AQ@% A6-%@c6-%@5}"#6-96-$@ %?`Y6-P:@$%$$H:,,c AQ@ ,%% ;"AU)"AU 5};6-P:H:,$@%@,(;"AU@)"AU`;6-P:H:,$@%@,<3 6-6-3AUAU 5}AU@AU`P11%%'6-AS1 Ad% 6-6- 1%%%6-x16-5}@'6-AS1 A ,%% 3 6-6-3AU AUAU`AU@11%%5}'6-AS1 A ,%%6-6- 9"@6-6- ),%%/6-56-9 9"@65}-6- ),%%/6-56-9 , A | 6-&@6-AU $ 6-%@6-AU  $ 6-5}&@6-AU@ $ 6-%@6-AU` $p8&(graphic mode 3,5 or 7() 0 A`48 z ( 6}(number of players 0(1 or 2 () " A`@&0 Ap ( 6$(number of barriers () . A`6}p26  ( =*(enter name of 1st player () .=4Aa 6. Aa  6. ("6}@AaP =*(enter name of 2nd player () .=4Aap 6. ( 6. X"@6}A`b '# +@(#OAdAU)-@9(@*= OAR@2#E(@6} BARRIER 1-@A(@*E <#-@F# -@6@H#6-%@6}K#N'2$@@@N2@O:&Ap,@@M#X:2@H:,$%@$@@6}@X2@$@@P#00@U#8-@@ 8(@P:, :6} W# AGY#-@ Z#   _# Ad#6-H:,$n# A #"A 6}# @-@[,H:,$+&@,%@H:,$+&@,%@/H:,$+&@,%@H:6 },$+&@,%@ #$T$^-@@P3-@^2AP%$@O:&6 }@,Y$ AG^$442@A%$@@O:&@,h$442@A0%$@@O:&@,6 }r$552@H:,$A @O:&@,w$E"0H:,$@A0@H:,$@E |$6 }  A`$ F:Ad,AU@$33T:,")T:@,"@$$db-@6 }92@X@@= _2b$0u6-@e5u( waiting...:uAdA6}UNu6-F:Ad,Xu/+T:,")T:@,"/ ]u"AUB0bu BV "@36-6}u!AdAU((!6-u"@aA`v"@#A`0 v"@5A`v"@WA`` 6}v1"@P6-'6-1 A%*v%"@!6-@e% @4v"@B@ >v"@@@6}y B D:BARRIER.BASQWQW% @4v"@B@ >v"@@@4H PQ ATOTATOTALYMDMDAPITCLENGH:} @ ":}"* BIORHYTHMS *""* BY P. ERSKINE (C) 1983 *""* CONVERTED BY A.PROSELLA *""*********************:}******* ;@, u +@'0@@A0@@[0@ @u0@:}@ Adf6-6---@E(@ BIORHYTHMSP(@[(@f(@:}np (@BIRTH YEAR :+(@H(@BIRTH MONTH :S(@p(@BIRTH DAY :s(:}@(@xp (@YEAR REQUIRED :+(@H(@MONTH REQUIRED:S(@p(@DAY REQUIRE:}D :4-@@!4(@ENTER DETAILS NOWt-@3(@birth year := APC6-U:}-@t(@BIRTH YEAR :s-@2(@birth month :< APB6-T-:}@s(@BIRTH MONTH :s-@2(@birth day :< APB6-T-@s(:}@BIRTH DAY :s-@2(@year required :< APB6-T-@s(@:}YEAR REQUIRED :s-@2(@month required:< APB6-T-@s(@MONTH REQU:}IRED:s-@2(@day required :< APB6-T-@s(@DAY REQUIRED ::} ApI-@@10@@E-@PI 90@@1-: }@P5 9 q AR-@@1@5G@@Y-@@"q(@ :!} $6-+&@,$Ae%6-+&@,$Ae%,"!@"6-%8&@,1"!@"6-%8&@:"},6<.&@!@*'@"P:'@,<6-%@;<.&@!@*'@"P:'@,<6-%@:#}@ 6-%6-%J 6-&O "*" AP^w +@'0@@A0@@[0@:$}mAR@w@h Ar 6-&+P:'@#,$@#,| 6-&+P:'@(,$@#,:%} 6-&+P:'@3,$@#,""(} Physical cycle::,@&+@y$G:+$,'+@P$@,,,:&}-$$%A@66/&+$,@&+@y$G:'+@P$@,,,  ""(} Emotional cycle:'}::,@&+@y$G:+$,'+@$@,,,-$$%A@66/&+$,@&+@y$G:'+:(}@$@,,,& +##(} Intellectual cycle,::,@&+@y$G:+$,'+@P$@,,,0:)}-$$%A@:66/&+$,@&+@y$G:'+@P$@,,,D N--(} Biorhythm for //:*}+S-A X""(} Press a key to restart.b F:Ad,"AUAl"AdAU" :+}@6-@3iVP""(} DIVISIONS=DAYS-@@%,$/$Ag$ 8$:,}w #AP!-@@''"3"AVU2i-@m w AP12:-}@@--@1 #2@@# YY81,60,81,30,72,90,81,90,60,90,64,90,256,0,8:.}1,60,81,30,72,90,81,90,53,90,60,90,256,0SS81,60,81,30,40,90,47,90,60,90,64,90,72,90,45,60,45,30,47,90,60,90,53,90,60,90:/}(%2($(# #A@9@,2#-@@<#"68,-F# P#..31,59,90,:0}120,151,181,212,243,273,304,334'$D:BIORYTHM.BAS$: INPUT OF ANGLE' A#"68,-F# P#..31,59,90,8\'(xYmSTARHEXHOUBYTMINUTSECONBBMSLS>2} 6-Ac#@@E:&(J( ԠˠW;@,cAU>3}X-F:AC,%AV$F:AD,%A 0(U( ɠˠԠĠXO AP(!( Enter Hour:+ A>4}16-O @)!@APQ A`(#( Enter Minute:- A36-Q )!@A`Q >5} Ap(#( Enter Second:- A36-Q )!@Apa%@u%@v-%@wA>6}%@x@`U%@ya"G@B:,"@.67@,.G67@<@,.0>7}, 6-@:,6-@:7@,,6Z%6-&@H&+!@d,$@G6-&@H&+!@d,$@W6-%@$Z$>8} D1:CLOCK.BAS-@:7@,,6Z%6-&@H&+!@d,$@G6-&@H&+!@d,$@W6-%@$Z$</