' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`9RE READY...":20500:}:6+ }10,2045}5,11?}6,13I}7,15S}8,13]#}9,11k(}10,2010y-}12,16102}12,16157}10,2012<}10,2016A}18,2210F}10,2020K}24,2815P}10,2024U}10,2028Z}12,1625_}25," 1.) ADDITION,"6y11:" 2.) SUBTRACTION,":13y" 3.) MULTIPLICATION,":15:" 4.) DIVISION, OR":17:" 5.) A RANDOM MIXTURE."z19:"PLEASE TYPE 1, 2, 3, 4, OR 5";:ZM23:868:20900:EZN:E1E531240z:10:"O.K. WHENEVER YOU AHIS DRILL IS DESIGNED FOR 5 TO"::"40 YEAR OLDS.":31110Cy958jy10:8:"1 = EASY ...... 9 = HARD"y12:"WHAT IS YOUR DEGREE OF DIFFICULTY";:868:ZM16:20900yD(B)ZN:D(B)1D(B)931140yBy:7:"WOULD YOU LIKE PROBLEMS IN :":9:868:" PLAYER #";B;" ";:B$(B):(B$(B))7B$(B)(B$(B),7)TjyB$(B)""31081rmy62B16CO20ė:COCO1{ryB:|yB1Ayy7:"PLAYER #";B;" : ";B$(B);" HOW OLD ARE YOU";:ZM14:868:20900:C(B)ZN:C(B)5C(B)40311259y10:"T MANY PROBLEMS PER PLAYER";:ZM15:868}Jy20900:WZN:W50W1Ģ15:868:"PLEASE ENTER A NUMBER BETWEEN 1 AND 50.":31040OyDD99DD0:Ty:3:"PLEASE TYPE YOUR NAME(S) AFTER YOUR ":"PLAYER NUMBER:":34,3hyCO0:B1A@iy62B16CO: F L U C K ":20500uYy7:"HOW MANY PLAYERS ARE THERE";:ZM10:868:20900:AZN"y958:A1Ģ10:"SORRY, THERE HAS TO BE AT LEAST 1.":DD11000::31000,yA35Ģ10:"SORRY, MY CLASS SIZE IS LIMITED TO 35.":DD11000::31000'@y12:"HOWER THE PROBLEMS THE":"MORE POINTS YOU RECEIVE.":lu::"YOU WILL BE GIVEN THREE TRIES.":::"BONUS POINTS ARE GIVEN AT THE "qu"END. THESE POINTS ARE DETERMINED ":"BY YOUR AGE, LEVEL AND THE NUMBER":"OF WRONG ANSWERS."u::" L O T S OG THE MENU PROGRAM...":(4);"RUN HELLO"4)1023,9<*:TPCH(36):CV(37):mQâCV1:36,CH:868:RÖ1:ZC:868:CV2:,::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"T :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022ZE1ĬZE343049(:10:"GETTIN END OF PROGRAM!::58(1023)123430205:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A$(A$,1,1)"Y"Ĭ(A$,1,1)"N"43050:"PLEASE ANSWER WITH YES OR NO":43005D "WOULD YOU LIKE TO:"PRESS SPACE BAR TO CONTINUE";)9 A$::?@CH(36):CV(37)gA"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:E32241?"THAT IS AN ERROR, ";N$;", TRY AGAIN!"I2190p"THAT IS WRONG ALSO,"N$;" . THE ""CORRECT ANSWER IS "C(T)" !!":236022601820::"CORRECT!";:2360I430008 1:24:"(1)fT(86(1)1)*pS(T)121506zS(T)1?E0LI;". ";c"COUNTRY: ";C$(T){"WHAT CONTINENT?";5000040000:MZNM1M5İ50002:2220ZC:"1, 2, 3, 4, OR 5 PLEASE.":50001:2210MC(T)2250EE16 PLEASE.";:50001:2114I@J">>>KEY 1) SOUTH AMERICA"bK" 2) NORTH AMERICA"}L" 3) EUROPE"M" 4) AFRICA"N" 5) ASIA"O:::34,8:R DELETED THE RANDOMIZE\I1N]I12150^XC$(85)"BURUNDI"C(85)45 C$(86)"BANGLADESH"A*C(86)5G4S5I186_6S(I)0f7I>N$;", HOW MANY PROBLEMS WOULD YOU":"LIKE TO TRY?";@50000B40000:NZNDN0N87İ50002:2121FZC:"TYPE IN A NUMBER BETWEEN 1 AND 8LTA"vC(77)4%C$(78)"URUGUAY"1C(78)1HC$(79)"VENEZUELA"TC(79)1lC$(80)"YUGOSLAVIA"xC(80)3C$(81)"ZAIRE"C(81)4C$(82)"ZAMBIA"C(82)4C$(83)"AFGHANISTAN"C(83)5C$(84)"FRANCE"C(84)3 B$,(B$)1):40025"XB$B$(A1):Y(23):25:B$" "IZM240015T[40009fPù600,A:601,CSÒ0:ME4,E5:E1E2,E3:(21)::(4);"RUN ODELLP2"ٺ:(1023)123ĺ(4);"PR#6"Z݀1;"RUN ODELLP2"ٺ:(1023)123ĺ(4);"PR#6"Z݀6384)12740020IX:K0:3210,110:X2101602:M2XM0:2X2,110:3:2X,110qN(16384)12740020OX:40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5110:VA113(A18(B$)1)B$"":40025WA18B$()7,Z2:30050@uZ332300506NuZ31Z1(Z1)7,Z2=buZClu@3:5110,118:B$"":A1$"":E15:E2110:E3118:2160,110:16368,0C(23):"WHAT DO YOU WISH TO DO? ";D0:2160,110EX1622102:M3G0:3X2,110:3:3X,110H(1007,12009,12012,12014@."ATTEMPT TO ESCAPE TO DEEPER WATER":l."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND EAT IT":."CHASE IT OUT OF YOUR TERRITORY":0uZ1(Z$):Z3((Z$,Z,1)) ?uZ364ĔZ344Z1(Z1)'16368,0:24:13:"PRESS SPACE BAR";B'(16384)12710010^'0:E1E2,E3:ME4,E5:*:::9:"REMEMBER A "A9$" WILL"::"EAT A "A$"."*:"NOW RUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000*9175.:21:B12005,12HAVE BEEN SUCCESSFUL":##C30ı]#:::11:"YOU PASSED UP TOO MANY CHANCES AT FOOD":#:" YOU STARVED TO DEATH."#10000#::12:"DO YOU WANT TO TRY AGAIN?";A$#(A$,1)"N"đ:::55555#(A$,1)"Y"Ľ:600,9:5#9175OU ARE GETTING HUNGRY..BETTER EAT":sn#"YOU CAN NOT KILL THIS FISH AND":"YOU USED A LOT OF ENERGY NEEDLESSLY":s#"YOU GOT AWAY FOR THE TIME BEING":v#"NO.....THAT WAS THE WRONG MOVE":x#"GOOD, IT DOES NOT OCCUPY THE SAME NICHE":#"YOU 0,118BEME4,E5:Y118:X1230E42:3:5110X,118:3E4X,118eG0:5110X,118:3E4X,118:XI3:5110X,118:E15:E2110X:E3118:(#"THAT WAS A WASTE OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.":P#"YOU ARE TOO LITTLE":$Z#"Y:"SEE IF YOU CAN SURVIVE.":10000:9175Q٭(1023)123ĺ(13);(4);"RUN HELLO"Wٿ(13);(4);"RUN HELLO"wٿEA113(A18(B$)1)B$"":40025FWA18B$(B$,(B$)1):40025VXB$B$(A1)sY23:25:B$" ";ZA23M1140015[A23M940015\40009PÑ:::(10):"YOU MADE IT....FANTASTIC"::"TRY AGAIN AS A DIFFERENT FISH AND"(QúX,R3H(16384)12740020$IXMJ0:MR2,R3:A23R150:R2110:MM8]KA24MM1mLXR2R12M0:MX2,R3:3:MX,R3N(16384)12740020OXP40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5R3:$VPON IT" .5."CHASE IT OUT OF YOUR TERRITORY":b@3:4180,118:B$"":A1$"":E2180:E3118oAMR1,R3}B16368,0C23:"WHAT DO YOU WISH TO DO?"D0:MR1,R3:A23R194:R2130:MM8EA24MM1FXR1R22G0:MX2,R3:3:MRUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000H*9175T.:(21)y.B12005,12007,12009,12012,12014."ATTEMPT TO ESCAPE TO DEEPER WATER":."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND PREY URUN HELLO"BO" END OF PROGRAM"::5P5:"WOULD YOU LIKE TO PLAY AGAIN";:868XA$w(A$,1,1)"Y"İ30090:800(A$,1,1)"N"43032:"PLEASE ANSWER WITH YES OR NO":43005:(1023)123Ā 10:"GETTING THE MENU...":(13);(4);"3512d}12,1635!i}14,1630/n}31,3416=s}18,2225Kx}25,3518Y}}25,3522g}18,2230u}25,3524}25,3530}25,26}26,28}27,30}28,28}29,26}25,3532}32,3625}32,3430}32,3635}20500::190& V3070,3110,3150,3170@& "WHY RUN FROM A TREE? BEING"p& :"A ";F$;" YOU WOULD HAVE LIKED TO EAT":& "BARK FROM THAT TREE..."& EE15:&& "THE BARK OF A TREE IS GOOD FOOD."'0 :"BEING A ";F$;" YOU COULD HAVE"::"BUILT UP YOUR ENE"YOU MUST FEEL BETTER ABOUT EATING"::"SOMETHING."H% II10:EE10:t% "OOPS HE GOT AWAY. HE WAS VERY LUCKY."% EE10:% :"THERE IS A FALLEN TREE WITH BARK ON IT "% :"IN FRONT OF YOU."% :J$;:40000:VZN:& A03060,03060,03190,3AVE TRIED..."$6 EE5:<$@ "THE MOUSE HID UNDER A ROCK "c$J :"WHERE YOU COULDN'T GET HIM.":$T "HE SURE WAS SURPRISED"::"WHEN A ";F$;" TRIED":$^ "TO CHASE HIM."$h EE15:$r R((1)100)1I$| R9502980$ "YOU GOT IT..."4% :U SEE"*# :"A MOUSE IN FRONT OF YOU..."C# :J$;:40000:VZN:b# V02820,02850,02930,02880# "THINK ABOUT IT...YOU ARE A ";F$;"."# :"YOU CAN SURELY EAT A SMALL MOUSE."# EE15:#" "YOU COULD HAVE GOTTEN": $, "A MOUSE IF YOU WOULD H"x /" "WHY WOULD YOU WANT TO EAT A RABBIT?"Z" :"IT RAN AWAY BEFORE YOU GOT CLOSE."g" EE10:" "CHASING A RABBIT WASN'T"::"A VERY GOOD IDEA...":" "IT HOPPED AWAY, AND YOU LOST ENERGY."" EE15:# :"AS YOU LOOK DOWN THE PATH, YO'T BE FOOLISH. LET'S MOVE ON."+! EE15:6! EE15b! :"THERE IS A RABBIT IN FRONT OF YOU."{! :J$;:40000:VZN:!F V02640,02660,02690,02720!P "SURE, BUT A RABBIT WOULDN'T HURT YOU."!Z EE15:!d "GOOD... IT CAN'T HURT YOU..."!n NEED TO RUN FROM A FIELD." K "YOU SHOULDN'T HAVE IGNORED SUCH A":k "BEAUTIFUL FIELD AS THAT."x EE10: "GOOD IDEA...THAT SURE IS GOOD CLOVER." :"NOW THAT YOU ARE DONE EATING,"::"LET'S MOVE ON..." EE15:II15:! "DONTO THE WOODS,"58 :"YOU LOST HIM. BOY, YOU MUST":]B "REALLY FEEL TIRED AFTER THAT RUN"jL EE10:V A02400,02580,02750,02750` :"JUST OFF THE PATH IS A CLOVER FIELD."t :J$;:40000:VZN: V02470,02490,02520,02550 "YOU DON'T U NEEDED THAT ENERGY,",R((1)100)1I=R9502330NR8001240g"AND YOU GOT IT.": "ALTHOUGH HE DID PUT UP A GOOD STRUGGLE." EE10:II10: "BUT HE BURROWED INTO THE GROUND."$ EE5:. "AS YOU CHASED THE GOPHER INOUR ENERGY."zEE15:="OF COURSE YOU CAN IGNORE IT,"y:"BUT THAT WAS ENERGY THAT"::"YOU COULD HAVE USED.""THAT WAS A GOOD CHOICE,":E3002260"IT'S ALWAYS GOOD TO BUILD":"UP YOUR ENERGY,":02270"YO, AND THEY GOT YOU."01490E :"YOU ARE RESTING UNDER A TREE"e%:"WHEN YOU SEE A GOPHER."~*:J$;:40000:VZN:RV02140,02180,02210,02350\"THAT WASN'T A GOOD IDEA TO "f:"ESCAPE FROM A GOPHER. ALL YOU DID WAS": p"USE UP YE THE WOLF PACK,"::"BECAUSE IT WAS OUT LOOKING":T"FOR FOOD, AND YOU WERE IT"_01490"EAT A WOLF PACK?"::"THERE IS NO WAY YOU COULD":"HAVE EATEN A WOLF."01490"CHASE A WOLF PACK? YOU LET THEM KNOW": "WHERE YOU WERE:"BUT THE WOLF PACK INJURED YOU."5II10:1910:y"THE WOLF PACK MOVED IN,"::"AND YOU FELL INTO SOME ROCKS.":"THEY CAUGHT UP TO YOU AND ATE YOU."01490"THAT WAS A BAD IDEA TO TRY TO":V01990,01990,02020,020203"IGNOR YOU RAN FROM THE WOLVES,"::"YOU LOST ENERGY AND":]:"THEY BEGAN TO CATCH UP TO YOU.":hDEE15~NR((1)100)1IXR9501940bR8501920l"YOU WERE SAFE,"::"BECAUSE YOU RAN LONG AND HARD."v50000::""YOU RAN FAST,": PACK ";R((1)2)1)R201730B"OFF TO YOUR LEFT."M01760g"OFF TO YOUR RIGHT.":J$;:40000:VZN:V01820,01970,01970,01970"THAT WAS A GOOD IDEA, YOU MUST HAVE"&:"KNOWN THAT A WOLF WILL EAT A FOX.":50"ASNERGY"/J:"AND THE WOLF PACK INJURED YOU ";>TI001650G^"."Rh01660_r"MORE."s|II15:EE15:"BUT UNFORTUNATELY,THE WOLF PACK CAUGHT":"YOU AND KILLED YOU."1490"YOU STROLLED OFF THE PATH AND":"SEE A WOLF0,04880,0488066"WHY WOULD A ";F$;" ESCAPE FROM A "`6:"DEER? A DEER WOULDN'T EAT YOU.":v6"LET'S GO ON..."6EE15:6"GOOD---A DEER WOULDN'T HURT YOU."66049306"WHAT?--A ";F$;" DOESN'T ";G$;" A DEER."7$:"YOU GOT IT EX NICKED YOU":-5R"WITH THE SECOND BULLET."A5\EE10:II15:T5f"HE GOT YOU."j5pB$"FARMER":80105:"AS YOU GO DOWN THE TRAIL FARTHER, "5:"YOU COME UP TO A DEER."5:J$;:40000:VZN:5A04810,04810,04810,04960 6V04820,0486:"GO THROUGH A FARMER'S LAND.":D4"THE FARMER IS OUT HUNTING."]4:J$;:40000:VZN:c4q4V147104 R((1)100)1I4R90047104 R80046804*"WHEW---THAT WAS CLOSE, HE MISSED TWICE."4>EE15:5H"MISSED ONCE--JUSTSNAKE":801073b"NO. YOU DIDN'T EAT IT---IT ATE YOU."B3l04440`3v"THE SNAKE ATTACKED YOU"3:"AS YOU GOT TOO CLOSE,"3045103"YOU WEREN'T LUCKY ENOUGH THIS TIME---"3:"IT GOT YOU."3044403"AS YOU GO DOWN THE PATH, YOU""4COME"2:"ACROSS A SNAKE."72:J$;:40000:VZN:V2V04380,04420,04450,04470l2R((1)100)1I}2&R900450020"YOU ARE SAFE. HE DIDN'T NOTICE YOU."2:EE15:2D"MAYBE YOU IGNORED IT, BUT IT"2N:"DIDN'T IGNORE YOU..." 3XB$"|11"AND HE SNIFFED YOU OUT AND CAUGHT YOU."<104150f1"WHAT?? YOU'RE TRYING TO EAT A DOG?"1:"YOU GOT KILLED TRYING."1041501"A RABBIT CAN'T CHASE A DOG---YOU"1:"GOT KILLED TRYING."1041502"GOING DOWN THE PATH, YOU 540"0""IT WAS RIGHT TO RUN BUT"C0,:"THE DOG GOT YOU ANYWAY."^06B$"HUNTING DOG":80100@"REMEMBER...THE DOG IS TRAINED FOR"0J:"HUNTING, ";0TR((1)2)10^R2042300h"BUT YOU WERE LUCKY BECAUSE"0r:"IT DIDN'T NOTICE YOU."1MER'S HUNTING DOG.",/:J$;:40000:VZN:K/V04050,04160,04250,04280a/R((1)100)1Ir/R9504110/R8504130/"YOU WERE SAFE THIS TIME."/:"THE DOG WAS TOO OLD."/EE10:/"YOU GOT AWAY, BUT THE DOG BIT YOU."002 THE OWL AS IT FLEW":6.P"PAST YOU ON IT'S ESCAPE."C.ZII15:k.d"AS YOU RAN UP TO THE OWL'S TREE,".n:"IT FLEW AWAY.".sEE15.x03890.:A3980,4310,4530,4530."AS YOU ARE HOPPING DOWN THE PATH, YOU"/:"COME UP TO AN OLD FAR-R((1)100)1I%-R5003870K-"IT WAS ALREADY INJURED AND YOU"n- :"GOT IT FROM A LOW BRANCH."-EE15:II15:-"NO. WHEN YOU TRIED FOR THE"-(:"OWL, IT FLEW FROM ITS BRANCH."-2EE15:-<"YOU WERE JUST INJURED".F:"BYA ";F$;" CAN'T FLY."R,j:"YOU WERE JUST KILLED BY THE OWL"::"IN THE ATTEMPT."],t03590x,~V3760,3790,3810,3940,"YOU DON'T NEED TO DO THAT---",:"YOU JUST WASTED ENERGY.":,EE15:,"O.K. LET'S MOVE ON...",,A303900OPED DOWN AND GOT YOU."*+B$"OWL":8010@+R((1)100)1IQ+R4003650t+$"YOU WERE LUCKY THAT THE OWL"+.:"DIDN'T SEE YOU."+8+B"YOU SHOULDN'T HAVE IGNORED THE OWL."+L:"IT FLEW DOWN AND GOT YOU."+V03590,`"NO, NO, NO...1I* EE15 * R8003540=* "THAT WAS SMART OF YOU"m* :"TO ESCAPE FROM THE OWL -- IT HAD ITS":* "EYE ON YOU."* * "AS YOU WERE ESCAPING, THE OWL":* R9003580* "SWOOPED DOWN AND CLAWED YOU LIGHTLY."* II1:+ "SWOAROUND CHASING TREES. WHY CHASE A TREE?":@) "LET'S GO ON..."M) EE15:z)* :"THERE IS AN OWL SITTING ON A BRANCH")4 :"IN THE TREE BEHIND YOU.")> :J$;:40000:VZN:)W A3440,3440,3710,3710)p V03470,03600,03680,03680* R((1)100)E15:+( "GOOD, THE TREE WON'T HELP YOU"R( :"MUCH ANYWAY. LET'S MOVE ON..."X( ( "EATING BARK FROM TREES IS NOT GOOD FOR"( :"YOU. YOU SHOULD BE MORE CAREFUL"::"ABOUT WHAT YOU EAT."( II5:( "A ";F$;" DOESN'T USUALLY GO"*) :"RGY."'D EE5::'N "THAT TASTES GOOD. LETS MOVE ON.."N'X II15:EE20:y'b "BUT YOU DID GET HUNGRY FROM TRYING."'l EE15:'v V3230,3260,3290,3330' "BEING A ";F$;" YOU DON'T NEED"::"TO RUN FROM A TREE.":' "SAVE YOUR ENERGY"( E CHOICE TO".:"RUN FROM THE WOLF PACK,":DR((1)100)1IUR9501670fR8001600"THEY HARDLY NOTICED YOU. "":"BUT YOU DID LOSE SOME ENERGY":,"BY RUNNING SO FAST."6EE15:@"BUT AS YOU WERE RUNNING YOU LOST E400,1700,2080,x"WALKING DOWN THE TRAIL,"U:"YOU COME TO A HUNGRY WOLF PACK."n:J$;:40000:VZN:}V101510"THAT WASN'T A SMART MOVE ON YOUR PART.":"THE WOLF PACK ATE YOU."B$"WOLF PACK":8010 "THAT WAS A GOODE15+"AND YOU LOST ENERGY CHASING IT."?R((1)100)1PR2001240Vy:"AS YOU CHASED THE RABBIT,":"YOU STUMBLED INTO A TRAP. EVEN THOUGH":"YOU ESCAPE, YOU HAD MAJOR INJURIES." 1910II15:d nA1400,1.B::"AND YOUR WOUNDS WOULD HEAL FASTER";7V"."H`EE15:II5vj:"NOW THAT YOU HAVE FINISHED YOUR MEAL"t:"YOU CAN MOVE ON."~"WHY WOULD YOU CHASE A RABBIT"::"AND NOT EAT IT?":"THE RABBIT RAN INTO THE BUSHES":EOU JUST":8"GOT WEAKER FROM RUNNING FROM A RABBIT."EEE15:"OF COURSE YOU ARE SAFE, BUT YOU SHOULD"::"HAVE EATEN FOR MORE ENERGY."$EE5:."YOU GOT IT. THAT WAS A GOOD MOVE":3"BECAUSE YOU'LL HAVE MORE ENERGY";8I11110z"THE FOX FOUND YOU AND CAUGHT YOU."100780\:"YOU SEE A RABBIT IN YOUR TRAVELS."u:J$;:40000:VZN:V990,1030,1070,1160"THERE IS NO REASON TO TRY TO RUN":"FROM A RABBIT. REMEMBER...": "YOU ARE A ";F$;",AND YU." B$"FOX":8010*R((1)100)1: R9000850Y*"YOU WERE LUCKY, THE FOX"4:"DIDN'T NOTICE YOU THERE. YOU":>"SHOULD BE MORE CAREFUL."HR"THAT WASN'T A SMART IDEA..."\00780f"YOU GOT KILLED TRYING."p00780&"YOU WERE VERY SMART TO ESACPE."O:"YOU ARE SAFE NOW, BUT YOUR ENERGY":n"WENT DOWN FROM RUNNING."{EE10:"AS YOU WERE RUNNING AWAY, THE FOX ":"INJURED YOU WITH HIS SHARP TEETH."II10:"THE FOX CAUGHT UP AND GOT YO:::"COME BACK AGAIN"":07950ADA00590,00590,00920,00920GNpX:"AS YOU ARE GOING DOWN THE PATH,"b:"YOU COME ACROSS A RED FOX."l:J$;:40000:VZN:V670,790,870,890R((1)100)1IR1000770R2000740" 07680 Y 50000h 34,0::::"CONGRATULATIONS..."::"YOU MADE IT THROUGH ODELL WOODS":v "WITH "; I0ĺ"NO ";:530 I10ĺ"ALMOST NO ";:530 I30ĺ"SOME ";:530 "HEAVY "; "INJURIES.":"I HOPE YOU HAD FUN."GNORE IT"::" 3. EAT IT 4. CHASE IT"3 .34,6e /6:"---------------------------------------"m 6:y @Y110 JX((1)10)1 TN1Y ^H(N)X00330 hN |H(Y)X X00580,01380,02390,03000,03370,03970,04750,05070,05830,06500 :300 F$"MOUSE"240. A2:EE10:300C F$"FOX"00260P A3:300e F$"WOLF"0280x A4:EE6:300 :"PLEASE BE A RABBIT, MOUSE, FOX OR WOLF.":(37)2:868:183 ,:"AS A ";F$;" YOUR OPTIONS ARE:") -:" 1. RUN 2. I00% (J$"WHAT WOULD YOU LIKE TO DO"? 2H(11):I0:E46:ZM24E d^ :"YOU CAN BE A:": " RABBIT"::" MOUSE"::" FOX"::" OR WOLF": "WHICH ANIMAL WOULD YOU" " LIKE TO BE";:868:F$ F$"RABBIT"220 A1:EE15OUND ODELL LAKE. YOU WILL ROLE":9 "PLAY AN ANIMAL."? k "THERE ARE A FEW THINGS THAT DECIDE": "WHETHER YOU MAKE IT THROUGH THE WOODS" :" 1. HOW WELL YOU SURVIVE ATTACK"::" 2. YOUR HUNGER LEVEL"::" 3. YOUR INJURY LEVEL" 500J LAST UPDATE: 6/23/808 COPYRIGHT MECC, 1979P ODELL2 8/23/79v AUTHOR: MIKE FISH, MARGE KOSEL| LAST UPDATE: 1/5/82::413);"O D E L L 2":"THIS PROGRAM IS ABOUT THE ANIMALS THAT":" "LIVE AR                             OM A FIELD OF GRASS." @*EE15&@4w@>"IGNORING THE FIELD IS FINE, BUT IT HAD"::"FOOD FOR YOU. YOU MISSED IT."@REE5@\@f"GOOD..A GRASSY FIELD IS GOOD FOR"::"A ";F$;"."Ap:"NOW THAT YOU'VE HAD A FULL MEAL,"::"IT IS TIME TO MOVE GET IT, BUT KEEP YOUR"::"HOPES UP, YOU'LL HAVE ANOTHER CHANCE."G?d?:A5840,5840,6070,6290?"THERE IS A GRASSY FIELD AHEAD OF YOU."?:J$;:40000:VZN:?V5910,5950,5990,6040? ?"THERE IS NO REASON FOR YOU TO "@ :"RUN FR WON'T HURT YOU.">&EE15:+>0"OKAY."1>:G>DR((1)100)1IX>NR7005800k>X"YOU GOT IT."v>bEE15>lII10>v>"YOU CHASED IT BACK INTO ITS DEN AND YOU"::"CAN'T CHASE IT ANY FARTHER.">EE15>A?"WELL, YOU DIDN'T NJURED YOU."=II5:EE15:B="THAT WAS NOT A GOOD CHOICE."M=05490y="YOU TURN YOUR HEAD AROUND AND NOTICE"=:"A FOX IS BEHIND YOU."=:J$;:40000:VZN:=V05650,05680,05700,05760="YOU'RE MUCH LARGER THAN A FOX.">:"IT05500,05550H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELSQLQ`Ԣ TȱL.QUL]UcUF TH?@DE >LR UL]Ui0 ȢUL]U81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>LaQ?ȱ81@ȱ Dȱ Eȱ81ׅh<&    ??$!) $;?2'0)- ') ??? !$$<::2--50)- $;?$--?)- ?7&$ -?$ ??7)- ?& -6-- $$;?2-6.)=$$$=?. 6) $$,?<$$$6 6--#$$$>$$$ 666%$$$.2111$$$> $$)-266??$$$--2>?. $$)-266?%0116$$$--2?56-- ?$)-- $$$?--- $$ 666;?5 $#$ 66% $$$6667$!!!!61111$ $$## 635 ??$!!!!??' $$)-266? !!?)=$$$>- %---.='???>?$'$%$dI5'MI=.$?'?'?<7?>>77??????/-???7?77?77?77?<<<<<7555555-.-.---5------<<<<''/..,--&,47???.555-.-%%-,,,%-,-$/.-%%$ۛIII<$$46666???%$$ 66$??$$$$--26;?$,-.I ?$$ -!$$$--266;?-$$$--;7--$$$--;76d)5?$$ -l$$$6.-%$667>7?<<'<',$%$'$$6666657?>>>?>????65-5-.%%%?=====<>>>777?7?7???$->$56-....6--..55-...-.56-..55555.5-6.666.--%4?$,----.-5--5--.--.-5--.-5--.-.%$,$,$%%$,,,,%-,676?/7?&-,--.-.-.%,,$,%-65>>67.5.5565?>'?<'$''$6.66.6'67777?>??77---.--,,<<<>>????7?''''<--5-.5-.-$'$/$%$%$4?>7??=7?>7?<'?>.6-.555555-6&$?<<|III5'6>>.-577--->>.-577--6>67>><<4766><<455=<<<>66'6?>7-,%-,%,%,%,%,,$%$<$<<$''''''',,...55-*~IIIII!''?<'????>?-$,,,-%--..>>3.65>67.-%-,,$<<<>67?>.655556LIII16-6>76-MII --%$--6.--$,--6&$6.--$d LI-5?-7-*uI!L L1.M)e Lq1-uI L1&d1m &->>>77.%-,-,--%-------.5---%<$,-55-..5%$<$/$%$%,4?7?>???>>>??>???>>>655-.-.&'?'?<<$MI 5/$>6?6?>?>...-%-,%%%%%----%---55----$',66>>>%-5.&'$-,,,,,-6$$<,$$$<$<77>777>.-67?7/,%--?77?>??7>77?>>-6..-%=6-.-55-..5-55--,,%%-,,?>??7$'-----,------%--,,%%%%?>>>?'??>?-MQ-??6--LII 66.--<<<<'.--$-----.----.--------%-,%-,-567>67>6>>>,%,%%,,%-%-%-,%-,%-46?>67777>77>7?>>>7-..-.5-,-,6-..-...??????????>>6>6...%-,,%<$$%%,,$$%%%-,<<$%-,--..555-%-,-5.5..&??<6?7555='??>7.55-&?<6??66..655%-$%46666-.$%%,4666.55??'??>?>?'''-----?????'<<<[)mIII $,$$,$46766>6$6?<'''$,,,,-,$dI>?>?>?>?'?6?7??>>/?-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$'<$'''-.5-.5mIIII'??6765..%/%546.5-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$--,-,-5>6----,%-----.---%-%-%-%????<<55----%%%%<,''=>67?>>7??'??>7?66>6$%$$<$?<'?'?,,%,%4??/7??>7>7---=????>>777>676.65.%-,$%=>67?6555=<<<<,5,,$%M1...-,$%<$'?>>7&,,#7%-.5???????????????????$,.?7/-->??????????'??766%$$$=????,$%-%--,-%%-,,-%-----655....5---%--,5>=>66.6.????????????''''$ m+$..666>6>,6.-5-----------------------------------------------------------------------------------------------------------------------------:???????????,$-,$%,,66766.$-??'''?<''<$IIII????????????????????????????????'%,,$% 5-6..6$4766666%$$$$$<666666'$$$$,---4.6%4.&46%,=66%$,&,,,,,,,,,,,,,,,,56-....6--..55-...-.56-..55.55.-.56666--I#$$$?????????????????????<>7?>??<<<$$--5.%-,%--..555=766?/---=???'?/---??????????-%<<<$$,$$$$,-$$ -?',Q#4=676666666v----------$-@bd]dJ n O F t   # , 9 G T _ o } #0>HWb'$$---666c3:5E420,118:E15:E2E420:E3118:Pl0:5110,118]m2E4,E5nX0220E44:3:7X110,100:3E4X,110:0p7X110,100:3E4X,110:Xq3:3E4X,110:M3:E4E4X:E5110r3:5X110,110:E15:E2X110:E3110:118:M2:p0:ME4,E5Fq3:XE41006:2X,118:0:2X,118:3ts14X2,118:0:14X2,118:3:15X4,118u0:15X4,118:w5110,118:3:2100,118:E15:E2110:E3118:E4100:E5118:M2:X0:5110,118_Y100:X110E4262:3:7XR1:XE4E4362:15X,Y5:0:15X,Y5:3:XA0:5X1,Yo3:2X,Y:E15:E2X1:E3Y:E4X:E5Y:M2:0:5110,118X110:Y1181101:3:4X,Y:04X,Y:XX4:Y3:478,110:E14:E278:E3110: RE1124:E2118:E35:E4114:E5,Y:0'5X,Y:Y10(Y10)XX6:YN3:5134,150:E15:E2134:E3150:`0:5110,118s(1).904005ME4,E5X110:Y1181402:3:5X,Y:2E4,Y:05X,Y:2E4,Y:Y10(Y10)XX6E4E46:E425XĂY3:5X,Y:X1X206" B4500,5000,6000,7500,7500@ B1R1R0:9075:11000_ B1B2İ9075:10000:300w 9078:10000:11000 510 :(21):"A MACKINAW TROUT IS IN FRONT OF YOU,":A9$"MACKINAW TROUT":25010:5110,118X110:Y1181502:3:5X0:9050:10000:CC15:9150:300;B4İ9070:10000:300K10000:300:(21):"YOU SEE A RAINBOW TROUT IN FRONT OF YOU":501 :(21):"YOU FIND A DOLLY VARDEN VERY NEAR":A9$"DOLLY VARDEN" 40000:12000 A2506,2506,2506,2506,2580,25CC5:9150:300,10000:CC5:9150:300:B5520V8000:9100:10000:300{:21:"ALONG COMES A CHUB":501:21:"IN YOUR VICINITY IS A BLUEBACK SALMON,":4000012000:A4505B4000,5000,9080,7020,8000 B1B2B5İ900A530,520,530,530,510,5109B4000,5000,9050,7000,8000oB1B2B5İ9000:9050:10000:CC15:9150:300B4İ9100:10000:C0:30010000:300B4000,5000,9030,7020,9040 B1B2İ9000:10000:CC5:9150:300 B4İ9070:10000:S11:355 -S116( 6S(6(1)1)7 @S21S11H JSS(S2)310P TS2` YS(S1)S:S1i ^S11y cS1650000 dAS(S1)300 hS(S1)500,1000,1500,2000,3000,2500 :(21):"YOU FIND YOURSELF CLOSE TO A WHITEFISH" 40000:12000"AS A":300005 Z142:Z28:Z$A$" YOU CAN":30000` Z15:Z216:Z$"1 ESCAPE DEEPER":30000 Z224:Z$"2 ESCAPE SHALLOW":30000 Z232:Z$"3 IGNORE IT":30000 Z216:Z1140:Z$"4 EAT IT":30000 Z224:Z$"5 CHASE IT":30000 301 ,S120,60H Z15:Z2100:Z$"THE FISH YOU ENCOUNTER WILL LOOK LIKE ":30000 2110,126:(21):"IN REAL LIFE THE FISH ARE DIFFERENT" "SIZES. YOUR JOB IS TO DISCOVER THE":"ACTUAL SIZE OF THE FISH.":10000 ::3:1:0:11,55:21 Z15:Z28:Z$INAW TROUT","DOLLY VARDEN". :X1A:A$:X< X19241 D$(4):D$"NOMON C":::10:" TRAVELING TO ODELL LAKE..." 8164:232,0:233,64:1:3:0 D$;"BLOAD SCENES ":: Z15:Z220:Z$"AS A "A$" YOU WILL LOOK LIKE":30000 51 CHOOSE THE"& 7"OPTIONS BY NUMBER."S <:"THE FISH YOU CAN CHOOSE FROM ARE:":v P:X16:A$:" "X". "A$:X :"WHICH FISH DO YOU WANT TO BE ";:A$ A(A$) A1A610 "WHITEFISH","CHUB","BLUEBACK SALMON","RAINBOW TROUT","MACKX1(600):600,0:S(6)9 C0:::Z$""::X1960"YOU WILL BECOME A FISH. AFTER HAVING":"BEEN EACH FISH, YOU SHOULD KNOW""THE RELATIONSHIPS BETWEEN THE FISH.": 3"YOU WILL BE GIVEN 5 OPTIONS TO DECIDE":"WHAT TO DO IN A SITUATION.          #(A$,1)"N"đ:::55555M#(A$,1)"Y"X(0):600,9:(4);"RUN ODELL1"W#9176'16368,0:24:13:"PRESS SPACE BAR";'(16384)12710010'0:E1E2,E3:ME4,E5:*:::(9):"REMEMBER A ";A9$;" WILL"::"EAT A ";A$;".">*:"NOW FOOD ":R#"AND USED YOUR ENERGY WASTEFULLY."::" YOU STARVED TO DEATH."c#10000:9175#"WHY CHASE FOOD AWAY?"##"THAT'S RIGHT!":#"YOU CAN'T SURVIVE ON THAT TYPE OF FOOD.":##:12:"DO YOU WANT TO TRY AGAIN?";A$U CAN NOT KILL THIS ANIMAL AND":"YOU USED A LOT OF ENERGY NEEDLESSLY.":ss#"YOU GOT AWAY FOR THE TIME BEING.":v#"NO.....THAT WAS THE WRONG MOVE.":#"YOU HAVE BEEN SUCCESSFUL.":#C30ı#:::(10):"YOU PASSED UP TOO MANY CHANCES AT 180,118:X1801002:3:11X,1006x0:11X,100:XGy3:11X,100Xz10000:9175{(#"YOU WASTED ALOT OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.":Z#"YOU ARE GETTING HUNGRY...BETTER EAT"[#d#"YOU GOT AWAY THIS TIME...":In#"YO2:3:MX,E5:4180X1,118:08vMX,E5:4180X1,118GwX1X12:Xzx3:4180X1,118:E14:E2180X1:E3118:E460:2A4(100(1))205702d0:ME4,E5:X1001702:3:19X,100:0i19X,100:j"AN OTTER WILL EAT A FISH.""n0:4168,106:XE42202:3:10X,Y3<Z0:10X,Y3:X:10000j[:::10:"AN OSPREY WILL EAT A "A$".":\"TRY AGAIN":10000:91750:ME4,E5M9:XE41003:3:MX,E5:0:MX,E5:XE4120:5715p0:4180,118qX10uXE460D0:4180,118FX118@IY1801681:3:4Y,X:0:4Y,XMJXX1:Y_L3:4168,106~MA23E14:E2168:E3106:NM8E41705790OM95800P0:8E4,E5SX(168E4)10:Y6070:3:8E4X,YU0:8E4X,Y:E4E4X:Y!X0:4$"CAUGHT BY A FISHERMAN.":10000.9175b::::(13):"THIS WAS PART OF A FISH TRAP":"YOU WERE CAUGHT....TRY AGAIN.":10000:9175|0:4180,118~X18017023:16X,93:0:16X,93:X3:4170,118:E14:E2170:E3118:118:3:5180,118*E15:E2180:E3118:<0:4180,118XXE2702:3:16X,93k0:16X,93:X100((1))11550073:4X,114:E14:E2X:E3114:A2250110:1730,50:3:1830,50:"WITH THE INSECTS WAS A HOOK. YOU WERE",Y:0:4X,Y:XX2:Y' 3:4168,106D A24100(1)1193050] E14:E2168:E3106: "YOU DID NOT MAKE IT THIS TIME":5710 0:4180,118 X180:Y1181402:3:5X,Y:0 5X,Y:XX4:Y 3:5X,Y:E15:E2X:E3Y:0:4180,00 A20& B1İ9100:10000:300< 9060:10000:300i :21:"NEAR THE SHORELINE IS AN OTTER," R194:R2110:R395:A23:M11:40000:12000 B4000,6450,6450,6500,6500 9100:10000:300 0:4180,118 X180:Y1181101:3:4X7 :21:"AT THE SURFACE LIES SOME ANIMAL PLANKTON,"S R160:R2100:R394:M13j A22:40000:12000x R51:505 :(21):"YOU SEE AN OSPREY CLOSE TO THE SURFACE," A24 R1100:R2200:R360:M9:40000:12000 B4000,3000,5700,5700,57,6000) R50:B4İ9100:C0:10000:300P B3İ9050:CC5:10000:9150:300x B5İ9170:CC10:10000:9150:300 9000:9050:CC10:10000:9150:300 DB4000,3000,4500,5500,6000 FB3İ9173:10000:300 GB4İ9174:10000:300 N524S11 JSS(S2)310 TS2- YS(S1)S:S16 ^S11F cS1450000d hS(S1)500,1000,1500,2000 :(21):"YOU SEE WATER INSECTS AHEAD OF YOU," R160:R2100:R390:A21:M12:40000:12000 A520,520,520,520,580,580 B4000,3000,4500,5000X  :(21)A(600)'C(601)8X1A:A$:# "WHITEFISH","CLUB","BLUEBACK SALMON","RAINBOW TROUT","MACKINAW TROUT","DOLLY VARDEN"C(326)S(4)E2180:E3118301,S1S11:355-S1146S(4(1)1) @S21              N COMPETE IN MATH PROBLEMS.":$?uDu"YOU CAN CHOOSE FROM ADDITION, ":"SUBTRACTION, MULTIPLICATION, DIVISION ":"OR A MIXTURE OF PROBLEMS."Xu::"YOUR AGE AND LEVEL WILL DETERMINE THE ":"PROBLEMS YOU RECEIVE.":205002bu3:"THE FASTER YOU ANSW(((ZN$)))209400Q(ZN$)0ZN$"0"20950{Q:ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:868:20960:ENT9ENT5:Q20915QZM:868:ZV1(ZV23):ZN(ZN$):QZV1:36,ZH:868:0u:3:u"IN THIS GAME, ANY NUMBER OF PLAYERS":"CA0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";H(P(16384)12820520d)P(16384)1283220530o*P205102P16368,0::Q NUMERIC VALIDATOR QZH(36):ZV(37):ENT9ZM20:ZHZH(ZN$):20920QZN$:ZN$""İ20960:20915Q(ZN$))1)+O(0):" ";:(0):16368,0:20360@O16368,0:20360ROZZ$"":20430OZZ$ZZ$(ZZ):(ZZ);:16368,0:ZCZC2:20360OZN$ZZ$:ENT9:20900OENT5ZZ$"":20360OENT0:ZCZC39PP SPACE-BAR ROUTINE /P24:7:16368,OOK, (ZC=-256 IF WENT OVER TIME LIMIT) ;tOZTZT39:958U~OZZ$"":ZC0:16368,0xOZCZC1:ZCZTZC9984:20476O(16384)12820360OZZ(16384)128:ZZ1320470OZZ820460O(ZZ$)020440O(ZZ$)120450OZZ$(ZZ$,(ZZ$(NA$NB$)34ĺ%" AND ";NB$;".":11:"INDIVIDUAL SCORES:"::3:"NAME";:17:"BONUS";:34:"TOTAL":34,(37)2::1621LO ENTER STATEMENTVO ENTRY CONDITIONS - ZT= # OF SECONDS TO ALLOW(`O EXIT - ZA$=INPUT, ZC= # OF SECONDS IT THE HIGHEST SCORE WAS ";G7;", SCORED BY"TK90:NA$"":NB$"":B1A:T(B)G71728vK9K91:K91NA$B$(B):1728(NA$NB$)35ĺNA$",":NA$NB$:NB$B$(B):K8K81:1728K92NA$NA$", "NB$NB$B$(B)B:NA$;:NB$""ĺ".":1735I1)PTR(I):II1:1627&\PTR(I1)J-^J8hB1Ar3:B$(PTR(B));:18:(" "(B(PTR(B))),3);:35:(" "(T(PTR(B))),3)(37)20(BA)İ20500:B:23:34,0:20500:43000G7T(1)B2A:G7T(B)G7T(B)B:A$" "'"TTOTAL SO FAR IS ";T(F):20500'@F:VT:"THAT'S ALL FOR THIS ROUND...."::B1A:B6(20W(N(B)W)20W5D(B)C(B)):T(B)T(B)B6:B(B)B6::1700UJ0A:PTR(J)J::T(0)1E10VA11640WJ2AYT1T(PTR(J)):IJ1[T1T(PTR(I))PTR(:1560B PP30:(37):" INCORRECT":958:TRYTRY1:TRY31540L 1460 :"YOU HAVE USED YOUR THREE TRIES. THE ":"ANSWER WAS ";R :19:"YOUR SCORE ON THIS PROBLEM WAS ";:P(50((P10.5)100)50):P0P0,T(F)T(F)P:P:21:"YOUR ....?";:868:ZT30:N(F)N(F)1:20300:ZC2561480@ PP30 (37)1:" TIME";:958:(7);(7):TRYTRY1:TRY31540 :" PLEASE TRY AGAIN.":VV(37):DDD11000:DDD VV:868:VT:1420 MZN:MRPPZC:(37):" CORRECT!!":958(1)351)* GHGG((1)KH2):12404 1340e J1G((1)91):H((1)91):SGH:1340 G((1)I(J)):H((1)I(J)) G01280 (SGH <E1RGH:1420 PE2RGH:1420 dE3RS:1420 xRH:HG:GS5 G;E$;H;"=. jE$" - ":1160$ oE$" * ":11601 tE$" / "? E21280n J1E1G((1)91):H((1)91):1340 J1E2G((1)9)1:H((1)91):GGH:1340 K((1)31) G((1)(I4)JK):GG((1)J) H((1)(I4)J(K)):HH( PTR(35) X32000! 300009 DD0:E10:E5E15M B1A:T(B)0:X V1Wm F1A:TRY1:P0 :5:"ROUND #";V .IC(F):JD(F) 87:3:B$(F);" : ";:VT(36)1 LE15E((1)4)1 `E1125,1130,1135,1140 eE$" + ":1160  PROGRAM: MATHGAM9 LAST UPDATE: 6/23/80? \c COPYRIGHT MECC, 1979zd MATHGAME 8/23/79 FPf AUTHOR: C.NEUENSCHWANDER THIEF RIVER FALLS, MN. g LANGUAGE: APPLESOFTB$(35),B(35),C(35),D(35),T(35),N(35)           =N50000::::"YOU JUST RAN OUT OF ENERGY AND WITHOUT"gN(:"ANY FOOD YOU STARVED TO DEATH.":N2"VISIT ODELL WOODS AGAIN SOON SOMETIME."N<7950NF"YOUR INJURIES ARE TOO GREAT AND":NPR((1)2)1NZR107810Od"YOU FELL PREY TO07350,07390,07410,07410SM"YOU SHOULD HAVE IGNORED IT. YOU ARE A"::"BIG WOLF."^MEE20dMM"GOOD, LET'S MOVE ON..."MM"AS YOU RAN TOWARDS THE BIRD, IT"::"ESCAPED INTO THE AIR."MEE20MME007710M I3007750NHT BUT THE BEAR WAS SCARED OFF."&LH~LR"THAT WAS BRAVE OF YOU, BUT IT DIDN'T"::"WORK. THE BEAR GOT YOU WITH A SWING":L\"OF HIS POWERFUL ARM AND CLAWS. "Lp07090Lz"THERE IS A LARGE HAWK IN FRONT OF YOU, "L:J$;:40000:VZN:MV KEE15K"YOU WERE FAST ENOUGH TO GET AWAY IN"::"TIME BEFORE HE CAUGHT YOU."fKEE15lK KR((1)100)1IK R9707220K%"YOU WERE KILLED BY IGNORING THE BEAR."K*07090 L4"YOU WERE VERY LUCKY NOT TO HAVE BEEN"::"CAUGAR IN FRONT OF YOU."-JX:J$;:40000:VZN:LJV07050,07190,07250,07250bJR((1)100)1IsJR9007150JR9507110J"YOU WERE SLOW AND THE BEAR GOT YOU."JB$"BEAR"J08010J"YOU WERE INJURED BY THE BEAR'S CLAW."JII15"::"MUCH OF A CHANCE AGAINST HIM, BUT":WI"IT SEEMS AS THROUGH YOU CAME THROUGH."]I&I0"THERE IS NO WAY YOU COULD HAVE GOTTEN"::"TO IT. REMEMBER YOU ARE A MOUSE. THE":I:"HAWK SWOOPED DOWN AND GOT YOU."ID06880JN"THERE IS A BIG BE"AND YOU WERE SERIOUSLY HURT."*HEE155HII15;HH"YOU WEREN'T LUCKY THIS TIME,"::"THE HAWK SWOOPED DOWN AND CAUGHT YOU."HB$"HAWK"H08010HR((1)100)1IHR7506930H06860*I"YOU WERE VERY LUCKY, YOU DIDN'T HAVE"::"HAS AN EYE ON YOU."2G,:J$;:40000:VZN:MGTV6750,6900,6960,6960cG^R((1)100)1IsGhR7006800Gr"YOU WERE LUCKY TO HAVE ESCAPED INTO"::"THE WOODS."G|EE15GGR9506860H"YOU WERE JUST CAUGHT BY ONE OF ITS CLAWS":2006670pF"YOU WEREN'T LUCKY THIS TIME---"::"THE RACCOON ATTACKED AND YOU WERE"::"KILLED FIGHTING HIM."FB$"RACCOON"F08010F"DON'T TAKE A CHANCE LIKE THAT..."::"YOU COULD GET KILLED."FG""THERE IS A HAWK FLYING ABOVE, AND IT"ON YOUR TRAVELS THROUGH THE WOODS,"::"YOU COME ACROSS A RACCOON."_Ex:J$;:40000:VZN:zEV6570,6610,6630,6630E"THAT WAS SMART, BECAUSE RACCOONS ARE"::"MORE FEROCIOUS THAN MOST PEOPLE THINK."EEE15EER((1)100)1I FR0D"EVEN THOUGH GRASS IS NOT ON YOUR DIET,"vD:"IT DID SETTLE YOUR STOMACH AND IT MADE"::"YOU FEEL BETTER."D(EE10D2D<"ARE YOU TRYING TO CHASE GRASS???"::"IT TAKES A LOT OF ENERGY."DPEE15DZDd:A6510,6690,6990,7290FEn-C"NOW THERE IS A GRASSY FIELD NEAR YOU."FC:J$;:40000:VZN:aCV6360,6400,6420,6460gCC"I DON'T LIKE THE COLOR GREEN EITHER.."::"BUT TO RUN FROM GREEN GRASS IS NOT"::"A GOOD MOVE."CEE15CC"GOOD...LET'S MOVE ON."D :"RUN FROM BERRIES."!BEE15'BbB$"WHY IGNORE THE BERRIES..A FOX LIKES"::"THEM ALOT."lB.EE5rB8BB"A FOX WOULD NOT CHASE BERRIES."BLEE15BVB`"VERY GOOD...YOU LIKE BERRIES."::"LET'S MOVE ON..."BtEE15B~II15CON."AzEE15AII15 A`A"DON'T CHASE A FIELD...."::"IT MAKES MOTHER NATURE MAD."kAEE10qAA"THERE IS A BUSH OF BERRIES NEAR."A:J$;:40000:VZN:AV06140,06180,06240,06210B"PLEASE BE SENSIBLE..YOU DON'T NEED TO ":yxA?ooo}={{^o^k|sgww__w^_W~__^^_~wxO8oJV[_{]n]vox?>pp}xOo?}WZ<__;_;?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g~~wgog?wox?o@?~?x>{m?_9v^}xA?ooo}];?oogy{swwv.w^ww^_wv6~_/7?~_?w~w?~oxp67\_{]qcfoxG?G|}xo?}gY>_?=_}~?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}x_xs~xXc{o~_ow[k~}wwoO?w{nsox|?xO>n?_}x^|xA?ooo}@|>`}~?8ok=?o{z^>?Wt?~Ox?x|}0@v`>_o7_o?OO|O@_~{~?k{m?_}v_?|x~0W]v[k6wmo.{~?y>x`ow[m|swsownw_opq?xg~xA?oOoy]_{??oogO{}wv~_v~7_wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|qo?}w[>_o7oo?oo~o@_~{~?g]{m?_}v_?~~~?~PO>zog>{k/{~?|>{o7ow[n{~owxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ox<@}~??|_Oox?g}xGo?}w[_o7wo?go?~o@|?p>{m?_}v_?ppx?X_~zoo>{k/?{~?~>{o7owo{~_~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~?o~nGo88`}~?~~gox?O}x~o?}w[._0{o?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~?@~`?@_O~zog>{K/{~??~>{o7_ow[o{~?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~?ow_o?O0?~}~?_qwlw`\o>>@ox?a@}xx<Awx6_o7`o?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv^??`@?`@?W~v[k>w-w.{~?> x`\o{~`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/?oo_o~_ |~?_?|k{o;_ow[o>>ox? }xco?}7[:_o7_W?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv^G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o            :5:SFG6 pb:I;".) ";F;" - ";G;" IS ABOUT.....";A b12720R cTRY125200] o61050d pIj $w Vw ************************************************** w ESTMUL 7/27/77 BJ w WRITTEN BY C. LUND, J. FIGGE--ST. PAUL, MN)!Px:3:(1)$^Q210124000)^Z$"A"24400;^J(3(1))2MP_F(10JQ1)`_Z$"A"24800s`K(3(1))2|`(KJ)124000`KJ24760`LEWAY.510(J1):24800`LEWAY.510(K1)`G(10KQ2)aFG25150 bHF:FG:GH >bNUMBERS."HX22900'XZ$"A"20650XtY17:"HOW MANY PROBLEMS DO YOU WISH?";:868hY61000:NZN}G ESTSUB 10/7/77 BJ tDH ORIGINAL AUTHOR UNKNOWN, REVISED SEVERAL TIMES8JI$"N"19900/K:8:"THIS IS A DRILL ON ESTIMATING THE"::"DIFFERENCE BETWEEN TWO NUMBERS. YOU"::"WILL NOT BE EXPECTED TO GIVE T-81:I;".) ";F;" + ";G;" IS ABOUT.....";?112720:127601:ZV(37):1:17:868:ZV1:R(IN$):TRYTRY1:TI%0Ģ17:958:12:"OOPS, TIMES UP.":ZV21TI%0TRY2İ5800511TRY112600>61050>I|G"G ****************111200,Q2(1)(,Q210111400;P-Z$"A"11800M-J(3(1))2_.F(Q110J)r|.Z$"A"12200.K(3(1))2D/(KJ)112000X/KJ12160l/LEWAY.510(J1):12200/LEWAY.510(K1)/G(Q210K)0SFG1:5:"4 DIGIT NUMBERS." &101003'Z$"A"079009t'j'17:"HOW MANY PROBLEMS DO YOU WISH?";:868z<(61000:NZN(N0N10011000)22:"TYPE A NUMBER FROM 1 TO 99.")10100*C0:C10:WR0\+I1N+TRY0+Q1(1)$,Q11012850001TRñ8AR";::" TO CONTINUE";DTQí(16384)12850001JTRñJSRñZE0ZE443030CS:"PLEASE ENTER A NUMBER 1 - 3":43022OSZE1Ĭ_SZE343049S:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"S)1023,9S*:SPù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; TQí(16384)SWER WITH YES OR NO":430053R(1023)12343050tR:10:"GETTING THE MENU PROGRAM...":(13);(4);"RUN HELLO"|R*:RPù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";RQí(16384)12850001RRñZ850001RRñ0001RRñA 1,2,3, OR 4";:CV1:36,CH:868:40001BQJCV1:36,CH:868:XQ END OF PROGRAMcQ::5Q5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868QA$Q(A$,1,1)"Y"Ľ:ZM24:40Q(A$,1,1)"N"43030R:"PLEASE ANAND TRY AGAIN."P^50000%Ph43000;P@CH(36):CV(37)`PAZN$:(ZN$)(((ZN$)))40003}PB(ZN$)0ZN$"0"40006PCZM:"PLEASE TYPE A NUMBER - TRY AGAIN";:40010:40001PFZM:868:ZN(ZN$):ZN0ZN5ZN(ZN)ĢCV1(CV23):)QG"TYPE A FLOCK OF SCAVENGER"&On:"BIRDS."1Ox07820XO"YOU BLED TO DEATH IN THE WOODS."O:"COME BACK TO ODELL WOODS AGAIN SOMETIME SOON."O50000:43000O,40OJ50000OL::6:"ALTHOUGH THE ";B$;" GOT YOU":PT"COME BACK TO ODELL WOODS z#?     ΠԠ Ϡ"ҠӠ Ԡ8 ԲԳԴ Ե ԠϠ ͠ в ̱ ӠԠ̲NATE IS WITHIN 50 OF THE"I#:"EXACT ANSWER, IT IS A GOOD ESTIMATE FOR"c#:"3 DIGIT NUMBERS."nT$10100$Z$"4"10000%J4:K4N%LEWAY500%:"IF YOUR ESTIMATE IS WITHIN 500 OF THE"%:"EXACT ANSWER, IT IS A GOOD ESTIMATE FOR"H&Z$(Z$,1,1)" Z$"2"08800.l J2:K2: LEWAY5h :"IF YOUR ESTIMATE IS WITHIN 5 OF THE "4!:"EXACT ANSWER, IT IS A GOOD ESTIMATE FOR"!:"2 DIGIT NUMBERS."!10100`"Z$"3"09400"J3:K3"LEWAY50(#:"IF YOUR ESTIM"GIVE THE EXACT ANSWER, JUST A CLOSE"::"ESTIMATION."C61050g :"IN THIS DRILL YOU HAVE THE":"CHOICE OF WORKING WITH 2, 3, OR 4 DIGIT":"NUMBERS, OR A MIXTURE OF ALL THREE.":8:"ENTER 2, 3, 4, OR ALL";:868@Z$: 60200C *************************************************aD ESTADD 10/7/77 BJ REVISED SEVERAL TIMES, ORIGINAL AUTHOR UNKNOWN:8:"THIS IS A DRILL ON ESTIMATING THE SUM OF","TWO NUMBERS. YOU WILL NOT BE EXPECTED TO"8IMATION (1-30 SECONDS) ?";:61000:TL%ZN:TL%1TL%302710H 400::m A05700,18400,30600,39300,48400x58100 3:"WOULD YOU LIKE ANOTHER DRILL";:868<I$(I$,1)"N"60200(I$,1)"Y"Ģ23:"YES OR NO PLEASE.":38501600TIMATING THE PERCENTAGE ONE NUMBER"=:" IS OF ANOTHER"k21:"WHICH DRILL WOULD YOU LIKE?";:868v` 02600 :"PLEASE ENTER 1, 2, 3, 4, OR 5":2300( 61000:AZN A5A102500; 21:958:"HOW MUCH TIME DO YOU WANT FOR EACH":"EST X180<:3:"THIS PROGRAM DRILLS YOU ON ESTIMATING."i@::"THE DRILLS INCLUDE THE FOLLOWING:":"1) ESTIMATING ADDITION":"2) ESTIMATING SUBTRACTION"l:"3) ESTIMATING MULTIPLICATION":"4) ESTIMATING DIVISION"#4:"5) ES24,2716:22,2517:20,2318i18,2119:16,1920:14,1721:12,1522:10,1323:8,1124:8,925:26,813,12:10,1414:9,1515:10,1416:17,12:25,2923:24,3024:25,2925:26,2761100:22:"WHAT IS YOUR NAME PLEASE ";:N$100:S12:X039:0,39X:X:14:X1722:12,27X:X:19,9:18,2010:18,201117,2112:18,2013:18,2014:19,15:17,27:25,2918:24,3019:25,2920:21,2761100:9:X3901:0,39X:X:8:12,31:30,3113:28,3114:26,291529,31133 8,1114:28,3114:10,1315:26,2915 12,1516:24,2816:14,1717:23,2617:16,2318:18,2119:18,2120:16,2321 14,1722:22,2522:12,1523:24,2723 10,1324:26,2924:8,1125:28,3125:8,1026:29,3126:27,3161(7) 4502 :21::A401,405,408,415,420{ 3:X3901:0,39X:X:8:X1821:8,31X:X:X1722:12,27X:X 61100: 8:X039:0,39X:X:14:X1722:12,27X:X 61100: 6:X3901:0,39X:X:8:12,8:12,31:8,1013:25,2719:(7)W 6D1500:D:29,365:6,30:7,831:9,30:29,3610:(7):D1200:D 732,3614:30,3115:16,29:30,3117:32,3618 815,1733:(7):D1200:D:22,2629:30,3624:(7):D1200:D 929,3630:31,3329:31,3232:31,3336 -::X039 10,39X:Xb 214:3,1011:12,143:12,136:12,1410:(7):D1200:D:21,4 319,203:4,518:19,206:7,921:19,2010:18,9 4(7):D1200:D:25,293:4,1027:(7):D1500:D:13,1519 518,2215:16,2220:18,2223: PLEASE TYPE A NUMBER. "P X140:21864X,((G$,X,1))128:XZ ZM23 "GREAT!","BEAUTIFUL!","VERY GOOD!","TERRIFIC!","WONDERFUL!","FANTASTIC!","GOOD JOB!" ,"SUPER!","EXCELLENT!","ALL RIGHT!" AN$(9)::ZZ09:AN$(ZZ):l/ PROGRAM: ESTIMAT9 LAST UPDATE: 6/25/80?Zd COPYRIGHT MECC, 1979xx ESTIMAT 8/23/79 FP MODIFIED 1/17/80 BY TB255:::20735:(13);(4);"BRUN INPUT"TI%0:TL%0:IN$""FI$"12 ($2 2"' G$"                 3C$(70)"SWITZERLAND"'C(70)3:C$(71)"SYRIA"FC(71)5\C$(72)"TANZANIA"hC(72)4~C$(73)"THAILAND"&C(73)50C$(74)"TUNISIA":C(74)4DC$(75)"TURKEY"NC(75)5XC$(76)"UGANDA"bC(76)4lC$(77)"UPPER VOC$(62)"ROMANIA"JC(62)30TC$(63)"RWANDA"<^C(63)4VhC$(64)"SAUDI ARABIA"brC(64)5w|C$(65)"SENEGAL"C(65)4C$(66)"SPAIN"C(66)3C$(67)"SUDAN"C(67)4C$(68)"SURINAM"C(68)1C$(69)"SWEDEN"C(69)ORWAY"C(54)3(C$(55)"PAKISTAN"4C(55)5HC$(56)"PANAMA"TC(56)2jC$(57)"PARAGUAY"vC(57)1C$(58)"PERU"C(58)1C$(59)"PHILIPPINES"C(59)5"C$(60)"POLAND",C(60)36C$(61)"PORTUGAL";C(61)3@46)4C$(47)"MONACO"%(C(47)3:2C$(48)"MORACCO"F<C(48)4^FC$(49)"MOZAMBIQUE"jPC(49)4ZC$(50)"NETHERLANDS"dC(50)3nC$(51)"NICARAGUA"xC(51)2C$(52)"NIGER"C(52)4C$(53)"NIGERIA"C(53)4C$(54)"NE BAR";::" TO CONTINUE";B(PZC(16384):ZC141ZC16020520m2P16368,0:1:868:21::ZV1:ZH1:DD2)4C$(43)"LIBYA"C(43)4C$(44)"LUXEMBOURG"C(44)3C$(45)"MALAYSIA"C(45)5 C$(46)"MAURITANIA"C(TS IN"," VARIOUS VEHICLES."+V URSA,URSA` "URSA -"," A TUTORIAL ON CONSTELLATIONS,"," INCLUDING A SECTION ON HOW TO TELL"," TIME BY THE STARS."P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZP24:7:16368,0#P"PRESS ";::"SPAC". ODELL WOODS,ODELL28 "ODELL WOODS -"," A FOOD WEB SIMULATION INVOLVING"," ANIMALS FOUND IN NORTHERN MINNESOTA.",""B SOLAR DISTANCE,SOLDISTL "SOLAR DISTANCE -"," TEACHES CONCEPT OF DISTANCES BY HAVING"," STUDENTS MAKE 'TRIPS' TO PLANE MATH GAME,MATHGAMn "MATH GAME -"," PROVIDES DRILL ON THE FOUR BASIC"," MATHEMATICAL OPERATIONS.","" ODELL LAKE,ODELL1$ "ODELL LAKE -"," SIMULATES A FOOD WEB IN ODELL LAKE."," THE USER TAKES THE ROLE OF A FISH AND"," TRIES TO SURVIVE.C)""N$(T,C)" "835%>N$(T,C):C5C:T:20500BH::200^ ELEMENTARY VOLUME 4,6u ESTIMATE,ESTIMAT "ESTIMATE -"," PROVIDES DRILL AND PRACTICE ON ESTI-"," MATION IN ADDITION, SUBTRACTION,"," MULTIPLICATION, DIVISION AND PERCENTS."610 ::255 0 A(999)(1000)256F B(A)(A1)256_ CS(B1)16:SLOT #s CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS *:34,1: /14:"DESCRIPTIONS":34,4 2 4T1N1:(37)18İ20500:9C25:N$(T,R - TRY AGAIN";:550:500A ZM:868:CV1(CV23):ZN(ZN$):Z &CV1:36,CH:868:b X: b10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1) lVX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.":20500::720 vVX$"N"R FROM 1 TO "N".":16:280' QN600M ::10:"GETTING THE PROGRAM..."` 230,32:62450w D$;"RUN ";N$(Q,1) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBE128:J10JJ1:J3002752 16368,0:1023,123 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868 16303,0 "490 ,ZN$"D"800 QZN Q0QN1470 22:1:"PLEASE ENTER A NUMBE$(N,5)5 xT1N1:C05:N$(T,C):::N$(N,0)"END"L 1:20(T$)2:T$\ VV4(N17) 2:11:"AVAILABLE PROGRAMS":VV T1N:2TN1Ė20 T10ĺ" "; T" "N$(T,0)  T((N1)2)ĢVV T:(1023)123280 J1(16384)o HELLOVERSION A-3.09LAST UPDATE: 6/17/81?S(C) MECC 1980Y :d 22016vD$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,02D$"NOMON CIO"dZM24 n:T$,N:NN1:N          EGORY 1 PROBLEMS#0ɪQ(3(1)1)30ɭQ151900=0XʪX.1M0ʭQ252100X0 ˪X.01h0˭Q352300r0˪X.50L̪Y(1001(1)10)0EXY50ͭK2530000xͲ CATEGORY TWO PROBLEMS0ͪX(10(1)1)1000@ΪY(1001(1)10)0EXY5868/ð61000:NZN)/ĭN0N10050500P/|Ģ16:"TYPE A NUMBER FROM 1 TO 99."[/ī50000m/DC0:C10:WR0x/ŁP1N/ TRY0:S0:E0:LEWAY0/pƭK1451100/K(3(1))1/8ǫ51400/KK1/dȲ SELECT THE PROBLEM /ȭK1525000,ɲ CAT3) PERCENTS OF A NUMBER THAT ARE"K.0:" MULTIPLES OF 10, 25, OR 75,"|.:" 4) A RANDOM SELECTION FROM ALL THREE.".19.$º"ENTER 1, 2, 3 OR 4 ?";:868.°61000:K1ZN.­K11K1449600.F×/Pâ10:"HOW MANY PROBLEMS DO YOU WISH?";:7 BJ8-t WRITTEN BY C. LUND, J. FIGGE--ST. PAUL, MNl-ؽ:3:"IN THIS DRILL ON ESTIMATING PERCENTAGES"-<:"YOU HAVE THE CHOICE OF WORKING WITH:"-:" 1) 1, 10 AND 50 PERCENT OF A NUMBER,"-h:" 2) 1 TO 10 PERCENT OF A NUMBER,"!.̿:" 1:44350+,,X100LEEWAY(XD1)3:44350A,/LEEWAY(XD1)30J,>:5z,p:P;".) ";XY;" / ";Y;" IS ABOUT .....";,ԭ12720,TRY144400,861050,仂P,,޼ **************************************************- ESTPCNT 10/7/7REE PROBLEMS!+X(89(1)11)6+Y(89(1)11)J+|XY100043700T+૪E20q+D PRINT : PRINT PROBLEMy+SX+ Y10Y1Y:44330+Y100Y1((Y5)10)10+44330+Y1000Y1((50Y)100)100,*QXY:D1QY1:X10LEEWAY(XD1) 1 PROBLEMS *X(87(1)13)8*X10(X10)42400K*hY(8(1)2)^*̦XY10042400h*0E10x*K243500* CATEGORY TWO PROBLEMS*\X(89(1)11)*Y(89(1)11)*$XY99943100*E15*쩭K344100 +P CATEGORY TH)(61000:NZN$)N0N10041400K)16:"TYPE A NUMBER FROM 1 TO 99."V)T40900h)C0:C10:WR0s)P1N)TRY0:S0:E0:LEWAY0)䢭K1442000)HK(3(1))1)42100)KK1)t SELECT THE PROBLEM )ؤK142900 *< CATEGORYIGITS DIVIDED BY 2 DIGITS,"E(:" QUOTIENT LESS THAN 1000, OR"w(l:" 4) A RANDOM SELECTION FROM ALL THREE."(Н20("ENTER 1, 2, 3 OR 4 ?";:868(61000:K1ZN(`K11K1440400((ğ10:"HOW MANY PROBLEMS DO YOU WISH?";:868RILL ON ESTIMATING THE QUOTIENT"M'"OF TWO NUMBERS, YOU WILL BE GIVEN THE"n':"CHOICE OF WORKING WITH:"'x:" 1) 3 DIGITS DIVIDED BY 1 DIGIT,"'ܛ:" 2) 3 DIGITS DIVIDED BY 2 DIGITS,"'@:" QUOTIENT LESS THAN 1000,"(:" 3) 4 D;" IS ABOUT .....";&t12720/&TRY135600:&؋61050A&XPG& &R ***************************************************& PROGRAM NAME: ESTDIV 9/2/77 BJ&虲 WRITTEN BY C. LUND, J. FIGGE, --ST. PAUL, MN 'L:2:"IN THIS D)(10(Y10.5)))"%K335400A%T CATEGORY THREE PROBLEMSV%X(89(1)11)k%Y(89(1)11)%XY100035000%䉪E(XY(10(X10.5))(10(Y10.5)))%H PRINT : PRINT PROBLEM%SXY:LEWAYE%ފ:5&:P;".) ";X;" X ";YOBLEMS$X(87(1)13)3$X10(X10)33700F$lY(8(1)2)Y$ЄXY10033700y$4E(XY(10(X10.5)Y))$K234800$ CATEGORY TWO PROBLEMS$`X(89(1)11)$ĆY(89(1)11)$(XY99934400%E(XY(10(X10.5)61000:NZN#~N0N10032700F#~16:"TYPE A NUMBER FROM 1 TO 99."Q#X32200c#C0:C10:WR0n# P1N#TRY0:S0:E0:LEWAY0#耭K1433300#LK(3(1))1#33400#KK1#x SELECT THE PROBLEM #܂K134200$@ CATEGORY 1 PRDIGITS TIMES 2 DIGITS,"C" {:" PRODUCT GREATER THAN 1000, OR"u"p{:" 4) A RANDOM SELECTION FROM ALL THREE.""|21:"ENTER 1, 2, 3, OR 4 ?";:868"}61000:K1ZN"d}K11K1431900"}"}10:"HOW MANY PROBLEMS DO YOU WISH?";:868 #,~"IN THIS DRILL ON ESTIMATING THE PRODUCT"O!x:"OF TWO NUMBERS, YOU HAVE THE"p!y:"CHOICE OF WORKING WITH:"!|y:" 1) A 1 DIGIT TIMES A 2 DIGIT NUMBER,"!y:" 2) 2 DIGITS TIMES 2 DIGITS,"!Dz:" PRODUCT LESS THAN 1000,""z:" 3) 2 2 COPYRIGHT MECC 1979 URSA 9/7/79 FP AUTHOR: HUGH COLLET, NSF COMPUTER INSTITUTE, MACOMB COUNTY INTERMEDIATE SCHOOL DISTRICT ASSOCIATED PROGRAMS AND FILES: PART2, PART3, PART4, PART5, CHAIN dD1(25),D2(24),D3(26),K(24),C(24),N     E MENU PROGRAM...":(4);"RUN HELLO"0>a1023,98>b:4);"RUN HELLO"V>a1023,9^>b:w>\ FLASH BAR ROUTINE>f16368,0:24:8:"PRESS ";::"SPACE BAR";::" TO GO ON">p(16384)12762320>zC"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"P=E:"3) END"{=F13:"PLEASE ENTER 1, 2, OR 3 ";:868=H61000:ZEZN=IZE0ZE462030=J:"PLEASE ENTER A NUMBER 1 - 3":62022=NZE1Ĭ=OZE362049$>P:10:"GETTING THZE462030672::5c74(1023)123ė:(4);"RUN HELLO"k7b:23)123ė:(4);"RUN HELLO"755:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:86876A$77(A$,1,1)"Y"1600$88(A$,UMBER.";:61010:61001>6NZM:868:CV1(CV23):ZN(ZN$):W6RCV1:36,CH:868:q6z FLASH BAR ROUTINE6~16368,0:23:8:"PRESS ";::"SPACE BAR";::" TO GO ON"6(16384)12761056616368,06::6 DELAY ROUTINE7ZX0#5C:12:15:"SECOND TRY.....";85N9C110ĺ" ";@5 C1L5T1T1NX5LT2T2Ce5T3T3C1n5x180{561050:5(255:620005HCH(36):CV(37)5I"";ZN$:(ZN$)(((ZN$)))610035J(ZN$)0ZN$"0"610066KZM:"PLEASE TYPE A N4 44TRY24$4:3=4&10:"SCORE FOR ";N$t4X255:G61711:9:G:"***********************":4G716:G:9:"*";21)"*":G:12:8:"NUMBER TRIED...";N411:11:"NUMBER CORRECT":12:13:"FIRST TRY......";5N9C10ĺ" ";HAVE BEEN NEAR ";S3>3:"NO... PLEASE TRY AGAIN."::O3TRY158060j3:"THAT'S BETTER...."}3C1C11:580853ANS((1)10)35::AN$(ANS)3CC13RS580903::"THAT'S IT EXACTLY":(7):(7):(7):(7):3580972ԗ:582Ժ:P;".) ";X100;"% OF ";Y;" IS ABOUT ";C2԰12720T2 խTRY154400_24հ61050f2Pl22 **************************************************2(RS)LEWAY580402TRY1580302:TI%0ĺ"WRONG."3"YOUR ANSWER SHOULD 1ϭK354100-1lϲ CATEGORY THREE PROBLEMS@1ϪQ(3(1)1)P14ЭQ153500[1ЪX.25k1ЭQ253700v1`ѪX.751ѭQ3539001(ҪX10((10(2)1))1001ҪY(1001(1)10)1EXY51TӲ PRINT PROBLEM1S((XY.005)100)100:LEWAYE SEE HOW IS THIS DONE";% 16368,0= (16384)1271170E :p "DRAW AN IMAGINARY LINE OUT FROM THE" "TWO STARS ON THE END OF THE BIG DIPPER." 5 DB(13),DB(14)N(1),N(2)  50000  22:"THIS LINE PASSES THROUGH TH127X1 3$ (X2)(X2)Ē4[ N(1),N(2)N(3),N(4)N(5),N(6)N(7),N(8)N(1),N(2)e XX1u Y1271120~ 955 `16368,0 a::22 j"IT IS IMPORTANT TO BE ABLE TO FIND" t"THE NORTH STAR." "PRESS ";::"SPACE BAR";::" TO IS URSA MAJOR, THE 'BIG DIPPER'"/ fP1:30007 22d "THERE IS ONE OTHER STAR ON THE SCREEN" "CALLED POLARIS OR THE 'NORTH STAR'" "(IT IS BLINKING)" 24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; 16368,0 Y(16384):YRACED OUT."; O16368,01 P(16384)127592: X6:] v"THIS IS 'DRACO THE DRAGON'."k P3:3000 "THIS IS CASSIOPEIA" P4:3000 "THIS IS CEPHEUS" P5:3000 *"THIS IS URSA MINOR, THE 'LITTLE DIPPER'" 4P2:3000! \"THIS!B$"MAY":L122:H18:C$"PM"340000:50000;:M34,20:35,24S&}0"LOOKING INTO THE SKY SOME EVENING,":"YOU MIGHT SEE A SCENE LIKE THIS."?3::20000D"PRESS THE ";::"SPACE BAR";::" TO SEE THE" N"CONSTELLATIONS T     1 ĂAı!D1(2I1)X:D1(2I)Y:502000ĭX0502507"ĂIAJNN1PTĭN650010n^N(1)128:N(2)83:N(3)132hN(4)87:N(5)132:N(6)83rN(7)128:N(8)87|āA122DB(A)1:DL(A)1:DR(A)1KA(A)1:CE(A)1ĂAıA(A)1:CE(A)8,11,25 ,343,23,5,32,10,38,2.5,38,5,32,-100, -100 LPN1XZÁI113adÇX,YnôN50080,50070,50060,50050xD3(2I1)X:D3(2I)Y:50200C(2I1)X:C(2I)Y:50200D2(2I1)X:D2(2I)Y:50200K(2I1)X:K(2I)Y:50200242,27,250,30,257,29.5,261.5,34,269,31.5,-100,-100y$' 0,5,20,8,35,12,26 ,14,40,18,50,16,35,12,-100,-100.' 277,13,288,24,298 ,33,311,28,311,20,277,13,-100,-100D8' 96,21,84,20,58,26 ,40,31.5,29,31.5,21,2^"DIPPER'?":Qh"I WILL NOW SHOW YOU THESE AND"::"OTHER CONSTELLATIONS."`34,23:24~(4);"BLOAD CHAIN, A520"520"PART2"' 63,40,70,35,77,3 4,87.5,33,93,37,107.5,34,107 ,28,87.5, 33,-100,-100 2' CH":) "FORMED SHAPES OR PICTURES.":T ""THESE GROUPS OF STARS WERE CALLED":} ,"** C O N S T E L L A T I O N S **" 6 @"YOU MAY BE FAMILIAR WITH SOME": J"CONSTELLATIONS. HAVE YOU HEARD": T"OF THE 'BIG DIPPER' AND THE 'LITTLE":L":) "TIME BY LOOKING AT THE STARS?"3 (21)Y "TO LEARN MORE ABOUT THE STARS," :"PRESS ";::"SPACE BAR";::16368,0 (16384)127230 : (2) "VERY LONG AGO, ANCIENT ASTRONOMERS ": "IDENTIFIED GROUPS OF STARS WHI Y$"3"Č520"PART4"C (13);(4);:(1023)123ĺ"RUN HELLO"K :T (9) "FOR CENTURIES, STARS HAVE BEEN USED": "BY SAILORS AS A NAVIGATIONAL AID.":: "DID YOU KNOW THAT WITH A LITTLE": "PRACTICE YOU CAN ALSO LEARN TO TELTHE STARS,":" 3) LEARN TO TELL TIME BY THE STARS, OR";:" 4) END":t "TYPE 1, 2, 3, OR 4 ?";Y$:Y$"1"ė:140 Y$"2"Y$"4"Ģ22:"PLEASE ENTER 1, 2, 3, OR 4.":16:868:133 Y$"4"138 (13);(4);"BLOAD CHAIN,A520":Y$"2"Č520"PART3"(8)+ iDB(24),DL(24),DR(26),KA(24),CE(24): s::255:V u(13);(4);"NOMON C":| x(3):10);"WELCOME TO THE STUDY" :14);"OF THE STARS" 50000F 9:"WOULD YOU LIKE TO"::" 1) LEARN ABOUT CONSTELLATIONS,":" 2) SEE THE ROTATION OF D YOU LIKE?";:30000:L1ZN:L131L11L1(L1)Ģ22:"ENTER AN INTEGER FROM 1 TO 31.":10:210v 15:"WHAT HOUR?"; 30000:H1ZN:H1(H1)H112Ģ22:"ENTER AN INTEGER BETWEEN 1 AND 12":230 18:"AM OR PM";:958:C$:C$"AM"C$"PM"250 "HOW":"YOU HOW THE STARS WILL LOOK EACH HOUR."::] "TYPE IN THE FIRST 3 LETTERS OF THE": 9:"MONTH YOU WOULD LIKE";:868 B$ A$"MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB" X112:(A$,X32,3)B$210 X:190_ ::"WHAT DATE WOULZZM24:::fn:"THE STARS SEEM TO ROTATE ABOUT THE"::"NORTH STAR IN A COUNTER-CLOCKWISE":"DIRECTION.":::"EVERY HOUR, THE STARS ROTATE 1/24TH":"OF THE WAY AROUND.":2250000:2 ::"IF YOU PICK A DATE AND TIME, I WILL S     (.875D1(2I)(R).5)8˝DB(2I1)(DB(2I1)36)3.6?НIIڝNN1X䝭N640150^Pù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Qí(16384)12750001Rñd12750001RñddI)(.5K(2I)(R).5)3KA(2I)(KA(2I)21)4XKA(2I1)(.875K(2I)(R).5)yKA(2I1)(KA(2I1)36)3.640400D1(2I1)040410RD1(2I1)P180BDB(2I)(.5D1(2I)(R).5)DB(2I)(DB(2I)21)4ƝDB(2I1) :40400!DD2(2I1)0404109NRD2(2I1)P180B[XDL(2I)(.5D2(2I)(R).5)w]DL(2I)(DL(2I)21)4bDL(2I1)(.875D2(2I)(R).5)gDL(2I1)(DL(2I1)36)3.6l40400vK(2I1)040410RK(2I1)P180BKA(2DR(2I1)(.875D3(2I)(R).5)DDR(2I1)(DR(2I1)36)3.6O40400eC(2I1)040410|RC(2I1)P180B&CE(2I)(.5C(2I)(R).5)+CE(2I)(CE(2I)21)40CE(2I1)(.875C(2I)(R).5)5CE(2I1)(CE(2I1)36)3.60H1H112 B2B13653601LL1365360AHH124360OP3.14159dB(B2LH)P180nœH1H0v̜N1֜I112N40360,40310,40260,40210,40170RD3(2I1)P180BDR(2I)(.5D3(2I)(R).5)DR(2I)(DR(2I)21)4#CE(2Q)1CE(2Q1)1,CE(2Q2)1(VQ8VP1022290?WPEWs@A$"MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB"JI112T(A$,I32,3)B$40040^IhA$"345011041072102133164194225255286317"rB1((A$,I32,3))|H0H1:C$"AM"4008DR(2Q)1DR(2Q1)1,DR(2Q2)1,V22260CVKA(2Q1)022270nVKA(2Q1),KA(2Q)KA(2Q1),KA(2Q2)VKA(2Q1)1,KA(2Q)1KA(2Q1)1,KA(2Q2)1V22260VCE(2Q1)022270VCE(2Q1),CE(2Q)CE(2Q1),CE(2Q2)!VCE(2Q1)1,Q2)8}VDB(2Q1)1,DB(2Q)1DB(2Q1)1,DB(2Q2)1CV22260ZVDL(2Q1)022270VDL(2Q1),DL(2Q)DL(2Q1),DL(2Q2)VDL(2Q1)1,DL(2Q)1DL(2Q1)1,DL(2Q2)1V22260VDR(2Q1),DR(2Q)DR(2Q1),DR(2Q2)!VDR(2Q1)1,OCE(2I1),CE(2I)CE(2I1),CE(2I)2CE(2I1)2,CE(2I)2CE(2I1)2,CE(2I)CE(2I1),CE(2I)j.OIq8ONwBOUP1022110TVP15^VQ111hVP22130,22160,22190,22210,22240rVDB(2Q1)022270|VDB(2Q1),DB(2Q)DB(2Q1),DB(2)DR(2I1),DR(2I)2DR(2I1)2,DR(2I)2DR(2I1)2,DR(2I)DR(2I1),DR(2I)\N20270sNKA(2I1)020280OKA(2I1),KA(2I)KA(2I1),KA(2I)2KA(2I1)2,KA(2I)2KA(2I1)2,KA(2I)KA(2I1),KA(2I)O20270OCE(2I1)020280c$)2DB(2I1)2,DB(2I)2DB(2I1)2,DB(2I)DB(2I1),DB(2I)JN20270aNDL(2I1)020280NDL(2I1),DL(2I)DL(2I1),DL(2I)2DL(2I1)2,DL(2I)2DL(2I1)2,DL(2I)DL(2I1),DL(2I)N20270NDR(2I1)020280QNDR(2I1),DR(2IE NORTH STAR." =34,24:248 @(13);(4);"RUN URSA"N 22000:50000:: NN(1),N(2)N(3),N(4)N(5),N(6)N(7),N(8)N(1),N(2) NN15 NI112 NN20130,20160,20190,20220,20250 NDB(2I1)020280?NDB(2I1),DB(2I)DB(2I1),DB(2I     )"˝DB(2I1)(DB(2I1)36)3.6)НI>ڝNN1:N640150DPù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Qí(16384)12750001Rñ (R).5)%KA(2I)(KA(2I)21)4JKA(2I1)(.875K(2I)(R).5)rKA(2I1)(KA(2I1)36)3.6:40400D1(2I1)040410RD1(2I1)P180B:DB(2I)(.5D1(2I)(R).5)DB(2I)(DB(2I)21)4ƝDB(2I1)(.875D1(2I)(R).56:40400DD2(2I1)040410UNRD2(2I1)P180B:DL(2I)(.5D2(2I)(R).5)q]DL(2I)(DL(2I)21)4bDL(2I1)(.875D2(2I)(R).5)gDL(2I1)(DL(2I1)36)3.6:40400vK(2I1)040410 RK(2I1)P180B:KA(2I)(.5K(2I))21)4-DR(2I1)(.875D3(2I)(R).5)UDR(2I1)(DR(2I1)36)3.6:40400kC(2I1)040410RC(2I1)P180B:CE(2I)(.5C(2I)(R).5)+CE(2I)(CE(2I)21)40CE(2I1)(.875C(2I)(R).5)5CE(2I1)(CE(2I1)36)3.(A$,I32,3)):H0H1:C$"AM"400800H1H112eB2B1365360:LL1365360:HH124360:P3.14159B(B2LH)P180:H1H0:N1֜I112N40360,40310,40260,40210,40170RD3(2I1)P180B:DR(2I)(.5D3(2I)(R).5)DR(2I)(DR(2I"THAT IS NOT A NUMBER - TRY AGAIN";:30010:30001Z6uZM:868:CV1(CV23):ZN(ZN$):s:uCV1:36,CH:868:@A$"MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB"JI112:(A$,I32,3)B$40040^I#hA$"345011041072102133164194225255286317":B1(A(2Q2)1:22260(VCE(2Q1)022270SVCE(2Q1),CE(2Q)CE(2Q1),CE(2Q2)VCE(2Q1)1,CE(2Q)1CE(2Q1)1,CE(2Q2)1VQVWP:0uCH(36):CV(37)1u"";ZN$:(ZN$)(((ZN$)))300032u(ZN$)0ZN$"0"3000623uZM:)1,DL(2Q)1DL(2Q1)1,DL(2Q2)1:22260WVDR(2Q1),DR(2Q)DR(2Q1),DR(2Q2)VDR(2Q1)1,DR(2Q)1DR(2Q1)1,DR(2Q2)1V22260VKA(2Q1)022270VKA(2Q1),KA(2Q)KA(2Q1),KA(2Q2)VKA(2Q1)1,KA(2Q)1KA(2Q1)1,K15UQ1114hVP22130,22160,22190,22210,22240KrVDB(2Q1)022280v|VDB(2Q1),DB(2Q)DB(2Q1),DB(2Q2)}VDB(2Q1)1,DB(2Q)1DB(2Q1)1,DB(2Q2)1:22260VDL(2Q1)022270VDL(2Q1),DL(2Q)DL(2Q1),DL(2Q2),VDL(2Q1(2I1),KA(2I)KA(2I1),KA(2I)2KA(2I1)2,KA(2I)2KA(2I1)2,KA(2I)KA(2I1),KA(2I)jO20270OCE(2I1)020280$OCE(2I1),CE(2I)CE(2I1),CE(2I)2CE(2I1)2,CE(2I)2CE(2I1)2,CE(2I)CE(2I1),CE(2I).OI8ON:UP(2I1),DL(2I)2DL(2I1)2,DL(2I)2DL(2I1)2,DL(2I)DL(2I1),DL(2I)XN20270oNDR(2I1)020280NDR(2I1),DR(2I)DR(2I1),DR(2I)2DR(2I1)2,DR(2I)2DR(2I1)2,DR(2I)DR(2I1),DR(2I)N20270NKA(2I1)020280_OKAN(8)N(1),N(2)!NN15:I112FNN20130,20160,20190,20220,20250]NDB(2I1)020280NDB(2I1),DB(2I)DB(2I1),DB(2I)2DB(2I1)2,DB(2I)2DB(2I1)2,DB(2I)DB(2I1),DB(2I)N20270NDL(2I1)020280MNDL(2I1),DL(2I)DL ROTATION";:1' 6:P20:22000:1410; :::16368,0q 6:868:"DO YOU WANT TO PICK ANOTHER DATE ?";Y$ (Y$,1)"Y"160 (Y$,1)"N"ĺ(13);(4);"RUN URSA" 20:"PLEASE ENTER YES OR NO.":1500 NN(1),N(2)N(3),N(4)N(5),N(6)N(7),(16384)1271490* H1H11:H125H11B H2H21:H213H21d H21C1$"AM"C1$"PM":1430 H21C1$"PM"C1$"AM":L2L21 40000:3::20000 :21:B$;" ";L2;" AT ";H2;C1$;:868 24:1:"PRESS ";::"SPACE BAR";::" TO STOP THEH2H1:L2L1:C1$C$::h .21:"HERE ARE THE STARS AS THEY WOULD APPEAR":"AT ";H1;C$;" ON ";B$;" ";L1 640000:3::20000:6:22000 :"PRESS ";::"SPACE BAR";::" TO SEE THE STARS ROTATE";:16368,0 (16384)127431 n16368,0: RK(2I1)P180B8KA(2I)(.5K(2I)(R).5)TKA(2I)(KA(2I)21)4yKA(2I1)(.875K(2I)(R).5)KA(2I1)(KA(2I1)36)3.640400D1(2I1)040410RD1(2I1)P180BDB(2I)(.5D1(2I)(R).5)DB(2 5CE(2I1)(CE(2I1)36)3.6+:40400BDD2(2I1)040410ZNRD2(2I1)P180B|XDL(2I)(.5D2(2I)(R).5)]DL(2I)(DL(2I)21)4bDL(2I1)(.875D2(2I)(R).5)gDL(2I1)(DL(2I1)36)3.6l40400vK(2I1)0404105)DR(2I)(DR(2I)21)4DDR(2I1)(.875D3(2I)(R).5)eDR(2I1)(DR(2I1)36)3.6p40400C(2I1)040410RC(2I1)P180B&CE(2I)(.5C(2I)(R).5)+CE(2I)(CE(2I)21)40CE(2I1)(.875C(2I)(R).5)rB1((A$,I32,3)).|H0H1:C$"AM"40080;H1H112MB2B1365360LL1365360:HH124360:P3.14159:B(B2LH)P180:H1H0:N1̜N1֜I112N40360,40310,40260,40210,40170RD3(2I1)P180BDR(2I)(.5D3(2I)(R).Q1),CE(2Q)CE(2Q1),CE(2Q2)SVCE(2Q1)1,CE(2Q)1CE(2Q1)1,CE(2Q2)1ZVQiVP522290pWPvW@A$"MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB"JI112:(A$,I32,3)B$40040^IhA$"345011041072102133164194225255286317"Q1),DR(2Q)DR(2Q1),DR(2Q2)SVDR(2Q1)1,DR(2Q)1DR(2Q1)1,DR(2Q2)1^V22260uVKA(2Q1)022270VKA(2Q1),KA(2Q)KA(2Q1),KA(2Q2)VKA(2Q1)1,KA(2Q)1KA(2Q1)1,KA(2Q2)1V22260VCE(2Q1)022270 VCE(2Q1)0222707|VDB(2Q1),DB(2Q)DB(2Q1),DB(2Q2)j}VDB(2Q1)1,DB(2Q)1DB(2Q1)1,DB(2Q2)1uV22260VDL(2Q1)022270VDL(2Q1),DL(2Q)DL(2Q1),DL(2Q2)VDL(2Q1)1,DL(2Q)1DL(2Q1)1,DL(2Q2)1V22260 VDR(22,KA(2I)KA(2I1),KA(2I)'O20270>OCE(2I1)020280$OCE(2I1),CE(2I)CE(2I1),CE(2I)2CE(2I1)2,CE(2I)2CE(2I1)2,CE(2I)CE(2I1),CE(2I).OI8ONBOUP15^VQ111hVP22130,22160,22190,22210,22240 rVDB(21),DL(2I)N20270,NDR(2I1)020280NDR(2I1),DR(2I)DR(2I1),DR(2I)2DR(2I1)2,DR(2I)2DR(2I1)2,DR(2I)DR(2I1),DR(2I)N20270NKA(2I1)020280OKA(2I1),KA(2I)KA(2I1),KA(2I)2KA(2I1)2,KA(2I)2KA(2I1)250NDB(2I1)020280NDB(2I1),DB(2I)DB(2I1),DB(2I)2DB(2I1)2,DB(2I)2DB(2I1)2,DB(2I)DB(2I1),DB(2I)N20270NDL(2I1)020280 NDL(2I1),DL(2I)DL(2I1),DL(2I)2DL(2I1)2,DL(2I)2DL(2I1)2,DL(2I)DL(2I(A1$)0A3$"PM"ĺ"THAT'S CLOSE, HOWEVER THE ANSWER IS 1PM.";:3060g "WRONG, THE ANSWER IS 1PM."x 50000::: :(4);"RUN PART5" NN(1),N(2)N(3),N(4)N(5),N(6)N(7),N(8)N(1),N(2) NN15 NI112NN20130,20160,20190,20220,20)(X2)Ē4, DB(11),DB(12)DB(13),DB(14)6 XX1F Y1272015P 1975^ 16368,0 :21:"ACCORDING TO THE STARS, WHAT TIME IS IT?" "WHAT HOUR";:A1$ "AM OR PM";:A3$ *:21 A1$"1"A3$"PM"ĺ"RIGHT!!":3060F (A1$)3 D:3:0 v20000:6:22000:34,20:35,24:{ "THE HAND OF THE CLOCK IN THE SKY":"IS THE PAIR OF STARS IN THE END" "OF THE BIG DIPPER.":24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; 16368,0 Y(16384):Y127X1 3:(X2"8AM"" 8:2);"5PM";37);"7AM"< 10:"6PM";38);"6AM"Z 13:2);"7PM";37);"5AM"x 15:4);"8PM";35);"4AM" 17:7);"9PM";32);"3AM" 18:10);"10PM";28);"2AM" 19:15);"11PM";23);"1AM" 20:20);"12" &40000: 050000RS RATHER"+ T:"THAN 12 AND THE NUMBERS"I ^:"GO IN REVERSE ORDER."v h::"TO SEE A PICTURE OF THIS CLOCK,": 50000:: 20);"12" 16);"1PM";23);"11AM" 11);"2PM";28);"10AM" 7);"3PM";32);"9AM" (6):4);"4PM";35); d:eH1(0)5B$"MAY":L116:H18:C$"PM"r:"HOW DO WE TELL TIME BY"::"WATCHING THE STARS?"::""FIRST, IMAGINE A BIG CLOCK IN THE SKY.",:"THE NORTH STAR IS THE"6:"CENTER OF THE CLOCK."@: J"THE CLOCK HAS 24 HOU:"METHOD";:25:"TRIP TIME":O:X120:P$::X19:P$:T(X)05635|P$;:29((T(X))):T(X);:33:T$(V(X)):20500''::$'22016*(1023)123ė::D$;"RUN HELLO"*PP24:10:16368,0:"PRESS ";::"SPACE19:A(X)10DW1%:DW15601[:10:868:"DO YOU WANT TO TRY A DIFFERENT TYPE"{868:"OF TRANSPORTATION";A$:(A$,1,1)"Y"(A$,1,1)"N"5550T(W6)T:V(W6)V(A$,1,1)"Y"1340:3:15((P1$)2):"EARTH TO ";P1$#RAM...":(4);"RUN HELLO"%)1023,9-*:pPù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Qí(16384)12750001R×: CONTINUE";Qí(16384)12750001Rñ )(4);"RUN HELLO")1023,9$*:gPù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Qí(16384)12750001R×: A:"PLEASE ENTER A NUMBER 1 - 3":43022Z31ĺ(4);"RUN URSA"ZE343049:10:"GETTING THE MENU PROGPù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";YQí(16384)12750001aR×: 750001tR×: ,1,1)"N"43030:"PLEASE ANSWER WITH YES OR NO":43005(1023)12343050:10:"GETTING THE MENU PROGRAM...":(13);V(37)/A"";ZN$:(ZN$)(((ZN$)))40003LB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM::(13);(4);"RUN URSA"@:"INDICATED ON THE CLOCK IN THE SKY.":"MOVING 17 HOURS IN A CLOCKWISE"::"DIRECTION FROM 1 PM, WE GET A TIME OF "::"8 PM."50000"THEREFORE, FOR OUR DATE AND STAR "::"POSITION, IT IS 8 P.M."@50000J43000'@CH(36):C4, WE DO NOT HAVE TO SUBTRACT"$ = "ANYTHING FROM IT."H 50000 "AS A FINAL STEP, WE SUBTRACT OUR NUMBER"::"FROM THE NUMBER ON THE CLOCK IN THE SKY." 9:"WE DO THIS BY MOVING 17 HOURS IN A "::"CLOCKWISE DIRECTION FROM THE TIME"&"SINCE THE 16TH OF MAY IS IN THE LAST"::"OF THE MONTH, WE ADD 1 TO THE 16 TO "m :"GET A RESULT OF 17."x 50000 "IF THE NUMBER IS GREATER THAN 24, WE "::"SUBTRACT 24 FROM IT.": 12 "SINCE OUR NUMBER, 17, IS NOT GREATER"::"THAN 2RY IS 2, ETC.,"- F"MAY IS MONTH NUMBER 5."5 K10q P:"WE MULTIPLY THE MONTH NUMBER BY 2 "::"AND ADD 6." Z20:"IN OUR CASE, 5 X 2 + 6 = 16" d50000 n"IF THE DATE IS IN THE LAST HALF OF THE"::"MONTH, WE ADD 1 TO THIS NUMBER."P x9:\ 7:"LET'S ASSUME THAT IT IS MAY 16TH AND "::"THAT WE JUST SAW THE STARS POINTING TO " :"1 PM. WITH THAT INFORMATION, WE CAN "::"TELL THE REAL TIME." (50000 <4:"FIRST, WE NEED THE NUMBER OF THE MONTH."::"SINCE JANUARY IS 1, FEBRUAF" " THE MONTH, ADD 1."R ::"3. IF THIS RESULT IS GREATER THAN 24, "j " SUBTRACT 24." ::"4. MOVE THIS MANY HOURS CLOCKWISE FROM" " THE TIME SHOWN BY THE STARS" 50000 4:"NOW WE WILL TRY A SAMPLE COMPUTATION."c:::255:ZM24D2:"BELOW IS THE FORMULA FOR COMPUTING ":"ACTUAL TIME, GIVEN THE POSITION OF THE "::"STARS AND THE DATE"::"1. MULTIPLY THE MONTH NUMBER BY 2 AND"" ADD 6." ::"2. IF THE DATE IS IN THE 2ND HALF O    84)12750001Rñ 7I)(DB(2I)21)48ƝDB(2I1)(.875D1(2I)(R).5)Y˝DB(2I1)(DB(2I1)36)3.6`НIuڝNN1:N640150{Pù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Qí(16384)12750001Rñ 2750001Rñ Qí(163)2):"TRIPS BY ";P2$_:"PLANET";:15:"TRANSPORT";:30:"YOUR":17:"TIME";:29:"WEIGHT"::X110:P$:T(X)05537P$;:18((T(X))):T(X);" ";:T$(V(X));35(((W(X)))):(W(X));" LBS":20500:10000T(W6)T:V(W6)V:X}10:"YOUR WEIGHT ON "P1$" IS "POW1" LBS"Z~20500:DW0:X110:A(X)0A(X)10DW1m:DW1552210:"DO YOU WANT TO TRAVEL TO A DIFFERENT""PLACE";:A$:(A$,1,1)"Y"(A$,1,1)"N"5510(A$,1,1)"Y"1260:3:16((P2$(1)Y(MR));" ";:/:(V1)82:(R1);" ";OIR1R1R8:4:22:W611870hJDW3Ĕ4X,150:1871{K3X,150:1871NW63X,150O:3:W63X,150X(V1)82:T;" ";X(0):20500::B15550W(W5)POW1:T(W5)T:V(W5)V,(T1000)'R9(R9)1833%(R92.)GT09+35000m-R8((T(175R9)100))100:R1R8:22:GT11840.GT1:W63200,150:20500:18350X20025R9:31W61İ32000:18452W6118453W63X,1505868:MRV15:(MR1)82:(500:22+ X2703030:3:X,150X5,150CMRV5:MRV1810f(MR1)82:R1;" ";:R1R1R8p1811(MR1)82:((1)Y(MR));" ";4:X,150X5,150:22::20,15015,150:(V1)82:T;" ";5000 &R91(W62.225)@T(D1W2):T601620(JV5:1800ATT(T60):T601640O^V4:1800ghT(T60):V3:1800T((D1W2)24):T3651750V2:1830T(((D1W2)24365)):V1183035000 R8(T9100)100:R1R8:270,150265,150:34,21:200:W:XW51480W9W)X:1W9,6000\:X110:P$::X110:DW:XW51508fD1DW:X19:P$:P$P2$1520W6XX:X19:DW:XW61550W2DW:X110:DW:XW51590"W1DW6:P2$"SPEED OF LIGHT"170013759Z1:"ENTER A WHOLE NUMBER BETWEEN 1 AND 9":1368Q_31000:P2$""1340pd:3:21,50:1187,40:30{i34,20nP1$"THE SUN"1430sW127.8x:1267,80:W59:1490:X110:P$:P$P1$1450W5XX:X138:P$::X11 DETERMINED."D2:"HOW MUCH DO YOU WEIGH,IN POUNDS";:40000:POZN]<:7:32,12:33,28:F:X120:P$::X19:P$:A(X)91365PX;" ";P$UX32,0:33,40:5:868:5:"HOW WOULD YOU LIKE TO GET THERE";Y40000:AZN:A0A10A(A)2,0:33,40:5:868:10:"WHERE WOULD YOU LIKE TO GO";\ 40000:AZN:A0A11A(A)1300 1::"ENTER A WHOLE NUMBER BETWEEN 1 AND 10" 1280 30000:P1$""1260 A$""1380 B21340 :5:"YOUR WEIGHT ON ";P1$;" WILL ALSO":"BE;"KINDS OF TRANSPORTATION"$ 34,0U 10:868:10:"WHICH WOULD YOU LIKE TO DO";q B$:B$"1"B$"2"1240 3:15:"ENTER 1 OR 2";:1220 B(B$) :7:33,15:32,25 : X110:P$:A(X)0A(X)101279 X;" ";P$ 6 3 V20500@ `"YOU CAN TRAVEL IN ANY OF THE FOLLOWING":"WAYS:"d t:X110:P$::X19:P$:P$, ~P$"TRAIN"P$"JET"1170  :20500 34,13: :10);"1 TRAVEL TO DIFFERENT PLACES": 10);"2 TRAVEL USING DIFFERENT" 12)YOU THE TIME IT"= "WOULD TAKE TO GET TO ANY PLACE IN THE"f $"SOLAR SYSTEM. IT WILL FIGURE THE" +"TRAVEL TIME AT THE POINT WHEN THE" ."EARTH IS CLOSEST.": 8"HERE IS A LIST OF PLACES THAT YOU CAN" B"GO TO:" L:X110:P$:P$,: )"YEARS":T$(2)"DAYS":T$(3)"HOURS":T$(4)"MIN.":T$(5)"SEC."^ ,1:3:0:(20000)1711020 D$;"BLOAD PLANETT":20000,171 10:10:"WHAT IS YOUR FIRST NAME";:N$ :2:"HI ";N$;", LET'S TRAVEL THROUGH SPACE.": "THIS PROGRAM WILL GIVE Ud COPYRIGHT MECC 19796n SOLDIST 9/21/79 FPCx AUTHORb ASSOCIATED FILE PLANETTl::v8192D$(4):ZM24:D$;"NOMON I,O,C":232,0:233,64A(10),V(10),W(10),T(10),Y(5)Y(2)365:Y(3)24:Y(4)60:Y(5)60> "T$(5):T$(1         膢 ȱ " <67 L  8ij v vo>??>??????,,',%$%,--$$>>7>??????????>7>?',,46$,=$<<'/%=/%-'$$$4666&$$$$>->7->7-76.56>&-/.---------,%-%-------%$$<<7?7>?'?<'????????>77?>?7'%-,--%---,-$-,%-$---567?>?>???/$-,%%-,-------.5-.5---%%,$%-556666>>7?>??>?>????7>?>?/--57>7/--%,%-%$?<'?'''?>>.5[II??/--66>6---,---55>>????????/----->55-5--,-,,$<<7.5-%-,----------%-,-.5>7?'?$-,-.5--%<$??<'',,--?'5?--.6/,-,,--?<>77..--?>,-,$//.-.--,--$$,%-%%%$''?'??>?>>6...-.%$?-%???/------=???/$$%%?=$-,%%-5>>??---->>>...>&-$=$--,-&.-N--.-..6>>>?>?'?'''$%%-m6666$$6&$---??????,-----=??/-?'$<;?>?65>>?''$<$,$-,%555&<<'<<'?'=/77-.$-%-%%%$''?'??>?>>6...-.%$<,$%,%>76..-,-%-.?.--=?7>..5>7.6??.---$$>???'--%<<$%%-,567?.66$$,,6-.-.>>%$.%'?<$'6%$'%,,557.,$<<''?7?,7>>7'<<6..-5$,$-<$=?=<,$?,--=5?'<-5>/-5557?>-$--,-,,$$''?'??>?>>6655-5--MIII)%-,<<'?>775-%$??''<,,%-?/,$'?<<7---$.-56?>???5666&$$.--=??????---%$$$6%'--------5??????7------5?????7-----5????7-----7?????7-----5?6.$$$$,$$$$,$$$$$$$$$4667$$$$?77&?77>>?=,,-6>??.->?7--->??756..%$$$$$$,--%??/%-------%$$$<>&-/<7?6--&$$6>=???,,%-5?>>??%>6'%7><>>>>>>.-??'-%$'$$-.6666$$$$-,$'666666/$$$$$$$<>>6675.66556.555555---..$$$$$$$$$$$$$$$$$$$$66>??7--5%>???7---5?????,56??'------>?????7------5???????.------5???????.------5????????7--------5?????????7---------5>????????/,--------6>'/-???????7-------5????????.-------5???????.------5?????????--->??/&-I%6,MIIIIIIII)4&mIIIIII)-----???,,.??65%5lIIIIIII ,,,-..677?==<&?--.6.6.65.6-65555-.5-.-.-<