@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr :!n5nOCRNSBZOUTSTOFERRORINNHINNSCORERIPLAYERTM1TM2TMTMFPTRLQUALTYPERHLHPLBOPLPOPLFDPLBALPLBA}RPLSPPLPWDHTFVPLATBATOPTRPTSWPTIRESRES1STATNPOSNUSEDAVEAVESDEFNTHWTMTTMBRNOUTTONUMATBAPSSPEEMO}PARKSIZPICKOFSZCNUMBEPLIZZDIINHINSWCBAPLDHDHPOFIBABASPPOPLPFLSPNEWDLSCSCXBAVSTA}TOCXXXBAVTFVOPDEFCAXOURXAA`AAAA@AAbA @ }A .     AA.A@ARAd A A A A4  A  A }  AP Ab At   A A! "7 #K $] %s &} A' ,() }*+, - ./0@123456789 }:;<=@>?@ABCDEFGH }IJ@K?PLMNOPQRSTUVWX }YZ[\]^_`abcdefgh}ijklmnop(qrstdBASEBALL PROGRAM}ee9@<@,9@,9@,9@,9@,9@,9@,9@0,{{9@,9@}<@,;@,;@,;@,;@,9@,9@,9@,9@,9@<@ ,9}@<@ ,9@<@ ,9@<@ ,9@<@ ,9@<@ ,9@<@ ,9@,9}@,9@,;@ ,;@,9@,9@,;@ ,;@,;@",;@,;@ ,9}@<@C,;@,GG;@,;@,;@,;@,;@,;@@,:+AR,@D'}+B2y,@(}' ArX Bb Ael Agv Ax Ay Az6-}{ A`} A A!@AU!!68@&,-8@&,% Au @}A26- Ap&A998@,&8@, +@&,)"@A: #B}!-@@%"668@<,-: C+@,@!++@,@C( Ag}6-@& 6.&6. INTO DEFENSIVE LINEUP A2 O.C. 6. @A6-@} A0 A8, @!A@8,!@"AP||8<,A0A1A2A4A6}A7AA@A&AAABAQARARP  A||8<,A&PAAA}AAAA9A&A'A'PAQARARP A||8<,A0AC}ADAEAFAGAAHA&AIAPAQARARPB$LRS ADV 1P 8}@,"AR!@AT6-%@VH68@,-8@,368@,-8@,H68@},-$ OC 2A6. STRIKEOUT #6-%@A@*@A 8@,"AP}?6-%@*6. RUNNER OUT @ HOME?68@,-H68@,-8@,368@,-8@,H68@, }- $ OC 306. SINGLE 0@*@AP( 8@,"A0-6-%@2L!}68@,-8@,368@,-8@,B68@,-L AF 8@,"AWK&6-%@&6"}8@,-M 8@,"AbP&6-%@&68@,-R*68@,-8@,*68@#},-n$x OC=4z6. GROUND OUT} 8@,"A6-%@V68@,-8@,368@$},-8@,H68@,-V6-%@$2LE RS SC.6. DOUBLE  A5+68@,-.$@G%}ROUNDER POOR DEFE6. GROUND OUT J 8@,"AL6. FIELDER'S CHOICEO338@,"*8@&},ATm B%68@,-8@,=68@,-8@,L68@,-c68%@,-m '}A 8@,"A6-%@M68@,-8@,068@,-M8@,"(}A68@,-6-%@$LONG BELT%%6-P:H:,$@%@,APA)}AP:!@A D!!!@* @A%N68<,-@X Al!@A v!!*}!@* @A% Ap!@A "@A% ApHR6. HOMERUN!+}!!!!!!! B6-%%@ B$ 3LE =6. TRIPLE! B$6-%. B=68@,},- $( PASSED BALL- $6. PASSED BALL ! A$$Z ER_ -6. ERROR  A*68@,--$ FO-} Z6-%@ 6. FLYOUT * AB68@,-8@,W68@,-Z$ PO 6. PICKOFF  8@.},"@A'p 8@,"@A' 6-%@ A' "68@,-" A' 68@/},- 6-%@ $ WALK -6. WALK -8@,A0@ 68@,- A0 0}8@,A0` 68@,-8@, 468@,-8@,*68@,-4 A0 8@,"1}A0S 6-%@ A0P $ K AVE DEF! 6. STRIKEOUT & !!@*@A1: 8@2},"A1P@ H6.RUNNER OUT @ HOME068@,->6-%@H A1pN 8@,@A1`3}P G6.RUNNER OUT @ 3rd(6-%@=68@,-G A1pX 8@,@A1pZ =6.RUNNER OUT @4} 2nd(6-%@=68@,-b 338@,)8@,@A1g -68@,-@-68@5},-l 338@,)8@,@A1q -68@,-@-68@,-{ 6-%@}6} $ SINGLE AVE DEF 6. SINGLE  !!@*@A2  A3 A2 8@,"7}A20 6-%@ 68@,- 8@,"@A2@ 8@,"@A2P A2`8} !!"@)"@A2P 6-%@ 68@,- A2` 68@,-8@, 68@9},- 8@,"@A2p 8@,"@A2 A2 !!"@)"@A2:} 8@,A2 68@,-8@, A2 68@,-8@, 68@,- $ ;}##ALL RUNNERS ADVANCE TWO BASES 8@,"A2  6-%@ 8@,"A30 6-%@<} (68@,-8@,% B($H GROUNDER AVE DEFM 6. GROUND OUTR 6-%@f 8@,"=}A4`i 8@,"@A4Pl 6-%@p 68@,-u A4`z !!"@)"@A>}46{ 338@,")8@,"A4`} A46 8@,"A4 8@,"@?}A4p 8@,A4 068@,-8@,068@,- A4 !!"@)"@@}A4g 8@,"A4 A4g 8@,"A4 68@,-8@, 68@A},- $ ALL RUNNERS SCORE " B6-% B"$DOUBLE AVE DEF6. DOUBLE !!"@B})"@A$ 8@,"@A6P. A5 A6`B0 A56-&@068@,-@C}L68@,-$tGROUNDER-6 AVE DEFv#6. GROUND OUT #6-%@~ 8@,"A7P! A8D} A! A7 A$OUT AT ANY FORCED BASE 8@,"A8338@,"*8E}@,"A8P338@,*8@,"A8`338@,*8@,A8pF}338@,"*8@,A8P 68@,- 6. RUNNER OUT AT 1st A868G}@,-6. RUNNER OUT AT 2nd A868@,-#6. RUNNER OUT AT 3rd(6-%@H}2$<!!LINE DRIVE OUT RUNNERS HOLDA+6. LINE DRIVE OUT (6-%@+$LINE DRIVE OUT AVE DEF6.LINEI}DRIVE OUT !!"@)"@A@@ A9 A@ 8@,"@A@ 8@,"@AJ}@p 8@,"@A@` A@ "68@,-" A@"68@,-" A@6K}8@,-46-%@*6.RUNNER DOUBLED OFF4 A@ $FLYOUT AVE DEF  6. FLYOUT  6-%@L} 8@,@AA "@AA6-%@68@,- 8@,@AM}A0068@,-8@,068@,-"$hPICKOFF AVE DEFm6. PICKOFF ATTEMPT r 8@,"N}AB0wK6. MAN PICKED OFF 3rd ,6-%@A68@,-K AB 8@,"ABKO}6. MAN PICKED OFF 1st ,6-%@A68@,-K AB6-%@$STRIKEOUT EXC DEF#6.P} STRIKEOUT #6-%@!!@*@AC 8@,"AC@I6. RUNNER OUT AT 3rd*6-Q}%@?68@,-I AC 8@,"ACPI6. RUNNER OUT AT 2nd*6-%@?68@R},-I AC 8@,"AC?6. RUNNER OUT AT 1st*6-%@?68@,-&$0S}SINGLE EXC DEF56. SINGLE :!!"@)"@AD@D A ADX 8@,"ADPZT}&6-%@&68@,-b 8@,@ADUd06-%@&68@,-0 AD`g68@U},-8@,i68@,-lFF8@,"@*8@,"*8@,"ADen ADpV}q"68@,-@" ADv68@,-8@,68@,-$GROUNDER EXC DEF#6. GROUND OUT W}#6-%@ 8@,AE@!!@*@AE A$DOUBLE EXC DEF&6.X} DOUBLE  A& A  8@,@AF&6-%@&68@,-R68@,-$\Y}GROUNDER EXC DEFa6. GROUND OUT f 8@,"AG i06-%@&68@,-0 AG8p Z}8@,"AG0r06-%@&68@,-0 AG8z 8@,"AG9}&6-%@&[}68@,-6. DOUBLE PLAY 6-%@ A$LINE DRIVE OUT EXC DEF$6. LINE DRIVE \}OUT $ A9!!@*@AH 8@,"AH@>6. RUNNER @ 3rd OUT)6-%@>68]}@,- 8@,"AHP>6. RUNNER @ 2nd OUT)6-%@>68@,- 8@^},"AH>6. RUNNER @ 1st OUT)6-%@>68@,-$$FLYOUT EXC DEF) 6. FLYOUT  _}6-%@8!@AIPB 8@,@AIPL&6-%@&68@,-V$PICKOFF `}EXC DEF6. PICKOFF ATTEMPT  8@,"AP0F6-%@'6. PICKED OFF 3rd<68@,-a}F AP 8@,"APPF6-%@'6. PICKED OFF 2nd<68@,-F AP 8@b},"APF6-%@'6. PICKED OFF 1st<68@,-F AP6-%@$BASE Sc}TEALER SAFE6. BASE STOLEN &68%@,-8,&68,- @AQ6-%@F$PBd}ASE STEALER OUTU<6. MAN OUT STEALING *6-%@968,-<$8,"@ARp AR ARe} AQ$PITCHERS DISPLAY BOARD (},,($-@@!f}@AS@,,($ ASB,,($| | | | | |g} ,,($$PITCHER DISPLAY STATS+AR,@//@@h}D8:PITCHER.DAT-@@-@@-@@@"@i}AT""8@<,"@AT//ATAT0ATPATAV6. AVP" 6j}.=:,' 6-, AVP6 6. ;"@AVP@6.RELIEFE AVPJ 6.ACEO"AVPk}T6.1st-L.Y"@AVP^6.2nd-L.c AVPh6.9+ INNm!@AVPr6.5 INN|l}"@AVP6.3 INN AVP6.RIGHTY"@AVP6.LEFTYQ%+@,%+&m}@,$@M+@,@%+&@,$@Q( ! & 0@:$D!!CHECKING AVAILABLE n}PITCHERSN AS AS`X! A!+Ad,AUb00(}$WHAT PITCHER ARE YOU BRINGING IN # ?g6-o}lv68@<@,-//@@D8:PITCHER.DAT@AWpp}V68@,-!68@,-068@,-?68@,-V68@<,-@@$pINPUTING SWING & Pq}ITCHse%6-P:H:,$@%@,G6-P:H:,$@%@,e6-8@&<8@&,,z&Ac r} A A A 6-@A`P! Av B! A0OOA`UA`s}AaAa@Ab`AcAcAcAc!? A`p6-@ AdP"@t}A``6-@ AdP!? Aa6-@ AdP"@A`6-@ Au}dP!?%Aa06-@ AdP"@Aa 6-@  AdP ? Abv} ?0AaAbAb Ab@$AbAb 86-@B AdPL6-@Vw} AdP`6-@j AdPt!?%Aby6-@~ AdP"@Abe6-@x} AdP6-@ AdP/6-@6-@/"@AdP6-@ AdP/6-@y}6-@/"@AdP6-@ AdP%6-@6-@% AdP A Az} A#"@  B# A0 6- Ad Bp Ad2 A AdZ$d {}INPUTTING STARTING LINEUPSe51(}%Want to see players statistics? [Y/N]5f4NAegc A A! |}AP+ A?+Ad,AUI ASS AS`] Ac(}iF (}+Ad,AUB( What is your team's}} name? 9 chrsFjH+Ad,AUD((Give the computer's team a name:(9 chrs)Hk 6.n7-@@&B:~},367B:,%} Ay11( % GOES IN TO WHAT POSITION IN LINEUP? 68@<,-68@<,-@//}@@D8:FIELDER.DAT@(Aw2X68@<,-%68@<,-66}8@<,-G68@<,-X68@<,-<I68@<,-)68@,->68@,-I@CK} (} AyG(/ DOES DESIGNATED HITTER REMAIN SAME ? KD4YAwSF-@@ G%!(WHAT} POSITION IS NOW DH? %H68@,-I-@@ K8@,"AwpP((68@,-8@,%8@}<,Z ]"Aw`6-@&n$ (}-@@  #B "nn(-#}8@<, 7+8@<,&@,$@%@<+8@<,&@,$@%@, 6$@DISPLAY F}IELDB+AR,@(}G..@@ D8:SCREEN.DATJ@O4ENDA0T(} A@ 6.6.AP 6.6.^+@,@++@,@#/(C}+@,@W+@,@#[(^$4!DISPLAY HIT OPTIONS6!-@@8!%+@,%+@,@#}:!( !8,"A0H!!!6-8@&<8@&,,M! A@R!!!6}-8@&<8@&,,\!6-a!6-%@f!"p!+@,z!+@,@#!(!@}AE!"!//8@&<8@&,,"A0! B!" ? Ap! B!"} ?0A! B!7"78@,@)8@,A! B!7"78@,@})8@,A! B!$"$8@,@A! B!" B!$!DIS}PLAY PITCH OPTIONS!-@@"%+@,%+@,@#" #A"( " "}6-"**8,%@A@ABAF$"6-@ AP&"6-@  AP*"6-@0 AP}."#A%8""B"4ENDAD"6-%@F"%+@,%+@,@#G"(L" A`N"}& @AO"-@&&@Q"%+@,%+@,@#R"( S" V"$`"}CHANGING BASERUNNERSa"7+@,@++@,@17( b"6+@,@++@,@16(I}NN e"/+@,@++@,@(/(j"8+@,@++@,@ 8(8@,~"8+@,}@++@,@8(8@,"8+@,@++@,@8(8@,"""6.POOR DEFAVE. DEFEXC.} DEF"8, @!A`"8,!@"Ab"6.AVE. DEF" Ad"6.POOR DEF" Ad"6}.EXC. DEF"/+@,@++@,@)/("!6-8@,!6-8@,"Ai"!6-8}@,!6-8@,"/+@,@++@,@3/("/+@,@++@,@3/("S+@},@!++@,@S(#"1+@,@!++@,@1(}"$"LAST KEY PRESSED"+Ad,AU" F:Ad,AUA" F:B2y,"@A" A }#$(#HIT DISPLAY DATA2#  Bunt<# Go with pitchF#  PunchP# Long ballZ# Hit and rund# Place }Hitn# Steal 2nds# Steal 3rdx# Steal home}# Substitution# END#PITCH OPT DATA# Fastball!# }  Curve# Changeup# Fastball# Knuckle-ball# Off-speed# Pitchout# Int. Walk# Substi}tution# END#COMPUTER PITCH STRATEGY#G%6-P:@$H:,%@,G6-P:@$H:,%@,#** @})8@,A"$//AAA A0APT$5 B5* @*"@}A`^$AAAP$6-@ A$6-@ A$6-@ A$6-@} A$6-@ A$6-@ A$6-@%$%CHANGING INTERNAL TO CHR$&% F:A}d,@1A )%6-@ A0% F:Ad,@0A03%6-@ A:% F:Ad,@&}A5<%6-@ A?% F:Ad,@$A@A%6-@ AD% F:Ad,@)AE}F%6-@ AI% F:Ad,@'APK%6-@ AN% F:Ad,@QAUP%6-@} AS% F:Ad,@SA`U%6-@ AX% F:Ad,@HAeZ%6-@  A}]% F:Ad,@bA_%6-@v%$%BASES ON BALLS%!@A%8<,A}%6-%@% @A%6-6-@%$%DISPLAY STATS ON SCREEN%5+@,@}++@,@#5(B.AV.%""@%8,AA%+!6-8@&<8@&,,+ A %+!6-8@}&<8@&,,+ A %/+@,@++@,@#/(%5+@,@++@,@#5( } &//8@&<8@&,,"AP &5+@,@++@,@#5(POWER&3+@,@}++@,@)3(  &K+@,@++@,@)K(#8@&<8@&,,%&//@@}D8:PITCHER.DAT*&@/&8<@,Ap2&6.RIGHT4&"@A6&6.}LEFT8&5+@,@++@,@35( 9&/+@,@++@,@3/(;&@>&$}H&PRINTING STATS BOARDJ&F+AR,@(}F($M&-@@P&}-@@R&,,($| | | | | |W& \&,,($a& f&}-@@k&,,($| | | | | |p& z&/,($/$&DISPL}AYING STAT NAMES&a+AR,@+-@@?-@@I#B ]-@@a"&w-+@},@%%+&@,$@d+@,+&@,$@%@%+@&B:,,h(l p t w$&DISLAYING PL}AYERS STATS& #B "&//@@D8:FIELDER.DAT&-@@&-@@&}@&$-@@$@&""8@<,"@As&!@Ap&-+@,@}%%+&@,$@U+@,+&@,$@%@(7+&@,$@%@<+&@,$@%@}, #& Ax&!!"@)"@Au&Y-+@,@%%+&@,$@U+@,+&@,$}@%@Y(& Ax&`-+@,@%%+&@,$@U+@,+&@,$@%@`(}& Ax&# 6.=:,#6.7@<@,&Y-+@,@%%+&@,$@U+@,+&@,$@}%@Y(& & ' '@'@ '$'READING IN OUTCOMES'O #B!-@@}5-@@9"D68<,-H L O$t'``2,8,4,4,6,3,0,1,2,10,5,2,4,1,2,1,3,8,9,4,11,2,6,10,2,7,10,0,10,6,4,2,6,}5,0,2,3,8,3,6,10,11~'bb8,4,4,6,4,1,0,3,2,4,10,3,8,11,10,6,4,10,5,1,1,7,8,3,10,6,10,9,8,6,5,10,6,3,0,2,3,10,7,6,10,0'YY13},14,12,13,12,12,13,14,13,12,12,13,12,13,13,13,12,13,12,12,13,12,12,13,12,13,13,13'13,13,12,13,13,12,13*""COUNTING NUM}BER RUNNERS O.B.*#6-#-@@ +8,"B@+6-%@ +   $\+EMPTYING BASES}f+B68@,--68@,-B68@,-p+$.,FLD,L,R,SP,P.1B2B3BSSC LFCFRF>" }RELIEF">ACE 1st-L 2nd-L>LEFT RIGHThBCOMPUTER HIT STRATEGYiB&6-&8, @ BpjB6-@}kB%%6-P:@$H:,%@,nB%%6-P:@$H:,%@,pB%%6-P:@$H:,%@,rB6-8@}<8@,,|B 8@,"@Bp5B6-8@<8@,,Bnn8@,"@*"*8@,"}*8@,"*8@<8@,,"BsB]]+8@,)8@,,*"*8@}<8@,,"Bu@Bee8@,"@*8@,"*"*!?%*8@<8@,,"}BtB;;8, @#*8@,!* @*!?%Bt@B55 ? *8@<8@,,"BspB55} ? *8@<8@,,"@Bs`B ?%Bs B55 ?0*8@<8@,,"Br0}B55 ?0*8@<8@,,"@BqB++8@<8@,,"BqPB__+8@,!* @,)}+8@,!*"*8@,",*8, @#Bu0BByBxBxBByBxpBxP}&CBxBxBxPNCBxBxBx vCBxBx0BxPCnn8@<8@,,"@}*"@*8@,"*8@,"*8@,"Bs'CBxBx Bx@C%%6-P:@}$H:,%@,C"@Bs'C ByC/%6-P:@$H:,%@,/ ByC/%6-P:@$H:},%@,/ ByCBy BxDBxByP DBxBx`>D"@By`HD }Bx\DBxBx zDByBxDBx`BxE6-@ ByE6-@ By}E6-@ ByE6-@ ByE6-@ ByE6-@ ByE6-@ By}E6-@ ByE6-@  ByE6-@ ByE6-@ ByE6-@ By}F%6-@6-@% By F%6-@6-@% ByF%6-@6-@% ByF%6-@}6-@% By(F%6-@6-@% ByFF$PF:6-%@%+@,@#3+@,7(:$}FCHOOSE CHANGE PIT/FLDF@+Ad,AU(}<(CHANGE -FIELDER -PITCHER@F0F*0PBF4}FBF AW BG%6-@ Av%6-rG$|G+'(}IS THIS A BASERUNNER? [Y/N]+G}4NBG0YBG1-(}! AT WHICH BASE? -1st -2nd -3rd1G!! @)!@B0G68,-}@G$ N4,16,8,17,3,12,5,9,7,10,4*N19,14,8,17,3,6,5,2,7,10,4 D:BALL2B.BASCCCCCCCCCCCCCCCCCCCCCCCCCCCCC}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC;<=>?@ABCDEF $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$ (Documentation) $$ } $$ Computer Baseball V1.0 $$ $$ The baseball stra}tegy game $$ $$ by $$ } $$ Douglas Blackwell $$ $$ CIS:72750,1173 $$ } $$ 40 Cornwallis Dr. $$ Scar.,Ont.,Can.M1P 1H3 $$ } $$ $$ (1987) $$ } $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$Computer Baseball is a strategy game.You play against the computer.The g}ame was written on the Atari130XE computer and pushes it's memoryto the limit. It also makes use ofthe RAMDISK. So you mus}t have use ofthe Ramdisk to run the program.To play the game you must 1-load andRUN "BASEBAL1" 2-type NEW 3-load andRUN }"BASEBAL2".BASEBAL1 puts data on the Ramdisk.BASEBAL2 is the actual programitself.-------------------------------------Y}ou select your fielders, pitcher andeven the size of park you play in.You'll be given all the info you needto select your }team on-screen, butit's abreviated so here's what theabreviations mean:FLD- "fielding value" from 1 to 3 1-poor fiel}der 2-average fielder 3-excellent fielderL- batting average leftsideR- batting average rightsideSP- Speed of playe}r 1-slow runner 2-fast runner (only fast runners can steal)P- Power 0-no power 1-power only po}wer hitters hit homerunsWhen you've chosen your team (thisgame uses the AL DH rule) thecomputer adds up all the FLD's,ex}cluding the DH, and determines afielding rating. So here's how therating translates into performance: 23:excellent }defensive team 21-22:average defensive team under 20:poor defensive teamThis rating determines how well youpickoff ru}nners, hold runner on base,how many errors you make,etc.The pitching tables are more straightforward: Ace:a pitche}r who can use all six pitches available 1st-line:can use 5 of six available 2nd-line:can use 4 of six abailable} Also given is the the # ofinnings a pitcher can go and wetherthe pitcher is left/right handed.--------------------}----------------The game is played by one pitch onlydetermining the outcome of an at-bat.The board should be fairlyself-e}xplanatory. The hitters statsare given and wether the pitcher isl/r-handed (this IS important). Alsothe option when pitchi}ng or hittingare given.I should say the the program in someways is somewhat dumb in that it willallow you options not pr}ovidedon-screen. For example, a playerwithout power will not have a"Longbelt" option displayed, but youcan still type in }that option and itwill allow the play. This means thatyou are on the honor system to onlyuse the plays displayed.You'll }see displayed on each base a 0, 1 or 2. A "0" means the base isempty. A "1" means that a slow runneris on and like-wise a }"2" is a fastrunner.When pitching you may notice that inan inning where a lot of men havereached base one of your best pi}tchesdisappears from the screen. This isbecause your pitcher is gettingtired. You may replace him wheneveryou wish (Again}, you're on the honorsystem to only use pitchesdisplayed). If you don't replace himhe will regain all his pitches forthe }next inning.-------------------------------------I would recommend your making a hardcopy of the player's data, the lineup}for the game, the linescore, and allthe other data, hits, errors, etc.Although, none of that is at allnecessary to play t}he game. It isentirely self-contained.-------------------------------------Let me make clear that this is astrategy game.} If you're a realbaseball fan I think you'll realizethat what happens in the course ofthis game is just like real baseball}.You must choose the correct pitch foreach situation. It is very authentic.Let me also assure you that thecomputer plays }fair. It has access toexactly the same players, pitches andplays as you. It has no advantageover you, except that it's bee}nprogrammed to choose the correct playin most situations. So the game's agood test of your knowledge.-------------------- }-----------------When you come to the end of the gamehit your [START] key at almost anypoint in the game. Again the progra }mis somewhat dumb, it will not knowwhen the game has ended. You must endit.-------------------------------------  } ENJOY!! Ar0cd<_rBBBBBNUCHSEDLCHCLXFRMXFS }  } BEER PARTY ATARIBY DR. JOHN FERGUSONANTIC MAGAZINE2;@,dH@ }.@@K:HOPEN KEYBOARD FOR INPUTnQ +((=(%DO YOU WANT TO ADD TO A PREVIOUS FILE@ }(C(Q((Y/N)? xn)@@(6-46-@6-L6-X6-d6-n A }Q( ( ((H(4MAKE SURE 'BEERDATA' IS IN DRIVE AND PRESS ANY KEY.K(N(Q()@6@6@ }@ D:BEERDATA9@%@9RETRIEVE OLD DATA +@CLEAR MEMORY$ B }$CHANGE CHARACTER SETs +A A61A@CA@UAR@sSET COLORS A }ND BLANK CURSORAV'AV>%6-F:A`,%AV$F:Aa,>CUSTOMIZE DISPLAY LIST)-@@ % }%@) o%@@+%@@G%@@f%@[%@!@o%@"@ }E%@'@e.%@(F:A`,E%@)F:Aa,!:@'-:SET FIRST SC }REEN$]@@](@: #$ '* %& [].$$(@ rate beers } 1 to 98'@'-@@V))(!Poor Average Fine`--(%  }j0-(% 1 2 3 4 5 6 7 8 90(t))(! (Enter +5+ if not tasted)~A@@'-@ }@A(@ BEER ++ - ?4( ( (4(# (Push spacebar to see results) A = A!6-&@H }--@0@3(= A = A!6-&@H--@0@3(= A = A!6-&@H }--@0@3(= A = A!6-&@H--@0@3(= A  A!6-&@H }* SET SECOND SCREEN (}-]@@](@: sampled #$ '* } %& beers []#$$(@ YOUR RATINGS ARE:('@'-@230( BEER +A+ = }  3(<30( BEER +B+ =  3(P30( BEER +C+ =  3(d }30( BEER +D+ =  3(x30( BEER +E+ =  3(E@@'-@ !}@E(@ CORRECT? (:)$)@$@A9 6-%6-%6-%#6-%+6-%96 "}-%@@6@@ D:BEERDATAC(@P(@](@j(@w(@ #}(@@SAVE DATASET THIRD SCREENC%@!@+%@"@1(}C- $}]@@](@: #$ '* %& [](@ N = %} 9@'@9-@0(BUSCH 6-' A"0BEER B( &} |"0(BLACK LABEL 6-' A"0BEER D,( |60(MILLER 6-' A"0BEER E@ '}( |J0(MEISTER BRAU 6-' A"0BEER AT( |^0(PABST LIGHT 6-' A" (}0BEER Ch//(' r//(' 1 2 3 4 5 6 7 8 9((( )} Average Score0( (0(" (Press spacebar to enter data)$)@$@ASHOW SCORE RO *}UTINE B A% 6--@3@% A#&% 6--@3@% A#0% 6--@3@ +}% A#:% 6--@3@ % A#D% 6--@3@% A#N AGET KEY SUBROUTINE ,}))@"@2') A0 @I)!@W&(>:AS,0 A $4ENTER DATA SUBROUTINE> -}-@5@!(&@HC2@@@@W-@@P[ }2- .}@5@(?$GRAPHING SUBROUTINE"($6-P:+',$@,"@(!$% /}-@(! "(!%$SCORE FORMAT SUBROUTINE (( 6-+',%>P 6.=:,$ 2B:,!@((7 0}@<@,2 A#. B:,"@(08 B:,"@(.00V () $'CHARACTER SET SUBROUTINE 1}'u AF:A,&@*+K6-+F:A,%@,$AVN(u("ONE MOMENT; ALTERING CHARACTER SET'56- 2}'AV6-)A5A$'D;@(,#B0.-@@(2"@67<,.>:,D .'CC104,16 3}9,0,133,205,168,169,224,133,206,177,205,145,203,200,2088'44249,230,204,230,206,165,206,201,228,208,239,96B'6-?:C:,,L' 4} #BV'""6@$`'1-@"-%$@%1 j' Bpt'!!1,124,124,56,56,56,16,16 5},56~'""3,127,64,64,64,64,64,127,127'""4,224,32,62,35,33,33,225,225'''5,127,127,127,127,127,127,127,255'''6,225,254 6},224,224,224,224,224,240'7,31,16,16,8,15,15,15,7'%%10,240,16,16,32,224,224,224,192'11,36,36,36,0,0,0,0,0'59 7},7,7,3,3,3,1,1,31'$$61,192,192,128,128,128,0,0,240'-1 D1:BEER.BASAhͨ 8} 9}ބ̄8ˍBH̅FBhFNBB8̰ HBhIiB BHBB۩Bhi BBک捷BBFffڥۍB BEER PARTY ATARI by DR. JOHN C. FERGUSON This useful applications program will keep track of the best brew ;}in a beer tasting party. The programming makes good use of custom display lists and character sets. So non beer-drinkers mi <}ght wish to type it in and change the name to Rootbeer Party Atari. It is written in BASIC and will run on all Atari compute =}rs with 16K. A disk drive is recommended, but the article explains how to run the program without one. "The Atari is j >}ust a game machine." Do those words set your blood aboil? Well, the staff at Antic is tired of them too, and spends a good ?}portion of its time diligently combing the incoming submissions for practical applications programs. We receive a lot of disk @} directory programs, recipe file storers, mini word-processors, and other rehashed versions of old ideas. But now we'd like A}to award Dr. John C. Ferguson the Honorary Antic Unprecedented Application Program of the Year Award for his fine Beer Part B}y Atari. A program whose time has come.--ANTIC ED PARTY TIME My wife and I decided to have a party one evening fo C}r a fairly large number of workplace acquaintances. The trouble with such social gatherings is that "shop talk" tends to pre D}dominate and guests don't really get to relax and have fun. Our answer to this concern was to organize the party around E}the distraction of a "beer sampling" -- to determine which brand of beer is best. The Atari provided an ideal tool to focus F}the group's attention towards finding an unbiased corporate answer to this important question. We set up a table with fi G}ve pitchers containing different beers. These were kept filled, out of sight, from cans of popular brands kept on ice. Whil H}e the guests knew which brands of beer were involved, the pitchers were only labeled as "A","B","C","D", or "E". The guests I}thus had to taste from each pitcher and give the mystery beer a rating. They could jot notes on a piece of paper to help them J}selves remember. After sampling and rating each of the five beers, they then typed their evaluations into the Atari. Th K}e program I developed for this purpose made it easy for even the most computer-phobic in the crowd. SOBERING INFLUENCE L} The program provided a prompt for entering the rating of each beer, and then a chance to verify that all five were keyed M} in correctly. It then calculated the average accumulated score for each beer, saved the data to disk, and quickly showed a N}graphic display of how the different beers brands stacked up in the opinion of the judges. A lot of guests were very sur O}prised to see how the swiftly the scores changed as more and more people entered their choices. It became almost like a hors P}e race! If things got close, the numerical values of the average scores could be displayed by pressing [S] while the graph w Q}as onscreen. VALUABLE DATA Saving the data to disk after each set of entries was a feature added to the program to R} make sure that an accident didn't happen to spoil the accumulated results. It was fortunate that this precaution was includ S}ed, because a power glitch did occur in the middle of my party and wipe out the program. However, I was able to quickly relo T}ad it, recall the accumulated data, and continue on as if nothing had happened. All in all, my beer party was a tremendo U}us success. Everybody had a good time, and work worries were kept well out of mind. THE PROGRAM Type in the progra V}m, check it with TYPO II and SAVE a copy. Much of the program is internally documented with REM statements. When you RUN it W}, the computer will first ask you if you want to add to a previous file -- that is, do you want to start with data saved from X} a previous run of the program. The first time your answer should be [N]. Note that if this choice is taken, any previous fi Y}le of BEERDATA will be deleted and replaced with a brand new one. If you answer [Y], you are given a chance to insert the pa Z}rticular BEERDATA file disk you want to add onto before the program continues. WITHOUT DRIVES If you do not have a [}disk drive, you can still use the program without this feature. You should tyoe REM"after line numbers 110-160 and 1450. Th \}is will update your scores in memory without SAVEing them. It also preserves the code for possible future use when you do ha ]}ve access to a drive. MODIFIED CHARACTERS AND DISPLAY LIST Several programing "tricks" were used to produce the va ^}ried and interesting screen displays. First, some characters of the normal Atari font were modified to produce graphic repre _}sentations of a beer stein and pilsner glasses. (See lines 10000-10200.) Next, a customized Graphics 0 screen was produc `}ed by modifying the display list to show several lines of Graphics 1 and Graphics 2 (program lines 1030-1055). Now, when the a} altered characters, the normal text, and the special Atari control characters are all put together, in any of the the three b}sizes provided by the modified screen, the result is a really sophisticated display. This was produced with remarkably littl c}e code -- ah, the beauty of Atari! NAME YOUR BRAND When you use the program, you will want to select your own five d} brands of beer to compare. These should be reprogramed into lines 1550-1630. Note which beer corresponds to each code lett e}er -- you don't want to have these mismatched. For my first party I invested in a case of pilsner glasses and a sufficient q f}uantity of five middle-line popular beers. Next year I think I will do it again with an international flavor -- rating beers g} from five different countries. Dr. John C. Ferguson is a Professor of Biology in the Department of Natural Sciences a q}(BBBALL BASB'BBALL DOCB. BEER BASB0:BEER DOCB<sBLKBOX BASBBLKBOX DOCBhCALLA BASB+CALLA DOCBF:CAROLS BASB(CAROLS TXTt Eckerd College in St. Petersburg, Florida. Dr. Ferguson has taught at Eckerd since 1963 and specializes in Marine Biology r} and Oceanographic Sciences. @ THE ATARI HAD /(@/(@ PLOT AND DRAWTO -@A ^_?QSIZOLDOLDOLDDIXYTURNLETTEDIUNDEDELAMOVFRONLEFRIGHCHBASDCHNUUNDERD@t}@@@@@@ BR @ @  @`@e@A8@1u}@@ArAqAqBHBxVAqB@BLACK BOX BY KEN ARROMDEE(v}c)1988, ANTIC PUBLISHING;@,6.>:@4, Ap(C +A 1A@CAw}@2@ @3( How many particles? (8 maximum) @@</!@%(The maximum is 8./ @PF*x}!*"P:, BU5* @P)(Please type an integer.) @PZk A(4(Do you want the black boxy} to beR( 8 by 8 or 10 by 10?U(k( (Type 8 or 10) \@_!!@*@Ad Bz} A n"(Type an 8 or 10." @x A|6-@6-6@(6-@46-@@6-@L6-{}X"@d6-p6-|6-Y"@Aq--@@A-@@G,|}K O Y Aq @,@@)@;,@@M/@ @_,@@q/@ }}@ @,@@)@;,@@E@W,@@a@s,@@/~}@@ ,@@/@@ C Aq!-@@ 5-@@ ;,? C ]A}#@'B2V@9B2aAUKAA(]B2HADKB2W@'AA(}9B2bAUKB2IAvKB2X@'AA(9B2cAUKB2PAK-@}@((@black:-@@K(@box+-@@+(@ (-@@}((@)-@@)(@&-@@ &(@ (-@@((@}-@S+6-P:H:,$,%@&+"@,S6-P:H:,$,%@&+"@," 1}AqA, Ar,6 @-@:A,J 6-6-6-T@1%@%@1-%@%@}@(@^-@@0 h**T:,"*"@2APr6-R:,|)-%@%@})(@>:, F:Ad,"@3AP:F:B2y,"@,-@@@0 : A0"@}A@''A0A`AA b!6-%+"@,&+"@,9"+"@,&@F6-6@V6-+}"@,b6-@C"@ %+"@,'6-@76-+"@,C6-@ A@j!6-%+"@,&+}"@,9"+"@,&@F6-6@^6-@%+"@,j6-@K"@ %+"@,'6-@?6}-@%+"@,K6-@ A@j!6-%+"@,&+"@,9"+"@,&@F6-6@^6-@}%+"@,j6-@K"@ %+"@,'6-@?6-@%+"@,K6-@ A@b!6-%+}"@,&+"@,9"+"@,&@F6-6@V6-+"@,b6-@C"@ %+"@,'6-@}76-+"@,C6-@ A@&4-%@%@((@ 46-@0) 6-6-6-)"@}A:"@6-@ D"@6-@ N"6@6-X"6@6-b''}A0ApAAPlDIR 1=MOVING RIGHTvC1%@%@+1%@C1%@%@} A 06-%@ A2=MOVING UP+1%@1+1%@ A 06-&@} A3=MOVING LEFT+1%@1+1%@ A 06-&@ A4=}MOVING DOWNC1%@%@31%@%@C1%@ A 06-%@ UU+"@},*@%+"@,*+"@,*@%+"@,A"@AP ''AA A0A}@*6-%@ AP46-&@ AP>6-&@ APH6-%@R6-%@ B}\?-%@%@)(@>:,?-%@%@f+(@>:,!-%@+ A pQ B}6-%@1-%@%@G(@>:A8,Q A zQ B6-%@1-%@%@G(@}>:@ ,Q A 3-@@!!@ 3-@@(@  A03"Ar})"A@'& A3ABSORPTIONS"@9"Ar)"Ar)"A@)"A@<'F ASREFLECTIONK}1+"Ar)"A@,*+"Ar)"A@,4'> AKREFLECTION6-%@@-Ar*Ar*A@*}A@0$@NOTHING AHEAD!!"Ar)"A@A@BOUNCE RIGHT)6-&@")6-@'} ABOUNCE LEFT)6-%@"@)6-@'$ A.ҠΛ8e +}@*AF:A,&@A6-F:A,%@K+@WAVe6-$AVB::6-?:C: hhhhh֢}ԑ`,<BsD<,L_""6@&A A8AAJA@r\A@&_$V}?'-%@$%@$%@+"15 ? A`''1,255,153,153,255,255,153,153,255j3,0,0,0,31,31,24,24,}24t4,0,0,0,255,255,0,0,0~5,0,0,0,248,248,24,24,246,24,24,24,24,24,24,24,247,24,24,24,31,31,0,0,08},24,24,24,248,248,0,0,0##9,60,82,137,197,163,145,74,60((10,255,129,189,165,165,189,129,255((11,255,129,129,129,12}9,129,129,255((12,255,129,129,129,129,129,129,255-1SHOW PARTICLE LOCATION3 #AP%-%@%A})"/3 ##60,126,255,255,255,255,126,60q-@@*(@<-@@ L(@}^-@@q(@ T:,A $-$(@}0-%@%A},F:&@,0 AdAU A0(GUESS MODE2(-@@((@<6-R:},F]56-%+@*@,&+@ *@,M!@%+"@,]6-+"@,P+ +"@,+6-@}%+"@,ZqI6-%+"@)"@ )"@,&+"@)"@)"@,a!@%+"@,q6-+"@,}d+ +"@,+6-@%+"@,n@1%@%@1-%@%@@(@!xT:,}A}I-@@0 I6-%@2$+ A`,&@2$+!A`,4-@@4F:B2y,"@}A7 )-%@%@)(@>:,%F:Ad,"@3'% AP A@)-%@%@})(@>:,C-@@0 --@@@(@C$ A0TITLE PAGEC +@}A1A @@CA@9%6-F:A`,%F:Aa,$AV9%@@,-@}@,(@ 2-@@2(@BY KEN ARROMDEEL%@@)-@@}L(@PRESS TRIGGER TO PLAYT:,A0$'RANDOM DELAY';4-@@`&@$%@@$}H:,8 ;$D1:BLACKBOX.BASxxxxxxxxH 6-E6-?:?@}ABCDEBFGHIJAVKB6L PMA#N@O}v +76-F:A`,%AV$F:Aa,%@K&@@q_%@@l;@,v B?1;@},;@,9@,9@,?6-&@HK6-@6-@ '6-@36-@ ?6-@$K6-@} (}AR@@ (}6-@  AE#A B6-F:AY,$AY}6-@B6-B0((B-@00((}#-@@#-00(( #' -@}@!'-(t1()5 G-@ t((é}2@-@@(&32-@ 2(CALLA BY CHRIS ROB}ERTS <O-@@"'-@+(/";-@8?(C OAY=# 6.-@A# B6}-@ 6-% A16-@=6-@I6-@U6-@a6-@m6-@y6-6-@}6-@6-@6-@6-@6-@6-C A F "@6. 6.2G }"6. 6.H-@(I AK!!"@*"@A`N} -@(!6-}C2@@@@W-@@0[ }2@Pb@w$R:,"@}26-&@F-@@EJ V @ b6-@)ZPR:,"@ 6-%@4-@@E8 D!}@)P6-@ \6-6-_&T:," A& Ad @pnR-@@+(}Ҡ=-@@O( HIGH SCORE R$MAR@#6-%@/!@;6-MAR}@"6-@"@6-@J -@6@<2@@ @@ }J AEK#"@ *"@*)6-56-A6-AK AK#"@*"@*)6-}56-A6-AK AK#"@*"@*)6-56-A6-AK AK#"@!*}"@*!)6-56-A6-AK AK#"@%*"@*!)6-56-A6-A}K AK#"@)*"@*!)6-56-A6-AK AK#"@ *"@*!)6-}56-A6-AK AK#"@*"@*!)6-56-A6-AK AK#"@*}"@*!)6-56-A6-AK AK#"@!*"@*!)6-56-A6-A}K AK#"@%*"@*!)6-56-A6-AK AK#"@)*"@*!)6-}56-A6-AK A-@@@92@A@@= Z-@6@}v2@A@z 6-%@ AE!@6-$% AE-@% A} A!, A#-36-6-#6-%- AP3 %.!6-%@6-! A/!6-%@}6-! A0!6-%@6-! A1!6-%@6-! A2!6-%@6-! A3!6-%}@6-! A43"6-%@)6-@3 A5!6-%@6-! A6!6-%@}6-! A7!6-%@6-! A8!6-%@6-! A9!6-%@6-! A:!6-%@}6-! A;3"@6-%@)6-@3 A<!6-%@6-! A=!6-%@6}-! A>!6-%@6-! A?!6-%@6-! A@!6-%@6-! AA!6-%@}6-! AB3"6-%@)6-@3 AC!6-%@6-! AD!6-%@6}-! AE!6-%@6-! AF!6-%@6-! AG!6-%@6-! AH!6-%@}6-! AI3"@6-%@)6-@3 AJ!6-%@6-! AK!6-%@6-}! AL!6-%@6-! AM!6-%@6-! AN!6-%@6-! AO!6-%@}6-! AP3"6-%@)6-@3 AQ!6-%@6-! AR!6-%@6-}! AS!6-%@6-! AT!6-%@6-! AU!6-%@6-! AV!6-%@}6-! AW'6-%@6-@' A- AE#-&@- A$;6-6}-+6-%&@5 AP; %  A CHARCTER SET MODIFERBY CHRIS ROBERTS6-F:A},&@.A&@<6-$AVF+XAR@r0@-@@(STAN}D BY FOR CALLA**6. hhhhh֢ԑ`!!6-?:C:,<A$$AV<,5 #A!-@@c%"}56-%$@+-@"#%' + &&@#AV&$$$21,168,128,128,128,16}8,8,8,168&&16,32,136,136,136,136,136,136,32""17,32,160,32,32,32,32,32,168""18,168,8,8,8,168,128,128,16819,1}68,8,8,8,40,8,8,168""20,136,136,136,136,170,8,8,8$$21,168,128,128,128,168,8,8,168((22,128,128,128,128,168,136,136},168##23,168,8,8,32,128,128,128,128((24,168,136,136,168,136,136,136,168 25,168,136,136,168,8,8,8,8 ((32,255,2}55,255,255,255,255,255,255 ''33,32,168,136,136,168,136,136,136 ((34,160,136,136,160,136,136,136,160 &&35,32,136,128,}128,128,128,136,32 ((36,160,136,136,136,136,136,136,160((37,168,136,128,128,160,128,136,168((38,168,136,128,128,16}0,128,128,128((39,168,136,128,128,138,136,136,168((40,136,136,136,168,136,136,136,136""41,168,32,32,32,32,32,32,1}6842,8,8,8,8,8,136,136,32((43,130,130,136,160,160,136,130,130((44,128,128,128,128,128,128,128,168((45,136,1}68,136,136,136,136,136,136((46,130,130,162,162,138,138,130,130((47,168,136,136,136,136,136,136,168((48,168,136,13}6,136,168,128,128,128((49,168,136,136,136,136,168,136,162((50,168,136,136,136,160,136,136,130$$51,168,136,128,168},8,8,136,168!!52,168,32,32,32,32,32,32,32((53,136,136,136,136,136,136,136,168''54,136,136,136,136,136,136,136,32} ((55,136,136,136,136,136,136,168,136!&&56,136,136,136,32,32,136,136,136"$$57,136,136,136,136,32,32,32,32#""58,168},8,8,32,32,128,128,168$65,60,0,0,0,0,0,0,0%66,60,0,60,0,0,0,0,0&67,60,0,60,0,60,0,0,0'68,60,0,60,0,60,0,6}0,0( 69,15,15,15,15,15,15,15,15)((70,240,240,240,240,240,240,240,240*71,255,255,0,0,0,0,0,0+((72,255,255,255,2}55,255,255,255,255,((92,255,235,170,235,235,235,235,255-((93,255,235,235,235,235,170,235,255.109,0,0,102,0,0,0,0,0}/110,0,0,0,0,24,24,24,240 111,0,24,0,0,102,102,102,01!!112,0,0,0,0,102,255,102,1022!!113,255,102,0,24,62,96,60},63""114,124,24,0,0,102,108,24,484""115,102,70,0,28,54,28,56,1115116,102,59,0,0,24,24,24,06117,0,0,0,0,14,28,}24,247 118,28,14,0,0,112,56,24,248""119,56,112,0,0,102,60,255,609 120,102,0,0,0,24,24,126,24:121,24,0,0,0,0,0},0,0;122,24,24,48,0,0,0,126,0<123,0,0,0,0,0,0,0,0=124,24,24,0,0,6,12,24,48%%,,,,,,,,,,,,,,,}-@(-@'( 3-@;( G-@O( U-]( c-k( w-@((}|-@3@(%-@-( 9-@A( G-O( U-]( c-k( w-@(|(}Q ( G"*"*"*"*"*"Q A0KA"*"*"*" }*"*"K A05"@6-%@)!@56-5"@6-%@)!@ }56-##"@*%"A@"@@"@@ AE4$ j6-% }%%%%%'-@ @@( GAME OVER R-@ @j( FINAL SCORE  A0 j6-%%%% }%%'-@ @@( GAME OVER R-@ @j( FINAL SCORE  -@A   ! }6-  !6- '6- @68@,-!68@,-068@,-?68@,-N68@,}-]68@,-l68@,-{68@,-68@,-68@,-68@,-68@,-$u#"}A)"A()"ABL8@,"*"@*!\6-%@%h6-u6-6@u#"A)}"A')"AAL8@,"*"@*!\6-%@%h6-u6-6@u#"A)"A&})"A@L8@,"*"@*!\6-%@%h6-u6-6@u#"A)"A%)"A9}L8@,"*"@*!\6-%@%h6-u6-6@u#"A)"A$)"A8L8}@,"*"@*!\6-%@%h6-u6-6@u#"A )"A#)"A7L8@,"}*"@*!\6-%@%h6-u6-6@k"A)"A0B8@,"*"@*}!R6-%@%_6-6@k6-u#"A)"A)"A1L8@,"*"@*!}\6-%@%h6-u6-6@u#"A)"A)"A2L8@,"*"@*!\6-%}@%h6-u6-6@ u#"A)"A)"A3L8@,"*"@*!\6-%@%}h6-u6-6@u#"A)"A )"A4L8@,"*"@*!\6-%@%h6-}u6-6@u#"A)"A!)"A5L8@,"*"@*!\6-%@%h6-u6}-6@($p""1 PLAYER COMPUTER SUBROUTINEqTEST FOR EXTRA TURNr6-s%"@6-@% Ac}t%"@6-@% Acu%"@6-@% Acv%"@6-@% Acw%"@}6-@% Acx%"@6-@% AcTEST FOR CAPTURE;-@@;8,"*8},!Aa  AbC-@&@38,!*8,"+&,96-C Ac  Ab7}TEST FOR END OF GAME STOP8.8@,!@$6-@. Ac9.8@,!@$6-@. Ac:.}8@,!@$6-@. Ac;6-@@&8,!,6-6 Ac< *6-6- }*MOVE ROUTINE9-@(+6-+&@,'@9 Ac"!Ac3"AcDS@w!}#6-&@7-@@E; G @ S6-@) -@(!6-C2@@@"}@W-@@[ }2@ AcA6-%@%-@@E) 5!#}@)A6-@  -@(!6-C2@@@@W-@@[ }2@$} Ac+ A A! AE+ @p0u0@/-V(" %} DRAGONWARE hAR@t6-@"@@K:1u3-@@!%-%@&}/(CALLA3 2uY-@@%-%@/( =6-&@K-%@U( Y 3uq-@'}A+0?0@C F(I(d( 1 OR 2 PLAYERS ?q)@5uc A#Bc5,(}4,4,5,5,4,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,46uG6-@16-F:A`,%AV$F:Aa,G%)}@%@d:ur6-@'-%@%@"-1"5 A@eX%@F:A`,o%@F:Aa*},r$D:CALLA',@@0'/A @P=>',A@P'/A05 Documentation for: CALLA.BAS in DL 1 of the ATARI 8-Bit Forum on CompuServe (GO ATARI8): AFTER LOADING AND STARTING THE PR,}OGRAM, SELECT EITHER THE ONE OR TWO PLAYER GAME BY PRESSING A 1 OR A 2. ONE PLAYER GAME WAIT WHILE THE NEW CHARACTE-}R SET IS SET UP. MOVE JOYSTICK LEFT OR RIGHT TO MOVE ARROW. THE FIRE BUTTON COMPLETES YOUR SELECTION. THE OBJECT OF THE GAM.}E IS TO HAVE THE HIGHEST NUMBER IN YOUR CONTAINER AT THE END THE OBJECT OF THE GAME IS TO HAVE THE HIGHEST NUMBER IN YOUR CO/}NTAINER AT THE END OF THE GAME. THE LARGE RECTANGLE AT THE LEFT IS PLAYER ONES HOME CONTAINER, THE ONE ON THE RIGHT IS T0}HE COMPUTER OR PLAYER TWOS HOME CONTAINER. THE TOP ROW OF NUMBERS IS PLAYER ONE, THE BOTTOM IS THE COMPUTER OR PLAYER TWO. P1}LAY ALWAYS PROCEDES IN A COUNTER CLOCKWISE DIRECTION. A MOVE CONSISTS OF MOVING THE CONTENTS OF EACH SMALL BLOCK. AT THE2} BEGINNING OF THE GAME EACH SMALL BOX CONTAINS THE NUMBER THREE. TO PLAY THE GAME, PICK UP NUMBER AND SPLIT IT BY PLACIN3}G ONE IN EACH CONSECUTIVE BOX MOVING TO THE LEFT FOR PLAYER ONE, RIGHT FOR PLAYER TWO. (THE COMPUTER DOES THIS AFTER YOU 4} HAVE MADE YOUR SELECTION OF WHICH BOX TO MOVE). TRY TO GAIN AN EXTRA TURN BY MAKING SURE THE LAST NUMBER LANDS IN YOUR H5}OME CONTAINER. CAPTURING AN OPPONENTS NUMBERS THIS IS DONE BY DROPPING THE FINAL NUMBER ON YOUR TURN INTO AN EMPTY BOX ON6} YOUR SIDE. THE NUMBER DIRECTLY ACROSS FROM THIS BOX WITH THIS ONE NUMBER GO INTO YOUR HONE CONTAINER. NO EXTRA TURN IS AW7}ARDED WITH A CAPTURE. PLAY PROCEDES UNTIL ALL SMALL BOXES ON EITHER SIDE ARE EMPTY AT WHICH TIMETHE FIRST PERSON TO EMPTY HIS8} SIDE CAPTURES ALL REMAINING PEICES IN THE CAPTURES ALL REMAINING NUMBERS IN THE OTHER PERSONS BOXES AND PUTS THEM IN HIS HO9}ME CONTAINER. THATS ALL TO PLAYING THE GAME--------ENJOY-------. (CHRIS HYPEMAN ROBERTS) @(S:,)(T:,A[  Ej"~"SNNNN ӠĪ PRO";}GRAM BY ROY DUGAN ( MUSIC BY NESS FAMILY 2 DIRECTED BY S. GOFF < F+@"<}%@/0@@I0@@@[-@}(@TO ALL OUR FRIENDS..-@"=}A P(@}$-@@A(@MERRY CHRISTMASS-@@f(@AND Ax-@">}@(@happy new yearZT-@@'(@from9-@@ T(@  Š̠̠àϠd"?} #An"x"6@As2@@;2@@@W2@@"@}@s2@@@G-@$@690@+%,'@ @= G A*##"A}ˠŠĠӛ41,0,108,128,162>.1,0,0,0,0H1,81,108,128,162R.1,0,0,0,0\1.5,81,108,128,162f"B}.1,0,0,0,0p.5,0,85,144,0z1,81,108,128,1621,64,81,108,162.1,0,0,0,01,64,81,108,2171,72,85,1"C}08,2171,53,81,108,1281,53,85,108,1281.5,53,96,121,0.5,60,96,144,01,64,81,108,01,72,85,108"D},2172,64,81,108,162.1,0,0,0,01,108,128,162,01,81,108,128,162.1,0,0,0,01.5,81,108,128,162"E}$.5,85,144,217,0.1,81,128,162,19381,64,81,108,217B1,64,81,96,230L1,72,0,144,0V1,53,85,108,128`"F}1,72,96,230,0j1.5,72,85,217,0t.5,85,0,173,0~1,85,108,144,01,96,114,162,02,108,144,173,217"G}.1,0,0,0,01,53,108,0,0.1,0,0,0,01,53,108,0,0.1,0,0,0,01,53,108,0,01,81,162,0,01,60,"H}108,0,1731,64,81,0,1621,64,81,0,2171,72,85,0,217 1,53,108,0,0.1,0,0,0,01,53,108,0,0(."I}1,0,0,0,021,53,108,0,0<1,81,162,0,0F1,60,108,0,173P1,64,81,0,162Z1,64,81,0,217d1,72,85,0,217n"J}1,47,81,121,243x.1,0,0,0,01,47,81,121,2431,47,60,121,2431,53,96,128,2431,60,96,144,2431"K},64,96,153,1932,60,96,144,01,72,85,108,121.5,64,85,108,121.5,60,0,0,01.5,53,81,108,128.5,"L}81,108,128,01,81,96,128,1931,72,85,108,1282,64,81,108,1621.5,47,81,121,243.1,0,0,0,0".5,47"M},81,121,243,.1,0,0,0,06.5,47,81,121,243@.5,47,81,121,217J.5,53,64,193,0T.5,53,64,153,153^1,60,7"N}2,144,0h1,64,76,193,0r1,60,96,144,0|1,60,96,162,01,72,108,173,0.5,64,108,217,217.5,60,108,21"O}7,2171.5,53,81,128,243.1,0,0,0,0.5,81,81,217,217.1,0,0,0,01,81,128,217,217.1,0,0,0,0"P}1,72,85,217,217.1,0,0,0,03,81,108,217,1625,0,0,0,0))ĠԠՠ٠Λ.75,96,0,"Q}0,0,.1,0,0,0,0EE.75,96,193,0,0,.75,64,193,0,0,.75,64,173,204,0,.75,72,173,204,0&@@.75,81,193,0,0,.75,85,173,0,0,.75,96"R},162,0,0,.75,108,0,0,00AA.75,96,121,0,0,.75,85,121,0,0,.75,81,121,0,0,.75,72,121,0,0:$$2.25,64,102,128,0,.75,96,0,0,0D"S}EE.75,96,193,0,0,.75,64,193,0,0,.75,64,173,204,0,.75,72,173,204,0N@@.75,81,193,0,0,.75,85,173,0,0,.75,96,162,0,0,.75,108"T},0,0,0XAA.75,96,121,0,0,.75,85,121,0,0,.75,81,121,0,0,.75,72,121,0,0b$$2.25,64,128,0,0,.75,64,153,0,0lAA.75,60,144,0"U},0,.75,72,121,0,0,.75,64,128,0,0,.75,60,144,0,0v??.75,53,173,0,0,.75,47,173,0,0,.75,64,162,0,0,.75,72,0,0,0AA.75,81,19"V}3,0,0,.75,96,193,0,0,.75,85,144,0,0,.75,81,162,0,0AA.75,72,173,0,0,.75,72,121,0,0,.75,81,128,0,0,.75,72,144,0,0221.5,"W}64,162,0,0,.75,60,144,0,0,.75,64,144,0,0AA.75,64,128,0,0,.75,72,128,0,0,.75,81,128,0,0,.75,85,128,0,0PP.75,96,121,0,0"X},.75,96,128,0,0,.38,81,144,0,0,.38,85,144,0,0,.75,96,162,0,0221.5,72,173,0,0,.75,81,128,0,0,.75,72,144,0,0AA.75,64,16"Y}2,0,0,.75,60,162,0,0,.75,53,144,0,0,.75,47,144,0,0AA.75,64,128,0,0,.75,72,121,0,0,.75,81,128,0,0,.75,85,144,0,03,96"Z},128,193,05,0,0,0,0Ҡ٠Πқ1,53,128,0,0.1,0,0,0,01.5,53,128,0,0 .5,60,144"[},0,01,64,162,0,0 1.5,64,108,0,0*.5,72,121,0,041,81,128,0,0>++1,81,96,0,0,1,85,108,0,0,1,96,121,0,0H"\}2,108,128,0,0,.1,0,0,0,0R1,108,128,0,0\111.5,108,121,0,0,.5,96,121,0,0,1,108,121,0,0f--1,108,173,0,0,1,72,173,0"]},0,1,85,173,0,0p--1,96,162,0,0,1,108,162,0,0,1,81,128,0,0z**2,64,108,0,0,.1,0,0,0,0,1,53,128,0,0::.1,0,0,0,0,1.5,53"^},128,0,0,.5,60,144,0,0,1,64,162,0,0::.1,0,0,0,0,1.5,64,108,0,0,.5,72,121,0,0,1,81,128,0,0,,1,81,121,0,0,1,85,121,0,0,"_}1,96,173,0,0..2,108,162,128,0,.1,0,0,0,0,1,108,128,0,0//1.5,60,144,0,0,.5,64,162,0,0,1,72,173,0,0,,1,64,162,0,0,1"`},72,121,0,0,1,81,128,0,0..1,72,121,0,0,1,96,121,0,0,1,85,144,121,04,81,128,162,0,5,0,0,0,0ˠŠ"a}ӛ>>1,60,144,0,0,.33,68,162,0,0,.6,72,182,0,0,.67,81,162,0,0AA.67,91,144,0,0,.67,81,136,0,0,.67,72,121,0,0,.67,91,144"b},0,0nn.33,81,136,0,0,.33,72,144,0,0,.33,68,162,0,0,.33,81,162,0,0,.67,72,182,0,0,.33,72,136,0,0,.33,81,136,0,055.67,9"c}1,144,0,0,.67,96,162,0,0,1.33,91,144,182,0 ??1,60,144,0,0,.33,68,162,0,0,.67,72,182,0,0,.67,81,162,0,0 AA.67,91,144,0,0"d},.67,81,136,0,0,.67,72,121,0,0,.67,91,144,0,0 nn.33,81,136,0,0,.33,72,144,0,0,.33,68,162,0,0,.33,81,162,0,0,.67,72,182,0,0"e},.33,72,136,0,0,.33,81,136,0,0$ 44.67,91,144,0,0,.67,96,162,0,0,1.5,91,144,182,0. NN.67,81,96,0,0,.33,81,121,0,0,.33,72,1"f}21,0,0,.67,68,108,0,0,.67,81,96,0,08 ;;1,72,91,0,0,.33,68,91,0,0,.67,60,96,0,0,.67,81,96,0,0B \\.33,72,91,0,0,.33,64,91,0"g},0,.67,60,96,0,0,.33,53,108,0,0,.33,47,108,0,0,.67,45,108,0,0L ;;.67,47,121,0,0,.67,53,91,0,0,1.3,60,96,0,0,.1,0,0,0,0V ??"h}1,60,144,0,0,.33,68,162,0,0,.67,72,182,0,0,.67,81,162,0,0` AA.67,91,144,0,0,.67,81,136,0,0,.67,72,121,0,0,.67,91,144,0,0j"i} WW.25,53,136,0,0,.1,0,136,0,0,.25,53,136,0,0,.1,0,136,0,0,.25,53,136,0,0,.1,0,0,0,0t 22.25,53,136,0,0,1.3,60,144,0,0,.33,"j}68,108,0,0~ EE.67,72,121,0,0,.67,81,136,121,0,.67,91,144,121,0,2,91,121,144,0 5,0,0,0,0 ٠ϠŠě"k} 001,60,243,0,0,.75,64,162,0,0,.25,72,182,0,0 ""1.5,81,193,0,0,.5,91,182,0,0 ""1,96,162,0,0,1,108,162,182,0 ##1.5,1"l}21,162,193,0,.5,81,0,0,0 111.5,72,91,182,0,.1,0,0,182,0,.5,72,91,182,0 111.5,64,91,217,0,.1,0,0,0,217,.5,64,91,217,0 "m}881.5,60,96,243,0,.1,0,0,0,0,.25,60,0,0,0,.1,0,0,0,0 JJ.5,60,193,0,0,.5,64,162,0,0,.5,72,182,0,0,.5,81,193,0,0,.1,0,193,0"n},0 ??.75,81,193,0,0,.25,91,217,0,0,.5,96,243,0,0,.5,60,243,0,0 JJ.5,60,193,0,0,.5,64,162,0,0,.5,72,182,0,0,.5,81,193,0,"o}0,.1,0,193,0,0 JJ.75,81,193,0,0,.25,91,217,0,0,.5,96,243,0,0,.5,96,121,0,0,.1,0,0,0,0 OO.5,96,121,0,243,.1,0,0,0,243,.5"p},96,121,243,0,.1,0,0,0,243,.5,96,121,0,243 ##.25,96,243,0,0,.25,91,243,0,0 ff.5,81,96,243,0,.1,81,96,0,0,.5,81,96,243,0"q},.1,81,96,0,0,.5,81,96,243,0,.15,91,0,0,0,.15,96,0,0,0( ##.5,108,128,162,0,.1,0,0,162,02 ##.5,108,128,162,0,.1,0,0,162,0"r}< ##.5,108,128,162,0,.1,0,0,162,0F &&.25,108,128,162,0,.25,96,162,0,0P ##.5,91,128,162,0,.1,91,128,0,0Z ##.5,91,128,16"s}2,0,.1,91,128,0,0d ##.5,91,128,162,0,.1,91,128,0,0n $$.35,96,162,0,0,.35,108,182,0,0x 44.75,121,193,0,0,1.50,60,193,0,0"t},.75,72,182,0,0 >>1,81,193,0,0,.5,91,217,0,0,.75,96,243,0,0,.75,91,144,0,0 &&1.5,96,162,0,0,1.5,108,162,182,0 3,12"u}1,162,193,243 5,0,0,0,0 ##Ӡ͠Šӛ 1,81,96,121,243 1,96,121,162,243 1,60,81,162,1"v}93 1,81,96,121,243 1.5,47,81,121,162 0.5,53,81,128,182 1,60,81,121,193 1,0,81,121,193 1,72,121,"w}144,182 1,72,121,121,182 1,81,121,162,193" 1,60,121,144,144, 1,81,108,162,1626 1,91,128,162,162@ 2,"x}96,121,162,243J 0,0,0,0,0T 1,81,96,121,121^ 1,96,121,121,162h 1,60,81,162,193r 0.5,81,81,162,193| 0.5"y},00,81,162,193 1.5,47,96,121,243 0.5,64,91,128,217 1,60,96,144,193 1,64,96,153,193 1,60,96,144,144"z} 1,64,96,153,193 1,72,96,96,243 0.5,64,96,108,108 0.5,60,60,121,121 1,64,96,108,217 1,72,85,121,2"{}17 2,81,81,128,128 0,0,0,0,0 1.5,53,81,128,162 0.5,53,81,128,162 1,64,81,108,162& 1,81,128,162,1"|}620 1.5,47,81,121,243: 0.5,53,96,136,243D 1,60,91,144,182N 1,72,91,121,182X 1,45,72,108,217b 1,47,81,"}}162,193l 0.5,53,91,144,182v 0.5,53,91,128,162 0.5,60,96,121,144 0.5,60,60,121,144 1,60,81,108,162 "~}1,64,91,108,108 3.5,60,96,121,243 5,0,0,0,0, 0,-1,0,0,0 D:CAROLS.BAS "} O_Angels_We_Have_Heard_On_High_1. Angels we have heard on high, Sweetly singing o'er the plain; And the mountains in reply Ech&}o back their joyous strain.Gloria in excelsis DeoGloria in excelsis Deo2. Shepherds why this jubilee? Why your gladsome strai&}n prolong? Say what may the tidings be; Which inspired you heav'nly song.REFRAIN3. Come to Bethlehem and see - Him, whose bi&}rth the angels sing; Come adore on bended knee, Christ the Lord, the newborn king.REFRAIN4.See within a manger laid Jesus Lor&}d of Heav'n and earth! Mary, Joseph, lend your aid, With us sing our Saviour's birth.REFRAIN***Gloria in excelsis Deo is Lat&}in for Glory to God in the Highest***_Hark! the_Herald_Angels_Sing_1. Hark the herald angels sing Glory to the new-born King!&} Peace on earth and mercy mild, God and sinners reconciled! Joyful all ye nations rise Join the triumph of the skies; With t&}h'angelic host proclaim Christ is born in Bethlehem. Hark the herald angels sing Glory to the new-born King.2. Christ by high&}est heav'n adored; Christ the ever lasting Lord; Late in time behold Him come, Offspring of the Virgin's womb. Veild in fles&}h the God-head see; Hail the 'Incarnate Deity, Pleased as Man with man to dwell; Jesus our Emmanuel! Hark the herald angels &}sing Glory to the new-born King.3. Mild He lays His glory by, Born that man no more may die, Born to raise the sons of earth,&} Born to give them second birth. Ris'n with healing in His wings, Light and life to all He Brings, Hail the Sun of Righteous&}ness! Hail, the heav'n-born Prince of Peace. Hark the herald angels sing glory to the new-born king._Jingle_Bells_1. Dashin&}g thro' the snow In a one-horse open sleigh; O'er the fields we go, Laughing all the way. Bells on bobtail ring, Making spir&}its bright, What fun it is to ride and sing A sleighing son tonight!CHORUSJingle bells! Jingle bells! Jingle all the way oh w&}hat fun it is to ride in a one horse open sleigh - Oh! Jingle bells! Jingle bells! Jingle all the way - oh what fun it is to&} ride in a one-horse open sleigh!2. A day or two ago, I thought I'd take a ride, and soon Miss Fanny Bright, was seated by my&} side. The horse was lean and lank, M'sfortune seem'd his lot,... He got into a drifted bank, and we, - we go upsot!CHORUS3.&} Now the ground is white, so go it while you're young! Take the girls tonight and sing this sleighing song. Just get a bob-ta&}il'd bay, Two-forty for his speed, Then hitch him to an open sleigh and crack! You'll take the lead!CHORUS_Jolly_Old_Saint_Ni&}cholas_1. Jolly old Saint Nicholas, Lean your ear this way! Don't you tell a single soul What I'n going to say; _ Christmas E&}ve is coming soon; Now you dear old man, Whisper what you'll bring to me Tell me if you can.2. When the clock is striking twe&}lve, When I'm fast asleep, Down the chimney broad and black, With your pack you'll creep; All the stockings you will find Han&}ging in a row; Mine will be the shortest one, You'll be sure to know.3. Johnny wants a pair of skaits, Suzy wants a sled; Nel&}lie wants a picture book; Yellow, blue and red;- Now I think I'll leave to you What to give the rest; Choose for me, dear San&}ta Claus, You will know the best._Joy_to_The_World_1. Joy to the world; the Lord is come; Let earth receive her King; - Let e&}v'ry heart prepare Him room, And heav'n and nature sing, And heav'n and nature sing, And heav'n and heav'n and nature sing.2.&} Joy to the world! the Savior reigns; Let men their songs employ;- While fields and floods, rocks, hills and plains, Repeat t&}he sounding joy, Repeat the sounding joy, Repeat, repeat, the sounding joy.3. No more let sin and sorrow grow, Nor thorns inf&}est the ground; He comes to make His blessings flow Far as the curse is found, Far as the curse is found, Far as, far as the &}curse is found.4. He rules the world! with truth and grace, And makes the nations prove - the glories of His rightousness, An&}d wonders of His love, And wonders of His love, And wonders, and wonders of his love._We_Three_Kings_of_Orient_Are_1. We thre&}e kings of Orient are; Bearing gifts we traverse afar, Field and fountain, moor and mountain, Following yonder star.CHORUSO -&} star of wonder star of night, Star with royal beauty bright westward leading still proceeding Guide us to Thy perfect light.&}2. Born a King on Bethlehem's plain. Gold I bring, to crown Him again, King forever ceaasing never, Over us all to reign.CHOR&}US3.Frankincense to offer have I, Incense owns a Deity nigh, Pray'r and praising, all men raising, Worship Him God most high.&}CHORUS4. Myrrh is mine its bitter perfume Breathes a life of gathering gloom, Sorrowing, sighing, bleeding, dying Seal'd in t&}he sone cold tomb.CHORUS5. Glorious now behold Him arise, King and God and sacrifice, Alleluia Alleluia Earth to the heav'ns &}replies.CHORUSHope these are usefull.Have a terrific holdiay - and be sure to check out the AMS versions of these songs. Bra&}d Gano 73710,3426888888888888888888888888888888888888888888888888888888888888888888888888$Y