@LÌ}ˬð5 _­¬¦$Ž¦%Ž l0¬±$)ªÈ$ð±$Hȱ$ Uh¨ŠL"©À ¨`©€e$…$æ%`­…$­…%` Œ ©R @©W €¦!àÐ( L¹(©Œ©1© ©€ ­ YäÎ ð¦I˜` ­ d  LÇd M ¼* €@ ÿ­ …$­ …%­ …C¢©C ‘$¥$)¥%1© U©dÊߥ$9¥%:¬ ¢ˆ˜!0 SèàÐñ¥$ç¥%詨™Èú¨¹ð ÉDðÈÈÈÀÐð©D™©Ë™©™` ­ }½J‚)ðLr 콂ÉA†™CÏRÏÎKÏÉÀÀÀÀA!!FIRST BLOOM BY JOEY LATIMER›55FROM FAMILY COMPUTING MA}GAZINE MARCH 1984 ISSUE›(C) 1984 SCHOLASTIC INC.›REPRINTED BY PERMISSION› +@%@ @ "€}‚(€"6@@€2 ,€< /‚F @0P"ƒZƒ"6@@dƒn„-@A „o} @0è..6,22,6,19,22,19,6,21,6,19,21,19,30,21,30›ò..6,20,6,19,20,19,30,20,30,5,19,7,18,19,21›ü0030,19,30,4,18,8,1}7,18,19,21,18,22,29,18,30›,,3,17,4,6,17,6,8,17,9,16,17,17,19,17,19›,,28,17,32,3,16,4,6,16,6,8,16,9,19,16,19›''27,16, }28,30,16,30,32,16,33,3,15,3›$,,6,15,6,8,15,9,20,15,20,30,15,30,6,14,6›.0021,14,21,31,14,31,6,13,8,20,13,23,32,13,32›8,, }5,12,6,8,12,9,19,12,24,32,12,32,4,11,6›B009,11,9,19,11,19,21,11,21,24,11,24,31,11,33›L,,4,10,4,6,10,6,9,10,9,21,10,21,30, }10,30›V**32,10,34,3,9,3,7,9,7,21,9,21,32,9,32›`..34,9,34,8,8,8,21,8,21,32,8,32,-1,-1,-1,1›j//5,7,10,4,6,11,3,5,12,3,4,1 }3,3,3,13,4,2,12›t//5,1,11,6,0,10,-1,-1,-1,0,7,4,7,-1,-1,-1,3›~6,3,6,8,3,8,6,5,6,8,5,8›ˆ--18,7,23,17,6,25,16,5,26,16,4 },25,17,3,24›’..16,2,25,16,1,24,17,0,19,21,0,23,-1,-1,-1›œ**0,21,4,21,-1,-1,-1,1,20,3,20,22,3,22›¦%%20,5,20,22,5,22,30,7},35,29,6,36›°--29,5,37,30,4,37,29,3,36,29,2,37,31,1,36›º((32,0,32,34,0,36,-1,-1,-1,0,33,4,33›Ä((-1,-1,-1,3,32,3,32,34,3},34,32,5,32›Î34,5,34,-1,-1,-1,-1›€ D:BLOOM.BAS4,17,26,14,18,26}±F1FÉÿð©­Ðâ  ¯¥*n¥+)Ð5¤!¹ n¹ Ð(,ê ©n©Ð¹Ë)1JJJ¨¹n¹(n*oÉ$™šÊ#’#XSTIK¨YSTIK¨GMAN¨NWORDS¨XWORD¨XQUE¨XMAN¨YMAN¨NLTS¨WORD¤LTTER¤STP¤ADJUST¨CONVERT¤ÚØÙWALÌDELETÅBLANËSLOÔXFLÄYFLÄW}DSLEFÔÎLÔGLÔÐGÓÓXÄYÄÇEXCLAÍPAUÚSFØCÈWINNEÒ@@@@@@@@@€ € }€ @ € } !"#$%11** ANALOG COMPUTING ** }FEB 84 ** PAGE 44 **›è- FOUR LETTER WORDS›í- the Prototype›ò- Joel Gluck, Nov/Dec '83›ü- 2 players, joysticks}››° A - INITIALIZE› A0- GAME›xÐ- INITIALIZE›4~~€9@,9@,‚9@,ƒ9@},„9@,…9@,†9@,‡9@,ˆ9@,‰;A,Š;@,>&&‹;@,Œ9@,;@,f3}Ž-@@"&6€8Ž,-/68Ž,-3 Žp771,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0›˜36‘-A86’-A1}'6“-@236”-@Ê'6•-@6–-@'6—-@#üW6‚8,-@I-6‚8@,-AxB6„8,-}@W6„8@,-@ X6…8,-@-6…8@,-@C6Œ8,-6@2X6Œ8@,-@– 6Š. }1234567890 WŽ-@S6‰7Ž$@%@<Ž$@%@,.Š7@<@,W Ž. Ž-@@8 --}6‹7Ž<Ž,.>:@e%P:H:@,$@&,,B Ž"@A$L ˜-@Ž&@V ‹7˜<˜,4‹7Ž<Ž,' A#`` } ˜j  ŽÄ # A€#- flash killer word›É +@%@Î k0@@70@@@Q0@}@ @k0@@@ö a‘,@@+/@@=/@@#O/@@#}a/@@ø [Ž-@#,Ž@//Ž@#C,Ž%@@W/Ž%@@#[ Žù K, }@'/@9,@@K/@@#ú O’,@ @+,@ @=,@@O,!}@@ A‚8,",@/‚8@,A,@ -™-@@-6š-@:‹7™<™,,%@2"} :˜-@@:- number of each letter on field›( " A)"- PLACE LETTER GLT›<  ˜ ™d ›-@#}n $ 6š-‚8›, A)$- PLACE MAN›x  6†8›,-6‡8›,-}  Ap- CLEAR SLOTS›‚ 6ƒ8›,-Œ  ›J $T ""- $}PLACE LETTER GLT (rtn X,Y)›^ ]96-+P:H:@,$@,%@,$@%•&@]6-P:H:@,$@,$@%–r  1%}œœ“A)| !!2%@@† š ,‹ %%2 $¸ - GAME›Ì &}6›-P:H:@,$@, 6›-@&›0 6-R:›, "@A1:  A@- MOVE›D A1 - CHECK MOV'}E›' 6ž-€8,6Ÿ-8,'@w(1†8›,%ž‡8›,%Ÿ  "‘% ApP($! "‚8@&›, A`!$&  "’ (}Aq$&- DELETE CHAR›*  “ AB$*- BUMPED SUMTHIN'›- MOVE MAN›"“,†8›,‡8›,'//2›$@0)}%@@@,6†8›,-†8›,%ž6‡8›,-‡8›,%Ÿ6 ‚8›,,†8›,‡8›,;%%2@$h *} - BUMP›r "¡A`| %A(,†8›,%ž‡8›,%Ÿ†Aˆ8›,")ˆ8›,"@) Ap3 ACA-1st letter›+}Ž-@ˆ8›,š22>: %Œ8›,,4Š7›$@%Ž<›$@%Ž,ABp¤ Ž AC®s%2@@9¢-,}@@P= ¢_2s- repeated letter›¸ ,†8›,%ž‡8›,%ŸÂ$Ì- letter is OK›Ö-}6ˆ8›,-ˆ8›,%@à006Š7›$@%ˆ8›,<›$@%ˆ8›,,.>: %Œ8›,,ê“,†8›,%ž‡8›,%Ÿô(  %Œ8›,(,„8›,&@%ˆ8›,.}þk£-@ @P@E2£%›$@ @@I £k2 AA%/}- move man›/ 6š-  A)/- replace letter on field›ˆ8›, @$0- WORD COMPLETED›:Ž-@@0}DBB@:Š7›$@%Ž<›$@%Ž,,@:‹7Ž<Ž,,%Œ8›,%@2ADPN ŽXb6ƒ8@&›,-@,-@@D(@1} forbiddenN APb- word was deadly›b- DID OPPONENT USE WORD?›g<"ƒ8@&›,"AF<- opponent2} has no words›lŽ-@@v??67Ž<Ž,.>:@:Š7›$@%Ž<›$@%Ž,,&Œ8›,%Œ8@&›,,€ ŽŠ¤-@ƒ83}@&›,”g7@<@,4‰7+@&›,$@–%¤$@<+@&›,$@–%¤$@%@,AE - word was4} used already›ž ¤ AF¨! Ar!- transfer a word›² Ap- clear slots›¼""ƒ8@&›,@AP5}Æ$ø- DID P(LAYER) USE WORD?›-ƒ8›,"AG-- P has no words› ¤-@ƒ8›,gŠ7›$@%@6}<›$@%@,4‰7›$@–%¤$@<›$@–%¤$@%@,AFP- word was used already›  ¤ AG*7}XŽ-@X@:‰7›$@–%¤$@%Ž<›$@–%¤$@%Ž,,&Œ8›,%A(/,Ž%…8›,¤%@ Ž4B £-@8}6? >2@&£@£B £>KŽ-@K@:‰7›$@–%¤$@%Ž<›$@–%¤$@%9}Ž,,C,Ž%…8›,¤%@ ŽH Ap$\- THE WORD IS BRAND NEW!›f6ƒ8›,-ƒ8›,%@pŽ-@@ze:}e6‰7›$@–%ƒ8›,$@%Ž&@<›$@–%ƒ8›,$@%Ž&@,.Š7›$@%Ž<›$@%Ž,„ Ž‰,6-ƒ8›,%@;} !@#,6-@ŽQ -…8›,Q(@‰7›$@–%ƒ8›,$@<›$@–%ƒ8›,$@%@,¢z £-AP@P<}6@ <2£@@P¢-@@T ¢v2z £¬%%2=}±6—-—&@¶ ApÀ—!*ƒ8›, @$ˆ- WE HAVE A WINNER›ì+ 6¥-›ƒ8@&›,!ƒ8>}›,+6¥-@&›ö 6-…8¥,!-!(@winAŽ-%@!1Ž % 1,Ž@=/Ž@#A ?}Ž ˜-@@£-A6˜W2£@@C2@£'@@@W0@@}£(  £ ˜2a%2?0@a2@<.+A}T:,")T:@,".%F AQ€p- SWAP TOP DISPLAYS›u8+ˆ8,"*ˆ8@,"5 B}ApP8$zG%2@@@@G2@@@@„++67@<@,.Š7@<@,C}ŽŽ-@@˜NŽˆ8@,N6Š7Ž<Ž,.>:@:Š7@%Ž<@%Ž,,&Œ8@,%Œ8,,¢NŽˆ8,N6Š7@D}%Ž<@%Ž,.>:@:7Ž<Ž,,&Œ8,%Œ8@,,¬ Ž¶96Ž-ˆ8,*6ˆ8,-ˆ8@,96ˆ8@,-ŽÀ0@E}@Ô˜-@ÞŽ-@@è3 Ž!ˆ8˜,”),„8˜,%Ž&@3 Aa@ò<#@F}:Š7˜$@%Ž<˜$@%Ž,,<,„8˜,%Ž&@ü  Ž ˜0@X £-@6@G}62@£@£T2@£%@@£X £$X- CLEAR SLOTS›b-”,„8›,-/„8›,%@H}l6ˆ8›,-v$Š- BUMP SOUND›” £-@6@Pž9!2AU&£@£5˜-@@I}9 ˜¨A%29˜-@@= ˜A £²$¼- DELETE LETTER›Æˆ8›," ApPJ}$Ðb £-@P6@<2£@@@ £b2Ú#”#,„8›,%ˆ8›,&@K}ä6ˆ8›,-ˆ8›,&@î$ %%- TRANSFER A WORD FROM P TO 1-P›R)6-¤%@!@#)6-@\GL}-…8@&›,G(@Š7›$@%@<›$@%@,aG%2AT@@G2@AU@M}@fƒ8›,"Atp,6-ƒ8›,%@ !@#,6-@z+ -…8›,(@ +- 4 SPACESN}›''6ƒ8@&›,-ƒ8@&›,%@46-ƒ8@&›,%@(!@#46-@„Ž-@‰ee67@O}<@,.>:@:‰7›$@–%ƒ8›,$@%Ž<›$@–%ƒ8›,$@%Ž,,&Œ8›,%Œ8@&›,,Žqq6‰7+@&›,$@–%ƒ8@P}&›,$@%Ž<+@&›,$@–%ƒ8@&›,$@%Ž,.7@<@,“.@:7@<@,,.,…8@&›,%ŽQ}˜ Ž¥£-@P@;2@£@@? £a2ƒ2@R}¥2@¢6ƒ8›,-ƒ8›,&@解-A@@;2£@@S}_2@£%@@@c £…2§2@L$@- T}FLASH SECRET WORD›J+@%@T70@70@@@r/-@@/(@U} do not spell¤Ž-@@®"-@@"(@‹¸44£-@6?p%?`$+Ž"@,V}Â0Ž£52A5@£'@Y2@£$@@@] £2@W}Ì7-@@'(@ 7- four spaces›Ö£-@@  £à Žê$€ D:FLW.BASX}  ðìåáóå ÷áéô¢;©µ -9­  € ULMåBWC¨NUM¤COUNÔMARBLEÓML¤ÉBYTÅTTÌSPACÅPEÇÊÙØRÎXPOÓSPEEÄXXØCLEAÒÌA&ä@A€@Z}@ @ @ @ @! @@@9******************[}**›* BALLDROP *›* BILL BOEGELEIN *›* ANALOG COMPUTING *›********************›  + B\}z@‚'@ƒ@99AKAR@z()}*************** BALLDROP ***************]}€9@7,;@,(2‘-@@7@.6€8‘,-2 ‘2/6ƒ-A/SET MARBLES TO DESIRED AMOUNT^}›d... DRAW SCREEN ...›n6ˆ-@6‰-@(xŠ-@@‚…-@ˆ(  …Œ'…-@‰#_}(>:@ , ' …–&6ˆ-ˆ&@6‰-‰%@"(& Š  ( ( (ª‹-@ @#´;Œ-@8@`}%-Œ‹3(>:A$,7 Œ; ‹¾ -@@ (COUNTÈ... DROP MARBLE ...›Ò‚-@ƒÜ#6Œ-@#‹-@a}@æ -Œ‹(>:@ ,-Œ‹ð66-P:H:,%?P,)"66-6@ú%%2@@b}@ 6Œ-Œ% ( %%2" ‹,... COUNT MARBLES ...›6&6Ž-F:@‘,&6€8Ž,-€c}8Ž,%@@/6. /67@:AS,FAdAUI€ D:BALLDRP.BASD:Bf}ALBASeeeeeeeeeeeeeeeeeeeeeeeeeeeOLVE.DEM,0›)%%DISSOLVER CRE.,D:DISSOLVE.CRE,0›* "FACE" (song),D:FACE.OBJ,0›+F'`c y A¨B¨C¨D¨C±ÉÁÂÊÄ@@@@ 22TAKE ME OU h}T TO THE BALL GAME BY JOEY LATIMER›77FROM FAMILY COMPUTING MAGAZINE, AUGUST 1985 ISSUE›77(C) 1985 SCHOLASTIC INC., REPR i}INTED BY PERMISSION› 11€9@–,9@–,‚9@–,ƒ9@–,"AR@" >:A%,1-@@1 j} TUNING UP..PLEASE WAIT.()6„-@#…-@@c)"†‡20ˆ-@‡6€8„,-†(6„-„%@, ˆ0 …<%…-@ k}@”@%"†‡F!68…,-!6‚8…,-P%68…%@,-†%6‚8…%@,-‡Z%68…%@,-†%6‚8…% l}@,-‡d …n)6„-@#…-@@h)"†‡x0ˆ-@‡6ƒ8„,-†(6„-„%@, ˆ0 …‚ >:A%,Œ6 m}-@@6 TAKE ME OUT TO THE BALL GAME–…-@@– ""2€8…,@@ª""2@8…, n}@@´""2@‚8…,@@¾""2@ƒ8…,@@ȉ-@@P ‰ÒG%2@ o}G2@Ü … APè121,2,60,1,72,1,81,1,96,1›ò 81,3,108,3,121 p},2,60,1,72,1›ü81,1,96,1,81,6,72,1,76,1›72,1,96,1,91,1,81,1,72,2›91,1,108,3,72,1,72,1,72,1›72,1,64,1,60,1,5 q}3,1,64,1›$ 72,1,81,1,96,1,108,1,121,2›.60,1,72,1,81,1,96,1,81,3›8!!108,3,121,2,108,1,96,1,91,1›B81,1,72,4,72,1,6 r}4,1,60,1›L0,2,60,1,0,2,60,1,64,1›V72,1,81,1,86,1,81,1,72,3›`64,3,60,4,0,2›Ð&&60,47,60,47,53,45,53,45,60,47,60›Ú s}&&47,53,45,53,45,56,47,56,40,53,45›ä&&53,45,53,42,53,42,64,40,64,45,60›î&&47,60,47,53,45,64,45,60,47,68,47›ø##72,45,7 t}2,45,72,45,60,42,60,47›##56,40,60,42,64,45,60,47,64,45›¸ ##121,3,162,3,128,2,144,1,162,1›Â ##144,1,128,1,121,3,162,3,162 u},1›Ì ##144,1,136,1,128,1,144,1,162,1›Ö ##144,3,193,2,204,1,217,3,144,3›à ##217,1,193,1,182,1,173,1,193,1›ê ##217,1,162,1, v}144,1,136,1,128,1›ô ##144,1,162,1,121,3,162,3,128,2›þ ##144,1,162,1,144,1,128,1,121,2› ##136,1,162,1,173,1,162,1,182,1› w}##144,1,121,1,182,3,182,3,173,3› ##162,1,173,1,162,1,144,1,162,1›& ##193,1,217,1,193,1,173,1,162,1›0 ##144,1,128,1,121,1 x},193,1,144,1›: 162,1,182,1,217,1›€D:BALLGAME.BAS y}7…-@@#"Ž„†Œ'-,Ž„3/†Œ7 …6q @!…- 601ÄÚÎÑC¨A¨CB¨Q¤ÌÅÚÄSTÒØËÊNÎÉNÂNÐFØSTËCÈDLÙERÒERÌTIÍÁ@@@€{} |}CHECKBOOK BALANCER›BY ROD SAYLOR›(c)1987, ANTIC PUBLISHING› - @P-@@}}K: +@A*(@5(@@(@a(@ òïä'ó CHECKBOOK orl(@(~}@ checking made easyQA @7'AU@;€-@A? €QAU(i+(# Writt}en by Rod Saylor 1987 Germany.(P( Press any key to continue])@i6-2q +A @1€}A@_‚9A,ƒ9A,„9A,…;@,qAU<) A`)TRAP TO MENU,SETUP SCREEN›FB}-B(' E#|CHECK #| AMOUNT | C/B BAL |ACCOUNTPB-@B('END BA‚}LZ†-@@ d9-†5( | | | |9 †nC-@1@$( 6-@2ƒ}@C(DEPOSITxM-@!C(( M A‚K AP3( disp„}lay block(1-99),deposit(0)7‡K‡"A0Œ‡!@™A0– AP RAU@ A`) AP…}N( 1-Ånter 2-Äelete 3-Ãhange dataR…ª…41)…4EA`¾…42)…4DA`Ò…43)…4CA0æ †}…4Q Að A`úU-@"C(( U-@"ÿ*@‡}A'B7tA*$ AP2.(% 4-Óave 5-Òetrieve 6-Îew 7-Ðrint data2……4S)…44A,…ˆ}4R)…45A@…4N)…46AJ …4Q AT…4P)…47 A ^ A`h: AP"( åî‰}ôåò äáôá  E#&‡:‡!@™A`m‡P:‡,A`r‚8‡,A`|8 AP( check ##ˆ,6‚8‡,Š}-ˆ86ˆ-†8 AP( amount $#ˆ,6ƒ8‡,-ˆ86ˆ-B AP>(E#‡ check #‚8‡, for ƒ8‡,$‹},SURE+B…š<(+…4+)…4Y,#6‚8‡,-26ƒ8‡,-< A`¤ AP® AP¸ A` 6‰-‰&ƒ8‡,Œ}6„8‡,-‰$ FIG›Ì0 AP&(ªªªÄÅÌÅÔÅ ÃÈÅÃ˪ E#0 A ÖM AP>(*DELETE CHECK #‚8‡, $ƒ8‡, ÓÕÒÅ-ÆÉÒ}ÅM6Š-T:,à33T:,")F:Ad,"@AêE+R:,@)F:Ad,"@(;6‡-‡&‹%@Ž}E A`ô A€þ06ƒ8‡,-!6‚8‡,-06„8‡,- AP A`t AP'( amount of} deposit +ˆ36‰-‰%ˆE-@2@R( d-@2@h(ˆt6ˆ-`-@2@!(BAL...3-@}2@@( R-@2@V(‰` A&†-@@ PRT›0g-†( $-@†0‘}( <-@†J( V-@!†c( g †:-†-@@ -‡%†!AAD|-†’}(+†&@,%‡+-@†>(‚8+†&@,%‡,J-@†](ƒ8+†&@,%‡,i-@!†|(„8+†&@,%‡,N  † $X5 “}AP!(SAVE DATA, Y/N%…5…0YA`bV AP:('       ÔÏÏ ÌÁÔÅ ÎÏ׬ ÓÁÖÉÎÇ ÄÁÔÁ       D AV@w”}A(l8@8@@ D1:CHECK.DATv(@‰€€-@AŠ 6†-‚8€,6Œ-ƒ8€,•}6-„8€,”*(@†(@Œ*(@ž €¨*@ @w* A`²} AP A7(–}GETTING CHECKS, PLEASE WAITA AS@wA(}@@ D1:CHECK.DAT¼@‰ÆŽ-@—}AÐ*@†@Œ*@Ú 6‚8Ž,-†6ƒ8Ž,-Œ6„8Ž,-ä Žî,@ @w˜},6‡-ø:6‡-‡%@ ‚8‡,!&6‡-‡0 AP: A@‡ @™A` #6‡-@ AP# A@™}8 AP8(% working on new balance..standby.... .-@A"6-%ƒ8,& .6-%‰*U-@2@š}#( 5-@2@9(?6‘-K6-U A`4* A p'3 OUTSTANDING CHECKS*3>#6†-#†›}-@@™H‚8†,"A`R"3†‚8†,ƒ8†,„8†,"6’-@\ †f'’"'3NO CHECKS IN MEMORYpœ}#3#3 NEW ACCOUNT END BAL$‘z$„!6‹-@!AdAUŽ06“-R:,!6Š-T:,06”-F:Ad,˜o}AR@7+“"@)”"@)”"AB,E6‹-‹&@WAdAUc‹ @o6‹-@ ¢]%+“"@)”"ž}@)”"AC,36‹-‹%@EAdAUQ‹!@ ]6‹-@¬?-@‹()•-@@- •9-@Ÿ}‹?( ¶VŠ")”"@)6‡-‡%‹&@=•-@@PA •SAdAUV$À A ÊG AP% }( ***NO PRINTER***9•-@A= •G AÔèr6–-F:A•,46—-F:A†,%F:A‡,$AV> AP¡}P@wr2AP@@ò+–"Ap+( *** FILE NOT FOUND***ü3–"AD3(***DISK PRO¢}TECTED,NOT THERE***(–"A6((*** END OF FILE ***&–"Ab&(*** DISK FULL ***(–"Ag((*** FIL£}E LOCKED ***$*–"A8*(*** TURN ON DRIVE ***.6–"A96(!*** DEVICE NAK ie:wrong density**85–"A)¤}5( **IOCB ALREADY OPEN,CLOSED NOW**B(–@L[•-@A •% AG2¥}[— AA`VlAdAU A *@T@@ D1:CHECK.DAT_@i AP¦}l$`[AdAU APC( Can't find D:CHECK.DAT!W˜-@A[ ˜jP AP8(& Press [SP§}ACEBAR] to create a new oneL˜-@AP ˜tI AP1( Press [ESCAPE] to re-tryE˜-@AI ˜¨}~ F:Ad,"@(Aˆ F:Ad,"@3A€’ A œ$ AP$(Creating CHECK.DAT¦TAd©}AU A*@T@@ D1:CHECK.DAT°@€-@A$(@™( €3@= ª}AP@$º6 AP2( Are you sure you want to Quit6…Ä …0Y$Î'+€D1:BALANCE.BAShhhhh«}hhhhhhhhhhhhhhhhhhh6,255,3,169,255êZW(@F32120 DATA 141,254,3,24,144,235,173,0,4,141,254,3,173,1,4,141,255,3,96Z$‘’2—'«'KEÙNONÅEIÎZWIÅDRÅSUÂÄSEÌÙCYCLÅÎÏDATE¤ÔD¨T¨C¤D¤FILE¤DELAÙÈÌSPÒTOÐØÒÂBÓCHARBAÓLINÅDCHAÒCCHAÒBCHAÒACHAÒCOÌSTARÔCHA­}ÒÅÍT±TOÍÐY¨RO×ÇBÅEÎDIV¨TOT¨ÊDIÖTOÔAdAU ®} A A"$€€€¯} !"#$%&'()A*ª°}+,-.A/ú$A0Ò$123P@‚@ZGGŒ;@,Ž9@,±}9@5,¯9@5,°9@5,ª9@,d* +AU@*@n(( ( (((((1-Enter New Data²}x((2-Display Data‚((3-Display GraphÈ)-@@ )(ENTER SELECTION,!6€-Ad6-AU!€³}6F:€,"A; 6‡-F:€,@‡"@16…-@J‡"@06…-@T‡"@&6…-@^…A´}A A0X(>:AS,"-@@ 6( 1 THRU 4 ONLY!J†-@APN †X Aè+ Aµ}AdAU+6†-ò (}ü-@(ENTER NEW DATA-@@$$(Enter Cycle and Pr¶}ess Return -@@ ((1-12)$( ‰)B‰ @)‰!@+-@@8(>:AS,B A`·}.6Š-@ Lgg‰A@A@ A@0A@@A@PA@`A@pA@€A@AAAAAA V0¸}Š"@6Š-@ &@0 A[ A]+†@+(Last day entered was †`7-@@7(¹}Enter Day and Press Return e--@@ -(If Finished Enter 0j -@@ ((1-35)o$-@@º}$( t<††!@5%-@@2(>:AS,< A5u†!@ AUv$†"@»}$ Ax. (}(DAY †&-@@.( y5-@@5(Enter Date and Press Return{(-@¼}@(((ex. 05/06/87)~!( !Œ€;B:Œ,@$-@@1(>:AS,; APƒ. (½}}(DAY †&-@@.( ˆ+-@@+(Enter Temperature’:-@@ :( Enter 0 If No Te¾}mp. for This Dayœ$-@@$( (ex. 98.6)¡-@@( ¦«:#!A) @–*!¿}0(>:AS,: AU° @†º†"@ @ŒÄ @É (}Î AÜ@6Š-@À}æ"F:A•,"Ap" Að Al? +?(AARGH!! Error No.F:A•, Has Occurred.vÐ,Á} (}-@,( DISPLAY DATAä-(-("Data files available on this disk:î2 A p2@@Â}D:*.DATó’;@,6‡-@ø@’(’ 6‡-‡%@ A @(>:@(, 3Ã}@(3(Enter Number of Cycle to View A@ €*6Š-@‰/ A#54gg‰A@A@ Ä}A@0A@@A@PA@`A@pA@€A@AAAAAA 9#‰ @)‰!@# A#5> (Å}} A!H@†R6†"@@Œ3(Cycle Beginning Œ6(\@f(Day †=pÆ}@†@z(Day †=„ A! Ž&@€&A@˜(( (((Print or Delete ThÇ}is File?¢++(#(P to Print,X to Delete,M for Menu)§ €¬F:€,"A" ¶F:€,"@ A"E»F:€,"@"È} ApÀF:€,"@7% A"ÅH#@@P:H @>:@',Q>:@x,Êgg‰É}A@A@ A@0A@@A@PA@`A@pA@€A@AAAAAA Ï A# A@&Ê}Þ@†è<†"@@Œ<(@Cycle Beginning Œò@ü(@†= A"Ë}p +@@+A@ % X(+(THERE IS NO SUCH FILE>:AS,6@J“-@APÌ}N “X A# ¸ , (}-@,( GRAPH DATAÌ -(-("Data files available on this disk:Ö 2 A0p2@Í}@D:*.DATÛ ’;@,à @’ê (’ô A0@þ (>:@(,  7@Î}(7(!Enter Number of Cycle to Graph or &&(enter 0 for Graph of Averages. € 6Š-@‰ A#5 Ï}gg‰A@A@ A@0A@@A@PA@`A@pA@€A@AAAAAA ! ‰" BÐ}& A1`0 @†: †"@@ŒD @68†,-N A1 X )@6”-8@,Ñ})6•-@™b Š-@†g .8Š, @–)8Š,!A.68Š,-l  8Š,!”6”-8Š,v "8Š, •*8Š,!"6•-Ò}8Š,€  ŠŠ 6–-”&•” @&–6—-”ž %@&–!?%6—-”%?¨ %@&–!? %6—-”%? Ó}² %@&–!?0%6—-”%?0· '@‚'AU@¼ #0@@#6©-—Æ +@Ô}Ð '6˜-@26ˆ-'6™-AÚ @ä  ,˜ˆ/™ˆî 6ˆ-ˆ%@ø ˆ Aa A3 '6˜-@2Õ}6ˆ-'6š-AY  ,˜ˆ/˜š 6˜-˜%@ ˜ A  A3@z %%6›-F:@ˆ,%AV$F:@‰,„ 6œ-FÖ}:AV,$AVŽ -A`@˜ 6ž-+—&P:—,,$@¢ ,6Ÿ-@ 6 -P:—,&@,6¡-@%¶ ¢-×}@6@À 6£-›%$@@%¢Ê -#¢"*ž!*ž@- A6Ì -#¢"@*ž!*ž@Ø}- A6Ï )¢"@)6¤-+ž%@,$@%œÔ ¢"@6¤-Ÿ$@%œÞ )¢"@)6¤-+ %@,$@%œè Ù}¢"6¤-¡$@%œò ¥-@6@ü £%¥$@@F:¤%¥, ¥ ¢6—-—&?$ .Ú}//('Day-000000000111111111122222222223333338AAU@A(' 12345678901234567890123456789012345B 6—-©6˜-@Û}6LŠ-@†V8Š," A7 X 8Š,!—68Š,-—`))6ª8@,-+—&8Š,,$@€%@j116ª8@Ü},-+—&8Š&@,,$@€%@o.$8Š&@,")Š"@. A7tH/˜ª8@,),˜&@ª8@,HÝ}/˜&@ª8@,&@~,˜ª8@,ˆ6˜-˜%@’ Š”&&( Cycle ‰ Beginning Œ—00(' 'P'to PÞ}rint,'O'for Overlay,'M'for Menuœ €¦F:€,"A7P°F:€,"@APºF:€,"@A`ÄF:€,"ß}@7+%Î A7@ª*'@Š D:CYCLE1.DAT*$´*'@Š D:CYCLE2.DAT*$¾*'@à}Š D:CYCLE3.DAT*$È*'@Š D:CYCLE4.DAT*$Ò*'@Š D:CYCLE5.DAT*$Ü*'á}@Š D:CYCLE6.DAT*$æ*'@Š D:CYCLE7.DAT*$ð*'@Š D:CYCLE8.DAT*$ú*'â}@Š D:CYCLE9.DAT*$+(@Š D:CYCLE10.DAT+$+(@Š D:CYCLE11.DAT+$+ã}(@Š D:CYCLE12.DAT+$ˆ##@@P:’(((@>:@',A>:@,œ¢-ä}@9¡33(@>:@',K>:A`,>:,¦ «-AY6@°6¬-F:›%«$@@%¢,º(å}@>:¬,Ä «Îr¢!@h(@>:@',S0>:@',J>:@,¢&@>:@',A>:@,æ}r AP€Ó(@Ø ¢Ü/‹"/(@Cycle Beginning ŒÞ$‹"@$(@Overlayâ+(ç}@>:@',@(@+%p-6‹-@6—-©!6˜-@6-6Š-@u A#5zC9(>:AV,>:@(,>:Aè}V, Enter Cycle #?€C‰(>:AV,>:@(,„gg‰A@A@ A@0A@@A@PA@`A@pé}A@€A@AAAAAA Ž A`€˜@†¢†"@@Œ¬@68†,-¶ê} A`@À@ A6`X €(>:AS,b**("SURE YOU WANT TO DELETE THIS FILE?lF:€,"Ap vë}F:€,"@C ApP€%Šgg‰A€A€ A€0A€@A€PA€`A€pA€€A€AAì}A @%Jm-@@ D:CYCLE1.DAT_@3@ D:CYCLE1.DATj@m%Tmí}-@@ D:CYCLE2.DAT_@3@ D:CYCLE2.DATj@m%^m-@@î} D:CYCLE3.DAT_@3@ D:CYCLE3.DATj@m%hm-@@ D:Cï}YCLE4.DAT_@3@ D:CYCLE4.DATj@m%rm-@@ D:CYCLE5.DAT_@3ð}@ D:CYCLE5.DATj@m%|m-@@ D:CYCLE6.DAT_@3@ñ} D:CYCLE6.DATj@m%†m-@@ D:CYCLE7.DAT_@3@ Dò}:CYCLE7.DATj@m%m-@@ D:CYCLE8.DAT_@3@ D:CYCLE8.DATjó}@m%šm-@@ D:CYCLE9.DAT_@3@ D:CYCLE9.DATj@m%(#o.ô}@@ D:CYCLE10.DATa@3@ D:CYCLE10.DATl@o%2#o.@@õ} D:CYCLE11.DATa@3@ D:CYCLE11.DATl@o%<#o.@@ D:ö}CYCLE12.DATa@3@ D:CYCLE12.DATl@o%'!(Enter Beginning Cycle!­'(Enter En÷}ding Cycle®'6Š-@$' ‰-­®.'gg‰A@A@ A@0A@@A@PA@`A@pA@€A@AAø}AAAA 3' B€8'@†B'†"@@ŒL'@68†,-V' B@`'†-@ù}@5e' 6-8†,6²-¯8†,6³-°8†,j'%!@6²-²%@%6³-³%o' 68†,-6¯8†,-²6°8†,-³t' †y'@ú}~' ‰ˆ'±-@@5’'-°8±,!@–#68±,-°8±,'¯8±,- B@—'68±,-œ' ±¦'6†-@5 A1û}`°' (ERROR€ D:ATTEMPT.R1¢!´6¢-´|6©-@$Šªªª ÃÅÎÔÅÒ Ãèáîçå ªªª›Œ(  ãåîôåò  óãòååî(Ž(&  ]™ « ÉÁÂÃÄÅÆÇA¤X¤@@C@@@@@@€ (Z‰;@@,[ý}+AR,@\H (}+@„,@1+@…,@H( ÂÁÓÅÂÁ̱ ÷ïòëéîç _M+@„,@++@…þ},@M( ôòáîóæåòéîç äáôá ôï ÒÁÍÄÉÓË d #An//@@D8:FIELDER.DATx€-@@ÿ}‚"‚ƒ„…†‡Œ @ @‚Ž @ƒ @„ @…‘ @†’ }@‡– € @ª #A ´//@@D8:PITCHER.DAT¾€-@@È"‚ƒ„}…Ò @Ó @‚Ô @ƒÕ @„Ö @…Ü €æ@ð #A0ú..@}@ D8:SCREEN.DAT"‰ @‰‰0ENDA`,@6^ (}+@„,@}1+@…,^(( îï÷ ôùðå ÎÅ× áîä ìïáä Âáóåâáì² ðòïçòáí 9C+@„,@++@…,@C( Ãïíðõôåò Âáó}åâáìì :4+@„,@++@…,@4( âù ;C+@„,@++@…,@C( Äïõçìáó Âìáãë÷åìì }@+AR,Jò7,6,3,0.204,0.254,2,0›ü8,7,3,0.298,0.346,2,1›9,8,2,0.332,0.296,1,0›5,3,3,0.2}98,0.273,1,1›6,4,3,0.206,0.181,2,0›$17,6,1,0.332,0.297,1,1›.18,7,3,0.255,0.232,2,0›819,8,3,0.213,0.261,2,0›B}15,3,2,0.254,0.226,2,0›L16,4,2,0.242,0.292,2,0›V4,2,2,0.311,0.286,2,0›`14,2,3,0.249,0.225,2,0›j2,5,3,0.22}2,0.195,1,0›t12,5,1,0.242,0.304,1,1›~3,1,2,0.264,0.314,1,1›Ú10,1,0,10,1›ä20,2,0,5,0›î21,1,1,10,1›ø22, }1,2,9,0›23,2,1,3,0› 31,1,1,9,0›32,1,2,9,1› 33,2,1,3,1›*42,1,2,9,1›443,2,1,3,1›Â ++ }›Ì ++|     | |›Ö ++|     | |›à ++|     } | |›ê ++| ˆ Š | |›ô ++| ˆ Š | |›þ ++| ˆ  } Š | |› ++| ˆ Š | |› ++| ˆ Š | |› ++|    }    | |›& ++|       | |›0 ++|       ›: ++}| Š ˆ | |›D ++| Š ˆ | |›N ++| Š ˆ ›X} ++| Š ˆ |OUTS | |›b ++| Š ˆ ›l ++|       | | } |›v ++|       | ›€ ++| Š   ˆ | | | |›Š ++}›” ++| |›ž ++›¨ END›€ D:BASEBAL199999}999999999999999999999999999999999999999999999999999999999999999999²Ð))(@>:@, ¹7@,ÑÓÅÔ ÌÉÎÅ ÆB0 REM ** COMPUTE! ** APR 84 ** PAGE 74 ** 5 SCREEN=PEEK(88)+256*PEEK(89) 10 GOTO 5000 100 POKE 53761,0:S=STICK(0):FOR D=1 }TO SPEED:NEXT D 110 IF S=7 OR S=6 OR S=5 THEN DXA=1:DYA=0:DIR=1:IF ODIR=2 THEN DXA=-1:DYA=0:DIR=2 120 IF S=11 OR S=10 OR S=}9 THEN DXA=-1:DYA=0:DIR=2:IF ODIR=1 THEN DXA=1:DYA=0:DIR=1 130 IF S=14 THEN DYA=-1:DXA=0:DIR=4:IF ODIR=3 THEN DIR=3:DYA=1:DX}A=0 140 IF S=13 THEN DYA=1:DXA=0:DIR=3:IF ODIR=4 THEN DIR=4:DYA=-1:DXA=0 145 COLOR 42:PLOT XA,YA:ODIR=DIR 150 XA=XA+DXA:YA}=YA+DYA:L=LEN(XA$):XA$(L+1)=CHR$(XA):YA$(L+1)=CHR$(YA):LOCATE XA,YA,Z:IF Z<>32 THEN 200 162 SOUND 0,40,8,6:COLOR 170:PLOT XA},YA:IF LBUG THEN 260 210 WORMZ=WORMZ+15+(3*LOC):IF WORMZ>240 THEN OWRMZ=240 220 XX=RND(2)*36+2:X=RN}D(1)*18+2:COLOR BUG:LOCATE XX,X,Y:IF Y<>32 THEN 220 221 SCORE=SCORE+100+LOC*7:FOR DEL=8 TO 16:SOUND O,55,10,17-DEL:NEXT DEL } 226 HIT=HIT-1:IF HIT<1 THEN COLOR 160:PLOT 20,1:PLOT 19,20:PLOT 0,12:POKE SCREEN+12*40+39,128:HIT=0:GOTO 100 227 GOSUB 6600}:PLOT XX,X:SOUND 0,100,10,16 230 GOTO 100 260 IF Z<>160 AND LIVES>1 THEN CNT=CNT-1:GOSUB 7500:GOTO 290 265 IF Z<>160 THEN }CNT=CNT-1:GOTO 7500 270 FOR DEL=1 TO 16:SOUND 0,90,10,17-DEL:NEXT DEL 271 GOSUB 7000:POSITION 0,23 275 FOR DEL=1 TO 24:PRI}NT :SOUND 0,DEL,10,10:NEXT DEL 280 LOC=LOC+1:WORMZ=5:CNT=0 285 IF LOC>EXTRA THEN GOSUB 9100 290 GRAPHICS 0:COLOR 35:POKE 7}52,1:POKE 710,0:GOSUB 6500:POKE 712,162 291 POKE 710,ASC(BOL$(LOC)) 300 ON LOC GOTO 5020,400,500,550,600,700,800,450,550,10 }00,1100,1200 399 GOTO 5015 400 REM SECOND SCREEN 410 PLOT 5,10:DRAWTO 35,10 420 GOTO 5020 450 REM SCREEN 460 PLOT 5,10:!}DRAWTO 35,10:PLOT 18,5:DRAWTO 18,20 470 GOTO 5020 500 REM THE FOUTH SCREEN 510 PLOT 5,5:DRAWTO 35,5 520 PLOT 5,16:DRAWTO "}35,16 530 GOTO 5020 550 REM FRAME 5 560 PLOT 7,6:DRAWTO 33,6 575 PLOT 18,7:DRAWTO 18,20 580 GOTO 5020 600 REM FRAME 6 #}610 PLOT 1,10:DRAWTO 18,10:PLOT 22,10:DRAWTO 38,10 620 GOTO 5020 700 REM FRAME 7 710 FOR I=6 TO 14:PLOT 6,I:DRAWTO 12,I:PL$}OT 20,I:DRAWTO 32,I:NEXT I 720 GOTO 5020 800 REM FRAME 8 811 PLOT 1,8:DRAWTO 18,8 812 PLOT 1,15:DRAWTO 18,15 813 PLOT 15%},12:DRAWTO 38,12 890 GOTO 5020 900 REM THE 8 FRAME 910 FOR I=5 TO 12 STEP 3:PLOT 11,I:DRAWTO 30,I:NEXT I 920 GOTO 5020 1&}000 FOR I=2 TO 19:PLOT 1,I:DRAWTO 38,I:NEXT I:COLOR 32:FOR I=2 TO 19:PLOT 1,I:DRAWTO 22,I:NEXT I:GOTO 5020 1100 FOR I=2 TO 1'}9:PLOT 1,I:DRAWTO 38,I:NEXT I:COLOR 32:FOR I=2 TO 19:PLOT 1,I:DRAWTO 30,I:NEXT I:COLOR 35 1101 GOTO 400 1200 REM YOU WIN 1(}205 FOR QZ=1 TO 3 1210 GRAPHICS 18 1211 POSITION 4,5:PRINT #6;"NERM'S HOME" 1212 PRINT #6;" THANK YOU" 1215 FOR G=1 T)}O 5 1220 FOR I=1 TO 10 1229 SOUND 1,I+200,10,16-I 1230 SOUND 0,I+6,10,I+5:POKE 712,I*16 1240 NEXT I:NEXT G 1245 FOR I=1 *}TO 200:SOUND 0,I,10,15:NEXT I 1250 NEXT QZ:GOTO 7700 5000 GOSUB 10000:REM UP THE GAME 5005 GOSUB 11100:BUG=33 5010 DIM XA+}$(250),YA$(250),XB$(250),YB$(250),A$(15),B$(15) 5011 SPEED=35:LIVES=4:SCORE=0:LOC=1:GOSUB 5500:HIT=5:WORMZ=5:EXTRA=2 5015 G,}RAPHICS 0:POKE 752,1:POKE 710,0:GOSUB 6500:POKE 710,ASC(BOL$(LOC)):POKE 77,0:POKE 712,162 5020 XA$="":YA$="":XB$="":YB$="":X-}A=20:YA=19:XB=25:YB=20:DXA=0:DXB=0:DYA=-1:DYB=-1:T=0:IF HIT<0 THEN HIT=0 5021 IF LOC=3 THEN YA=15 5030 DIR=4:IF HIT>5 THEN .}HIT=5 5050 COLOR 35:PLOT 0,1:DRAWTO 39,1:DRAWTO 39,20:DRAWTO 0,20:DRAWTO 0,1 5056 IF HIT<1 THEN COLOR 160:PLOT 20,1:PLOT 19/},20:PLOT 0,12:POKE SCREEN+12*40+39,128:HIT=0:GOTO 150 5060 XX=RND(2)*36+2:X=RND(1)*18+2:COLOR BUG:LOCATE XX,X,Y:IF Y<>32 THE0}N 5060 5065 PLOT XX,X 5085 GOTO 150 5090 GOTO 220 5500 REM START 5510 GRAPHICS 18:POKE 712,15 5520 POSITION 5,5:PRINT #1}6;"get ready" 5530 RESTORE 5600 5540 FOR X=1 TO 14:READ NN:SOUND 0,NN,10,10:SOUND 1,NN+1,10,5:FOR D=1 TO 25:NEXT D:NEXT X 2}5545 SOUND 0,0,0,0:SOUND 1,0,0,0 5550 RETURN 5600 DATA 121,91,0,91,81,0,81,72,60,72,60,72,91,0,121,91,0,91 6500 DL=PEEK(53}60)+256*PEEK(561) 6501 SOUND 0,0,0,0 6502 POKE 756,CHSET/256 6550 FOR I=0 TO 20 6560 POKE DL+6+I,4 6570 NEXT I 6572 POK4}E 712,0 6573 POKE DL+6+20,4:POKE DL+6+1,132 6574 POKE DL+6+25,65:POKE DL+6,6:POKE DL+3,6+64:POKE 54286,192 6575 GOSUB 66005} 6580 RETURN 6600 REM PRINT SCORE 6605 POSITION 0,0:PRINT "score ";SCORE 6606 POSITION 12,0:PRINT "room ";LOC 6610 POSI6}TION 19,0:PRINT " mushrooms ";HIT;" lives ";LIVES 6620 RETURN 7000 REM CLEAN UP THE CENTIPEDE 7002 SPEED=SPEED-5 7004 GO7}SUB 6600:HIT=5 7005 L=LEN(XA$) 7010 FOR I=1 TO L-1 7190 COLOR 32:PLOT ASC(XA$),ASC(YA$):XA$=XA$(2):YA$=YA$(2) 7200 NEXT I8} 7210 RETURN 7500 REM OOPS 7510 GRAPHICS 18:POKE 712,ASC(BOL$(LOC)) 7515 SPEED=SPEED-5 7520 POSITION 7,5:PRINT #6;"OOPS9}!" 7521 LIVES=LIVES-1 7525 FOR DEL=1 TO 20:NEXT DEL 7530 FOR DEL=1 TO 10:SOUND 0,DEL*20,10,DEL+4:NEXT DEL 7550 FOR DEL=1 :}TO 20:NEXT DEL 7560 IF LIVES<1 THEN 7700 7599 RETURN 7700 REM THE GAMES OVER 7705 SOUND 0,0,0,0 7710 GRAPHICS 17:POKE 7;}10,0 7715 IF SCORE>HSCORE THEN HSCORE=SCORE:GOSUB 9000:GRAPHICS 17:POKE 710,0 7716 DL=PEEK(560)+256*PEEK(561) 7717 POKE DL<}+6+8,2:POKE DL+7,7:POKE DL+8,7 7718 POSITION 7,2:PRINT #6;"NERM " 7720 POSITION 2,5:PRINT #6;"your score ";SCORE 7730 POSI=}TION 2,7:PRINT #6;"high score ";HSCORE 7735 GOSUB 7800:RESTORE 7790 7736 PRINT #6:PRINT #6;" PRESS TRIGGER" 7737 PRINT #>}6;" TO PLAY AGAIN," 7738 PRINT #6;" ANY KEY TO END" 7740 FOR X=1 TO 10:READ PN:SOUND 0,PN,10,10:SOUND 1,PN+1,10,10:FOR ?}D=1 TO 20:NEXT D:NEXT X 7745 SOUND 0,0,0,0:SOUND 1,0,0,0 7780 IF STRIG(0)=0 THEN GOTO 5011 7783 IF PEEK(53775)<255 THEN PO@}KE 764,255:GRAPHICS 0:END 7785 GOTO 7780 7790 DATA 91,0,121,128,121,108,121,0,96,91 7800 REM RANK THE GAMER 7810 PRINT #A}6:PRINT #6;" YOU NEW RANK IS "; 7820 IF LOC=1 THEN PRINT #6;"ZERO" 7830 IF LOC=2 THEN PRINT #6;"ROOKIE" 7835 IF LOC=B}3 THEN PRINT #6;"NOVICE" 7836 IF LOC=4 THEN PRINT #6;"AVERAGE" 7837 IF LOC=5 THEN PRINT #6;"MASTER" 7838 IF LOC=6 THEN PRIC}NT #6;"GRAND MASTER" 7839 IF LOC=7 THEN PRINT #6;"WIZARD" 7840 IF LOC=8 THEN PRINT #6;"GRAND WIZARD" 7841 IF LOC=9 THEN PRD}INT #6;"SUPER STAR" 7842 IF LOC>9 THEN PRINT #6;"HALL OF FAME" 7860 RETURN 9000 REM NEW HIGH SCORE 9002 GRAPHICS 18 900E}3 POSITION 3,5:PRINT #6;"NEW HIGH SCORE" 9005 FOR Y=1 TO 3 9010 FOR N=1 TO 5 9020 FOR D=1 TO 5:SOUND 1,D*20,10,5:NEXT D 9F}025 POKE 712,N*20 9030 SOUND 0,N*30,10,7 9050 NEXT N 9060 NEXT Y 9065 FOR D=1 TO 30:NEXT D 9070 POKE 712,163:RETURN 91G}00 REM EXTRA LIFE 9110 GRAPHICS 17 9115 POSITION 5,5:PRINT #6;"BONUS LIFE" 9130 FOR J=100 TO 200 9140 SOUND 0,J,10,5:SOUNH}D 1,200-J,10,5 9145 POKE 712,J 9150 NEXT J 9160 SOUND 0,0,0,0:SOUND 1,0,0,0 9170 EXTRA=EXTRA+3 9180 LIVES=LIVES+1 9190 I}RETURN 10000 DIM DUM(10),BOL$(100):GRAPHICS 17 10001 RESTORE 10015:FOR I=1 TO 19:READ A:BOL$(I,I)=CHR$(A):NEXT I 10015 DAJ}TA 196,52,164,198,18,54,50,196 10016 DATA 52,50,180,196,74,79,76,76,76,76,76 10017 DL=PEEK(560)+256*PEEK(561) 10018 POKE DK}L+10,7 10020 POSITION 2,2:PRINT #6;" WELCOME TO" 10025 POSITION 3,7:PRINT #6;"nerm of bemer" 10035 POSITION 0,14:PRINT #6L};"HIT TRIGGER TO START" 10045 IF STRIG(0)=1 THEN 10045 10060 GOSUB 20110:RETURN 11100 CHBAS=756 11110 CHSET=(PEEK(106)-8M})*256 11143 DIM E$(50) 11144 RESTORE 11160:FOR I=1 TO 41:READ A:E$(I,I)=CHR$(A):NEXT I 11145 CD=USR(ADR(E$),CHSET,4) 1116N}0 DATA 104,104,133,207,104,133,206,104 11162 DATA 104,133,212,169,0,133,204,169 11164 DATA 224,133,205,162,1,160,0,177 111O}66 DATA 204,145,206,200,208,249,230,205 11168 DATA 230,207,232,228,212,208,240,96,0 11180 POKE 756,CHSET/256 11190 RESTOREP} 11240:GRAPHICS 19 11200 FOR I=0 TO 31:READ A:POKE CHSET+I,A:NEXT I 11205 FOR I=0 TO 7:READ A:POKE CHSET+80+I,A:NEXT I 112Q}40 DATA 0,00,00,00,00,00,0,0 11250 DATA 0,20,85,85,255,40,40,000 11251 DATA 85,85,85,85,85,85,85,85 11252 DATA 170,190,190R},190,190,190,170,170 11260 DATA 000,020,255,255,255,255,020,000 11270 RETURN 20110 RESTORE 20150:FOR I=0 TO 10 20120 REAS}D C 20130 POKE 1536+I,C 20140 NEXT I 20150 DATA 72,169,0,141,10,212,141,26,208,104,64 20170 POKE 512,0:POKE 513,6:RETURN T} e Super Fast CIRCLE...rFF(>30 CIRCLES DRAWN IN 4.8 SECONDS (6 CIRCLES PER SECOND!)|Œ-@@0† 6ˆ- ±²j%%;%SCREEÎÓÄSPEEÄDXÁDYÁDIÒODIÒXÁYÁÌXA¤YA¤ÚWORMÚBUÇLOÃXØØÙSCORÅDEÌHIÔLIVEÓCNÔEXTRÁBOL¤ÉÔQÚÇXB¤YB¤A¤B¤XÂYÂDXÂP±DYÂNÎC!V}HSEÔDÌCÌHSCORÅPÎÎÊDUM¨ÁCHBAÓE¤CÄÃÏ € !W}€ €!X}€€ €!€"#$%&'()*!Y}+,-./@012€3456%%6€-F:@ˆ,%AV!Z}$F:@‰, APd6B7a$6-R:,2‚-@ƒ6 ‚nx#"@)"@)"@/6„-@![};6…-G6†-@S‡"@`6„-6@l6…-x6†-@xx#"@)"@)"@ 06„-6@<6…!\}-H6†-@T‡"@`6„-@l6…-x6†-@‚d"@6…-6@(6„-46†-@@‡"!]}@L6†-@X6…-@d6„-Œd"@6…-@'6„-36†-@?‡"@K6†-@X6…-6!^}@d6„-‘ @B,ˆ‰6‡-†–` 6ˆ-ˆ%„6‰-‰%…6Š-B:‹,06‹7Š%@,.>:ˆ,D6Œ7Š%@,.>:‰,L1ˆ‰`!_}@2A¢C%2@@@@/Ap5,ˆ‰CŠ ŽA¾A @2,@:‹,@:Œ,(6‹.‹7@,76Œ!`}.Œ7@,A AÈU%2A@@=€%‰$@@%ˆA2G AfUA`Ò56Ž-Ž%@%+!a}@$,)Ž!A@56Ž-A@Üa"6‘-H:@,$@6%@A6’-H:@,$@%@EM1‘’“a“@2!b}A ÝQ6”-”%A%$@/•-@@M2¶@U@@&•Q •â—6–-–&@– @'A`!c}9,@ @K,@@ ],@€%@$@@%@9A(6–-— Aã5 Af!d},‘’52A@@æ A;A`*—!@'6˜-˜&@1 Au; A 'A`!e}6˜-˜&@' Au?•-@@;2@@@&•? • Ap-@#:!f}•-@@$(62•@@: •)6-%@6Ž-@)6˜- !™ A‘"W +!g}@5)AR@;AE AeWAAb#A@:š7,,,ggAP AA!q}à ÿB 1BLOOM BASBH4LTRWD BASBYBALLDR BASBgBALLGM BASB2zBALNCE BASBP¬BASAL BASBüBBDAT BASBBBEMER BASBKUBEMERW BASB ©BGFOOT BASBxµBILBOA BASB[-BIO BASB(ˆBIO2 BASB°BLKADE BASAPAAAAPAPAAA APÓÅÃÏÎÄ ÓÃÒÅÅΛš',@@!r}'/@5@¤ AP  ÓÃÒÅÅΛÌK,@@'/@5@9,@@K/@@ Ö !s} AP ôÔÈÅ ÆÏÕÒÔÈ ÓÃÒÅÅΛþ',@@'/@5@',@@'/@5@ AP &!t} ÆÒÁÍ µ›0',@@'/@3@?',@@'/@@ D AP X ÆÒÁÍ ¶›bK,@!u}@'/@@9,@"@K/@8@l AP ¼ ÆÒÁÍ ·›ÆK›-@@#,@›/!v}/@›;,@ ›G/@2›K ›Ð AP   ÆÒÁÍ ¸›+',@@'/@@,',@@'!w}/@@-',@@'/@8@z AP „ÔÈÅ ¸ ÆÒÁÍÅ›Ž;›-@@@+,@!x}›7/@0›; ›˜ AP èw›-@@#,@›//@8›3 ›=@2Q›-@@],@›!y}i/@"›m ›w AP Lw›-@@#,@›//@8›3 ›=@2Q›-@@],@›i/@0!z}›m ›w@5M A° ÙÏÕ ×ÉΛµ-@@º +@».-@@.(@ NERM'S H!{}OME¼(@ THANK YOU¿ž-@@Ä›-@@Í))2@›%A@@&›Î=!|})2›%@@›%@=A›$@Ø  › žÝ7›-@A32›@@7 ›â!}}  Awˆ BÕРÔÈÅ ÇÁÍÅ› B6-@3’GG‹;AP,Œ;AP,Ÿ;AP, ;AP,¡;@!~},¢;@,“a6ƒ-@56—-@'6”-36-@= AUI6–-@U6Ž-@a6™-@—q +!}AR@1A; AeMA@:š7,,_@wqAAbœ— 6‹.6Œ.6Ÿ.6!€} .+6ˆ-@ 76‰-@C6£-@%O6¤-@ [6„-g6¥-m6…-¦s6§-¦6œ-‹– —6–-!}"@6‰-@¦'6†-@–!@'6–-@ºg @5,@1/@9@C/@9!‚}@ U/@ g/@À‰– @A`+,@ @=,@@ O,@s!ƒ}€%@$@@%@9A(6–-‰ APÄa"6‘-H:@,$@6%@A6’-H:@,$@%@E!„}M1‘’“a“@2AP`É ,‘’Ý APâ A | ÓÔÁÒÔ›† +@A@,-@@!…},(@ get readyš #AV¤w’-@@"¨72¨@@[2@¨%@@@!†}o‚-@@%s ‚w ’©G%2G2@®$à99121,91,0,91,!‡}81,0,81,72,60,72,60,72,91,0,121,91,0,91›d%%6ª-F:A`,%AV$F:Aa,e%%2fAV!ˆ}©'AV–›-@  ª%@%›@ª ›¬A­;ª%@%@ @;ª%@!‰}%@A2®aª%@%@%@e3ª%@@Oª%@@%@daBB†A’¯ !Š}Af´$ÈÐÒÉÎÔ ÓÃÏÒÅ›Í"-"(score ”Î!-@!(room Ò3-@3( íõ!‹}óèòïïíó – lives —Ü$XÃÌÅÁΠÕРÔÈÅ ÃÅÎÔÉÐÅÄÅ›Z6ƒ-ƒ&@\ Af6–-@] 6Š-B:‹,b›-@!Œ}Š&@l2›@@7 @2,@:‹,@:Œ,(6‹.‹7@,76Œ.Œ7@,  ›*$L ÏÏÐÓ›V +!}@A@:š7,,[6ƒ-ƒ&@`(-@@((@OOPS!a6—-—&@e•-@@  !Ž}•jA•-@@=2•$@ @•%@A •~•-@@  •ˆ— @Aw¯$!}ÔÈÅ ÇÁÍŧӠÏÖÅÒ›%%2 +@A#5 ”!¬6¬-” A#+@5!}A$%%6ª-F:A`,%AV$F:Aa,%Gª%@%@@3ª%@@Gª%@@&!‘}(-@@((@NERM (0-@@0(@ ùïõò óãïòå ”20-@@0(@ high !’}score ¬7 Ax#Aw8,(@,(@ PRESS TRIGGER9""(@ TO PLAY AGAIN,:""(@!“} ANY KEY TO END<w’-@@"­72­@@[2@­%@@@o‚-@@ !”}s ‚w ’AG%2G2@d"T:,"" APg7F:!•}B7u, AU*AdAU4+7i Aw€n&&91,0,121,128,121,108,121,0,96,91›xÒÁÎË ÔÈÅ ÇÁÍÅÒ›‚5(!–}@5(@ YOUR NEW RANK IS Œ!"@!(@ZERO–#"@#(@ROOKIE›#"@!—}#(@NOVICEœ$"@$(@AVERAGE#"@#(@MASTERž)"@)(@ G!˜}RAND MASTERŸ#"@#(@WIZARD )"@)(@ GRAND WIZARD¡'"@ '(@ SUPER STA!™}R¢)!@ )(@ HALL OF FAME´$(#ÎÅ× ÈÉÇÈ ÓÃÏÒÅ›*# +@+#1-@@1(@NEW HIGH !š}SCORE-#“-@@2#®-@@<#?‚-@@;2@‚$@ @@? ‚A#A!›}®$@ F#''2®$@0@@Z# ®d# “i#‚-@@0 ‚n#AAc$Œ#ÅØÔ!œ}ÒÁ ÌÉÆÅ›–# +@›#--@@-(@ BONUS LIFEª#¯-AA´#C2¯@@C2@!}A&¯@@¹#A¯¾# ¯È#G%2G2@Ò!ž}#6™-™%@Ü#6—-—%@æ#$'%°9@,š;A,%+@'7 #B!›-@@%"±36š7›<›,.>:±!Ÿ},7 ›'!!196,52,164,198,18,54,50,196› '((52,50,180,196,74,79,76,76,76,76,76›!'%%6ª-F:A`,%AV$F:Aa,"'ª%@! }@$'/-@@/(@ WELCOME TO)'0-@@0(@ nerm of bemer3'7-@!¡}7(@ÈÉÔ ÔÒÉÇÇÅÒ ÔÏ ÓÔÁÒÔ=' T:,"@BEL' B$\+6²-AVf+$$6©-+F:A,&@!¢},$AV‡+³;@P,ˆ+7 #B`!›-@@A%"±36³7›<›,.>:±,7 ›‰+6´-?:C:³,<©<@,˜+%%104,104,133!£},207,104,133,206,104›š+##104,133,212,169,0,133,204,169›œ+!!224,133,205,162,1,160,0,177›ž+%%204,145,206,200,208,249,230,205!¤}› +&&230,207,232,228,212,208,240,96,0›¬+AV©'AV¶+ #B@+@À+'›-@1"±#©%›±' ›Å!¥}+/›-@"±+©%@€%›±/ ›è+0,00,00,00,00,00,0,0›ò+0,20,85,85,255,40,40,000›ó+85,85,85,85,85,85,!¦}85,85›ô+%%170,190,190,190,190,190,170,170›ü+%%000,020,255,255,255,255,020,000›,$ŽN! #BP!›-@˜N"µ!§}¢NA6%›µ¬N ›¶N++72,169,0,141,10,212,141,26,208,104,64›ÊN*A'A@*$€D:BEMERW!¨}OR.BASIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIF:@ , €@P<6-F: ^?àõØUPPEÒLOWEÒÃÙÚF +@*€-@5@BA%ª}%+€'@,€F €›%2A@@G2@A@@q6-F:A`,%AV$F:Aa%«},%@›6‚-F:A`,%AV$F:Aa,%A•€-@y16ƒ-ƒ$+ƒ @,%@5ƒA,€M/€Ax%¬}Q €s2A@@•2@Aˆ@@w „-@Au5@=€-@f@%­}6@W6ƒ-ƒ$+ƒ @,%@[ƒa,€„o/€„%@s €w „u„-@@+€-@@@1€O2%®}A%€@„S €g€-@@@m‚€q €u „}/2@A%€%@@@[2@A%¯}%€%@@@}2k„-@@+€-@@@1€; @ ? €%°}S€-@@@Y‚€c @ g €k „ €-@?=A%+€'@,k2@A%€%%±}@@@&€™2@A%€%@@@&€ €  {6…-F:A,'AF:A,<A%²}F:A,QAF:A ,fA F:A,{AF:A, <AF:A,-AF:A,9%³}A…<$€ D:BIGFOOT.BAS%´}@ %Ž<Ÿ&+"@,<@<@ ,2-‹@"/(Ÿ   2$™$!PQ‰ä:ó:ÚN¸N4°N´DLL°DLH°XÃN1¶UPÒN²ÖMODÅN¶N³N96°N±N¹ÁYCÎYÃIINÃIBOÔITOÐØINV¤ILEÎBOX¤N1±FNAME¤TMP¤ÉMAØN8²N1°GMODÅN·PMODÅCÄ)¶}IÎDCÄGEÔOUÔPUÔSOURCÅDL7¤DL8¤MOV¤DLIST¸N21°DLL¸DLH¸Q¨NDL¤ÊDLI¤N25¶NµÙCOUNÔIOCÂSCRL¸SCRH¸N3²Q±LMAÒTYPÅLIÍLIM°M×FLAÇINCÒWIDTÈHÔÈ)·}HÒMIÎFAÃSITIOÎCOÌRO×TCOÌNLIÎNPAÇN9¹NEOÌCOL°×SCÒSCRÚCOLÈCOLÌSHADE¤PR¤PRNT¤V°WIÄÌN10¶TP¤S¤DLIST°SCR°OÐ)¸} )¹}€€€€ !")º}#$%&'()*+€,€-€./01)»}2@3€45€6789:;<=>?@A)¼}BCDEFGHIJKLMNOP)½}QRSTUVWXYZ€[€\€]^_`)¾}a€b€cdef ***********************›* BILLBOARD *›* Copyright)¿} (c) 1987 *›(* by Chris Wareham *›2* 1215 W. Jackson *›<* Spearfish, SD 57783 *›F* 'Shareware' )À} *›P***********************›Z A"PdÇÒ®° ÓÃÒÅÅΛn`A#€A'A‚9A @EA)Á}ƒQA`„]Aa…`$xÓÉÚÅ ÃÁÌ=/-@@$+†"‡,%@$+†"@#,=ˆ"‰ApŒ@†"@#)Â}@(P:Š$A’'+@r$@,%?P, –h †"‡h(P:Š$A $'++A $+‹"Œ,%A€$+‹"€,%A $+‹",%Ž$+‹",)Ã},$@,%?P,  $ªn†"@#n(P:Š$A’$'++A $+‹"Œ,%A€$+‹"€,%A $+‹",%Ž$+‹",,$@)Ä},%?P, ´. †"‡.(P:Š$‚'+$@,%?P, ¾$ÈÖÅÒÔÉÃÁÌ ÍÅÎÕ ÂÁÒ›Ò+AdAU)‘(‘)Å}"AU+$Ü#‘"@' A€# A(0æ55‘@E*‘@a*‘@•*‘A$AðE96’-“%”$+‘"@a)‘")Æ}A$,&”$+‘"@E)‘"@•,?’!•E6’-–ú ’ –6’-•76—-?:C:˜,<†<“<™,'6—-?:C:˜,<†<’<™,-6“-’7 AÃÌÅÁÒ )Ç}ÁÌÌ›! A A ! A@"ÃÌÅÁÒ ÍÓÇ ÂÏØ›,"6—-?:C:š,<›<<@8<<€,"$6ÃÌÅÁÒ ÔÏРÁÒÅÁ›@(%6—-?:C:š,<›)È}<›<@8<@<€,($JÃÌÅÁÒ ÂÏÔ® ÁÒÅÁ›T.+6—-?:C:š,<<@<@8<@"<€,.$^ÇÅÔ ÄÒÉÖÅ ¦ ÆÉÌÅÎÁÍÅ›hC A)É} A#AR€)-›C( FILENAME--D‘:r" 6œ.D6œ7‰,.=:‘,"6œ7,.:| A`6œ7ƒ,.$†Ç)Ê}ÅÔ ÄÒÉÖÅ›1 AAR€-›1( DRIVE (1-8):šZA”€!A@d3AdAU:)‘F‘"AU)Ë}P AZ A(@¤‘"@'A ®!!‘ @I)‘!@VA¸%AR6‘-‘&@H"(‘%$ÂÇÅÔ )Ì}ÆÉÌÅÎÁÍÅ›Ì 6ž-6Ÿ-@6.ÖNA”€!A@d3AdAU:)‘N‘"@'A àB‘"A)Í}&*ž!( $6ž-ž&56.7<ž&+ž!,,;ž"B6.ê)ž*‘"AUAR&( )$ô#‘"AU A# )Î}A(@þ‘"A&Apž"Ÿ%Ap+ (>:‘,67ž<ž,.>:‘,!6ž-ž%+ Ap ÌÏÁÄ›&) A`)6—-?:C:š,)Ï}<<<<@<€,0Q  -( LOAD AS:*(ÇÒ® ·«  7(GR. 7+/8A(GR. 8K(GR. 9Q €:K 6†-6“-¡6–-¡!6•-)Ð}@'6™--6”-7 A?6¢-“&ƒE¢"ŒK6¢-£D 6¤-¢“"›6¤-N- 6¥-¦6§-¨ A# A0- A(0X ÓÁÖÅ›)Ñ}b- A` Ap6¥-©#6§-ª- Al ÖÉÅ×›v ApAdAU€ F:Ad,"AUA@Š$”)Ò}ÐÕÔ ÐÉî ÏΠÓÃÒÅÅΛž?AY€-6«-+¢"£,$C:¬,%+¢")¢",$C:­,?6—-?:C:®,<«<¯<°,¨IA`±Aa²*A³8)Ó},2ž-€‰EA%ž³8ž%‰,I ž² ¢"A#@d¼AY@4$ÆÃÈÏÏÓÅ ÓÈÁÄÅÓ ÆÏÒ ÇÒ®±µ›ÐRAY)Ô}€A`±'Aa²D6—-?:C:®,O-@*(ÒÅÔÕÒÎ=More, ÅÓÃ=Exit1)‘; AO‘"@')Ú}A(@H% A@6—-‰6¹-@%6º-€R> -—¹(6º-º%6¹-¹%$º"26—-—%@>6¹-@\17¸<@,4)Û} FREE SECTO$. A1$f A pÃÉÏ ÌÏÁįÓÁÖÅ›z)‰‰¥€œ!6»-AH%‡)»%‰§„ »%ƒ¼»%¸½Ž)Ü} »%€»%@0˜6—-?:C:hhhªLVä,<¾,¢; ¥"©*‰³8,*‰³8‰,'*‰³8,1*‰³8ƒ,; A €¬W A P)‰)Ý}¿6³8,-¿$)‰¿-6³8‰,-¿4)‰¿=6³8,-¿D)‰¿M6³8ƒ,-¿W A p¶3 ¢"£6³8,-€6³8‰,-Œ$6³8,-¡36³8ƒ,-@À7 )Þ}¢")¢"6³8,-€6³8‰,-€.6³8,-@76³8ƒ,-€ÊiA³8,!A³8‰,0A ³8,?A³8ƒ,H6³8¸,-€Q6³)ß}8Œ,-ŒZ6³8£,-¡i6³8,-@Ô A"‰$ÞÐÁÕÓÅ ÐÒÉÎÔ›èAdAUò F:Ad,@3AüG)à}AdAUƒ(ƒ€P:D(ƒ@A>:,l>:À,G$ÐÒÉÎÔ ÏÐÔÉÏÎÓ› ¤"£ A j A€AR)á}+-@@@(FORMAT: ÕÐÒÉÇÈÔ R-@!@`(SIDEWAYSj A@$K6†-@!6“-@!6–-“-6•-@)â}36™-96”-C AK6ˆ-“&›.8 A -@ˆ".(  ÕÐÒÉÇÈÔ 8 A8(  ÓÉÄÅ×ÁÙÓ B]AR)ã}-@›1(Ft. Paper TimeC-@@](WIDTH: HRS:L*-›@*(HEIGHT: MIN:V))ä}-‰@)(PRINT OPTIONS: ``   (6(% TYPE DENSITY WIDTH HEIGHT POSITION`(% ---- ------- ----- ------ -)å}-------jT,($ ÉÎÖ® 480 dpl SINGLE SINGLE CENTERT(# REG. 720 dpl DOUBLE DOUBLE LEFTtR+(# 960 dpl TRIPLE FOU)æ}R RIGHTL( 1920 dpl MORE MORER ‰~G6–-@6”-6†-‰!6“-–-6•-@ 36™-ƒ= AG6Á-–%&“ˆ= 6)ç}†-£6“-–6•-@"!6™-36—-?:C:˜,<†<“<™,= A’a%6‹-“&–&+“"@!,%¸$+“"@ ,[6Â-A@$+‹"Œ,%Ž$+‹",%A )è}$+‹"€,%A $+‹",a6Ã-Âœ! ˆ"6Ä-Â'A ! A¦##6Ä-‰$+‹"€)‹"Œ,%ƒ$+‹",%$+‹",°3 6™-Œ6†-‡6“-–!6•-@")é}36—-?:C:˜,<†<“<™,º5 6Å-€ A6Š-“&+–&,%Š"ƒ+6Æ-5 AÄ 6Ç-ŠÅAÎÇ ƒA0Ø36†-@#)ê}6“-–!6•-@"36—-?:C:˜,<†<“<™,âE 6Å-€ A/6Š-“&+–&,%+“"–%‰,%ƒ$+“"•,5Š";6Æ-E Aì 6È-ŠÅAP)ë}ö# 6É-ÈÈ A0É!#6É-ˆ"‰A =6Ê-P:È'ƒ,%+È'ƒP:È'ƒ,,36Ë-P:Ç'Ä,%+Ç'ÄP:Ç'Ä,,= A?6ž-)ì}@6'6Ê-P:Ç'ž,%+Ç'žP:Ç'ž,,?6Ë-P:È'Ä,%+È'ÄP:È'Ä,,)-@$@(Ê$Ë)ˆ"‰A0(G=6Ì-?u$+‹"€,%?`$)í}+‹",%?P$+‹",%+‰',$+‹"Œ,G A@2S?6Ì-?g$+‹"€,%?c$+‹",%?X$+‹",%?r$+‹"Œ,EÇ!S6Ì-Ì$?)î}<h 6Ë-Ì$Ç$È6Ê-P:Ë'@`,;6Ë-P:Ë%?P&+Ê$@`,,M-@3@Q(Êc-@3@h(ËFI6†-@16“-–)ï}!6•-@!36—-?:C:˜,<†<“<™,= AI6Í-“&+–&,P' 6À-€6Î-@@!6Ï-A’'6Ð-€Zk-@@.(¼ÓÐÁÞ=P)ð}ause On/Off:-@‡K(  ¼ÅÓþ =Stop]AdAUkˆ"‰A`dÕÐÒÉÇÈÔ ÐÒÉÎÔ›n36Ñ-Ï'+'È,'6Ò-P:Ñ'Ó,%+Ñ'ÓP:)ñ}Ñ'Ó,,36Ô-+Ò$Ó,&Ñs% 6Ý.6Ý7A ,.%6Ý7‰,.Ýx‹"A0‚‹"ŒA@Œ‹"Ap–-#6À-@$+Í")ò},%@&$+Í",- AP ) Ç")6À-@"$+Í",%@D$+Í",ª lj6À-ƒ$+Í",%$+Í",´ AP¾) Ç")6À-@3)ó}$+Í",%@f$+Í",È) Ç"‰)6À-@'$+Í",%@S$+Í",Ò) Ç")6À-@ $+Í",%@9$+Í",Ü) Ç"ƒ)6À-@)ô}$+Í",%@&$+Í",æ# Ç"¸#6À-£$+Í",%@$+Í",ð APú) Ç")6À-@'$+Í",%@S$+Í",) Ç"‰)6À-)õ}@$+Í",%@&$+Í",& Ç!Ä 6Î-P:‚$Ä'Ç,%+‚$Ä'Ç ,&6Õ-Î, A 6Ö-P:Ç'+Ä$‚,,$Ç!Ä$‚,6Ç-Ä$‚"> 6Â-Î$$Ç!6)ö}×-F:¯%ƒ,%·$F:¯%¸,'6Ø-×26Ù-P:Â'·,>6Ú-Â&+·$Ù,,OAQ¤06¹-?:C:®,:‹,>:Ú,>:Ù,Ý7<Â,J F:)ø}Ad,"@(AT"F:Ad,"@3" A^ ž — µh Ç!Ä)È!ƒž-Ô(ƒ žr 6Ð-Ð%ÎÐ"‚A)ù}|! 6Î-‚&ÐÎÕ6Î-Õ! A€†G6Â-P:Ã$+Î'Õ,,%6Ý.'6Ý7Â,.06Ý7‰,.Ý;6Ù-P:Â'·,G6Ú-Â&+·$Ù, 6×-Ø%Õ6Ø-×)ú} Aš#ƒ( A€# A(0¤ÍÏÒÅ ÐÒÉÎÔ ÏÐÔÉÏÎÓ›® 6Þ-Š¸G 6.=:Š,-†“( &-†%“+(5 A)û}0G6—-?:C:˜,<†<“<™,Â+AdAU)‘(‘"AU+$Ì#‘"@' A€# A(0Ö55‘@E*‘@a)ü}*‘@•*‘A$A0à? †"‡*Š"?6Æ-+‘"@E)‘"@•,%$+‘"@a)‘"A$,êˆ"‰AôE†"‡*Š"Ä$‚)ý}E6Æ-$+‘"@E)‘"@•,%Ä$‚$+‘"@a)‘"A$,ù AþW†"@#*Š"Ä$A’W6Æ-$+‘"@E)‘"@•,%Ä$)þ}A’$+‘"@a)‘"A$,!‘"@a)‘"A$!6Š-Š%Æ!‘"@E)‘"@•!6Š-Š&Æ5 Š Þ-†“( ÍÏÒÅ -6—)ÿ}-?:C:˜,<†<“<™,56“-“&&[ Š Þ6—-?:C:˜,<†<“<™,!6Å-M-@@$+†"‡,%@$+†"@#,X( [$0 A *}:ÓÉÄÅ×ÁÙÓ ÐÒÉÎÔ›D5 6ˆ-€6Ñ-‚$Ç)6Ò-P:Ñ'Ó,%+Ñ'ÓP:Ñ'Ó,,56Ô-+Ò$Ó,&ÑI% 6Ý.6Ý7A ,.%6Ý7‰,.ÝN‹"A0*}X‹"ŒApb‹"A l) È")6À-@$$+Í",%@G$+Í",v# ÈÄ#6À-$+Í",%@$+Í",€ A @*}Š) È")6À-@2$+Í",%@c$+Í",”) È"‰)6À-@$$+Í",%@G$+Í",ž# ÈÄ#6À-$+Í",%@$+Í",¨ *}A @²) È")6À-@)$+Í",%@X$+Í",¼) ÈÄ)6À-@$+Í",%@6$+Í",Æ A @Ð) È")6À-@6$+Í*}",%@q$+Í",Ú) È"‰)6À-@2$+Í",%@c$+Í",ä) È"ƒ)6À-@$$+Í",%@G$+Í",î# ÈÄ#6À-$+Í",%@*}$+Í",ø 6ß-Ç6Ö-P:Ç',ß! 6ß-ý% 6É-ÈÉ!Ä$A’%6É-Ä$A’-'6Â-È$A’$+È Ä,%Ä$A’$+ÈÄ,-6Õ-Â*}) 6à-ÂÉ!)6à-à'+É',%++à'+É',, , >!6×-F:¯%ƒ,%·$F:¯%¸,%‚$A‘'6Ø-×26Ù-P:Â'·,>6Ú-Â&+·$Ù,OAQ¤06¹-?:C:*}®,:,l>:À,**}NŠ-È'+Ä$A’,'—-××%@9/ž-ßN6¹-?:C:Ü,<ˆ<ž<—:‹,>:Ú,>:Ù,Ý7<Â,> * }F:Ad,"@(A!H"F:Ad,"@3" AR µ ž — Š\ Ò!)È!Äž-Ô(ƒ žf! 6Ð-Ð%Â!Ð"* }È$A’A!p)6Â-È$A’&ÐÂÕ6Â-Õ) A!€z6Ù-P:Â'·,6Ú-Â&+·$Ù,„!6×-Ø&+Â'È,$‚6Ø-×! A Ž#ƒ* }( A€# A(0˜ ÅÒÒÏÒ›¢W A"‰ƒ& A,-›W(ERROR #F:A•,. Press any key.* }¬--? " at line ";PEEK(186)+N256*PEEK(187);›¶ )‘ A@ A(0ÀÉÎÉÔÉÁÌÉÚÅ›ÊAF:A@,ÔÏ6-@* }6‰-@'6-@36ƒ-@?6¸-@K6Œ-@W6£-@c6-@o6-@ {6¡-@‡6›-@*}“6‡-@Ÿ6¾-@2«6 -@‚·6á-AÃ6°-AÏ6·-AVÞ? 6¦-ƒ6©-¨-£ª-›'6‚-@@36Ó-@™?*}6Ž-A `èkƒ€K:kÜ;A Y,˜;@q,®;@v,š;@™,³9@,œ;@ ,;@ ,â;A,òÝ;*}A ,ã;‚,´;£,üR26ã.( 5p#olor2eg4! $efaultR6ã7@'<@',.>:@4, f 6³8,-€6³8‰,-@R*}*6³8,-A496³8ƒ,-@B6³8,-€K6³8¡,-ŒT6³8›,-¡f6³8@,-³8ƒ, dd6Ü.ZhhhhhªÊŠ h…Ì…Õh…Ë…Ôh…Îh…Í­Ð*}hhNnNnNnhhhh…Ñhðhh 16Ü7@‘,.É 16Ü7@—,.>:@4,$ mm6Ü7@˜,.ZNn*}NnNn­©Ð©©hhð%É °­ð©JJJ©®. mm6Ü7Aˆ,.ZŽ¢Ž ±Ë®¬*}èîˆÐö­Ð8¥Ëé(…Ë…Ô¥Ìé…Ì…Õ ¥Ëi(…Ë¥Ìi…Ì­Éпðж­É ðÉðW8 mm6Ü7Ax,.Z( ÿŒ Œ ȹHJJJJ h)Í Ðî Î*}0ÐÈ, H©h ® ½ ­ Í ÐîÎ0ð+VB mm6Ü7Ah,.ZÐÌ H©h ®½ ™ÈÀ‹- ÿŒ ŒŒŒ*}È©¹HJJJJJJÍÐî Î0|ЦL mm6Ü7AX,.ZÜH©hª½)J ® ½Ð hH)0JJJJÍÐî ÎH©*}hª½)J ® ½ÐV mm6Ü7AH,.Z hH) JJÍÐî Î0_Ѐ€H©hª½)J ® ½Ð h)Í Ðî *}Î` mm6Ü7A8,.Z H©hª½)J ® ½Ð ™ÈÀ£©…Ï©P…Ë©…Щ…Ì®àðEÐІ¢?©PÊú¢©½JH¬j dd6Ü7A*}(,.Q~P~X~`~h~p~x~€~ˆ(ˆÐãhÎØÊÍ0ðй¢?½PÊ÷®­Ð©m…Ë©i…Ì¢Ðt 6Ü7A ,.>:@4,~ gO6Ü7*}A,.< Œ±Ï JH±Ëj‘Ëhˆõάé0йǩ ­±ËH¥ÑðhIÿHhÉg6Ü7Ap,.>:AU,ˆ tt6Ü7Aq<A Y,.YЩ—*}É Ð© ‘ÍÈÎÐøæËÐæÌ¥Ím…Í¥Îi…Îο0вÊð¥Ïi…ÏæУ­ðæÔÐæÕ¥Ô…Ë¥Õ…ÌÎÐÕ`’ QQ6˜.Ghhhhhhh¥X…Ë¥Y…Ì®ð¥*}Ëi(…ËæÌÊÐò¥Ëm…Ëæ̬𠈱ËI€‘ˈ÷`œ VV6®.Lhð ÉðªhhÊÐû`h…Õh…Ôh…×h…Öh…Ùh…ئØÊàÿІئÙÐ`ʆ٠ð†Ø ±Ô‘ÖæÔÐæÕæÖÐÙæ×Ð*}Õ`¦ dd6š.Zhhh…Ëhh…Ìhh…Íhh…Îhh…Ï¥X…Ð¥Y…ѦÌð¥Ði(…ÐæÑÊÐò¥ÐeË…ÐæÑ ÿ¦Ë¥ÏÈ‘ÐèäÍøðöæÌ¥ÌÅÎð`¥Ði(° 6š7@‘,. …ÐÜ*}æÑ׺ ¬;°,­;°,Û;@–,¶;‡,Ä 6¶.H Ô©ÔЩÐh@Î jj6Û.`       *}  Ø N +%‡AY€&áF:A@,&¾56±-F:A`,D6²-F:Aa,N6¯-±%·$²â .* }6—-?:C:®,<¯:F:¯%A˜,%A(,16´7‰,.>:@f,?6—-P:C:ã,'·,L6¹-C:ã,&—$· <6´7,.>:¹,6´7ƒ,.>:—,#µ-€‰*"}86´7¸%µ,.>:F:¯%ž%µ,,< µ $ ¯%žŠ ž$6—-?:C:®,<¯( Do you want:P-@@a( i-@@$( Âiorhythms6-@@.:}=(orO-@@i(Ãompatibility Profiled AuA@d1A”>)@R"@f.;}A dGOTO BIORHYTHMS›@gA $ A`GOTO COMPAT.›3=@w€+@A=B.<}7tA4$Ð+ (}+( Please enter your nameÚ A€R1 (}-@@'6-A!01 AP.=}SJ#(Please enter your birthdate&(B((M,D,Y i.e. 1,31,1987)JŽ\6- Af‘"@A!0pT.>} (}-@@D($Is this your correct birthday (Y/N)?J6’-ŽT A@z&-@@ &(ˆ , „-.?}@8@ ApŽ†4NA!0˜[ (}-@@ [(;Please enter the month and year you would like t.@}o examine(((M,Y i.e. 1,1987)¢6-A" AP’“§6-¬S6‘-G’ @)’!@)’P.A}:’,)“ A)“!A!)“P:“,S6‘-@¶‘"A"2·C(!( ÂÁÄ ÄÁÔÅ5”-@A9 ”C .B}A"¸\=’"@*“'@"P:“'@,*“'AP:“'A,R6‚8@,-@)\ A"@¹6‚8@,-@(º.C} A@¿NNCOMPUTE THE # OF DAYS BETWEEN BIRTHDAY AND THE 1st OF EXAMINATION MONTH›À?Ž"@)Ž"@'6•-&@.D}56–-Ž%@? A"`Ê6–-Ž%@6•-Ô##6—-P:Ae%$•,%P:@0`$–,%Þ?’"@)’"@'6•-“&@.E}56˜-’%@? A"è6˜-’%@6•-“ò!!6™-P:Ae%$•,%P:@0`$˜,ü6š-+™&—,%@` ++COMPUTE THE # OF DA.F}YS INTO EACH CYCLE›Ä 66›-P:š'@#,%6œ-P:š'@(,66-P:š'@3,Î -6›-›$@#6œ-œ$@(-6-$@3Ø  6›-.G}š&›6œ-š&œ6-š&Ù ›"@#6›-Ú œ"@(6œ-Û "@36-ÿ INIT. SCREEN› 3 +.H}@@)AA3 Au ,@@9'/AY@99,K/AY]/A.I}Y@yo/@y/ ž-@AY@ ,ž/ž@y(  ž2 o,@.J}@'/@@9,@@K/@@],@@ o/@@ < K,@@h'/@.K}@q9,@@qK/@@qA o,@@8'/@@99,@@7K/@@7.L}],@@@o/@@@F ]AR@9(1234567891111111111222222222233]( DAYS 0123456789012345678.M}901P ''( ÐÒÅÓÓ ÁÎÙ ËÅÙ ÔÏ ÃÏÎÔÉÎÕÅZ (NAME:‡ ˆ/“c \\COMPUTE AND GRAPH CYCLE FUNCTIONS - BLUE=PHYS.N}ICAL - RED=EMOTIONAL - GREEN=INTELLECTUAL›d $@$6Ÿ-A`'@–n Z6 -@06ž-,6¡-‚8’,$@86¢.O}-@F6£-›$@P A&qZ A'0o 6¤-G:Ÿ$£,$ 6¤-@9&¤p ,¢¤x ¢-ž¡‚ "6¤-G:Ÿ$+¢%£,,$ "6¤-@9&.P}¤Œ /¢%@¤–  ¢  $ª ! @!6Ÿ-A`'A´ '6¢-@6£-œ$@' A&q¾ ! @!6Ÿ-A`.Q}'A6È '6¢-@6£-$@' A&qÒ ,)@+,A· MENU›¸ n (}%( .R}  ÍÅÎÕ ((I( Ço ahead one monthL(k( Ðrint this monthn(½ K#( Óee another month.S}&(K( Ånter another birthday¾ .(.(# Õse Compatibility Profile d(!( Ñuit$('(.T}9AR@Z( Please Choose Oned AuÌ 4A@d'A”4)@Ö "@q.U}Bà "@ƒA"ê "@iA ï "@…A`ô "@+þ @€A.V}0  PRINTER OPTION› p (}-@@C(# PLEASE MAKE SURE PRINTER IS READYc( THEN PRESS A KEY.W}p)@ 96-A0€ AQ9@@P: 6- SET UP PRINTER› R(@(@.X}R(@NAME:‡ ˆ/“ U(@(@$(@U(@# .Y} DAYS OO(@> 1 2 3 4 5 6 7 8 9 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 OO(@> .Z} 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1& PP(@?------------------------------------------------------.[}---------/ COMPUTE VALUES›0 }6¥-A`'@H+6¦-A`'@X?6§-A`'@hI+@[AmA.\}R@}( Thinking5 H @,@@ >/‚8’,$@%@@ H Au: 8 ,@.]}@ 8ž-@‚8’,$@; /ž%@@ D **6ƒ8ž,-P:G:¥$+ž%+›$@,,,$@ ,N **6„8ž,-P:G:¦$+ž%+œ$@.^},,,$@ ,X **6…8ž,-P:G:§$+ž%+$@,,,$@ ,b  ž (}( Printingk PRINT IT›l !! -@6@ 6._}@v ¨-@‚8’,$@€ ' ƒ8¨," 6‰7¨<¨,.* ¨' A2AŠ ' „8¨," 6‰7¨<¨,.+ ¨' A2A” ' …8¨," .`}6‰7¨<¨,.# ¨' A2Až 6‰7¨<¨,. ¨  ¨© 0 "@(@H,(@‰0  ª a "](@.a}@C---------------------------------------------------------------a  « 7 "6@  (@L-(@‰7 A2E.b}¬ (@|‰  ­ PP(@?---------------------------------------------------------------Ú OO(@> 1 2.c} 3 4 5 6 7 8 9 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3ä OO(@> 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5.d} 6 7 8 9 0 1î 44(@# DAYSø a(@(@a(@: *=P.e}HYSICAL +=EMOTIONAL #=INTELLECTUAL @ ; +AR@1A; A0ŸMONTH NAME.f}› gg’A@A@ A@0A@@A@PA@`A@pA@€A@AAAAAA ª6ˆ.JANUARY$´.g}6ˆ.FEBUARY$¾6ˆ.MARCH$È6ˆ.APRIL$Ò 6ˆ.MAY$Ü6ˆ.JUNE$æ6ˆ.JULY$ð6ˆ.AUGUST$ú.h}6ˆ. SEPTEMBER$6ˆ.OCTOBER$6ˆ.NOVEMBER$6ˆ.DECEMBER$‡ERRORS ROUTINES›ˆG B(+( .i} ÅÒÒÏÒý?”-@AC ”G ì@ APnCOMPATIBILITY PROFILE›o1ST NAME›pA (}.j}AR@A(! Please enter 1st person's namez A€6Š.‡ƒ1ST BIRTHDAY›„ (}-@@ …c6.k}-A`  AP[(¡-@ž(  ¡?(Š & ‹F=AR@(=( ÐÒÅ.{}ÓÓ ÁÎÙ ËÅÙ ÔÏ ÃÏÎÔÉÎÕÅP)@ A™W(Y)ES OR (N)O›XSA@d'A”4)@=6†..|}>:,S†0Y*†0NAb$?ENTER NAMES›@+(+( Use ÂÁÃËÓÐÁÃÅ to erase typosJL(*( Press ÒÅÔÕÒÎ when.}} finished-(0(L( __________^-@@h 6‡.6ž-@rHA@d'A”.~}4)@H"AUA |U"A&*ž!@0(>:,_>:@0,>6ž-ž&@K6‡7ž<ž,. U A€P†!!.} @2)!@•A€P'6‡7ž<ž,.>:,(>:,'6ž-ž%@šž@A€P¤.)@.A&*AU.€}A®"A&A€`¸$'#CHECK DATES›(#86‘-,Ž @)Ž!@)ŽP:Ž,86‘-@-#.Ž"@.}$6‚8@,-@). A.#6‚8@,-@(2#) @)!‚8Ž,)P:,)6‘-@F#,  A)!A!).‚}P:,,6‘-@P#‘"A`Z#=( (%( ÂÁÄ ÄÁÔÅý9”-@A= ”d#$'ROUND OFF %'S.ƒ}›'B:Œ, @$'76ž-A:Œ7@<@,,76¡-A:Œ7@<@,,$'ž!@6¡-¡%@.'66Œ7@<@.„},.=:¡,66Œ7@<@,.08'$÷*COMPUTE NEXT MONTH CYCLES›ø*$6›-›%‚8’,6œ-œ%‚8’,$6-%‚8’,+'›!@#6.…}›-›&@#' B +'œ!@(6œ-œ&@(' B +'!@36-&@3' B0 +76’-’%@’"@.†})6’-@76“-“%@*+ A@ A%`€ D1:BIO.BAS<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<.‡}<<<<<<<<<<<<<<,NOU¤X¨C¤L¤R¤A¤X1¤X2¤X3¤W¤ÊÁÌÚÔÐJÂJÄJÃÎÖÙÍÄ×ÂÒÃX±X²X³NAMÅNAME¤POKE¨CHR¨READY¨ADÙØ€@€€2‰}€€€€€€ 2Š}€ @!@"@#2‹}$% BIORHYTH›$$COPYRIGHT 1984 DILITHIUM PRESS›@‚~~€;@@,9@,‚;@@2Œ},ƒ;@@,„;@@,…;@@,†;@@,‡;@@,ˆ;@@,‰;@@, ;@0,((Š-@@"‹$682}Š,-‹( Š2))31,28,31,30,31,30,31,31,30,31,30,31›<36Œ-6-?™™'6Ž-@36-@’eFCŠ-@@)+2Ž}6€7Š<Š,.>:@,?6‰7Š<Š,.>:@2,C ŠPC#6€7@<@,.>:@#,C6‰7@<@,.>:A$,ZT +2}A@41A@4N( BIORHYTHMQ(T([0*3>:@,>:@ , BIORHYTHM-303\ ]2} _  ENTER NAME:  `    d( ENTER BIRTHDATEn A@6-‘sFF3>:@ ,>:@ ,NAME:  2‘} BIRTHDATE: –/—/•x'('( ENTER START DATE FOR CHART‚! A@6’-‘!’APŒ@@(8 CHART DATE C2’}AN'T BE EARLIER THAN BIRTHDATE - ÔÒÙ ÁÇÁÉΖAR@›GA3>:@ ,>:@ ,START DATE FOR CHART –/—2“}/•D3G3  A0ªM 6“-’&6”-@#! AP-6”-@(7 APC6”-@3M AP´W A6Œ-Œ%@2”}-AR@I3‚>:@ ,>:@ ,ƒW6’-’%@¾Œ @1ApÈDAdAU D &ÐÒÅÓÓ 'E' ÔÏ2•} ÅÎÄ ÏÒ  SPACE ÔÏ ÃÏÎÔÉÎÕÅÒ&6‹-F:Ad,&‹"AUAÜy‹"@B!AdAU3ARE@‚2–}@O Ac¥-@f3j ¥y% D:MENU.BASæ>6Œ- A-¥-@034 ¥> A`ð2—}568@,-@( (  YEAR ,•56•-P:•,õ#•  A@# A@ú00+•'A,&+P:•'A,,2˜}Ap00+•'A,&+P:•'A,,A€=(+•'@,&+P:•'@,,"=68@,-@)1•2™}@™6•-•%A1  • ASSUMEDR  MONTH (1 TO 12) –(6–-P:–,>– @)–!@H A@R A€2š}"J  DAY (1 TO 8–,) #—6— @)—!8–,@ A@J A,o 6˜-P:+–&@,'@%,E6‘-P:Aa$+•%A2›}H%˜,'@,o6™-Ag$+–&@&˜$@,'@6™ 6™-™%@Y 6™-P:™,6‘-‘%™D6™-P:P:@$+•%AI2œ}%˜,'A,'@,V6‘-‘%—&B u&™Y$J›TWW3DATE>:@ ,>:@ ,2 D O W N 2} 0 U PUEE3>:@ ,>:@ ,>:@ ,____________________________V$^6˜-P:“'”,6š-“&˜$”h”@#2ž}Ar 6ƒ.‰|”"@#6‚.P†”"@(6‚.E”"@36‚.IšJ 6˜-š'”6˜-˜$@$&6˜-Ž$G:2Ÿ}˜,66˜-˜%Ž%@P?6˜-P:˜,J6….ƒ7˜<˜,¤…4P)…4E)…4*6‚.*®˜"@Ap¸˜"Ž%Ž%@A€ÂP62 }†.ƒ7@<˜&@,56‡.ƒ7B:ƒ,&+Ž%Ž&˜,6›-B:‚,G6œ-B:†,P6-B:‡,ÌE6ƒ7@<œ,.†)6ƒ7œ%@<œ%›,.‚B6ƒ7œ%›%2¡}@<œ%›%,.‡E$Ö]"6†.ƒ7B:ƒ,&+Ž%Ž&@,:%@,a$^v–-@@+—-@@@/ —C0•@ @W˜-6Ã}@@@[ ˜o0•@@s –v$I@‡@'-@I(@PRESS fire TO BEGIN!•M+6Ä}T:@,")T:@,"76Ž-C6-M @š A€ D4:BLKADE.BAS...................6Å}...............................................................4?