@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}0} HE |||DDOS DOSDOS SYS }}}}+,}CDOS SYSB*+DUP SYSBUAUTORUN SYSB,WMENU BREENTRY BSUNSET BSTIKREAD BDIAGONA}L 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D" NURͩkΩ͙kCop j`j {j`Hi͝Νh`kRLAPNB0 k X}+@@1@@9H(}ˠkBY Ю VERSION 1.1 DEC.81D+(# Y}8;@ ,D6-<;@@,;@,;A,;@,;@@,_@@ Z}D:*.*6."  @56-%@(6.7@<@,<67B:,%@,. [}E6.=:,Q @y67@<@,.7@<@,67@<@,.0$#H@*6-@:7@ \}<@,,H!@G* @X@U(g @%"(| () /@I6-@:7@<@,,g!@G ]}* @X@P-' @%( ()|' @521 @p+-@6+'@,%@1 |7++(#| ^} |<m ( |  |H(#m( TYPE 0 TO LIST PROGRAM _} SECTORSAZ-@@#1( SELECTION; @e?I BZP:,@eFR"2@ `}@D:*.*<+H6-R AKB6.7+&@,$@%@<+&@,$@%@,L  a}Be7@ <@ ,4 |6.7@<@, @P] -@@6@@67<,.7&@<&@ b},D ]67@ <@ ,..U!7@<@,4DOS!.Z2 6.D:-@B:,27<,4 A_67B: c},%@,.7<,dQ AR@+-@@"C  LOADING M AQ%nA-@@"-  d} CANNOT RUN 7 BA @esW @e@>7@<@,4 FREE SECTORSB M@W @e e}x+6-%@! ...+ AD:MENU k ;-.PCOLPCOLPLPLPLPPMBASPCOLPCOLPCOLA@VA3A6,g} dAR@n$6-A6-@V$COLORSx ASETUP PLAYERS,h},@#%@@,HEIGHT!AA!POS1%@A+@%A1POS,i}MOVEMENTA"H:,$AY%@HAH:,$A%@2Q*%@H:,$AY%@HQ,j}%@H:,$A%@2%-@Au % ApVBLANK ROUTINE%-A6A",k}!% '-AtA#' (6-F:A,&@(6-AV$+-%A#%A G',l}+ )-%A%%A2"%) $)-%A%A"%) .3AA'A,m}3A8'6-B2H6-A'6-ABYAY@b'A#@;A%@MB2w,n}@YBByL6-?:A,V$ VBLANKBB162,3,189,244,6,240,89,56,221,240,6,240,83,141,254,6,106,141AA,o}255,6,142,253,6,24,169,0,109,253,6,24,109,252,6,133,204,133FF206,189,240,6,133,203,173,254,6,133,205,189,248,6,170,232,4,p}6,255FF6,144,16,168,177,203,145,205,169,0,145,203,136,202,208,244,76,87EE6,160,0,177,203,145,205,169,0,145,203,200,20,q}2,208,244,174,253,6 CC173,254,6,157,240,6,189,236,6,240,48,133,203,24,138,141,253,6DD109,235,6,133,204,24,173,253,6,10,r}9,252,6,133,206,189,240,6,133 GG205,189,248,6,170,160,0,177,203,145,205,200,202,208,248,174,253,6*;;169,0,157,236,6,202,s},48,3,76,2,6,76,98,228,0,0,104,1694 7,162,6,160,0,32,92,228,96 PLAYER DATA 6,6,8,126,195,195,195,126 ##126,1,t}95,195,126,24,126,126,24 D:COMPLAY.PCOLPCOLPCOLA@VA3A6,+  3l|PMBASA@I@B@COMPUTE 1ST BOOKCHRIS CRAWFORD 50@0v})6-A 56-@HK6-F:A,&@&BBy46-AV$KPM ADDRESS MEMTOP-2kBAY0w}@F'B2w@BENABLE 2-LINE RESOLUTION( B2H HORIZONTAL POS25-%A%A@'0x}+ 5CLR MEM<&AA&COLOR TO GREENF;-%A%%A%#")- ;DRAW PLAYERP153,180y}9,255,189,153Z MOTION[)B2V@)PLAYER SIZE 0,2,3d&6-R:,&"@An)"@6-0z}&@)B2Hx)"@6-%@)B2H_"@,-@6@M%A%%F:0{}%A%%,Q _6-%@_"@,-@5@M%A%%F:%A%%,Q _6-&@0|} AD:PLAYER@I@B@COMPUTE 1ST BOOKCHRIS CRAWFORD 50@0  K]oAD@E@3A`@A0`3 +@(0@4~}2<d( @6-A`%6-@(6-,6-G:,$6-E:,$ ,%%X-4}AB6-G:,$6-E:,$  /%%  @Paa Š4} HHWRITTEN BY CHET GONTERMAN AND TURN INTO MACE FEBRUARY 1982oo4}ӭԠŠΠ ŠӠΠĠ ˠŠŠggLINE IS THE TOTAL 4}AMOUNT OF DEGREES USED PRIOR TO STARTING A NEW DESIGNggTHE LARGER THE NUMBER THE LONGER4}9:B2CVABHFUFFNEVVAHQADYAVEVAV?PuE3HPTgAAP}  BB$ PBP@DB@ }@"xa@P@!@DBF3 dh +@'0@@}9-@@P(@ re-entryd-@Ah p +(((r0@s++(#DO} YOU WANT INSTRUCTIONS ( Y OR N )u;@,vw4NA x +((((}A@P(}(( THIS PROGRAM IS A SIMULATION OF(,,($A SPACECRAFT RETURNING TO THE EARTH. ((YOU ARE THE PILOT. ((%(}THE ONBOARD COMPUTER HAS MAL-((+(( FUNCTIONED. YOU MUST CONTROL THE+(# (BURN OF THE ENGINES. THE#(+(( SPEED }AND REMAINING FUEL WILL BE+("(CALCULATED EVERY 5 SEC."(-@A0  ( (%"(YOUR PRESENT SITUA}TION IS:%(( ALTITUDE = 600 M( SPEED = 40 M/S"( FUEL LEFT = 800 KG"($$(THE ALTITUDE} WILL BE PLOTTED$$(ON THE SCREEN EVERY 5.0 SEC..(+( YOU TYPE IN HOW MUCH FUEL TO USE.((EVERY 5.0 SEC.("}( 0 = freefall (,( 125 = steady speed (6"( 200 = MAXIMUM POWER("(@(TYPE C TO CONTINUEE;@},JT +Y6A@e((-( WARNING 0(3(6(^-*(" IF YOU USE TOO MUCH FUEL TOO SOON-(}h!!( YOU WILL NOT MAKE IT !!!r-@A  1 +@'0@@1@@6-}6-A(6-6@@46-A@6-@46-B6-6@@(6-A46-@A@e,}(,(!TIME HEIGHT VELOCITY FUEL LEFT''( SEC M M/S KG99(  P:, P:, } P:,!!,@%@8&?$ !6-!A6-A 6-$$6}-@%@$P:'@@,2A@!6-B $'A%& 6-6@$+&+'@,,( 6}-%+ 6-',+-@@?P+6-?P- 6-0 6-%$56-?P$+%,:##6-%$%?P$$}+#@,D @AN 6-S 6-U X 6-&6-&a6-%@b!Ag}"Al))(!OUT OF FUEL. FASTEN YOUR SEATBELT{ A(-@A 6-%@ }6-6-&?P$+%,A6-%@ A,@8&?$+(@%}'-@A+ -@@P  6- AP( *** CRASH SOUND **!=-@A@}92= "''6-@%@$O:P:'@ ,,#!@6-@$-6@}&2A @(2@AP@*-@@   / +(((2}A@P44( ( (1( IMPACT OCCURRED AT APPROXIMATLY 4(911(P:%, SEC. SPEED WAS O:P:,, M/SEC.:O:},!@A`> ( ( ( ( GOOD WORK H**(" SPACECRAFT HAD ONLY MINOR DAMAGER AW A \O}:,!@ A f( ( ((p))(!SPACECRAFT EXPERIENCED MODERATE u''(DAMAGE. YOU WILL BE IN THE HOS-z++( PIT}AL FOR O:P:%@,, DAYS. A '( ( ('(THE GOVT. WILL NOTIFY ((YOUR NEXT OF KIN-@}A 6( ( (*( TO PLAY AGAIN, TYPE RUN-(0(3(6(##( SEC. METERS M/S KG V$-@}A $ D:REENTRYVVAHQADYAVEVAV?PuE3HPTgAAP(`ay0 A TOP1BOT1TOPBOTCOLSROSANDCOLYOPCXYZLOOXYTTCHRSPRPHPLCHCLPXHPXL}@@G   A  @V @@y@G@A}#Au@@Q@P@@Av }!"d** SUNSET BY D. SMALLn** ŠǛx** DEC. 1981<<;A(,;A(,;A(},;A(,;Ae, APINIT SCREEN AINIT COL AINIT ASM** DISPLAY LIST **}%%6-F:A`,%AV$F:Aa,%A%A(%TOP INIT 151'%@@%@d%A(1LMS,DMI"0}'-@@%@@0HI SRS,%@%A(6 T*-A@*ROT COL$^6}-h6.7@<A%,r6.7A&<AP,6.7@<A ,6.7A!<A%,67@},.67@<@,.>:,/!AU/67@<@,.>:,6.7@<@,6.7@,}67A!,.67@<A%,.67A&,.  A@&7 +@#*0@@@}79@,00@:0@@D0@@N%6-@ @}%6-@X6-@y6-@Gb4-@068,-%@$@4 l-@@v"6-%$}E:A`,6-",''-@$A`@u6-%$E:,6-%$G:, /' 6-%@#6-}%@' 6-@-@@P%%6-P:H:,$AY,%@%%6-P:H:,$@}G,%@ ,)6-%@"@)6-@ $INIT COL$ -@AU@*}67<,.>:,46-%@>6-%A`H!AU6-&AVR!AU6-&AV\!!67%@<}%@,.>:,f!!67%@<%@,.>:,p''67%@<%@,.>:,z''67%@<%@,.>:}, $** DL DRIVER* YOU MUST DIM AND FILL * COL$ PRIOR TO GOSUB HERE$;@P,B* READ PRO}GRAM INTO PR$V"`"AUAj67B:,%@,.>:,t A* PROGRAM AS BYTES72,138,72,152},72##162,0,173,11,212,201,07,240,3174,01,02 160,0189,03,04153,22,208232,200,192,05,208,244}142,05,06104,168,104,170,104,6400,01,02,03,04,05 255* LINK COL$ TO PR$( 6-C:,26-P:'AV},<6-+&$AV,P 6-C:,Z6-P:'AV,d6-+&$AV,x* POKE IN COL$ ADDRESS67@!<@!},.>:,67@"<@",.>:,$$* POKE IN PROGRAM LOAD ADDRESS6-P:+%@A,'AV,6-+%@A,&}+$AV,67@<@,.>:,67@<@,.>:,67@3<@3,.>:,67@4<@4,.>:},!!* POKE IN INTERRUPT ADDRESSA"A6!!* ENABLE INTERRUPTS (ANTIC)JBBA(%@d}r$ D:SUNSET2PBOTCOLSROSANDCOLYOPCXYZLOOXYTTCHRSPRPHPLCHCLPXHPXL%*<A* ě##* MACHINE CODE TO READ STICK*%-AdA}"!% 33104,104,133,213,104,41,12,74,74,73,3,24,105,122133,212,96,104,104,133,213,104,41,3,76,237,6##* } (CORRECTED* ś6-R:@,6-?:Ad<,6-?:A<,A}A`Ap$( LEFT  A.( RIGHT  A8AAAB( UP  A}L(DOWN  AV@( ` A D:STIKREADE TO READ STICK*%-AdAV*+PMBASDOWUUPCODEBYTDOWNCODEXY@@eASBBw@QApAH} @  @ @ @** LOAD STIKREAD** BEFORE RUNNING THIS** PROGRAM99* } LOADS OTHER MACHINE CODE SUBROUTINE !!+ A A+LOAD MACHINE CODE [ +@'0@@3}6-A ?6-@HQAR@[@( DIAGONAL MOVEMENT "("( USE JOYSTICK IN PORT 3E6-F:A},&@&BBy46-AV$ESET PM ADDRESSMAY@F'B2w@MENABLE PM GR WITH 2 LINE RES}OLUTION($B2H$SET HORIZONTAL POS2>-%A%A@'+ >CLEAR OUT PLAYER<&A@U}&SET COLOR=PINKF;-%A%%A%#")- ;DRAW PLAYERP153,189,255,189,153ZNOW THE MOTION RO}UTINEd6-R:@,e"T:@,"" Af%6-?:Ad<,%6-?:A<,hA%AA}j36-&@B2H)!@3 A%k%6-A B2H% A%l?6-%@B2H)!A} 56-@? A%}APA8A(06-?:<%A%,&6-%@0 A&6-?:<%A}%,&6-&@ A;@",6-C:,2-@@" 2SKIP PLAYER DATA-%@ } "    $&MOVE PLAYER UP0!!104,104,133,204,104,133,203:160,1,177,203,136,145,203D200,200,192,}7,208,245,96X;@",6-C:,l-%@ v "    # $MOVE PLAYER DOWN CODE!!104,104,13}3,204,104,133,203160,6,177,203,200,145,203 136,136,192,255,208,245,96 @7,+&@P,'@+&}@,'@U/+&@,'@w2@@@-@@P %%2}X @7,+&@P,'@+&@,'@U/+&@,'@X$D:DIAGONAL.D1}6X @7,+&@P,'@+&@,'@U/+&@,'@X$D:DIAGONAL.D1lPO1NTERPMBASFACINBAA BA$@H@@@ A6  }FROM OCT śd INIT.n%-A6A`"!% x* MACHINE CODE *dd104,104,133,204,104,133,203,104 },133,207,104,133,206,160,0,177,206,145,203,200,192,8,208,247,96* ADDRESS OF PLAYER*%-A`A#"!% }ff28,62,62,28,73,127,73,65,7,23,39,88,154,36,8,16,240,38,47,127,47,38,240,0,16,8,36,154,88,39,23,7nn65,73,127,73,28, }62,62,28,8,16,36,89,26,228,232,224,15,100,244,254,244,100,15,0,224,232,228,26,89,36,16,8* POINTERS *W9@,$ }-@@("168,-5 W260,268,276,284,292,300,308,316* SET PLAYER *C +AR@1A }CAY@Fp6-F:A,&@&BBy8B2w@F6-AV$XB2V@d6-A }$p6-@H+-%A%A@'+ 3B2HA$'A@36-@K6- }+-%A%%A%9F:8,%,G6-%@K !!* MACHINE LANGUAGE CHANGE * T:@,"@A@ }(-@@(( MACHINE CODE 6-R:@,""@Ap,5"@6-&@) @5 }6-@65"@6-%@)!@56-@@##6-?:A6<%A%<8,,J ApT** BASIC } CHANGE **Y T:@,"Ap^*-@@*( BASIC c6-R:@,h"@Ap }r5"@6-&@) @56-@|5"@6-%@)!@56-@K6-+ }-%A%%A%9F:8,%,G6-%@K  A@ D:OCTCOMPUT@@@ A6  YlPO1NTERPMBASFACINB@HA BA@H@@@ A6 $}* PROGRAM ADAPTED FROM ** Ԯś** WRITTEN BY M.DAVIDS **9@,d** **n$}%-A6A`"!% x$$* MACHINE CODE INTO PAGE SIX *ee104,104,133,204,104,133,203,104,133,207,104,133,2$}06,160,0,177,206,145,203,200,192,15,208,247,96* ADDRESS OF PLAYER*%-A`A"!% 118,28,28,8,$}24,28,94,58,26,24,56,40,76,66,1943316,56,56,16,56,56,116,52,52,56,40,34,19,17,48228,28,28,8,88,92,52,28,24,248,144,80$},40,68,12118,28,28,8,28,60,186,90,28,24,56,71,33,16,48* POINTERS *W68@,-A`-68@,-AuB6$}8@,-AW68@,-A* SET PLAYER *K +'0@@9AY@FKAR$}@p6-F:A,&@&BBy8B2w@F6-AV$XB2V@d6-A$p6-@H##$}* 53256 IS SIZE REG. FOR PL.0+-%A%A@'+ 3B2HA$'A@U36-@$}K6-+-%A%%A%9F:8,%,G6-%@K !!* MACHINE LANGUAGE CHANGE * T:@,"$}@A@(-@@(( MACHINE CODE 6-R:@,""@Ap,5"@6-&@$}) @56-@65"@6-%@)!@56-@@##6-?:A6<%A%<8,,E56-&@$}B2H) @56-A%J ApT** BASIC CHANGE **Y T:@,"Ap^*-@@$}*( BASIC c6-R:@,h"@Apr5"@6-&@) @56-@|5$}"@6-%@)!@56-@K6-+-%A%%A&%9F:8,%,G6-%@K $}56-&@B2H) @56-A% A@ D:JOGGER.2@H@@@ A6 $R FVSCRODBBwB@BQ@@0 * SCROLL.GR2* SEPT. COMPUTE *(}6-BBw +@%%6-F:A`,%AV$F:Aa,#)-@@)(@ TLe(-%@%(}@-@92 <-@A F-@A  K P-%@@T @(}U3 F:,Z _AU@`6-%@a"@ @5b!6-!AU@d (} @5 D:SCROLL.GR2BBwB@BQ@@0 * SCROLL.GR2* SEPT. COMPUTE *( IT WILL TAKE TO COMPLETE THE DESIGN!!GGĠϠŠ٠ î̮ΠȠ6}fREWHITADBLU@@@D@@@ @@ @uJJ٠8}͠Ϊ Š̪ !!DRAW THE UNITED STATES FLAG66HIGH RESOLUTION 4-COLO8}R GRAPHICS, NO TEXT WINDOW+@%@(''SETCOLOR 0 CORRESPONDS TO COLOR 12)0@@)6-@8}<''SETCOLOR 1 CORRESPONDS TO COLOR 2F)0@@)6-@P''SETCOLOR 2 CORRESPONDS TO COLOR 3Z"8}6-@"DEFAULTS TO BLUEd!!DRAW 13 RED & WHITE STRIPESn 6-x-@..EACH STRIPE HAS S8}EVERAL HORIZONTAL LINES-@,$@%/AY$@% SWITCH COLORS8}6-%@!6- ,DRAW BLUE RECTANGLE6@-@HJ,T/@y^ 8}h DRAW 9 ROWS OF WHITE STARSr|+6-+START WITH ROW OF 6 STARS-@6-@%$@8}*-@*5 STARS IN A ROW%6-%@%$@% A %6-% Ap8}##ADD 6TH STAR EVERY OTHER LINE)6-@%@$@) A6-@ IF KEY HIT THEN ST8}OP F:Ad,"AUA..OPEN TEXT WINDOW WITHOUT CLEARING SCREEN+@%@2 CHANGE COLORS BACK9}70@@70@@&&!!DRAW 1 STAR CENTERED AT X,Y,&@/%@9},&@,%@$D:USFLAG@D@@@ @@ @uJJ٠86f6EBIRDFLAROCO@@@@ @6@@ @ ;@=},6.'6-@6-@'6-@(1 +@AVA&1AR@270=}70@@@< (@ the oceanF6-P:H:,$@,P-@@Z=}-@d2@@n-@@P xH:,!?5-@@6@=}e2@@P:H:,$@,i 2@ A  -@=}6@2@@-@@P wH:,!?5-@@6@=}Q2@@@U w2@-@@  A  @p= } A -(@7<%@,)6-%@"@)6-@$,H:,!?P= }$6 -@(@ J%%6-P:H:,$@,&@T%%6-P:H:,$@,&@^ 6-%h"= }6-@r"@ 6-@| 6-%"6-@!@6-@$iiSU= }BMITTED TO MACE BY CHET GONTERMAN -͠ ɠŠ̠D:OCEAN ;@<q89dwFOODAFILETOTASUBSUBSUBSUBSUBCHRCTDESCDES A} @ 2 7 # CALORIE COUNT BY J. AAMODT(>:A%,DA};@ ,;@,*;@ ,7;@,D;@5,?6-6-'6-36-?6-A} ( ( (( (DO YOU WISH TO: ( (++(# A. SUMMARIZE CALORIES PER MEAL?(DD(< B. OBTAIN CALORA}IES PER GIVEN PORTION OF A SPECIFIC FOOD?( ( ( (ENTER APPROPRIATE LETTER#(4AA-4BA}A7 @5d(>:A%,i ( ( (n11 )ENTER NAME OF FOOD ITEM ('TOTAL' IF DONE)sx4TOTALAPA}~# " 4   AU4ENDA A0  ( ( HOW MANY PORTIONSA}6-$A:, 6-%"@6-%"@6-%"@6-%"@6-%A}(>:A%, A!!SELECTED FOODS AND CALORIES ( ( (  ENTER FOOD ITEM ( (4DONEAA}4INDEX%D:INDEX# ( ( " 4   A4ENDA A0A} A,XXXXXXXXXX XXX-00BAKED APPLE,1 MED SIZE W/2 TBLS SUGAR,200.APPLE,3" DIA FRESH,117/APPLE JA}UICE,1 CUP,1260!!APPLE PIE,1/6 OF 9" PIE,3771ASPARAGUS,8 STALKS,252AVACADO,1/2 MED-SIZED,2753BACON,1 CRISP A}6" STRIP,484BANANA,1 MED-SIZE,1305##GREEN BEANS,1/2 CUP COOKED,136%%KIDNEY BEANS,1/2 CUP COOKED,1157!!HAMBURGERA},1 LARGE PATTY,3008SIRLOIN STEAK,3 OZ.,3009BEEF STEW,1 CUP,260:BEER,1 CAN,173;BEETS,1/2 CUP,40<""BLUEBA}ERRIES,3/4 CUP FRESH,64=BOLOGNA,1 SLICE,66>RYE BREAD,1 SLICE,55?""WHOLE WHEAT BREAD,1 SLICE,55@WHITE BREAD,A} 1 SLICE,64ABROCCOLI,1 LGE STALK,29BBUTTER, 1 TBLSP,100C**CABBAGE,1/2 CUP COOKED(1 CUP RAW),20DCAKE,2" SQUAA}RE,356E&&COFFEE CAKE,3" X 2 1/2" X 2",133F##CANTALOUPE,1/2 SMALL MELON,30G++CARROT,1 WHOLE RAW(1/3 CUP COOKED),20HA}CATSUP,1 TBLSP,17I!!CAULIFLOWER,1 CUP COOKED,30J##CELERY,3 SMALL INNER STALKS,9K COTTAGE CHEESE,1/2 CUP,100LA}SWISS CHEESE, 1 SLICE,105M AMERICAN CHEESE,1 SLICE,79N((FRIED CHICKEN WHITE,1/2 BREAST,232O''FRIED CHICKEN DARK,1 A }DRUMSTICK,64PCHOCOLATE BAR,1 OZ,154Q CHOCOLATE ECLAIR,1 AVG,316RCOFFEE,W/1 TSP SUGAR,27SPEPSI,1 GLASS,105A!}T7 UP,1 GLASS,105UCOOKIES,3" DIA SUGAR,64VCORN,1/2 CUP DRAINED,70W##FRIED EGG,W/ 1 TSP BUTTER,105XBOILEA"}D EGG,1 WHOLE,75Y''SCRAMBLED EGG,W/ 1 TSP BUTTER,130ZCORN SIRUP,1 TBLSP,57[CORN FLAKES, 1 CUP,83\""CORN ON THA#}E COB,1 MED EAR,92]CRACKER, 1 SALTINE,17^CUCUMBER,12 SLICES,10_DOUGHNUT,1 SUGARED,151`HOT DOG,ONE,125aA$}FRENCH TOAST,1 SLICE,170bJELLO,1/2 CUP,103cFRUIT COCKTAIL,1/2 CUP,50dGRAPEFRUIT,1/2 MEDIUM,70eGRAVY,3 TA%}BLSPS,180fGREEN PEPPER,1 WHOLE,20gPANCAKES,2 OF 4" DIA,150hHAM,4 1/2 X 4 X 1/4,200iHONEY,1 TBLSP,62jA&}HORSERADISH,1 TBLSP,12kICE CREAM,1/2 CUP,125lJAM, 1 TBLSP,60mJELLY,1 TBLSP,60nLEMON,1/2 MED SIZE,15oA'}LEMON JUICE,1 TBLSP,4pLETTUCE,1/4 HEAD,18qLIVERWURST,2 SLICES,160rMACARONI,1/2 CUP,110s%%MACARONI AND CHEESA(}E,1/2 CUP,300tMARGARINE,1 TBLSP,100uMAYONAISE,1 TBLSP,109vMILK,1 CUP,166w""MEAT LOAF,4" X 3" X 3/8",264xA)}ENGLISH MUFFIN,1 EACH,280yMUSHROOMS,1/2 CUP,14zNOODLES,1/2 CUP,100{""OLIVES,2 SMALL OR 1 LARGE,25|ONION SA*}OUP,1 CUP,100}ONIONS,5 MED RAW GREEN,23~ORANGE,1 AVERAGE SIZE,75""ORANGE JUICE,1 8OZ GLASS,110 PARSLEY,2 TA+}BLSPS CHOPPED,2 PEANUT BUTTER,2 TBLSPS,180FRESH PEAR,1 MEDIUM,8500CANNED PEARS,2 HALVES W/2 TBLSPS JUICE,100A,}PEAS,1/2 CUP CANNED,60PEA SOUP, 1 CUP,270PECANS,6 HALVES,52DILL PICKLE,1 LARGE,15SWEET PICKLE, 1 A-}MED,20%%PINEAPPLE,1 SERVING(1 SLICE),78PLUMS,3 TO 4 FRESH,100&&CANNED PLUMS, 3 TO 4 W/JUICE,150&&POPCORN,1 A.}1/2 CUPS-NO BUTTER,100 PORK CHOP,3" X 5" X 1",290PORK ROAST,4 OZ,450BAKED POTATO,1 MEDIUM,90BOILED POTA/}ATO,1 MEDIUM,90,,MASHED POTATOES,1 CUP W/MILK & BUT,230 FRENCH FRIES,10 PIECES,155POTATO CHIPS,8 TO 10,100A0}POTATO SALAD,1/2 CUP,167SWEET POTATO,1 MED,155SWEET POTATOES,1 MED,155RADISHES, 5 MEDIUM,10RAISINS,A1}1/4 CUP,107RICE,1/2 CUP COOKED,100RUM,1 OZ,73SALMON,1/2 CUP CANNED,206SAUERKRAUT,2/3 CUP,27%%PORKA2} SAUSAGE,3 LINKS-1 PATTY,94SHERRY, 3 OZ,150FISH,BAKED,204$$FRIED FISH,AVERAGE SERVING,241((SPAGHETTI,1/2 A3}CUP COOKED PLAIN,218SPINACH,1/2 CUP COOKED,23SQUASH,1/2 CUP,50%%STRAWBERRIES,1/2 CUP FROZEN,120BROWN SUA4}GAR,1 TBLSP,50POWDERED SUGAR,1 TBLSP,42SUGAR,1 TBLSP,50!!TOMATOES,WHOLE FRESH MED,25CANNED TOMATOES,1 CA5}UP,50TOMATO JUICE,1 CUP,50CATSUP,1 TBLSP,17TOMATO SAUCE,4 OZ,40TOMATO PASTE, 1 TBLSP,6''TUNA FISHA6},WATER PACKED 1/2 CU,165""TURKEY,WHITE 4 X 4 X 3/4,183!!DARK TURKEY,4 X 4 X 3/4,205CRISCO OIL,1 TBLSP,110A7}V-8 JUICE,1 GLASS,48VEGETABLE SOUP,1 CUP,100WAFFLE,1 SECTION,232SCOTCH,1 OZ,73RED WINE,3 OZ,120A8}WHITE WINE,3 OZ,95YEAST,1 CAKE,10ROUND STEAK,4 OZ,400STEW BEEF,4 OZ,400END,END,ENDSELECT MEALA9}(>:A%, SELECT: ( (  A. BREAKFAST  B. LUNCH  C. DINNER   D. OTHER   A:}E. UNLISTED ITEM ( (! 4A6-@! A! 4B6-@! A$! 4C6-@! A;}A)! 4D6-@! A.4INDEX%D:INDEX34EA0K AE (>:A%, ,((ENTA<}ER CALORIES OF UNLISTED ITEM, 6-% APPRINT SUMMARIES ( ( (   BREAKFAST  (A=} ( (  LUNCH  ( (  DINNER  ( ("@6-  OTHER A>} !!  ________________________  TOTAL 6-# HIT RETURN TO CONTINUE# A?}A D2:CALORIESOTASUBSUBSUBSUBSUBCHRCTDESCDES @./ADFILEDATEMONERRNAMEMONTTSTENEOTEM (<Pd(@EA}@ ##ɠàƮ̠Š + RR;@,;@,;@ ,;@ EB},;@ ,;@ ,;@@,6. D:BIRTHDAY.6.ERROR IN MONTH #d7 +((7(PLEASE TYPE MONTH EC}NUMBER (1-12)n Ax6- 6-P:,' @)!@(' A A%67@ED},.=:,6-2 A2@@@) A)-@@EE}@6-%@."@+( BIRTHDAYS IN  ARE:.( 6-B:,67%@,. 67EF}@0,. ''67%@<@0,.7%@, ( +##*MAKE NEW ENTRY IN BIRTHDAYS*,G( (C(5WOULD YOUEG} LIKE TO MAKE A NEW BIRTHDAY ENTRY-YES or NOG1 4YES A 6O 4NOH 7WOULD YOU LIKE TO CHECK ANOTHER MONTHEH}'S FILE?-YES or NOLO(; 4YES @ > 4NO@!!(PLEASE TYPE PERSON'S NAMEJT00((PLEASE TYPE PEEI}RSON'S BIRTHDAY (MM-DD-YY)^h6-P:A:,,r) @)!@() A|67@,.=:,Y A2EJ}@6@O@@ Y A3@3@@@EK} @ @((@@((@5@ AEL}X1@"1(NO BIRTHDAYS IN b6-%@l!@6-@v6-%@"@EM} AE A6- A6.JANUARY$6.FEBUARY$6.MARCH$6.APRIL$EN} 6.MAY$6.JUNE$6.JULY$6.AUGUST$6. SEPTEMBER$6.OCTOBER$6.NOVEMEO}BER$6.DECEMBER$ )%67@<@%B:=:,,,.=:,)( D2:BIRTHDAY<Pd(@DX!"~ANSWERDBEEBSBENDI IQ}  PROGRAM BY RUSSELL A. GILL!!WRITTEN APR. THRU JULY 1981 A!IR};@, 6-6-  " @""%@* @# 6-&$ IS}6-+&,&@(-@26-+&,'@< P:,"6-%@F6-%@P Z  AIT}d6-%+$Ae,n6-'@x P:,"6-%@z6-%@| " A 6-6-+&,&@IU}-@ A  A 6-6-%+$Ae, "*" A6-%@IV}"@6-@ " A 6-6-@&" A@-@ AIW} 6-%@"@6-@ " A "@ A6-%@-6IX}6@ A" ' A,%"@6-%@11%"@6-%@(6%"@6-IY}%@1;%"@6-%@0E%"@6-%@1J%"@6-%@0O%"@6-IZ}%@1T%"@6-%@1Y%"@ 6-%@0^%"@6-%@1c%"@6-%I[}@0h%"@6-%@1r$| 6- 6- "*"6-6-6-"*"I\}A0 A 6-& 6-% +@0@@@ @,@/I]}@@y,@@/AY@@',@ @9'/@ @A',@@8'/@I^}@B',@@9'/@@A&',@$@8'/@$@B0',@)@9'/@)@AI_}:',@4@8'/@4@BD',@9@9'/@9@AN',@D@8'/@D@BX',I`}@I@9'/@I@Ab',@T@8'/@T@Bl',@Y@9'/@Y@Av',@dIa}@8'/@d@B',@i@9'/@i@A',@t@8'/@t@B',@y@9'Ib}/@y@A',@@8'/@@B',@@9'/@@A',@@8'/@Ic}@B',@@9'/@@A',A@8'/A@B',A @9'/A @AId}',A@8'/A@B',A@9'/A@A',A$@8'/A$@B',AIe})@9'/A)@A',A4@8'/A4@B ',A9@9'/A9@A',AD@If}8'/AD@B ',AI@9'/AI@A*',AT@8'/AT@B4',AY@9'/Ig}AY@A>',@@u'/@@uH',@'/@R',@@'/@Iq}#B'DOS SYSB*+DUP SYSBUAUTORUN SYSBWMENU BREENTRY BSUNSET BSTIKREAD BDIAGONAL BOCTCOMPU BJOGGER 2 BSCROLL GR2BfCOMPLAY BuPLAYER B}DEGREEGR B USFLAG B OCEAN B3 CALORIES B@BIRTHDAY B;PBIORHYTM BiFINANCE BMULT B SETCOLORGR0B SETCOLORGR2BPOKE710 712B#SOUNDTEST B+GUNFIGHT B#;GRAVITY B ^FLWRPOT DMOB gCSEARCH BqSSEARCH B&DRC BBIRTHDAY1 BREVIEW @\',@@'/@@f',@@'/@@p',@@ '/@@ Ir}z',@@%'/@@%',@@0'/@@0',@@5'/@@5',@Is}@E'/@@E',@@P'/@@P',@@U'/@@U',@@`It}'/@@`',@@e'/@@e',@@p'/@@p @6-@Iu}++6-G:+'@#&P:'@#,,$A`,6-@@&P:$@9, ,-%@%@0++6-G:+'@Iv}#&P:'@#,,$A`,6-@@&P:$@9,$6-%@. /8 B @L6-@V++6-Iw}G:+'@(&P:'@(,,$A`,`6-@@&P:$@9,j ,t-%@%@0~++6-G:+'@(&P:'Ix}@(,,$A`,6-@@&P:$@9,6-%@ /  @6-@++6-G:+'@3Iy}&P:'@3,,$A`,6-@@&P:$@9, ,-%@%@0++6-G:+'@3&P:'@3,,$AIz}`,6-@@&P:$@9,6-%@  /  "@  JANUARY 19 "@  FEBUARI{}Y 19"@ MARCH 19#"@ APRIL 19("@ MAY 19-"@ JUNE 192I|}"@ JULY 197"@  AUGUST 19<""@ "  SEPTEMBER 19A "@  OCTOBER 19I}}F!"@!  NOVEMBER 19K!"@!  DECEMBER 19,@0@C/@(@C/@(@DI~}/@)@E/@0@F/@)@G/@(@G,@R@C/@R@GI},@T@C/@V@C/@V@G/@T@G/@T@C",@w@I}C,/@w@G6,@@C@/@y@CJ/@y@DT/@@E^/@I}@Fh/@@Gr/@y@G|,A@C/A@C/A@D/AI}@E/A@E/A@G/A@G,A@C/A@C/AI}@G/A@G/A@C,A&@C/A'@C/A(@D/A'I}@E/A&@E&/A&@G0/A(@G:,A2@CD/A0@CN/A0I}@DX/A1@Eb/A2@Fl/A1@Gv/A0@G,AP@C/ASI}@C/AS@G/AP@G,AQ@E/AS@E,AU@C/AI}W@C/AW@G/AU@G/AU@C%% RED=PHYSICAL GREEN=EMOTIONAL,, $BLUE=I}INTELLECTUAL hit SPACE to cont ##@@K:)@ @* A"P4n +@'0I}@A0@@L(@n(@ PERSONAL BIORYTHM 7Z(@/(@ WI}HAT IS YOUR :(@Z(@ BIRTHDAY? 80(@0(@*** month ***>C ( ( I}(EO!@) @$(@E(@ WHAT month IS THATO A!H0(@0(@*** day I}***RW ( ( (YO!@1) @$(@E(@ WHAT day IS THATO A!0\0(@0(@I}*** year ***fk ( ( (mO!@) @$(@E(@ WHAT year IS THATO A!PpI}n +@'0@A0@@L(@n(@ PERSONAL BIORYTHM z(@/(I}@ FOR WHAT month DO :(@Z(@ YOU WANT YOUR e(@(@ PERSONAL BIORYTHMI} ( ( (O!@) @$(@E(@ WHAT month IS THATO A!0(@0(@ FOR WHI}AT year  ( ( (S!@) @)!((@I(@ WHAT year IS THATS A"$'I} +'0@G,($WOULD YOU LIKE TO SEE ANOTHER MONTH C(AND/OR YEAR (Y/N)?G 4Y A!`I} @' +'0@ D2:BIORHYTM HMWX33ADHBTOTXDCMCFCLCATMAXEEDERJUSROUNCATMECATHENUMENIxxM}AARn }  AA A = B@B0BPBM} @A@!A @2@ !M}"#$% HOME FINANCE MANAGER AUTHOR: WILLIAM D. SEIVERTWRITTEN JUNE-JULY, 1980#--ADM}JUST MAXE ON LINE 100 FOR MEMORY SIZE(hh;@ ,;@,;A ,;@,9@,;@,9@,;@(M},;@,2BBA$ IS GENERAL STRING, D$ IS DATE (MM/DD/YY), H$ IS MENU LIST<TOT IS TOTAL PER DIVISIONFTOT(0)M} IS GRAND TOTALP';@,;AG,'247=13*19Z//CL$ IS CURRENT CAT, CAT$ IS CATAGORY LISTd;6-A;MAXE IM}S MAXIMUM NUMBER OF ENTRIES ALLOWEDn@9,9,;$@(,@ENTRY GROUP, AMT AND DESCRIPTIONSii1. ENTER NEW DATA M}2. DISPLAY REPORTS 3. SAVE/RESTORE 4. CHANGE OR DELETE 5. EXIT ?""DATA AT 150 IS FOR MENU (H$)ABCDEFM}GHIJKLMNDATA AT 160 IS FOR B$56-B@5ADDRESS OF RIGHT JUSTIFYING ROUTINE-6-B0-ADDRESS OF ROUNDINGM} ROUTINE*6-BP*ADDRESS OF CATAGORY MENU56-B 5ADDRESS OF CATAGORY HEADING BUILDERINITIALIZE!"M}!READ MAIN MENU HEADINGS''67A,. ENTER CHOICE (1-5)  " READ SELECTION LETTERSSET UP CATAGORY HEADIM}NGS&&67@,.Automotive &&67@ ,.Business &&67@9,.Clothing &&67M}@X,.Donations &&67@w,.Entertainment &&67@,.Food &&67A,.M}Gasoline &&67A4,.Home Improvements &&67AS,.Investments &&67Ar,.Taxes M} &&67A,.Rent/Mortgage &&67A,.Miscellaneous &&67A),.Medical M}B68@,-@-68@,-@B68@ ,-@B68@,-@-68@,-@B68@,-@M}B68@,-@-68@,-@B68@,-@B68@,-@-68@,-@B68@M},-@68@,-@:##@@K:D#6-#NUMBER OF ENTRIESNXMAIN MENM}Ub8 +@@)AR@8ERASE CURSORg5@@'@@95SET MARGINSl/-@M}@/6-+&@,$@ v-$@--@@ 6-%-6-@:7<,,"@:?,ApM}*@  )@? :? :? :?@:1,*@:5,A9AV@'AXM}9AW@!!(INVALID CHOICE, TRY AGAIN-@@%%2A@@-@M}@  %%2   A6-A:>:,,9AV@'AXM}9AW@!!( !-$@!@:*@&@2:CHANGE COLOM}R OF SELECTED NUMBER-@@P $//A A0A@APB.&&NEW, DISPLAY, TAPE, CHANGM}E, EXITENTER NEW DATA ROUTINE%@!A AR@ 2-%@2(ENTER CHOICE (A-M)M} X TO QUIT)@"@:X,A@:A,*@:M,A" -%@*##(INVALID CHOICE, TRY AM}GAIN 4-@@>%%2A@@H-@@ R%%2M}\ f A `2-%@2( +6-&@:A,%@+COMPUTE CATAGORYM}-%@%0(>:%A(,0HIGHLIGHT SELECTED CATAGORY-@@  B 1 +ARM}1-@@V (6.` @-@@@(%ENTER DATE OF TRANSACTION (MM/DD/YY) j o B:,"M}A$p B:,"@A$ q -B:,%@@r 67<,.  t :-@@:( ENTER DESCRIPTIM}ON OF TRANSACTIONy $$SHOW USER HOW MUCH ROOM HE HAS~ .-@@.( -@@M} -@ @6@ 6-@:7<,, "@:,6-@: , 67<,.>:,  *-@@*(ENTERM} AMOUNT $  A& B  6-%@!A 6-$@(&@'  68,-SAVE CATAGORM}Y -@@ %67<,.7<,!6-%@%  -@@  %67<,.7<,!6-%@%  M} 68,-SAVE VALUE A'( ILLEGAL VALUE SUPPLIED2 2-@@2(ILLEGAL VALUE, TRY AGAIN< -@M}@F %%2A@@P -@@ Z %%2d  n =-M}@@=(# x G-@@=(# G A$M}  BCANCEL TRAP -@@ ++("NEXT ENTRY FOR THIS CATEGORY (Y/N) )@ >:,4YA#M}p -@@ --(%  -@@ !!(DIFFERENT CATAGORY (Y/N)M} )@ >:,4YA  # A#RETURN TO MAIN MENU DISPLAY REPORTS "A8 *-M}@&68,-*  %-@%ACCUMULATE TOTALS  6-8,CATAGORY NUMBER 68,-8M},%8, 68,-8,%8,   -@  6-8, 68,-    +AR& M}( CURRENT TOTALS0 '6-@6-@'6-@: -@@D -%I 28,"(( 7<%M}@,2 A2J  6-8, L 6-8,N (7<, 7<%,X %-@ @!(. % b -%@%M}%l ($ 6-%@  -%@ ( GRAND TOTAL ,-%@%%@(6-8,,  ($M} AR@  8-%@8("Details of which? Enter X to stop. )@ "@:X,A9 M}@:A,*@:M,A4P 8-%@8(" INVALID CHOICE, TRY AGAIN  -@@* %%2AM}@@4 -@@ > %%2H  R A3z 6-&@:A,%@M} 8,A4 B-%@8(" NO DETAIL FOR THIS CATAGORY B A3` -% 0(>:%A(,0M}HIGHLIGHT SELECTED CATAGORY -@@P   6-  +6- ( ̠ƠM} -@ 8,A7 %6-%@% @ A5 >6-@.(Press to continue 2>6M}-@6-@($ 6-8, "A6@$-@@(.-@@ 855(7&@M}'<&@ , 7&@<,$t ~ 6-8, 9"@!-@@'(9-@@ +M}(+( TOTAL $ (Another catagory? (Y/N))@"@:Y,A1 AM}AR@< +-@@<( NO REPORTS TO DISPLAY%-@@ % A< M} ASAVE TO TAPE1 +@@1AR@-@@**("Save or Restore froM}m file (S/R/X))@"@:X,A+@:S,*@:R,! AH+ A@@""(Is file Tape or Disk (M}T/D))@+@:T,*@:D,! AH+ A@$@:D,6-$ AAP"@AR@(&M}Enter disk filename (e.g., D:FILE.EXT)'**(" D:HOMEFIN.DAT is assumed filename,%6-@%AR@1&B:M},"&6. D:HOMEFIN.DAT6 AI@"@:S,6-@J"@:R,6-@T)")@M}C:^&"@&@h"@ACr$ @$"ABP|-@M}6-$@(// @8,,8,,7&@'<, @ AE$@$"AC`M}: !0("TOO MANY ENTRIES FOR THIS VERSION: AC`-@6-$@(&@68,-&6M}8,--@@(+'67&@(%<&@(%,.7<,+  @ B A3M}-@@3(INVALID CHOICE, TRY AGAIN-@@%%2A@-@@M} %%2-@@  3-@@3( M} $$I/O ERROR./-@@/( I/O Error F:A,8-@@B%%2A@M}L-@@ V%%2`-@@ j t3-@@M}3( ~ ACHANGE OR DELETE BPAR@2-%@2(ENTEM}R CHOICE (A-M) X TO QUIT)@"@:X,A@:A,*@:M,AR-%@$$(INVALIDM} CHOICE, TRY AGAIN -@@%%2A@@-@@  %%2M}  AP`PZ2-%@2( d+6-&@:A,%@+COM}MPUTE CATAGORYiE8," -%@;(NO ENTRIES IN CATAGORYE AQn-%@%x0(>:%A(,0HIM}GHLIGHT SELECTED CATAGORY-@@  B J-@T8,AY^1 +M}AR@1-@@h(6.r6-@($| 6-8, 'AR@'-@@M}55(7&@'<&@ , 7&@<,$!!(Change this entry (Y/N/X))@"@:X,AM}@:Y,AX (Change the date (Y/N) #)@#@:Y,AV&?AR)(Enter new dateM} -?AR@0Q-@@;67&@(%<&@(%,.7<,? QAR@:!!(Change descriM}ption (Y/N) D)@N@:Y,AWPX/AR/(Enter new descriptionb-AR@-M}-@@ g7 !B:,-67&@ %<&@ %,. 7 AWEl''67&@ %<&@ %,.7<,q v(M}Change amount (Y/N))@@:Y,AX6AR AW6(Enter new amount  BM} AR@68,- AY (Delete this entry (Y/N) #)@#@:Y,AYM}"AXp --&@'0%@(!$@(&67<,. 0 AXU##67<,.7%@(<%@(,M} 1 "68,-'68,-1 AXe+68,-8%@,+68,-8%@, 6-&@M} AT`   AP(#* +*(ERROR: Table overflow2#++(#Some entries must be deleted before<#(moM}re can be added.F#-@@P#%%2A@@Z#-@@ d#%%2M}n#-@@ x# #6-&@ A'-@A 'C +ARM}1@@C@@9$'@.%%SET UP CATAGORY HEADING GIVEN L.6-$@6-M}. -@@6@.76-@:7<,,%B P7NON-BLANK FOUND/5"@: ,B 5DON'T INVEM}RT TRAILING BLANKS/6-@/9!@:Z,6-&@29CONVERT TO CAPITAL LETTERS&/6-%A(0/67<,.>:,M}:/6-&@ D/$211ROUTINE TO ROUND X TO 2 DECIMAL PLACES IN Y2)&6-P:+%>P,$A,'A)$6RIGM}HT JUSTIFYING ROUTINE6//GIVEN X, RETURNS XD$, DESTROYS VALUE IN X66. .0066-$A69967@<@M},.>:@:0,%&P:'@,$@,66-P:'@,69967@<@,.>:@:0,%&P:'@,$@,66-P:'M}@,7 -@@6@ 7"BA 7--67<,.>:@:0,%&P:'@,$@,76-P:'@M},(7 27$:CATAGORY MENU:+ +6-@%6-@+-:!!(:-%@M}(| A :(7@<@, |:-%@(| B :(7@ <@8, |:-%@(| C M}:(7@9<@W, |:-%@(| D :(7@X<@v, |:-%@(| E :(7@wM}<@, |:-%@(| F :(7@<A, |:-%@(| G :(7A<A3,M} |:-%@(| H :(7A4<AR, |:-%@ (| I :(7AS<Aq, |:-%M}@(| J :(7Ar<A, |:-%@(| K :(7A<A , |:-%@(| M}L :(7A<A(, |:-%@(| M :(7A)<AG, |:-%@:!!(M}:$ D2:FINANCECATMAXEEDERJUSROUNCATMECATHENUMENIxxL&()-;DULHNTIWBRIAWAIQ} Q}%%SUBMITTED TO M.A.C.E MARCH 1982***MULTIPLICATION HELPERBBWRITTEN BY CHET GONTERMAN FOR *** MY R}SON BRIAN *** A0 @ -@A   +AR@/0@R}/A@&2<( ( (-( Π0(3(6(9(<(d ***MULTIPLICATION PROGRAM))***GENERR}ATE RANDOM NUMBERS, A AND BiiŠ CAN BE CHANGED TO A FIXED NUMBER BY CHANGING --->A=9 OR ANY OTHERR} NUMBEREXAMPLE LET A=9%%-P:@$H:@,,%@%%-P:@$H:@,,%@ 6-$,*****PRIR}NT PROBLEM AND ASK FOR ANSWER8 A @(( X  = A"$AKj $((4( SORRY BR}UT THE ANSWER IS 7(`($j A"$AN***ANSWER IS CORRECTS%%R}-P:@ $H:@,,%@TOOAAAAAA AAA\%( ( ((R} ԧӠԡ% @]!( ( ((ԡ! @^&( ( (( РԠС& @_'( ( (( ǡ' R}@`)( ( ((ӠӠԡ) @a%( ( (( ٠ġ% @b%( ( (( Ġˡ% @c R }( ( ((١ @d%( ( (( á% @k6-@l!6-@W6-@E!6-m-R }$@n2@@o-@A p 6-6-6-q r/%2R }/ @vIIΠ٠ԠΠĠĠϠͮîŮȠw$D:MULTPs  5SETCOLOWRITTEN BT CHET GONTERMANSETCOLORS AV }AR@ +AC( (C(5SETCOLOR CHANGING! ӠD -@6@V}F-@H -@6@IAR@K 0L(SETCOLOR(P-V}@A Y Z [ c @doo V} eooΠ٠ԠΠϠ נŠԠӠ V}ĠϠͮîŠfoo V}i$D:SETCOLOR.GR0WRITTEN BT CHET GONTERMANSETCOLORS AT(  5SETCOLOSETCOLORS AAR@ +@Z} @%D:SETCOLOR.GR0 2-@@2(@CAPITAL LETTERS-@A 5-@Z}@5(@lower case letters-@A 3-@@3(@Š#Z}-@A (5-@@5(@--@A 2--@@-(Z}@ GRAPHICS 27-@A <2-@@2(@CAPITAL LETTERSA33(@"SETCOLOR Z}CHANGING! GRAPHICS 2D -@6@F-@H -@6@IARZ}@K 0L(SETCOLOR(P-@A Y Z [ c @dooZ} eooΠ٠ԠΠϠ Z} נŠԠӠ ĠϠͮîŠfoo Z} i$D:SETCOLOR.GR2AR@ +@XZOd (}AR@-AU@A.-@@^}.(THIS IS POKE 710, -@A "AT @  @ - (}AR@^}-A -AU@ A .-@@.(THIS IS POKE 712, -@^ }A 3"AT0( ԧӠ̠Ҡס3  @IIΠ٠ԠΠĠ^!}ĠϠͮîŮȠvIIΠ٠ԠΠĠĠϠͮîŮȠ D:POKE710.712^"}ĠϠͮîŮȠvIIΠ٠ԠΠĠĠϠͮîŮȠ D:POKE710.712\]vVISOUNADCHE@c@@BBSUBMITTED TO b$}M.A.C.E MARCH 1982 BY CHET GONTERMAN ԛs (}AR@-A@?A@&Q-@@b%}s(PLEASE LIST FOR INSTRUCTIONS!X-@@X(>LINES 5 AND 29 SHOULD BE CHANGED FOR DIFFERENT SOUND EFFECTS!b&}6-@@ 6(THANK YOU! CHET GONTERMAN6-%@6-@2@"AUb'}6-@-@@  @(>>ӠĠӠŠŠϠϠ͠Ϡ2nnYOURb(} CHOICE!!! CHANGE 'B' TO ANEVEN NUMBER FROM 2 TO 14 TO GET DIFFERENT SOUNDS-10 AND 14 ARE PURE<nnŠӠŠb)}٠ŠӠҠΠƠġҠӠĠŠӠî=@@SUBMITTED TO M.A.C.E MARCH 1982BY b*}CHET GONTERMAN ԛ D:SOUNDTES.T@@BBSUBMITTED TO `-@RSUBESPOKELN1LN2VV1V1V10V25VVVOIVBESTARINADLELNUCNUCOUNLOMLLINOPPONMCHNPNUf,}MBESADNUMBERADDDIDIG @ @ f-}@ f.} !"#$%&'()*+f/},- '6-6-'6-B+@%@&-@@& @the(--f0}@@- @ 2-@A <+@%@F%% @ PUSH ANY KEY WHEN f1}P!! @ I PRINT Z Apd$$6-%@$H:,%@nAdAUx ApvF:Af2}d, AU*+@%@<-@@T @ HANDS OFF!h-@Al v @`   A f3}+@%@-@@S@ AdAU3 @סS@@f4}K:_%2A@@9-@@= _2)@ Apf5} 6-P:+&,$A,'A-@@ @ SEC._%2A@@9-@f6}@= _26-%@ 6-%!@A  6-"-@f7}A , @`6G  % @ NEW RECORD!G2@P@@@$6-P:$A','Af8}$6-J## @ AVG =  SEC.T-@A ^%%2h @`rf9}CLOCK SUBROUTINE|L6-F:@,!6-F:@,06-F:@ ,L6-AV$+AV$%,%6-'@`$f:} D:GUNFIGHTSUBESPOKELN1LN2VV1V1V10V25VVVOIVBESTARINADLELNUCNUCOUNLOMLLINOPPONMCHNPNUd LMISKILSPEEDWQMIDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACRAS@1@@j<}@)AY@@! A Bh  @++j=}++++++++++++++++++++++++--------GRAVITY--------++-------VERSION 2-------++---BY GREG HARRISON----++--j>}-----10/22/81--------++++++++++++++++++++++++++AR@';@,;@,'6-``*** SEj?}T SCREEN FOR MIXED MODES, HAVE USER SEE INSTRUCTIONS AND INPUT MAX. SKILL LEVEL ***  (} A0r-@@j@}(( :-@@L( `-@@(n%@r L-@@((WOULD YjA}OU LIKE:-@@L( IsRcIn 4Y AP(Y-@.( @-jB}@Y( 2 +'0@;%@@pO-@@(]%@jC}a s-@@(MxMm KlLvL-@@((0-10) <*** MAIN LOOP ***P6-@UjD} +@Z/%2/ A_6-6-@pd-@AXe##*** TURN OFFjE} ATTRACT MODE ***i@wx @,}6-@$-@  ''2$@@jF}@ &T:,"&6-&@6-%@6-&+%,33*** CHECK IF SIDE HAS BEEN BUMPED INTjG}O *** @A !@pA  j -A@P6@<2@@@ TjH}-@AX j+@%@5 "+25 A 6-%@ @jI}*** ENDING ROUTINE ***+@%@3-@@3(@*-@@*(@jJ}GaIy?-@A %+?0@=%@@p+-@@(9%jK}@= G-@@%( pa aan?7-@@C((Y-N) G 4Y @ ==*** IF INPUT "jL}NO", IT GOES TO THE FOLLOWING ROUTINE ***>+@%@'-@@>(@ A-@@jM})(@AaN!=-@A A -@A 8-@6@T2@0@jN}h-@@0l p -@A  +88*** UPDATE CRASHES AND LEVEL THE PLAYER IS ON **jO}*^ +@'0@9AR@I( LEVEL #^( CRASHES: *** DRAW BARRIERS ***jP}1 @,@p1/AY@p1 @,@1/AY@6-&@$ R:jQ},"@A`B$!!*** "CRASH" SUB-ROUTINE ***=%2AU@@9-@@P=  %%2jR}*-@A0 46-%@ @ ll*** FIND LOCATION OF DISPLAY LIST jS}AND POKE SCREEN TO GRAPHICS MODE 1 AND 1 LINE OF GRAPHICS MODE 2 *** %%6-F:A`,%AV$F:Aa, =%@@pjT}+-@@(9%@=  %@@ %-@@%(  !-@@!(jU}GaIy -@A  *** "TAH-DAH" SOUND *** %2@h@@G2@A@jV}@i2@A6@@2@A@@-@@P -@jW}2  %2@h@@G2@A@@i2@A6@jX}@2@A@@-@A -@2  jY}-@A $*** INSTRUCTIONS ***+@%@ss(@bTHE OBJECT OF GRAV- ITY IS TO KEEP TjZ}HE DOT BETWEEN THE LINES. PRESS THE BUTTON TO STOP THEYY(@HCLIMB, BUT IF YOU HOLD IT TOO LONG, IT WILj[}L HIT THE BOTTOM LINE.ff(@TTHE NUMBER IS THE SKILL LEVEL. THE LARGER IT IS, THE MORE ROUNDS YOU WILLHAj\}VE(((@(EACH ROUND IS HARDER)L4(@#MOVE THE JOYSTICK TOSTART THE GAME.L(@ 0(j]}@0(@PRESS TO START."T:,"@" APe$ D:GRAVITY@1@@hd()&;XXYZXYYZZZZXXXXYXYA`AAD@q#@@d?'$9@V@Vn_} ?61 d C d @@@q&(@3` AA09**************n`}************ ORIGINALLY A PET DEMO *************************** REVISED FOR ATARI BY ** GREG HARRIna}SON *************************** ALLOW APROX. 2 HOURS ** TO COMPLETE *****************nb}********* +@%@ 0@6-A`6-A#6-AD#6-@P$@p('nc}6-@V6-@'6-@d2 6-'6-'6-'<-6&@F 6)! APP6-$'%@nd}6-Z6-P:?P%M:$&$,,d -6n6-M:$%$,$6-x%%6-+G:,%?@$G:@$,,$ Apne}@w  J -AP@6@<2@@@ J A` 6-%%nf} @6-@ 6-&% A  @,$ D:FLWRPOT.DMO@d?'$9@V@Vla VN_ARCIA +ARrh}@************************** COLOR SEARCH ** PROGRAMMED BY ** ri} ** GREG HARRISON **************************'6-6-'6-2 A <(rj}-@@((MOVE JOYSTICK-F(-@@((LEFT= REGISTERP#-@@#( UP= COLORZ*-@rk}@*(RIGHT= INTENSITYb6-@@6(PRESS TRIGGER TO ENTER COLORc;-@@!;(!PULL JOYSTICK BACrl}K TO RESET COLORd A A i-@A kR:,"@%m"T:,"" APrm}n0R:,"@&6-%@0 Ax0R:,"@&6-%@0 A0R:,"@&6rn}-%@0 A A "@6-$*"@6-$4"@6-$ro}>$Z-@@,( >-@@Z( SETCOLOR ,,$ 0$ D:rp}CSEARCHVN_ARCIA +ARp.@q@#@ @  (} ************************** * SOUND SEARCH PROGvr}RAMMED* * BY * * GREG HARRISON /1981 * **************************AR@vs} ( SOUND SEARCH ( ( ( Joystick movements:( ( (2( DISTORTION<( vt} F$$( PITCH   VOLUMEP( Z( CLEAR MODEd3( (3(%ź Press vu}fire button () to enter.eT(T(ITo use the clear mode, pull the joy- stick down, then push it in the di-f44(,rection vv}of the number you want to clear.g%(%(PRESS THE TRIGGER TO BEGINn"T:,"@" Ax (}}***vw} INITALIZATION ***9+@%@!6--6-96-@!!(@ Un Ar(@(vx}@RR*** UPDATE NUMBERS ***:GOSUB 2000:REM *** CHECK FOR NUMBER TO OVER- FLOW ***!AU6-!vy}@6-!@6-@8-@@8(@ ,,-@@pvz} GG*** CHECK JOYSTICK INPUT AND CHANGE SOUND VALUES ACCORDINGLY ***,T:,"" A, A`v{}@w"R:,"@" A00R:,"@&6-%@0 A`A+R:,"@*T:v|},"76-A A`0R:,"@&6-%@0 A`0R:,"@&6-%@0v}} A` Ap*** "CREATE" SOUND ***2$3-@@3(@ v~}$ ""*** "CLEAR MODE" ROUTINE *** --@@-(@ CeR oE "T:,"" A1 .R:v},"@$6-. A1 @w .R:,"@$6-. A1 .R:,"@v}$6-@. A1 A0 8-@@.(@ 8 A` D:SSEARCHD SEARCH PROGtp)*8EZIJKRNWPSHHHCBXLWH@@@@z}  (}z};@, ++(#WELCOME TO D.R.C.!! TODAY MIGHT BE ,,($YOUR LUCKY DAY. ON THE PROGRAM TODAY,,($ARE 10 RACES GAURANz}TEED TO TEST YOUR((( SKILL AT PICKING WINNING HORSES.#--(%TO END THE GAME AT ANY TIME, ENTER 0 %(FOR THE AMOUNT z}TO BET.(WW9@,9@,9@<@,9@<@,;@,;@,*(-@@"$6z}8,-( ,10,10,8,7,6,7,8,6,7,626-<6-C>6-@6-&C F,,( YOU HAVE  DOLLz}ARS TO START WITHP**("PRESS RETURN TO START THE PROGRAM.Zd (}f6-%@n!!SET WIN,PLACE & SHOW POOLS"z}x'-6-'6--@8,0068<@,-@%P:H:,$B,""8<@,z} AA@6-%8<@,0068<@,-@%P:H:,$B,""8<@, AA`''z}8<@,!8<@,A`6-%8<@,0068<@,-@%P:H:,$B,""8<@, Az}A''8<@,!8<@,A6-%8<@,9968<@,-8<@,%8<@,%8<@z}, -@8,,,68,-P:@'+8<@,'+%%,,, A@!@ AVz}--(RACE  ODDS WIN PLACE SHOW AX,,(RACE ODDS WIN PLACE SHOW))(!----- ---- z} POOL POOL POOL ( -@8,8,!@ ApMM #  8,:1$8<@,$z}8<@,$8<@,  AII # 8,:1$8<@,$8<@,$8<@, ""z}"6-@%P:H:,$8,,$ @A&!8,A(""6-@%P:H:,$8,,* @Az},!8,A."A0""6-@%P:H:,$8,,2 @A4!8,A6z}"A8"A: ( @''(ENTER HORSE YOU WANT TO BET ONJT @A ^!8,A z}h(((TYPE OF BET? WIN, PLACE OR SHOWjl4WINApn4PLACEApp0SHOWA`r((( OK z}HIGH ROLLER, WHAT IS YOUR BETt|!APA  '@PA  A0' ( !z}(NO GUTS, NO GLORY!!'(  6-& A ( ( 4YA( YOU LOSE!!!!! ( (((Yz}OU NOW HAVE $ DOLLARS LEFT6-%@ @Ap--(%I'M SURE GLAD YOU ARE NOT MY BANKER!! ( z} Ap* 4WIN*6-+'@,$8<@,,4PLACE,6-+'@,$8<@,+4SHOW+6-+'@z},$8<@,$ ( ( ( YOU WON!!!$( 60(HORSE # PAID $ ON A $ BET6(  6-%z} @ AP,,($IT'S ABOUT TIME YOU PICKED A WINNER!&(((YOU NOW HAVE $ DOLLARS LEFT06-:!z}AD(YOU HAVE NO MONEY LEFT.F$$(SO, WE ARE THROWING YOU OUT!N A X"@A b%%(z}*** POST TIME IN 1 MINUTE ***l++(#PRESS RETURN TO SEE TOTE BOARD FOR n(NEXT RACE. pv A z} A("(DREAMER! YOU ONLY HAVE $((  Ap ##*** COMPUTE RACE RESULTS ***"!-@A(}z}"68@<@,-8@<@,"8@<@,"8@<@,"8@<@,"8@<@,"8@z}<@,"8@<@,"8@<@,"$''68@<@,-+@$8,,&VV68@<@,-P:z}+++&+'@,,'@,'+8<@,'@,,$@,(VV68@<@,-P:+++&+'@,,'@,'+8<@z},'@,,$@,*VV68@<@,-P:+++&+'@,,'@,'+8<@,'@,,$@,,VV68@<@z},-P:+++&+'@,,'@,'+8<@,'@,,$@,.VV68@<@,-P:+++&+'@,,'@,'+8z}<@,'@,,$@,0''(HERE ARE THE RESULTS OF RACE 4FF(1ST8@<@,8@<@,8@z}<@,677(2ND 8@<@,8@<@,8(((3RD  8@<@,9-@:z}"AD;-@<"A4=-@>"A8@ A@B4WINA@D ADz}F4SHOWADH .NJ APL .YR$ ( ( ( &&(YOUR WINNINGS WERE $&Az}(SEE YOU LATER SPORT.A@ D:DRC@@@xB D:DEGREEGRAD@E@3A`@A0`3 +@(0@4JAN01-01-01D:PLAYER@I@B@COMPUTE 1ST BOOKCHRIS CRAWFORD 50@|  DISK REVEIW''3 #81 DISK REVIEW BY WES BOWERS3(;;33 NAME | BASIC | QUAL | USEFUL | EASE} OF | DOC. |-;;33 | BOOT? | 0-9 | 0-9 | 0-9 | |/;;33 | | | | | } |2;;33---------------------------------------------------<;;33NOTES _____________________________________________F};;33___________________________________________________P @0 D1:REVIEWAME | BASIC | QUAL | USEFUL | EASEX