@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`  `1  ɐ     `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.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ 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  (` 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 ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.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- 138ɛ+,' 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 D8u9*9EXBSMPS1PS2PS3PS4STORLINLCSCRCBOMBBONUEXLBFRSQDCSSHCLHARCENAENADCC1BBEXET}YEXEYLUPDMANC1BALFTRGWTWTWTMOVPMBALLEN1EN2ZZZZZZDXYBOOMXYZPMBASOADGOPMMOVCHSECHCLU}XFRXF@ V}W} !"#$%&'()*+,-X}./0123456789:;<=Y}>?@ABCDEFGHIJKLZ}MNOPQRSTUVBOMB SQUADBY PAUL TUPACZEWSKI [} (c) 1982, ANTIC PUBLISHING AF:A@,;@,6.*+, X;@@,6.)67@@,.867\}@,.X67@<@,.GG;@0,;@0,;@0,;@0,;@,9@, 2 #@5]}!-@@%".68,-2 #550,0,0,0,345,345,345,0,360,360,360,0,385,380,385( Ap-1A^} A 1AY@42 Au7- 6-6-6-6-!6--6-B< 6-6-6-Ao +@16-_}F:A`,%F:Aa,$AV%C-%%@O@S ] AUi@wo6-F;AV'AV)A`}AP;A AK) -)(@ (1&) P0-@0(@ U` -a}(@"-@/(@A-@@N(@`-@@ZG -(@>:, ,-@b};(@0A6-G6-_# !6-&6-%# @dG 6-'6-%6-%GAA5AUc}AA i[ @6,@+/@@7,@C/@O,@[/@na,@/d}!,@'/1@=,@O/@@U,a,@s9 ,,,!,@-,@9,e}@x #A Ae}K6-A(6-@0'6-@`36-@?6-AK6-@ A@ f}@6,@,+,@7,@I,@@U,@a,@s,@@,@g}u @,@ @+/@1/=,@O/@@a/@@k#Au AeK6-@Ph}6-@'6-@P36-@P?6-@dK6-@@ A@[ @6,/@ +,@7/@i}=,I,@[,@@ #A Ae @,@ %/@1/@=,@ j}I/@ U,@ a/@s,@@/@@9 ,,,!,@-,@9,@k} @6,@+/@@5@G,@Y/@@k,@ },l}@,@@ ,@@,@@ 9,@@'/@@9,@@ K6-m}A6-@0'6-@p36-@`?6-@dK6-@@ A@g @6,@+/@@1n},=/@C,O,@[,@g,@y @,@+/@@ 1,=/@I,@o}[/@@a,m,@y,@3,@!,@@3,@@_ #A Aep}#6-@`/6-@`;6-A(G6-AS6-@d_6-@  A@; @-@--q}@ 3,7 ; ; @6-@--@3,7 ;  #A AeE6-A(6-r}@d'6-@P36-A?6-@%E6- A%Q6-A(6-@-A@r?AAVs}QA@ 6-6-6.7<,EAA6-!6-'6--6-36-96-?6-E6-6-?:<t}<:@,F:B2R,u}" A=F:B2R,"(6-P:H:,$,&=6-6P:H:,$,F:B2R," A = "2@v}'6-&@P-72=6-"r "62A&%A$+'"P:',,@>6-%J"@0P6-r2@w}',F:B2y,"@" A`, @P, F:Ad,@3A 1AdAU6x} F:Ad,@3A;AdAU@B,6-?:<<:,!67,.>:,)6-%3 A}p$67,. 67,. !6-&$$3,3,8,5,13,7,13,3,3,77,3,17,3,17,7,7,7,12,5""5,3,5,7,10,5,15,3,15,7,-}1,-1EE5,3,6,4,7,5,8,6,9,7,11,7,12,6,13,5,14,4,15,3,4,6,16,6,10,4,-1,05510,10,10,7,10,4,7,3,7,6,7,9,13,9,13,6,13,3,-1,}0DD2,10,5,10,15,10,18,10,3,3,8,3,12,3,17,3,4,7,16,7,8,7,12,7,-1,02,4,6,4,10,4,14,4,18,44,7,8,7,12,7,16,7 &&}2,10,6,10,10,10,14,10,18,10,-1,0"Ae5 -2 #@2),/,5,N -46-?:<<}A$@}&@;A$@&@WA$@&@sA$@&@6-@H6-A6-@}CP!6-?:<<:,! [;@H,;@d,)-@H-"967,.>:,= K-@dO"[6}7,.>:, ;,;,-"167,.>:, !-@%"167,.>:,< ;@2,(-@@2},"867,.>:,< 8;@H,$-@@H("467,.>:,8 $ff216,104,104,104,133,213,104,24,105},2,133,206,104,133,205,104,133,204,104,133,203,104,104,133,208ff104,104,133,209,104,104,24,101,209,133,207,166,213,240,16},165,205,24,105,128,133,205,165,206,105aa0,133,206,202,208,240,160,0,162,0,196,209,144,19,196,207,176,15,132,212,138,168,}177,203,164``212,145,205,232,169,0,240,4,169,0,145,205,200,192,128,208,224,166,213,165,208,157,0,208,96..24,36,36,24,}212,246,219,254,220,28,28,30--24,36,36,24,43,111,219,127,59,56,56,1200024,36,36,24,212,246,219,254,220,188,172,86-}-24,36,36,24,43,111,219,127,59,61,58,117!!60,126,255,63,63,255,126,60##60,126,255,159,159,255,126,60##60,126,255},207,207,255,126,60##60,126,255,231,231,255,126,60##60,126,255,243,243,255,126,60##60,126,255,249,249,255,126,60}##60,126,255,252,252,255,126,60##60,126,255,126,126,255,126,6066,36,60,90,126,90,102,60 ##126,219,255,189,219},102,60,24127,0,158,0,146,0,195,00,195,0,158,0,146,0,127254,0,73,0,73,0,25,00,25,0,73,0,79,0,254$aa}255,255,255,255,255,255,255,255,255,255,255,255,0,126,126,126,126,126,126,126,126,126,126,0)CC0,0,60,60,60,60,60,60,60,60},0,0,0,0,0,24,24,24,24,24,24,0,0,0.K AF:A,&@*+K6-+F:A,%@,$AV0u+@%@}'A9-@@L(@ANTIC^-@@u(@ PRESENTS!3;6-'AV6-}#6-/A;A83;@(,36.hͨα͑Υ`G6-?:C:,,#AL""6}@$Q;-@"-%$@%1 ; AV1,4,8,60,110,94,94,126,60[!!3,24,36,90,165,165,9}0,36,24`4,238,221,187,119,0,0,0,0e!!5,24,36,36,24,126,24,36,102j6,0,0,102,60,24,60,102,0o""7,16,56,56,124,124},254,16,16t8,0,56,28,126,28,56,0,0y9,0,28,56,126,56,28,0,0~10,0,0,36,24,24,36,0,011,0,74,36,88,26,36,82,}0""12,137,82,36,154,89,36,74,14 13,0,24,60,102,102,60,24,0""14,66,195,24,36,36,24,195,66((15,255,195,195,219},219,195,195,255""16,0,60,118,118,118,118,60,017,0,28,60,28,28,28,127,0!!18,0,60,110,28,56,112,126,0 19,0,}126,14,28,14,110,60,0 20,0,14,30,62,110,126,14,0""21,0,126,112,124,14,110,60,0""22,0,60,112,124,118,118,60,0!}!23,0,126,14,28,56,112,112,0!!24,0,60,118,60,118,118,60,0 25,0,60,118,62,14,28,120,0$$27,0,240,216,241,219,219,}241,0 28,0,0,0,206,109,109,205,0 29,0,6,6,231,182,182,183,0!!30,0,7,12,134,195,195,142,031,0,0,0,57,109,1}09,60,12##33,0,60,118,118,126,118,118,0$$34,0,124,118,124,118,118,124,0""35,0,60,118,112,112,118,60,0$$36,0,1}24,118,118,118,118,124,0$$37,0,126,112,124,112,112,126,0$$38,0,126,112,124,112,112,112,0""39,0,62,112,112,118,118},62,0 $$40,0,118,118,126,118,118,118,0 41,0,127,28,28,28,28,127,042,0,14,14,14,14,110,60,0$$43,0,118,118,12}4,124,118,118,0$$44,0,112,112,112,112,112,126,0#$$46,0,115,123,127,127,119,115,0(""47,0,60,118,118,118,118,60,0-$}$48,0,124,118,118,124,112,112,02""49,0,60,118,118,118,118,59,07$$50,0,124,118,118,124,118,118,0<51,0,60,112,60,14},14,60,0A52,0,127,28,28,28,28,28,0F##53,0,118,118,118,118,118,60,0K""54,0,118,118,118,118,60,24,0P""56,0,118,11}8,60,60,118,118,0U 57,0,118,118,60,24,24,24,0Z!!58,0,126,14,28,56,112,126,0_ 59,0,0,0,179,182,182,227,0d 60,0,}3,3,143,219,219,207,0i 61,24,56,48,112,96,0,111,0n-1x;#!A* A@*!@u/6-A(;6-@ };#}!A* A@*!@u/6-A;6-@ ;#!A* A@*!@u/6-AE;6-@ $}D1:BOMBSQU.BAS*!@u/6-A;6-@ ;#!A* A@*!@u/6-AE;6-@ $tuU&'BRBPTRVALUENTYPEFPTRLABELNODTOTYPNBRANCRESPONSESPACEPROBAPROBNNENODEOPBRANCEDFLMCNOD }TEMP@@@@  }@ DECISION ANALYS }IS PROGRAMBY JEFFREY A. SUMMERS (c) 1986, ANTIC PUBLISHING(: +6-@.F:B2y,"@:6- }2 @p<=@A+B7tA=@wA$FY +@-@@5(@ }DECISIONGAR@YAK^(@ TREE9(@ ANALYSIS<(^( By Jef }frey A. SummersM*(*( (c) 1986 Antic PublishingP$ @` B$INITIALIZEINPUT ERROR TRAP ROUTINE } @>:AS,,, @Input error - please re-try A## F:A,%AV$F:A,XFIL }E ERROR TRAP ROUTINE] @>:AS,^@b?5 @$Error in file handling. Please Retry? B@g } Al B@NEW TREE SELECTIONCLEAR TREE`@.@@E:8 @``  }@Clearing tree for entry...Y-@A&68,-668,-6@E68,-Y-@@ };68<,-  #6./6-@;6-@ AN @ Node Types:6 @ 1 - Decision }N @ 2 - Chance @ 3 - Terminal% @Type: %@!! @)!@A  } 68,-(@APAAPDECISION NODE2% @How many branches? 2@9 }!@/ @Too many. Regroup.9 AP$7-@68<,-%68,-36-%@7 )& @ }Label: &@.&B:, @ &67B:,%@,.30067@ $+&@,%@<@ $,.8 AL }CHANCE NODEM2% @How many branches? 2@Q=!@3 @Too many. Break it up.= AV }A-@4 @Prob of branch  A@[268<,-68,- 68,-.6-%@2 ` Ae }~TERMINAL NODE9 @Value: &@/68,-9 AeSELECT NEXT NODE6-@"8," }6-" A@6-%@"B@ AWIND BACK TO ORIGIN)# @Node #  fro }m:)6- 6-8,08,"@0 @Prob 8, >> @ 7@ $+&@,%@<@ }$,#"@ B@# A   6- APRETRIEVE TREE SECTION A:# @File to r }ecover: 0@: BP5@+@@5 @`@-@&@ }@68,-@68,- @68,-@68,- 3-@@ }$@/68<,-3 *@4&B:, @ &67B:,%@,.>2267@ $+&@,%@<+@ }$,,.H2 ((@File has been read.2 B@R@ B@ SAVE TREE SECTION A :# @ }File to save to: 0@: BP 5@+@@5 @`  @  }-@&@  @8,  @8,  @8,  @8, --@@) @ }8<,-  77 @7@ $+&@,%@<@ $, 3 )(@File has been saved.3 B@&  }@ B@EDIT TREE SECTIONB@.@@E:8 @`B AE$ @ }Node (0 to quit): 1@E"B@ 6-8,A@0ABADX @Options-$( }@:(@0 - ExitX(@1 - Change label>(@2 - Add Branch>(@3 - Delete Branch2 }(@%(@Option: 2@!!!@) A@0"AAA@`A@ }AA& @Label: &@&B:, @ &67B:,%@,.0067@ $+&@,%@<@ }$,. A@05-@@(8<,"+'5 A@0 & @Too many banches.0 A@0 }6-@,8<,"6-%@, A@%68<,-68,-%6-%@  @Done. A },, @Branches to nodes numbered:-@@]8<,] @8<, 7@ $+8<, }&@,%@<@ $8<,, ;. @Cut branch to which node #? ;@6-@"&8< },6-%@& AA0'168<,-' @Done.1 A@0^"A@c AhX(@ }Options-$(@:(@0 - ExitX(@1 - Change labelm> @2 - Add Branch> @3 - D }elete Branchr4) @4 - Change Probabilities4 @wE @Option: '@E )!@ }AB|"AA''AB0ABPABAC & @Label: &@&B:, @ }&67B:,%@,.0067@ $+&@,%@<@ $,. AB6-@8<,"ABp }%6-%@% @ABU-# @Too many branches.- AB68<,-68,-FPTR,  }@ Probability: ,@$ 68,-6-%@$ A@, @Branches to nodes numbered:@-@ }@]8<,] @8<, 7@ $+8<,&@,%@<@ $8<,, :- @ }Cut branch to which node # :@6-@&8<,6-%@& AC168<,-' @ }Done.1 ABH @ NODE PROB/-@@H8<,"AC%-- @8<,  }88<,, AA @7@ $+8<,&@,%@<@ $8<,,D 0 @New probabilities to node } #D-@@8<,"AC@6(@8<, (@6688<,,-  AB }0X(@Options-$(@:(@0 - ExitX(@1 - Change label5,!(@2 - Change value,( }@7'(@Option: '@:!! )!@AD?"A@D"@ADP }I& @Label: &@N&B:, @ &67B:,%@,.S0067@ $+&@,%@<@ $,.X } ADb*(@ New Value: *@g 68,- ADSOLVE TREE SECTION AN BHN-@AP $RN3B:,!@37@< }@,4:B\N3B:,!@37@<@,4:BfN! 6.D:67@,.!6.pN$ D1:DECID }E.BAS,4:B\N3B:,!@37@<@,4:BfN! 6.D:67@,.!6.pN$ D1:DECID cdF[ACMDAYITDBSKIERJSAFJDSAFEDODOSAFESAFESAFEJDNYCJDNJDNDIYEATYD} } }!"#$%& JULIAN CALENDAR BY CHARLES POSTLE (c) 1986, ANTIC PUBLISHIN}G;@b,;@u,&&;@ ,;@ ,;@,(&&;@,;@,;@,2 +@}@<R+(#This program calculates a number ofR("answers relating to days and datesFW*("between March 1, 1900 and} FebruaryT(%28, 2100 using the Julian Day Method.W(PJ6-@6-@% @?(ENTER DATE #1 (M,D,Y)B(J}R A@T""@(" @Z B( A _! 6-6-6-6-!6-d 6-n }Ax!!CALCULATE JULIAN DAY NUMBER9"@6-+&@,/6-+%@,9 A`9"@6-+&@},/6-+%@,9 A`#!@6-%@#6-##6-P:Ae%$,%P:@0`$,%$((CONVERTS JULIAN } DAY NUMBER TO DATE6-P:+&A",'Ae%,##6-P:+&P:Ae%$,,'@0`,##6-&P:Ae%$,&P:@0`$,'!}"@6-&@' AP'"@6-&@' AP' @6-&@' AP!@"}6-'"@6-%@' A"@6-%@ A" CALCULATE DAY OF THE WEEK.,@@#}6-+@$+++%@,'@,&P:+%@,'@,,,66-@%P:%>,@ A0J"@$TP$}RINT M,D,Y & DOW^( ,  h"@Ar A|-@@"-@ A %}  MENU-@@#( (CHOOSE A CALCULATION:#(AA(9 ENTER A NEW DATE TO FIND THE DIFF&}ERENCE IN DAYS?99(1 SUBTRACT A NUMBER OF DAYS FROM THE ABOVE DATE?44(, ADD A NUMBER OF DAYS TO THE DATE ABOVE?'}( CHOOSE A NEW DATE?( END PROGRAM?( DRAW CALENDAR?<(CHOICE>>@<@@(}K:)@6-!! @I)!@TA @6-&@H (-@@!)}&-@0 A : D-@@NBRANCH TO CHOICE.XF7AA APAA*}AFBRANCH ON CHb>6-@ A%3(ENTER DATE #2 (M,D,Y)6(>l A@q""@(" +}Av B A  6-6-O:&,56-@!-@@+ A 5 A  A (,} ( DIFFERENCE= DAYS A6- A--(%ENTER NUMBER OF DAYS TO BE SUBTRACTED6--}& A((( ENTER NUMBER OF DAYS TO BE ADDED6-% A  @P (}  ''FINDS THE F.}IRST DAY OF THE MONTH.%! 6-6-6-6-!6-*+ 6-6-@!6-@+ A 4 6- A>6-/}$@&@H 6-R,,FINDS THE FIRST DAY OF THE NEXT MONTH.\76-%@"@)6-@76-%@0}f A p))THE NUMBER OF DAYS ON THE CALENDAR.z 6-&ASSIGNS DAYS TO A$ MATRIX-@o @1}(67@<@,. B67@<@,.=:,e67$@&@<$@,.o A P))67$@&@<2}$@,. ))67$@&@<$@,.=:, &&FIGURES THE DAY TO BE HIGHLITED. @6.=:,3}!6-@:,:67@<@,.\67@<@,.>:%A(,67$@&@<$@,. A  6.=:,4}&6-@:7@<@,,@6-@:7@<@,,b67@<@,.>:%A(,67@<@,.>:%A(,675}$@&@<$@,.//CLEARS THE LAST TWO DAYS OF THE CALENDAR."@1 A@!!-$@%@6}@b67<,.  ..ASSIGNS DAY OF WEEK SYMBOLS TO WEEK ONE.-@@$*"*67$@&7}@<$@,.. 8 ABSU,MO,TU,WE,TH,FR,SAL-@@7V))67$@&@<$@,.8} ` jMATCHES DAYS TO CALENDAR.t 6-B:,~67<%,.PRINTS CALENDAR.- (}A -@9}@( ,+(%(|+TOP-@@))(7$@&@:}<$@,| ((!(((|-@@))(7$@&@<$@;},| ((!(((|-@@! ))(7$@&@<$@,| <}((!(((|(-@"@(2))(7$@&@<$@,|< F((!(=}((|P-@)@5Z))(7$@&@<$@,|d n((!(>}((|x-@6@7))(7$@&@<$@,| ((6-:( ((?} MORE (Y-N):@@K:)@/"@@,@@/%9"@x@}@,@@6+9 APCONVERTS NUMBER TO MONTH.ggAA A0A@A}APA`ApAAAAA 6.JANUARY$6.FEBRUARY$6.MARCH$B}6.APRIL$ 6.MAY$6.JUNE$"6.JULY$,6.AUGUST$66. SEPTEMBER$@6.OCTOBER$C}J6.NOVEMBER$T6.DECEMBER$^%%CONVERTS NUMBER TO DAY OF WEEK.h??APA`ApAAD}AAr6.SUNDAY$|6.MONDAY$6.TUESDAY$6. WEDNESDAY$6.THURSDAY$6E}.FRIDAY$6.SATURDAY$9-(% 937 SPACES$6-VALID DATE?F} A6-%A,  @)!@)P:,,6-@,  A)!A!)P:,,6-@,  G})!@1)P:,,6-@"A0AR@0(ĠŠ Try again.-@AH} ( AR$"@A0IAR@'AdAUI}*(I(Press any key to continue. F:Ad,"AUA &*AR'AdAU*$ D1:JULIANJ}.BAS(Press any key to continue. F:Ad,"AUA &*AR'AdAU*$ D1:JULIANabZPR1PR2HDADRAMODLINAXITEMPTEMPAMPEPHHUFDGFACTJNMIPRPRDSCPICSTMG1DIGL}**BvAA`A @ @ @V @' @sI@@AIPM}AG@BP@ ''ARTISTIC MN}ATHEMATICS, LISTING ONE""BY MARIAN LORENZ/ALLAN MOOSE (c) 1986, ANTIC PUBLISHING(w +@AAH*(O}@5(@@(@Z(@ ARTISTICw(@ MATHEMATICS)&(@&(@ part i**P}(BY LORENZ/MOOSE*AR@+)()( (c) 1986, ANTIC PUBLISHING, A@-11;A d,;A d,;@Q},;@B,.T46.*h`h\h[hhZhVhUhhThh!L|T67@9<@9,.>:@4,/ 6-C:,+2R}[AR@#( }PRINTER:&(0(pson@( tar/GeminiI(oneL([( Choose One4AdAU5.F:Ad,S}"@B$6-@$. @X6.F:Ad,"@b$6-@. @X7.F:Ad,"@5$6-. @X8T} @S:5AdAU!6-@+ @`5+@;6-@<# B+%@# APF @U}P-A@Z>"@46-?:<<<AY<<@,> A_,/AYdV} n&&DETERMINE AN AXIS FOR SINE CURVEx+%@H AP}6-P:A$H:@,,**DETERMINE AN AMPLITUDE FW}OR SINE WAVE&&KEEP IT WITHIN SCREEN BOUNDARIES6-A&  6-  6-+6-P:$H:@,,+ X}@A%%%DETERMINE PERIOD FOR SINE CURVE%%6-P:A$H:@,%@,DETERMINE A PHASE SHIFT6Y}-@($H:@,DETERMINE COLOR6-P:H:,$@, DETERMINE A SPACING FACTOR%%6-P:@$H:@Z},,%@PLOT PICTURE",-AY66-$+G:'&,,%@,"@"6-?:<<<<<,, A[}@J ,/T ^''WAIT FOR USER'S CHOICE OF OPTIONScD+%@2 AP'( }ontinue1(rint:(a\}veD(uithAdAUr?F:Ad,"@*AdAU4 A ?CONTINUE|>F:Ad,"@G*A]}dAU4+7>QUITKF:Ad,"@b*AdAU4 A KSAVE AS MICROPAINTER<F:Ad,"^}@*AdAU4 A<PRINT Ap&&SCREEN DUMP FROM ANTIC, JAN 19847"-(}NO PRINTER_} SELECTED!7 AUj@.@@P:j(@>:@',>:@d,>:@',>:@Q,`}>:,+%@H AP$$SET LINE SPACING AND MAKE LOOP #A`--@@")67<,.>:,- a}27,76,192,3?6.>:,*67A d,.>:,967@,.?6.167@<@,.167@<@b},. 6-C:,6-C:,M%6-F:A`,%F:Aa,$AVM6-F:%@,%+F:%@,,$AV/-@9c}/6-A$@@%%26-?:A6<<<,% @2 @ @ AU #Ap&%-Ad}6AF"!% 0$:33104,104,133,204,104,133,203,104,141,192,6,104D//141,191,6,104,141,194,6,104,141,193,e}6,169N111,133,207,169,191,133,208,160,0,177,203,141X00190,6,165,207,240,28,169,0,133,207,173,193b,,6,24,105,4,141,19f}3,6,133,205,173,194,6l++105,0,141,194,6,133,206,76,95,6,169,1v..133,207,173,191,6,24,105,4,141,191,6,133..205,173,1g}92,6,105,0,141,192,6,133,206,32))137,6,32,146,6,32,160,6,32,137,6,32//169,6,32,160,6,165,207,240,177,56,165,20322q}+B%DOS SYSB*)DUP SYSBtSBOMBSQU BASBODECIDE BASB5JULIAN BASB(KMATHART1BASB)|MATHART2BASBNEWOWN4 BASBRECIPE BASBBcWEATHER BAS233,40,176,2,198,204,133,203,198,208,165,208--201,255,208,151,96,173,190,6,41,3,10,1000170,96,160,0,189,195,6,145,205r},232,200,192,,4,208,245,96,173,190,6,74,74,141,190,6++96,160,0,189,195,6,10,10,10,10,24,11344205,145,205,232,200,s}192,4,208,238,96,0,0,0,0,0,,0,0,0,0,10,5,10,5,10,0,5,0,15,15,15,15K"@K6-?:C:/h0Э1ѠNРt}ON͐W`,,]A@'A A9AA6KA@V]AR@4YYMOVE Pu}LOT & DRAWTO ROUTINES INTO RAM, DELETE BOUNDS CHECKING (COURTESY DAVID SMALL)>CC6-?:C:3h|}K~}&v}~ʎA~}}}`,,H$-AR)(}SAVE FILENAME-B:, @A 0]]+7@<@,4Dw}*+7@<@,4:)7@<@,4:,,)4C:A @! 6.D:67@,.!6.;+%@H AP;6x}-F:A`,%F:Aa,$AV5 A @5@@%%6-F:A`,%F:Aa,$AV}y}6-AH#%@@<%@F:%@,U%@F:%@,i%@}%@ @0z}6-?:C:hhhLV,<@,A*@F:A,--AA=*@F:,A "@ B" AU{}D1:MATHART1.BAS,A*@F:A,--AA=*@F:,A "@ B" AU0|PR1PR2HDADRAMODLINAXIMAMAMPEPHHUFDGFACTJNMIPRPRDSCPICSTMG1DIG}} ~} ''ARTISTIC MATHEMATICS, LI}STING TWO""BY MARIAN LORENZ/ALLAN MOOSE (c) 1986, ANTIC PUBLISHING(w +@AAH*(@5(@}@(@Z(@ ARTISTICw(@ MATHEMATICS)'(@'(@ part ii**(BY LOREN}Z/MOOSE*AR@+)()( (c) 1986, ANTIC PUBLISHING, A@-11;A d,;A d,;@,;@B},.T46.*h`h\h[hhZhVhUhhThh!L|T67@9<@9,.>:@4,/ 6-C:,+2[AR@}#( }PRINTER:&(0(pson@( tar/GeminiI(oneL([( Choose One4'AdAU'A5.F:A}d,"@B$6-@$. @X6.F:Ad,"@b$6-@. @X7.F:Ad,"@5$6-. @X}8 @S:5AdAU!6-@+ @`5+@;6-@<# B+%@# APF }@P-A@Z>"@46-?:<<<AY<<@,> A_,/AY}d n&&DETERMINE AN AXIS FOR SINE CURVEs++%@2 AP+ARx0,(#}WHERE DO YOU WANT THE AXIS }(0-191)0z# 6-!@#6-A&**DETERMINE AN AMPLITUDE FOR SINE WAVE&&KEEP IT WITHIN SCREEN BOUNDARI}ES@.(}WHAT AMPLITUDE DO YOU WANT (0-)2@!AP%%DETERMINE PERIOD FOR SINE CURVE-( }WHAT PERIOD}- @ApDETERMINE A PHASE SHIFT( }WHAT PHASEDETERMINE COLOR( }WHAT COLOR}6-@($H:@, DETERMINE A SPACING FACTOR( }WHAT SPACING @A@PLOT PICTURE"}+%@H AP,-AY66-$+G:'&,,%; @Y@,"@"6-?:<<<<<,, A@}J ,/T ^''WAIT FOR USER'S CHOICE OF OPTIONScD+%@2 AP'( }ontinue1(rint:(aveD}(uithAdAUr?F:Ad,"@*AdAU4 A?CONTINUE|PF:Ad,"@G*Ad}AU<@@F+IPQUITKF:Ad,"@b*AdAU4 A KSAVE AS MICROPAINTER}<F:Ad,"@*AdAU4 A<PRINT Ap&&SCREEN DUMP FROM ANTIC, JAN 19847"-}(}NO PRINTER SELECTED!7 AUj@.@@P:j(@>:@',>:@d,>:@'},>:@Q,>:,+%@H AP$$SET LINE SPACING AND MAKE LOOP #A`--@@")67}<,.>:,- 27,76,192,3?6.>:,*67A d,.>:,967@,.?6.167@<@,.167}@<@,. 6-C:,6-C:,M%6-F:A`,%F:Aa,$AVM6-F:%@,%+F:%@,,$AV/-}@9/6-A$@@%%26-?:A6<<<,% @2 @ @ AU #Ap}&%-A6AF"!% 0$:33104,104,133,204,104,133,203,104,141,192,6,104D//141,191,6,104,141,194,}6,104,141,193,6,169N111,133,207,169,191,133,208,160,0,177,203,141X00190,6,165,207,240,28,169,0,133,207,173,193b,,6,2}4,105,4,141,193,6,133,205,173,194,6l++105,0,141,194,6,133,206,76,95,6,169,1v..133,207,173,191,6,24,105,4,141,191,6,133}..205,173,192,6,105,0,141,192,6,133,206,32))137,6,32,146,6,32,160,6,32,137,6,32//169,6,32,160,6,165,207,240,177,56},165,20322233,40,176,2,198,204,133,203,198,208,165,208--201,255,208,151,96,173,190,6,41,3,10,1000170,96,160,0,189},195,6,145,205,232,200,192,,4,208,245,96,173,190,6,74,74,141,190,6++96,160,0,189,195,6,10,10,10,10,24,11344205,14}5,205,232,200,192,4,208,238,96,0,0,0,0,0,,0,0,0,0,10,5,10,5,10,0,5,0,15,15,15,15K"@K6-?:C:/h0Э1ѠN}РON͐W`,,oA@'A A9AA6KA@V]AR@}o@@4YYMOVE PLOT & DRAWTO ROUTINES INTO RAM, DELETE BOUNDS CHECKING (COURTESY DAVID SMALL)>CC6-?:C:3h}|}K~}&~ʎA~}}}`,,H$-AR)(}SAVE FILENAME-B:, @A 0}]]+7@<@,4D*+7@<@,4:)7@<@,4:,,)4C:A @! 6.D:67@,.!}6.;+%@H AP;6-F:A`,%F:Aa,$AV5 A @5@@%%6-F}:A`,%F:Aa,$AV}6-AH#%@@<%@F:%@,U%@F:%@,i%@}}%@ @06-?:C:hhhLV,<@,A*@F:A,--AA=*@F:,A }"@ B" AUD2:MATHART2.BAS=*@F:,A i23{ QUESTIONANSWERYOURANSWERXXYYZZRWWAIPER} NEW OWNER'S COLUMN, PART 4BY DAVID PLOTKIN (c) 1986, ANTIC PUBLISHING(&}&;@P,;@,;@,2V6-@6-@'6-@36-?6-VSET UP THE VARIABLES< }+AR@F7-@7 נҧӠΠàP8-@@8 Ӻؽ}ٽڽZ[-@@7 PRESS FOR TRUE, FOR FALSEI-@@[  AND TO QUITd|-@9}#-@* *V2$@%@ @@Z |2n8 #A A}8FALLS THROUGH WHEN OUT OF DATAx "|-@8#-@ *  V2A&$@@@}Z |2|-@@0#-@*  V2A&$@@@}Z |2.6-+@9&B:,,'@*-@ . ,-@@(  RUE OR ALSE},: 4 A!6-%@+ A :RIGHT ANSWER/ 4Q+ A/READY TO QUIT!0T*0}F*0Q! A0#6-%@#ANSWER IS WRONGq-@@)-@@E ١ҠӠq2}$A'@@@k-@@0 --@@I SORRY! ANSWER IS WRONGk2}-@@0 5 -@@5   A ,A +}-@@A THANK YOU FOR TRYING OUT THIS6>-@@> $LOGIC TEST IN ŠנҧӠ@--}@@- SEE YOU NEXT MONTH!-@@ :"7 #CONGRATULATIONS!!! YOU GOT THEM ALL:06-}'+%,$A0 YOU GOT % RIGHT6-@@2 WANT TO TRY AGAIN (Y/N)6 4Y @P'-@}@$  GOODBYE!!'-@@)-@@F ١ҠӠZ-@@02}$A'@%@@ l-@@0 --@@J HURRAY! ANSWER IS RIGHTl2}-@@0 6 -@@6  $}DATA FOR QUESTIONS##(XXX=1 AND YYY=2 AND ZZZ=3),T!!(XXX>1 OR YYY>2 OR ZZZ=3),T""(XXX=5 AND YYY=2) OR ZZZ>2,T}(XXX+YYY)>0 AND ZZZ=3,T""(XXX=2 OR YYY=2) AND ZZZ=2,F$--(XXX=1 AND YYY=3)AND(XXX=3 AND ZZZ=3),F.++(XXX=1 OR YYY=3})AND(XXX=3 OR ZZZ=3),T8,,(XXX=3 AND YYY=2)OR(YYY=4 AND ZZZ=3),FB(XXXZZZ),FL(XXXZZZ)},TV))(XXX=YYY) OR (YYY=ZZZ) OR (ZZZ=3),T`&&(XXX=YYY AND YYY=2)OR(ZZZ>YYY),Tj&&(XXX+YYY>YYY+XXX) OR (ZZZ>YYY),Tt''}(XXX+YYY>YYY+XXX) AND (ZZZ>YYY),F~,,(XXX=5 AND YYY=10)OR(YYY=7 OR ZZZ=3),TD1:NEWOWN04.BASXX) OR (ZZZ>YYY),Tt''eQQBRFRACFRTTAEMEAMAECONMCONUCONIINGINGUNXINGQUNRECIPEFILENAMECLEANUMNOTITLCPRTCONTHEMECH1!}CH2INDISWRAUROCOPRSUSIINQUANINII1INGINDIXWOXWVLWIUNDQDIFMIBESDIFIOCODILEA!}nn --9WZZA 8 A tA  && tAJA&&!} B@V A' 5Ae 9A A @@AA @!}!@"@W#@ $%@&@'()*+@,@-@./0!}1234567@89:;<@=@ >@?!} RECIPE MULTIPLIERBY JAMES W. BROWN (c) 1986, ANTIC PUBLISHING(: +6-@.F:B2y,"@:!}6-2 A<=@A+B7tA=@wF$d#9@",#DECIML FRACTIONS!}e#;A,#STRING FRACTIONSf);@,;@,)INPT SCRTCHg);@E,;@0,)UNITS ABBRVh&;!}A5,;@,&UNITSTXTi'9@ ,9@,'CONV FACTj$9@,$ENG TO MET VOL,WT%;@8,%I!}NPUT ING. SCRATCH;A@,INGREDIENTS!9@0,!ING UNITS INDX9@0,ING QUANTITY;@8!},RECIPE NAME;@,' @`6-B'CLEAR TRAPS"6-@V"# NOTES IN THEME&&;@ ,;!}@2,9@R, 9,9@,9@,BB.125,.25,.33333,.375,.5,.625,.66667,.75,.875,1.,1.25,1.33333::1.5!},1.66667,1.75,2.,2.25,2.33333,2.5,2.66667,2.75,3.HH1/8 ,1/4 ,1/3 ,3/8 ,1/2 ,5/8 ,2/3 ,3/4 ,7/8 :REM NO QUOTS)!})1 ,1 1/4,1 1/3,1 1/2,1 2/3,1 3/4332 ,2 1/4,2 1/3,2 1/2,2 2/3,2 3/4,3 :REMGGtsp. ,tbsp.,fl.oz,c. ,pt. ,q!}t. ,gal. ,oz. ,lb. :REM ENGLISH44ml. ,cl. ,dl. ,l. ,g. ,kg. :REM METRICteaspoon(s) :REMtablespo!}on(s) :REMfluid ounces :REMcup(s) :REMpint(s) :REMquart(s) :REMgallon(s!}) :REMounce (net wt.):REMpound(s) :REMmilliliter (ml):REMcentiliter :REMdecilite!}r :REMliter :REMgram (g or gm.):REMkilogram (kilo):REM1,3,6,48,96,192,768,1,161,1!}0,100,1000,1,10006DD-32,0,0,128,160,32,0,128,-32,0,0,0,32,128,160,128,160,0,32,1607660,128,160,32,0,128,0,32,0,128,160,!}32,0,128,0,-328AA-32,128,160,32,128,160,-32,128,128,-32,128,160,32,128,160,0:NOTES FOR THEME--;66121,96,81,60,40,4!}7,40,60,91,72,60,45,29,35,29,45<AA243,193,162,121,81,96,81,121,182,144,121,108,121,108,91,182=99121,108,96,91,81,72,64,!}60,60,64,72,81,91,96,108,121> 121,108,96,91,81,72,64,121@243,182,60,45,243,60,243A193,144,47,35,193,47,193!}MAIN PROGRAM ALOAD ARRAYS ATITL SCREEN AINTRO A STEP 1-INP.UNITS#!}! A0# A5! A!STEP 2-ENTER RECP ! A!STEP 3-MULTIPLIER A% STEP 4-OUT.UN!}ITS! A&!STEP 5-NEW RECIPE A)WRAPUP MENUGGAEAuAAA AeAp!}A$) A5 APSAVE. A1 APPRINT3- A AE-CHG MULT, RECOMPUTE8B!}6-@& AEBCHANGE OUTPUT UNITS METRIC<->ENGLISH=. Ap AP.CHANGE AN INGREDIENTG AF!}INALEKLLOAD ARRAYSN.AR@'-@@.(>Q9 #A!-@@"%".68,-2 !}9(>VI #A!-@@"%">67@$&@,.B I(>[I #A !-@@ %">67@!}$&@,.B I(>`I #A0!-@@%">67@$&@,.B I(>eI #A@!-@!}@ %">67@$&@,.B I(>jI #AP!-@@%">67@$&@,.B I(>o9!} #A`!-@@ %".68,-2 9(>t9 #Ap!-@@%".68,-2 9(>y9 #A!!}-@@R%".68,-2 9(>~3 #A-@"(68,-, 3(>9 #A !-@@!}%".68,-2 9(>9 #A!!-@@%".68,-2 9(>B68,-@-68,-@!}B68,-@) 68@,-A C`'A)ML/TSP' 68@,-AT'@'G/OZ 6.P:(> !} @`6. RECIPE MULTIPLIER**6. ANTIC MAGAZINE JAMES W. BROWN $TITLE PAGE# +@6-@!}# @`%-@@ %6-%@)!@6-&@)6-@@:7,,%8, , !}6-@%-@@2%6-%@)!@6-&@)6-@@:7,,%8%@ , ,!} -@6-P:+%@,'@,""28,@@A"2@8,@@!}A2@8,@@k0@30@%@@O0@%@@k0@%@!}@ -@@  7-@327 $1 +!}AR@) @`1INTROT-(%}RECIPE MULTIPLIER helps you increaseT("or decrease your favorite recipes.!((!}Here are the steps:!(#--(%1. Decide whether the original recipe$+(( uses English or Metric units.+((--(%2. En!}ter the recipe into the computer)+(( (Enter up to 30 ingredients.)+(-))(!3. Decide by how much you want to..+(# !} increase or decrease the recipe..(2**("4. Decide whether you want the new3+(( version in English or Metric.+(7!}--(%5. The computer will give you the new8++(# recipe quantities. Jot them down9-*(" in the margin of your cookboo!}k.-(<26-@&6-26-A AK(}PRELIMINARIES(PP*("Before beginning, you wi!}ll find itP(!helpful to examine your recipe toUR,($find ALL the ingredients. Most cook-R(!books are careful to list al!}l theZS*("ingredients in one place. However,S($sometimes you will find a few hiding_))(!down in the cooking instructi!}ons.dV(-("When you have found all the ingre-V($dients, mark each one with a number,iO+(#starting with 1. This will !}help youL(keep track of where you are.O(w A$xINPUT UNITS}(}SELECT INPUT UNITS(%%(If your or!}iginal recipe is in0-(%U.S. (ENGLISH) units, enter Š0(0-(%If it is in METRIC units, enter ͠0(0-(%To!} load a recipe from DISK, enter Ġ0(0-(%If you need HELP to decide, enter Ƞ0(# ((Enter only one letter.)#(.!}.(&Always press after every entry. A 4E6-@$ 4M6-@$ 4D6-@!}$ 0H A0 A""HELP FOR ENGLISH/METRIC/DISKT,($}If your recipe contains things likeT(#cup!}s, ounces, pounds, or teaspoons,(it is ENGLISH.(R)(!If it contains things like grams,R($kilograms (kilos), mil!}liliters (ml), (liters, it is METRIC. (U,($If there are some of each, take yourU($cookbook back to the bookstore!} for a@)(!refund. The recipes are probably=(no good anyway.@(N(( If you have previously used thisN(!program to!} save a recipe to disk,/,($you can read it back and work on it./( A AMULTIPLIER(}CHOOSE !}MULTIPLIER(O)(!Here you must decide how much youO(!want to increase or decrease yourV,($recipe by. For example, !}if you wantS("to double it, the multiplier is 2.V(;(( There are two ways to choose the8( multiplier:;(K-(%Enter!} ͠ if you know what multiplierH( you want, orK(J&(Enter Ӡ if you know how manyG( servings y!}ou want.J( A4MAP 0S A0 ABY SERVINGS#6-@#!A@!}6-@F (} (,(How many servings does yourF(original recipe make A I @5(!}!PLEASE ENTER A NUMBER AT LEAST 1.? A0I A05(((How many servings do you want5(to make A!} I @5(!PLEASE ENTER A NUMBER AT LEAST 1.? A0I A@  6-' ABY NUMBERU*("}Sel"}ect the multiplier you want byR(#entering the letter in front of it:U(6-@:A,%-@@%6-$@"}\\(>:&@%,- 7&@<, >:%@%,- 7%@Q<%@U, -*(" W-Ent"}er as a decimal-( /(Letter for selection%6.?/ A"11A*/V'6-8@:,&%@,1 A' 0W"} A0 AP,;(How much do you want to;(multiply the recipe by. A 1 A6  A"}  A5;  A  A@<  A  A>)((The multiplier is ) A?$@ REC"}IPEE  }ENTER RECIPE(JH'(In this step you will enter theH(ingredients for your recipe:O0(0(%-Enter the AMOU"}NT of each ingredient.Q0(0(%-Enter the UNITS it is measured with.TN(,(!-Enter the NAME, so you will knowN( what "}the later results mean.VT(/($-Verify or modify the entry. If youT( make a mistake, you will have aYS*(" chance to"} fix it before going on.S($ You will also have a chance to make[9+(# changes at the end, and review the9( results.^" }Z(-("There will be a separate screen toW(%lead you through each of these steps.Z(c Ah1 (} (.(Each ing" }redient has 3 parts--1(j(Quantityl( | Unitsn( | | Namep!!(   r(" } 1/2 cup sugart( 3 eggsv( 1/8 tsp. saltx''( 1 can condensed milkzJ(((Notic" }e that some items do notJ(have units (eggs, can, etc.).|I'(When you have things like this,I(select 'piece' for the " }units.(( A6-(6-@INGREDIENT LOOP Aq ENTER AN INGRED.'"6-&@"}' A@0A6-%@ Ap 6- $QUANTITY&#(}QUANTITY FOR INGREDIENT "}&(R'(Select the quantity you want byO(#entering the letter in front of it:R(6-@:A,%-@@%6"}-$@\\(>:&@%,- 7&@<, >:%@%,- 7%@Q<%@U, **(" "} W-Enter as a decimal++(# X-Show previous entry++(# Z-No more ingredients6-@:A"},*( (Letter for selection* A11A*/V'6-8@:,&%@,1 A0XApH @"}4( THERE IS NO PREVIOUS INGREDIENT.> A0H A=6-&@ A!% A36-%@= A! "}4Z6-! AJ 0W6(&Please enter one of the letters above.@ A0J AP(What is the quan"}tity A  A  A  A$(The quantity is $ A$lGET UNITSq"})&(}ENTER UNITS FOR INGREDIENT )(vX-(%Select the measuring unit you want byU(#entering the letter in front of it:"}X({M6-@:A,$6-@&@$MLOOP LIMIT 6 FOR METRIC, 9 FOR ENGLISH-@$6-$@$6.7&@"}<,""@"6.7&@<,(>:&@%,-  (P- piece (or can, etc.)&((Letter f"}or units& A6-%&@(1A*/>:,%6-@:,&%@($ 4P6-$ A0 A"}4DISPLAY INGREDIENT(ING)>6-8,$@@&&6.7$@8&@7<$@8,C%"6.piece% A!5"}H,"@"6.7&@<,, A!5R6.7&@<,W5"1(# - 8,  of --5(\:"}"@: @# - 8,  of $GET INGREDIENT NAME!(}NAME OF INGREDIENT !(V,($"}To save time, you can abbreviate theV(%name of the ingredient. The computer^,($does not know the difference betweenN("}an 'EGG, LIGHTLY BEATEN', and[(an 'EG'.^(O)(!This part of the entry is just toL(help you keep things straight.O"}(;(Using one line only,8(enter the ingredient --;( A"  A$  A0 A"0" } OUTPUT UNITS (}SELECT OUTPUT UNITS( %%(If you want the new recipe in .+(#U.S. (ENGLISH) units, enter "!}Š.( ++(#If you want METRIC units, enter ͠ ( ..(&Always press after every entry. A  4E""}6-@$  4M6-@$ "("(PLEASE ENTER Š OR ͠  A0 A%( NEW RECIPE- ( }NE"#}W RECIPE. P @(<(%YOU HAVE NOT ENTERED ANY INGREDIENTS.F A0P A&2 O(+( The new recipe will be dis"$}playedO(one ingredient at a time, using4 O)(!several different combinations ofO(!quantity and units. All of these6 S"%})(!will be approximately equivalent.S(%(You should be aware that most recipe8 ))(!quantities are only approximate.)< f"&}(+( Jot down the one combination youS(#feel most comfortable with for eachc( ingredient.f(F # A6-# "'}A2 $ ##DISPLAY COMBINATIONS OF UNITS *"'(QUANTITY UNITS*( 6-8, 6-8,$ /6-"(}@&@$/6-@&@$ !6-@!6-@ "6- "@6-$8,")} "@6-$8, ))&%@A'2A'8A'4 6-$8, A'8 6-'8, QUAN IN OUTPUT "*}BASE UNITS ''%@A'BA'DA'F %6-6-% A'H '6-@6-&@' A'H"+}  6-6-%@ I1,I2 UNITS LIMITS 6- - "@6-'8, "@6-'8,",} !?A'` ,"*""( Tiny pinch, A' " "" @ Tiny pinch A' ''!+A"-} $&A p,* A' ! A(!FIND CLOSEST FRAC ("@( @   "( ".}  -6-$@6-$@-6-%@ ,"6.piece"6., A' 5"@"6.7&@"/}<,56.7&@<, 5"@"6.7&@<,56.7&@<, #"@# @-- ""0}(--   "( "@ @ $ T$ = CLOSEST FRAC TO Q2 '6-@6-"1}'6.pinch W"@36.=:P:A$%?P,'A,= AT6.7@<@,W$ 0$!?* ?"2}$8@,06.1/16  "" ?$8@,A( ""!@$8@",A( -@@" 6-O:"3}&8,,   6-6-  " :!* ?0'6-$@:6.7&@<,6 A(@ HANDLE BIGGER "4}STUFFE -!@ `#6.=:P:%?P,,- A(J 6.=:P:@$,'@,S $T WRAPUPY ( }ALL FINISHED(^"5} $$(What do you want to do next?c ((((A- Show the new recipe again.h .(.(#B- Change multiplier and recompute.m )"6}()(C- Change the new recipe from o 6.ENGLISH6.METRICp *!@6.METRIC*6.ENGLISHr (  "7}to .w #(#(D- Change an ingredient.| +(+( E- Start over with a new recipe. "("(F- Save recipe to disk. "8}((G- Print recipe. &(&(H- Get back to the kitchen. *( (Letter for selection* A 6-@:A, .1"9}A*/H$6-@:,&%@. A)  A0 A) $ READ A RECIPE FROM DISK 6-@ A@ ":}"A0 A0p @   (Reading recipe:(( -@  A0p";}@   @` 68,- 68,- &&67$@8&@7<$@8,.   A @"<}$   -(-("FILE READ ERROR. THE FILE MAY NOT $$(BE A RECIPE MULTIPLIER FILE. "6-6-"6."=} @ A0 $ PRINT RECIPE! ! A7!"A1& !@ A1!6.P:+ 3()(">}POSITION PAPER TO TOP OF FORM.3 A0 1#@@P:' 1 @`5  @ @:  @"?} @? // @Original makes  servings.D 33 @Conversion makes $ servings.l =6-@"@} A2%6-0@: @`=$v  6-@ A{ "@A1 $ CONVERTED "A}RECIPE -@ &&6.7$@8&@7<$@8, 6""( }INGREDIENT %()(,(6 A25 < @"B}< @------- INGREDIENT  -------  @ @ 6-8,$@ %"6.piece"C}% A2U ""@"6.7&@<, "!@"6.7&@<, ^"(8, 5( multiplied "D}by Q( converts to any of:T(^ A2 OD @8,  multiplied by  converts to any of:O @"E} # A'"# A   $ WRITE RECIPE TO DISK  A7"$ 6-@ A@"F} "$ A5 "" @,,, -@ ?? @8,,8,,7$@8"G}&@7<$@8,    @ @`$  @ @`.(.(FILE WRITE ERROR. CODE F"H}:A, A0$tCHECK RECIPE READYy!A7 ~/(/($NO RECIPE IN MEMORY. YOU MUST ENTER11("I})A RECIPE BEFORE YOU CAN SAVE OR PRINT IT. A0$!!"@)"@A7@.(.(#YOU MUST SPECIFY WHETH"J}ER THE RECIPE&&(IS IN ENGLISH OR METRIC UNITS. A0 A!A7`6-@F (} ("K},(How many servings does yourF(original recipe make A7 I @5(!PLEASE ENTER A NUMBER AT LE"L}AST 1.? A0I A7BB:,!$@(}Using one line only,@(enter the name of this recipe: A7"M}  A6.$  A  A7E  A0 A7`OPEN DISK FILE(}FILE SELECTIO"N}N(Q,($Enter a file name up to 8 charactersQ( long, with an optional extender.N&(Include the disk drive number.)"O}(K(For example: D1:BEEFSTEW.RECN(-( File name-B:, @A@ A@@%@%"P}@  @`$ @ AA@@$XCHANGE AN INGREDIENT]"Q}(} # INGREDIENT(b:"-(THERE ARE NO INGREDIENTS.7 A0:$l-@v33(- 7$@8&@"R}7<$@8&@,{ **(%@- Add another ingredientG(/($What is the number of the ingredientG("S}you want to change Ap X @)!%@D($Please enter a number from the list.N A0X Ap"T}"%@6- Aq$  A  ApENTER INGREDIENT #ING! A!"Aq"U} 68,- A68,- A"&&67$@8&@7<$@8,.( }INGREDIENT ( A!"V}0AR(0(Enter ٠ if OK, or((Enter Π to change.((OK  A*(+4Y)4"W}N, (* Aq`0YAqAR@$@ DELAYA,0@@@,GREEN BORDER"X}B-@@C""28,@@D-@@ E G?0@?2"Y}I$JWAIT FOR RETURNK+0@@@+BLUE BORDERL##(Press Π when"Z} ready--N*@*0@S @`$TNUMERIC ERRORY&&(Please enter a decimal number.^"[}ANY ERRORc*0@@@*RED BORDERh-@@m//2A6%@$@@"\}r-@@ w |?0@?2$INPUT LETTER TO "]}T$, AA@d,FORCE CAPS*A*CLEAR INVERSE FLAGAR B:"^},@AE 6-@:,!A(&6-&A(/6.>:,ECLEAR INVERSE VIDEO1A*/ZA3 )(P"_}lease enter a single letter.3 A0 A 20@/AR@2$ EXTEND I$ WITH BLA"`}NKS 6-B:,%@ !@8$& 67,.  Al OPEN ERRORv =(=(FILE OPEN ERROR. CHECK DEVICE "a}7@<@, !!(ERROR CODE IS F:A, A0 ( (To abandon, enter  ( (To retry, enter "b}Ҡ ! A4A!6- $ D1:RECIPE.BAS ( (To abandon, enter  ( (To retry, enter ?9:2 !BRWSFTSENSORMTEMBTEMMHUBHU&d} &e}WEATHER WIZARDBY RICHARD STAERZL (c) 19&f}86, ANTIC PUBLISHING06-@$F:B2y,"@06- 11;@,;@,;@,;@, M +@&g}@10@@ @CAR@M A 6-6-6@8F86-A'S6-6?C&h}I6-APm(@ !(@ 0(@ ?(@ N(@ m(@ WEATHER WIZARD&i}""( BY DICK STAERZL!B(*( (c) 1986, Antic Publishing>-@AB ( A 2:(@&j}0(@ LAST BAROMETER READ: A0<% AC  B% ACF A P9(@/(@ P&k}RESENT BAROMETER9 A0Z% AD  B% ADd A n:(@0(@ TIME ELASPED :HOURS&l}: A1x% AB B% AP A 7"(@ WIND DIRECTION-(@7 A2 &m}A@ A [(@/(@ SKY CONDITION IS::(@E(@P(@[(@0(@&n}0(@ CLEAR ( C )0(@0(@ PARTLY CLOUDY ( P )0(@0(@ MOSTLY CLOUDY &o}( M )0(@0(@ OVERCAST ( O )0(@0(@ RAIN ( R ) AA/6&p}-+&,'$A/6-+@00&,$A&6@`*@`&6-&!@`* @`&6-6@&q}@`6-6@ '!6@`* 6@`'6-@6@`6-@ "!@6-@, @&r}6-@6= 6-%%!@%6-@1 @=6-@@ @6-@J"@@6-A&s}T @P6. FAIR^*!@0* @p*6. UNSETTLEDh'!@P* A'6. RAINr1"A&t}*!16.RAIN ENDING 12 HR|1"A* 16.RAIN ENDING 6 HR1"A*"16.RAIN &u}ENDING 24 HR(!@6.COLDER(6-@ ' @6. COLD'6-@2!@* @&6.WA&v}RMER26-@1!@* @%6. WARM16-@} +@!0@+@E0@&w}@O@i0@@@s@} A  A5 @p A6!@0 A3&x} A8PAR@&--(%РРԠ0 (+,( : (;( +,(( TEMP&y}=P:$F:A$,%,<$ +,$(HUM=P:$F:A%,%,? B@$$(Press Ԡ to run again.D F:B2y,@&z}AN @t +@'0@@1K0@U@gAR@&{}q A t$O@A+B7tA=@wOA@d$ =(@(@&|}2(@ *=(@ 6(@+(@ 29 306(@ 7(@,(@ &}}* ? *7(@ 6(@+(@ 28 316(@ '(@'(@ * $ >&~}(@(@3(@ 1 2>(@& 5(@*(@ . .5(@0 7(@&},(@ 9 ? 37(@: 5(@*(@ . .5(@D '(@'(@ &} 6N $ 2(@'(@ N2(@ 5(@*(@ * *5(@ 7(&}@,(@ W ? E7(@ 5(@*(@ * *5(@ *(@'(@&} S*$ .STORM CLOUD  @GRAY 6-@ -6@ 6-M:$&$, /,A%&}@%//A%@& /,A5%@ %//A5%@ & /,A'%@%//A'%@&&}*  4 %6-@6-@% A4@> 6-@ AQH =6-@6-@% A4@9-@A&}= R G6-@6-@% A4@/ AQC-@@PG \ '6-%@ @' A4f $p e&},A @ +/A@&/A/A@@S/A@5e/A@Uz '/A@P'/A&}@p $ .THERMOMETER @ 6-@ -6@ 6-M:$&$, /,@ %@e%&}//@ %@e&   o,@@e'/@@09,@ @eK/@ @)],@!@eo/&}@!@0 $ SUN @$6-@.-6@86-M:$&$,B/,A%@ %//&}A%@ &L V?6-6-@'6-@36-@?6-@` @,@@ 3/@&}&@ E,A@ Y/A%@ k,A@/A@&,A@2j/A@3&}%),@@?/@&@&Q,A@g/A%@&y,@@0/@&@0%&}t+,A@0+/A%@0%~=,AH@'+/AP@%=/AR@'O,A7@&}2+/A@@5=/AC@2O,A@@4O,A&@I+/A0@E=/A4@IO,A&}0@FO,A@P+/A"@V=/A(@PO,A"@U'"6-@'6-&}@'"@6-@'6-@'"@6-@'6-@ 6-%@"@ $% AR&}!-@@%  A6 A6 BAR GRAPH-6-@p&'@--@H@X5 @&},@p/)@5/@  2$56-4N)4n)6-56-@+4NE)4&}ne6-@+6-@)4E)4e6-@)6-@+4SE)4se6-@+6-@)4S)4&}s6-@)6-@+4SW)4sw6-@+6-@)4W)4w6-@)6-@+4NW)4&}nw6-@+6-@:"&(BAD DATA-TRY AGAIN0 AP : AP AP A`56-&}4C)4c)6-56-@)4P)4p6-@)6-@)4M)4m6-@ )6-@")&}4O)4o6-@0)6-@,)4R)4r6-@@)6-@6:"&(BAD DATA-TRY AGAIN0 AP &}: A%@ AP A0h.(BAD DATA-TRY AGAIN$ AP . A !! @()!@1AC  AP&} @p. AP $(BAD DATA-TRY AGAIN. @`0!! @()!@1AD : AP AD. AP &}$(BAD DATA-TRY AGAIN. @K -AP6@D2@ @'@H K$= -AP&}6@62@: =$w-@0E2$@@@&'@s2@$&}@@@&'@w $P -@@6@ZE2@@@# E2@&}d -@@6@nE2@@@# E2@x &}-@@6@E2@@@# E2@$y7 B@-@&}@P:7 A@"y-@x@,y-AX@6y 1@y)"(&}@ ) BEyCOLOR 1,Z=0 BACKGROUNDJy)"@(@*) BOyCOLOR 2,Z=1Ty)"@(&}@o) BYyCOLOR 3,Z=2^y(@+cyCOLOR 4,Z=3hy"AX @ry |y y(((@&} TEMP y(@ % PRECIP y?4(@  FORECAST ?(@y&}LL(@   y1 +,1(@ TEMP=P:$F:A$,%,y&}- +,-(@HUM=P:$F:A%,%,y@$D1:WEATHER.BAS1(@ TEMP=P:$F:A$,%,y$R