0cd<_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 AQ( ( ((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 AND 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 SCREEN$]@@](@: #$ '* %& [].$$(@ 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(d30( 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 ROUTINE 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@<@,2 A#. B:,"@(08 B:,"@(.00V () $'CHARACTER SET SUBROUTINE'u AF:A,&@*+K6-+F:A,%@,$AVN(u("ONE MOMENT; ALTERING CHARACTER SET'56-'AV6-)A5A$'D;@(,#B0.-@@(2"@67<,.>:,D .'CC104,169,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' #BV'""6@$`'1-@"-%$@%1 j' Bpt'!!1,124,124,56,56,56,16,16,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,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,3,3,3,1,1,31'$$61,192,192,128,128,128,0,0,240'-1 D1:BEER.BASAhͨ