' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 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*`vz#      à͠Š Π̯֠?Ϡ Š٩&ҠԠɭӠҠ͠ҠǠŠ ŠӠϮ PL:N$(Z)R$Ģ20:1:868::B$:"DUPLICATE NAME";::1030@LZWVA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:"OR ANY OTHER KEY TO CANCEL.";:R$:R$"D"810t(A$"RUN"A$"LOAD")T$(JPLK)"B"A$"B"A$J~A$A$" "N$(JB$;"FILE ";K$;"LOCKED"::8204A$"RENAME"1110e19:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$"":I1(RR$):R$R$(((RR$,I,1))128):I:R$R$(BL$,30(R$))9BZ1L%RENAME"!A$;::K$:K(K$)484K17K31810OKK16:(JPLK)C810gN$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820(A$"DELETED"A$"RENAME")L$(JPLK)"*"Ģ19:1:868::K(16384):K128830OR16368,0:19:1:958:K$(K):KK176:K0K9970]fK01340opK6K71260zK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK"K4A$"DELETE":K5A$"GE ";P;"OF ";L%::JP1:I1PL:(JPLI)C810f N$(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" ";L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":21:1:M1$:M2$:M3$:M4$;>T$(C)"A"Z4T$(C)"B"4N$(C)(INP$,ZZ,30)>Y:X[L%CPL:CL%PLL%L%1V$((VOL)):(V$)1V$"00"V$(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$/:"SL:";S;"DR:";D;"VOL:";V$;" FREE:";F$;" PAZ34:YF1F735:ZZZZ35:Z(Y33):Z0690P&CC1:(Y)255N$(C)"1":670:FFZ:S$(C)(Z):(S$(C))1S$(C)"00"S$(C)X(S$(C))2S$(C)"0"S$(C)bZ(Y2):L$(C)" ":Z4L$(C)"*":ZZ128lZ0T$(C)"T"vZ1T$(C)"I" Z2(13)ĺ:440)I$"0"I$"7"Ģ3:1:370VI$:S(I$):OS,(CS):OD,(CD):CS,S16:"CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490I$"1"I$"2"Ģ5:1:958:440I$:D(I$):CD,D-X1511:SEC,X:768:Zp\q"ENOUGH OF MY IDEAS.":BN1150:BN:::::"LET'S GET GOING!!":SW1600:SW:irK0490|K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490 "CURRENT SLOT IS ";S:"PRESS RETURN OR ENTER SLOT #";:I$:I$ f] h(5):"ROOM 300"::(5):"18 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"w i:" 813-848-0413" jSD11200:SD m::"OF COURSE THEY WILL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER." nNB1600:NBoLK1600:LK:WE11000:WEF [:"FOR YOUR OWN CATALOG LISTING OVER":UY11:UYt ^::(12):"2,000 PROGRAMS":IO1500:IO _:(6)::"FOR LESS THAN 25 CENTS EACH!!"::QP11:QP a::"SEND $5.00 TO:":TG1600:TG d:(5):"DUNCAN INSTITUTE LIBRARY":(15):"AND GET MORE WORK DONE"N J:"BY USING MORE OF THE":TH1100:THw O:(5):"FASCINATING,":RD1100:RD R:(10):"LOW COST,":PO1300:PO U:(15):"PUBLIC DOMAIN PROGRAMS":WR1100:WR X:"AVAILABLE FROM THE DUNCAN INSTITUTE."OCK 6=PAGE AHEAD 9=RESET DRIVE":S(18455)16:D(18454):K0:CS,S16:CD,Do ,TKR,17:F496:P1:C0:: /K8K9370 2:(18):"HI!" 3Q1400:Q: 5 6"YOU AND I CAN" : ;(5):"LEARN MORE," ?:(10):"HAVE MORE FUN,"" C:IOB777:T64:PL15:RB27136:CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"TYPE'LETTER' TO RUN, OR 0=EXIT"Q "M2$"1=LOAD 4=DELETE 7=PAGE BACK":M3$"2=LOCK 5=RENAME 8=NEW DISK":M4$"3=UNLDdINP$"":VS(106)256(105):VS2,240:VS3,14:VS4,150: 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1:I768793:X:I,X:I:BL$""I140:BL$BL$(160):I:N$(105),S$(105),T$(105),L$(105):1290 D$(4):B$(7)      TIATE EACH NEW TURN BY TYPING GO."S"GOOD LUCK!! AND, MAY THE BEST ECOLOGIST":c"WIN!!!"::"TO BEGIN THE GAME, TYPE GO ";G$G$"GO"ī480936:(2):10)"HERE WE GO!":: :: SELECTION OF THE ORGANISM"WHAT ORGANISM---"ONDS TO":4"ABOUT 1 TO 2 GENERATIONS OF YOUR":^:" HIT RETURN TO CONTINUE ";DD$936:(2):"ORGANISM. YOU SHOULD RESPOND TO INPUT":"PROMPTS BY TYPING WHAT IS IN THE":"PARENTHESES FOLLOWING YOUR CHOICE. YOU":""MAY INIPER ORGANISM IS OPTIMUM) AND SOME":Rr"STARVATION WILL RESULT. IF THE INPUT":|"RANGE IS TOO LARGE, THERE WILL BE MANY":"PREDATORS AND DEATHS DUE TO PREDATION":"WILL BE HIGH. THE GAME LASTS FOR 5": "TURNS, EACH OF WHICH CORRESPYOU INPUT":7@"WILL AFFECT THE RESULTS WHICH ARE":\E:"HIT RETURN TO CONTINUE ";CC$J936:(2):"OUTPUT. FOR INSTANCE, IF THE INPUT":T"RANGE IS TOO SMALL FOR YOUR POPULATION,":^"THERE WILL BE INSUFFICIENT FOOD (100 ":$h"UNITS "AMOUNT OF FOOD TAKEN BY COMPETITORS,":X""THE AMOUNT OF FOOD AVAILABLE TO YOUR":,"POPULATION, DEATHS DUE TO PREDATION,":1"DEATHS DUE TO STARVATION AND OTHER":6"CAUSES, BIRTHS, AND THE NEW TOTAL": ;"POPULATION. OF COURSE, WHAT PREDATION ON YOUR POPULATION":;"FOR THAT TURN ONLY."e :" HIT RETURN TO CONTINUE ";BB$936:(2):"AT THE END OF EACH TURN, THE FOLLOWING":"INFORMATION WILL BE OUTPUT: THE AMOUNT":"OF FOOD PRESENT IN THE RANGE, THE":*:3 "EACH SUBSEQUENT TURN YOU WILL INPUT THE":c "ENVIRONMENT, RANGE, AND COMPETITOR FOR": "POPULATION. ONCE DURING THE GAME, YOU": "MAY INPUT THE PREDATOR KILL OPTION.": "THIS WILL REDUCE BUT NOT ELIMINATE THE": "EFFECTS OF: "ORGANISMS."= :" HIT RETURN TO CONTINUE ";A$w 936:(2):"YOUR GOAL IN NICHE IS TO MAXIMIZE THE": "SIZE OF YOUR POPULATION BY PROVIDING": "IDEAL CONDITIONS FOR GROWTH. AT THE ": "BEGINNING OF THE GAME (TURN 1) AND AT"ABITAT, LIVING SPACE,":H "AND ROLE IN THE ECOSYSTEM. IN THE GAME":x "OF NICHE YOUR JOB IS TO FIT A SELECTED": "ORGANISM INTO ITS NICHE. YOU SELECT ONE": "OF 5 ORGANISMS AND RECEIVE A SMALL": "POPULATION (100 INDIVIDUALS) OF THE"Z"DO YOU NEED INSTRUCTIONS (Y/N) ";I$? dI$"N"I$"NO"520X nI$"Y"I$"YES"130` x90 936:(2):"INSTRUCTIONS FOR NICHE---":: "NICHE REFERS TO ALL OF THE ECOLOGICAL": "VARIABLES WHICH RELATE TO A GIVEN": "ORGANISM--ITS HING JULY 1979 P. 87 - 91o -I$(3):G$(2):E$(1):K$(3):Z$(3):C$(1):AA$(1):BB$(1):CC$(1):DD$(1):EE$(1) 2T0:K0:P100 7936 <3:">>>>>>>>>> NICHE <<<<<<<<<<": F5)"AN ECOLOGICAL GAME"::: P"WELCOME TO THE GAME OF NICHE!"' $$ ** NICHE--AN ECOLOGICAL GAME_ ** JAMES D. LEHMAN, DEPT. OF BIOLOGICAL SCIENCES ** PURDUE UNIVERSITY, W.LAFAYETTE, INDIANA 47906( ** ADAPTED TO APPLE II BY LYNNE FITZPATRICK - A.C.E.S.  + PRINTED IN CREATIVE COMPUT             D;" LINE ";LOC2:820:<:10:12:"MASH 6502 ENDED"BF: I(JPLK)):7306(A$,4)"RENA"N$(JPLK)(R$,30)?750XK6PP1:PL%P1qK7PP1:P1PL%z750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERROR ";ECPLK):19:1:958:(A$,4)"RENA"ĺA$:20:8:(R$,30):A$A$","(R$,30)c(A$,4)"RENA"ĺA$D$;A$;",S";S;",D";D:(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(S$":1920/#"THAT"SAWFUL!THEWILDLEMANAGERSOF"[#"THE WORLD HAVE NOTHING BUT SPITE FOR"o#"YOU!!!":1920#"THAT"SVERYPO!IHOPEYOUD"T OWN"#!"PETS!!!":1920#&"THAT'S BARELY PASSABLE! AT LEAST YOU"#+"DIDN'T LOSE ANY!!":1920 $0"NOT P1000P50001870-"P5000P100001880?"P100001900i""YOU ARE A DISGRACE! YOU ARE HEREBY"""DRUMMED OUT OF THE AMERICAN COLLEGE OF"""ECOLOGISTS(ACE) AND MADE A MEMBER OF"""THE AMERICAN SOCIETY OF STUPIDOS (YOU"#"KNOW)!!!!!@G$"GO"ī660=!T"IMPROPER RESPONSE--TRY AGAIN.":1580c!| ** FINAL PERFORMANCE EVALUATION|!:"END OF GAME"::!P01770!P0P251800!P25P1001820!P100P2501830!P250P5001840!P500P10001850" "DOWN TO A MERE ";P;" INDIVIDUALS! THAT"I "IS EXTREMELY RISKY!!!"S 1580y "YOU HAD BETTER WATCH OUT! YOUR" "POPULATION IS DOWN TO ";P;" INDIVIDUALS!" ""TROUBLE IS JUST AROUND THE CORNER." ,"TO BEGIN TURN ";T1;" TYPE GO"!6G$ON OF THE POPULATION"P015006P0P101530KP10P501560U1580"HEY TURKEY, YOU MANAGED TO LET YOUR""POPULATION GO TO ZERO!! AND, YOU DID IT AFTER ONLY TURN ";T;" !!!"1670"LOOK OUT TURKEY! YOUR POPULATION IS",O STARVATION OR OTHER CAUSES--- ";D2:E5)"BIRTHS--- ";Bp:10)"CURRENT POPULATION--- ";P:::" HIT RETURN TO CONTINUE ";EE$936:(2): ** CHECK FOR END OF GAMET51660 ** CHECK FOR LOSS OR GREAT REDUCTI FOOD PRESENT IN RANGE--- ";F1;" UNITS":xZ5)"AMOUNT OF FOOD TAKEN BY COMPETITORS- ";F2;" UNITS":d5)"AMOUNT OF FOOD FOR THE POPULATION--- ";F3;" UNITS":n5)"DEATHS DUE TO PREDATION--- ";D1:-x5)"DEATHS DUE T ** SET POPULATION+P1P:PPBD1D29P01300C 1340UX(1):Y(1)tP1B(D1X)(D2Y)1330~(13002D1(D1X):D2(D2Y):PP1BD1D2< ** PRINT RESULTS OF TURNF:::"RESULTS OF TURN ";T;" ---":2P5)"AMOUNT OF2P)! ** SET VARIABLE VALUESHR1RR3:F1(100R1P):F2(C1F1)cF3F1F2:F4F3(100P)rF41F41D2((1F4E1)P) ** GOSUB TO SET F5 VALUE6000 ** SET BIRTHSB(F5P)E1113001260D0:D10:D2POR KILL (Y/N)---"8K$3BK$"Y"K$"YES"1120LLK$"N"K$"NO"1140wV"IMPROPER RESPONSE--TRY AGAIN.":1070` ** SET COUNTER K AND SET D1 AT A LOW LEVELjK1:D1(.02P):1160t ** SET D1 AT NORMAL LEVEL~D1((.25(1).1)P)(R5000 ** SET C1 VALUEPC$"C"C$"E"C$"G"C$"I"C$"K"C$"M"C10wC$"B"C$"D"C$"L"C$"N"C1.2C$"F"C$"J"C1.4C$"A"C$"H"C$"P"C1.6 ** CHECK FOR PREVIOUS USE OF PREDATOR KIL$K1ī1140.::"PREDATAGAIN.":840C ** SELECTION OF COMPET-ITOR (ORGANISM DEPENDENT)n ** AND SETTING OF TRUE OPTIMUM RANGE::"WHAT COMPETITOR---"Q14000Q24100Q34200Q44300Q54400 ** GOSUB TO SET VALUES OF R1 AND R2ON OF RANGE SIZENH::"WHAT RANGE FOR THE WHOLE POPULATION IN ";U$;" ---"RU$"HECTARES"ĺ5)"(1 HECTARE = 10000 SQUARE METERS)"WU$"DEKASTERES"ĺ5)"(1 DEKASTERE = 10 CUBIC METERS)"\RfR0890p900 z"IMPROPER RESPONSE--TRY )"&5)"NORTH AMERICAN DESERT (D)"H5)"TEMPERATE GRASSLAND (G)"PE$E$"P"E$"L"E$"R"E$"C"E$"T"E$"D"E$"G"ī810 "IMPROPER RESPONSE--TRY AGAIN."::680* ** GOSUB TO SET VALUES OF E, E1, AND U$43000> ** SELECTI1:::"TURN ";T::6 ** SELECTION OF ENVIRONMENTQ"WHAT ENVIRONMENT---"p5)"FRESH WATER POND (P)"5)"FRESH WATER LAKE (L)"5)"TROPICAL RAIN FOREST (R)"5)"BOREAL CONIFEROUS FOREST (C)"5)"TEMPERATE DECIDUOUS FOREST (T!&5)"PARAMECIUM CAUDATUM (1)"=05)"RAINBOW TROUT (2)"T:5)"ANTEATER (3)"pD5)"GRAY SQUIRREL (4)"N5)"KANGAROO RAT (5)"XQbQ6650l"IMPROPER RESPONSE--TRY AGAIN."::540 ** SET UP TURN COUNTER AND PRINT TURNTTȎA350ĺ:"HELP! MY DIODES ARE FRYING!":"PLEASE ENTER A COOLER TEMPERATURE.":130 A340ĺ:"BRRRR! IT'S TOO COLD TO COMPUTE!":"PLEASE ENTER A WARMER TEMPERATURE.":130 "WHAT IS THE WIND DIRECTION USING THE FOLLOWING CODE?":L" ĺ:"YES OR NO, PLEASE.":40$ F90- P870: Z1330:5} d"WHAT IS THE BAROMETRIC PRESSURE IN KILOPASCALS (KPA) "; xA2 zA285ĺ:L$::100 |A2118ĺ:H$::100 ~ "WHAT IS THE TEMPERATURE IN DEGREES CELSIUS "; A3T NOT TO *) ! * BE SOLD. *H " ************************T %::10 &:L$"TOO LOW, UNLESS YOU'RE FLYING IN SPACE!":H$"TOO HIGH UNLESS YOU ARE UNDER WATER!" (15:"DO YOU WANT INSTRUCTIONS? ";Q$ 2(Q$,1)"Y"80 <(Q$,1)"N" *!  * CA 94063 *@  * *_  * *~  ************************  *  *  ************************  * PROGRAM MAY BE COPIED*  * FOR EDUCATIONAL USE * * ONLY AND IS OUNTY *)  * OFFICE OF EDUCATION *H  * *g  COMPUTER-USING EDUCATORS  * *  * SOFTSWAP *  * *  * 333 MAIN STREET *  * REDWOOD CITY !WEATHER FORECAST JULY 1980'B STUDENT ENTERS DATA^ FOR WEATHER FORECASTdy 48K APPLESOFT  JOHN COOK    ************************ * *  * SAN MATEO C     R110R125R2.3#,R125R2.4),8,pF41F41G,zF40F50_,F40F4.25F5.1y,F4.25F4.5F5.33,F4.5F4.7F5.67,F4.7F4.9F51,F4.9F41F52,,'936: TKET MOUSE (P)"+NC$6+XC$"M"C$"N"C$"P"ī4480`+b"IMPROPER RESPONSE--TRY AGAIN.":920q+R3.1P:980}+R1RR3+R10R11.33R20+R11.33R11.67R2.05+R11.67R12R2.075+R12R15R2.1+R15R110R2.2,RY AGAIN.":920 *R3.6P:9807*5)"CHIPMUNK (J)"L*5)"TURKEY (K)"`*5)"MOUSE (L)"h*C$*C$"J"C$"K"C$"L"ī4380*"IMPROPER RESPONSE--TRY AGAIN.":920*R3.05P:980*05)"PECCARY (M)"*:5)"JACKRABBIT (N)"+D5)"POC5)"SOCKEYE SALMON (F)"!)"C$A),C$"D"C$"E"C$"F"ī4180k)6"IMPROPER RESPONSE--TRY AGAIN.":920~)TR32000P:980)h5)"PACA (G)")r5)"ARMADILLO (H)")|5)"TAPIR (I)")C$)C$"G"C$"H"C$"I"ī4280*"IMPROPER RESPONSE--TNTIMETERS"( 1(5)"PARAMECIUM AURELIA (A)"F(5)"AMOEBA (B)"h(5)"PARAMECIUM BURSARIA (C)"p(C$(C$"A"C$"B"C$"C"ī4080("IMPROPER RESPONSE--TRY AGAIN.":920(R3P:980(5)"SNAPPING TURTLE (D)"(5)"CATFISH (E)")3QE6E11!'0 Q4QE8E107': Q4QE7E1.33K'D Q4QE8E11_'N Q4QE7E11t'X Q5QE10E10'b Q5QE9E1.5'l Q5QE8E1.5'v Q5QE8E11' Q3Q4Q5U$"HECTARES"' Q2U$"DEKASTERES" ( Q1U$"CUBIC CEZ$"Y"Z$"YES"ī50&9999/& E$"P"E1?& E$"L"E2O& E$"R"E3f& E$"C"E$"T"E4}& E$"D"E$"G"E5& Q1QE4E10& Q1QE4E11& Q2QE4E10& Q2QE3E1.33& Q2QE4E11& Q3QE6E10 '& Q! YOU CAN TAKE"<%]"MARLIN PERKINS' PLACE ON WILD KINGDOM"[%b"WHEN HE RETIRES!!":1920%l"SUPER!!!! SUPERB!!!! FANTASTIC!!!!"%v"MPTHER NATURE HERSELF MUST BE ENVIOUS!!"%::"DO YOU WANT TO PLAY ANOTHER GAME OF NICHE (Y/N)";%Z$&BAD! YOU ARE APPOINTED A JUNIOR"9$5"ECOLOGIST!!":1920h$:"PRETTY GOOD JOB FELLA (OR GAL)! I GUESS"$D"WE'LL HAVE TO LET YOU JOIN THE"$I"ECOLOGIST'S CLUB!!":1920$N"GOOD JOB!! YOU'RE A TRUE BLUE ECOLOGIST!":1920%X"WOW!!! TREMENDOUS JOB IN DEGREES F: ";A"1670:1694|A150ĺ:"HELP! MY DIODES ARE FRYING!":"PLEASE ENTER A COOLER TEMPERATURE."::1660A70ĺ:"BRRRRR! IT'S TOO COLD TO COMPUTE!":"PLEASE ENTER A WARMER TEMPERATURE."::1660A1(A32)59::A;" DEGREES F OVE."::"WHEN YOU HAVE DONE THIS, TYPE 'RUN' AND"K;"PRESS 'RETURN'.":@::"WHICH TEMPERATURE UNITS ARE YOU USING?":J" F = FAHRENHEIT":T" C = CELSIUS":^"(C OR F)? ";Q$:hQ$"C"1700rQ$"F"1630|"ENTER TEMPERATUREOMETRIC PRESSURE IN MILLIMETERSOF MERCURY: ";AGA650ĺ:L$::1540`A850ĺ:H$::1540"A1A.13332::A;" MILLIMETERS OF MERCURY = ";(10A1.5)10:28:"KILOPASCALS":1600,160026"YOUR PRESSURE UNITS MUST BE CONVERTED TOONE OF THE ABA1A.1::A;" MILLIBARS = ";A1;" KILOPASCALS":1600r"ENTER BAROMETRIC PRESSURE IN INCHES OF MERCURY: ";AA26ĺ:L$::1500A33ĺ:H$::1500A1A3.3164::A;" INCHES MERCURY = ";(10A1.5)10;" KILOPASCALS":1600."ENTER BAR":x" 4 = KILOPASCALS":=" 5 = NONE OF THE ABOVE":Z"(1, 2, 3, 4, OR 5) ";QwQ1Q5(Q)Qĺ:1420:Q1460,1500,1540,1580,1590"ENTER BAROMETRIC PRESSURE IN MILLIBARS: ";AA800ĺ:L$::1460A1200ĺ:H$::14607C UNITS? ";Q$"<(Q$,1)"N"ė:RF(Q$,1)"Y"ĺ:"YES OR NO, PLEASE.":1330P:5:"YOUR BAROMETRIC PRESSURE READINGS ARE INWHICH OF THE FOLLOWING UNITS?":Z" 1 = MILLIBARS":d" 2 = INCHES OF MERCURY":n" 3 = MILLIMETERS OF MERCURYNVERSION SUBROUTINESW::"ONLY METRIC UNITS WILL BE ACCEPTED BY THIS PROGRAM.":"BAROMETRIC PRESSURE IS IN KILOPASCALS.":("TEMPERATURE AND DEWPOINT ARE IN DEGREES CELSIUS."- 2::"DO YOU NEED TO CONVERT ANY OF YOUR DATA TO METRIA441190!A45A481220+1230"RAIN WITH HIGH WINDS, FOLLOWED WITHIN ONE DAY BY CLEARING, AND IN WINTER, COLDER."1230"CLEARING AND COLDER."::"THANK YOU"::"HAVE A NICE DAY!"255: *** METRIC CO." B1140KL"SUMMER: LIGHT TO MODERATE WINDS, GOOD CHANCE OF RAIN."V"WINTER: RAIN OR SNOW, WITH INCREASING WINDS, OFTEN WILL SET IN WHEN THE"`"BAROMETER BEGINS TO FALL AND THE WIND SETS IN FROM THE N OR NE."t~1280 A411280A42A4410700A46A471040DA41A481100N1140"FAIR WITH SLIGHT TEMPERATURE CHANGES FOR1 TO 2 DAYS."$1140."GOOD CHANCE OF RAIN WITH WIND INCREASINGIN FORCE. HOWEVER RAIN MAY FALL OR NOT FALL FOR SEVERAL DAYSSE PLUS"Mz"DEWPOINT AND TEMPERATURE."::"THIS FORECAST IS 77% ACCURATE."dI11000:I:1300"FAIR. SLIGHT POSSIBILITY OF RAIN IN TWODAYS IF BAROMETER IS RISING RAPIDLY.":"OTHERWISE, FAIR WITH SLIGHTLY RISING TEMPERATURE.".6850 1280*950#41250->10007H1250AR1160K\1250f:90:"THIS FORECAST INFORMATION DEPENDS ON VARIOUS FACTORS, AMONG THE MAIN FACTORS"p"ARE BAROMETRIC PRESSURE AND WIND DIREC- TION."::"YOU WILL BE ASKED TO INPUT THEA8((A3A6)121.92.5)*A80A80`"CUMULUS CLOUDS COULD FORM AT":8);A8;" METERS"I14:J110:" ";:J::I16)"FORECAST"I130:J15:A(16336)(16336):J,I:A2102.6810 A2101.6A2102.6830A2101ROMETRIC PRESSURE ";A2;" KPA":EN:"ALTITUDE(M) TEMPERATURE( C)"lX"--------- ---------------":4{lV1A33.18vC5003000500C;19((((V1))(10))).5(1(V1)));(10V1.5)10V1V13.183CI140:" ";:I:M$"SOUTHEAST":480,M$"SOUTH":480DM$"SOUTHWEST":480WM$"WEST":480jM$"NORTHWEST"90::5:12)"PRESENT WEATHER":5)"WIND ";M$:5)"TEMPERATURE ";A3;" DEGREES C":5)"DEWPOINT ";A6;" DEGREES C"::5)"BA N = 1, NE = 2, E = 3, SE = 4,"::" S = 5, SW = 6, W = 7, NW = 8":]:4:"?";A4::"WHAT IS THE DEWPOINT IN DEGREES CELSIUS?"A6A4330,350,370,390,410,430,450,470JM$"NORTH":480^M$"NORTHEAST":480rM$"EAST":480 (5100-5140)SET UP VALUES FOR MERCURY AND PLOT>ME05200uAA1:PP1:EE1:PEU1:EZK1:SRDS1:JJ1:WW1:ZZ1W200:F1X:G1YTY15140 XM1:YN1:0:100XF1:YG1:M1X:N1Y:3:100F (5200 - 5240)SETUP VALUE FORVENUS AND PLOT HIGH RES,FULL SCREEN, PAGE 2#e (4805-4860)PLOT REFERENCE POINTS AND OUTER 10 DEGREE CIRCLEl3X140:Y96:100X141:Y96:100X248:Y96:100L10Q2136Q2XX1(L1)105.9YY1(L1)105.9FA100L1/$DT1DT04020#DT14060-::Y"ENTER # OF DAYS SINCE JAN 0,1980 ";DEcZ1DE::"ENTER # OF DAYS TO PLOT ";DN::"ENTER # OF DAYS BETWEEN PLOTS ";DADA04800:"0 NOT ALLOWED":4070 4800 INIT5.5Q180W62115%SA1TT.1/<::G:"DO YOU WANT ":r"POINT (0) OR CONTINUOUS(1) PLOTS";TYTY0TY14000:::"DO YOU WANT TO START AT":"A SPECIFIC DATE (0)":"OR THE BEGINNING OF THE YEAR (1) ";DT78A5507.046460.595/P5A5(1E5E5)2;K51E5HU5P5E5ZJ513.6Q180fW51604wJU1TT.19"DISPLAY SATURN ";SAS610825.863E6.0555A6937.541838.425P6A6(1E6E6)2K61E6U6P6E6 J6980 W33EA1TT1.059"DISPLAY MARS ";MAHS4686.980UE4.0934lA4154.936128.471P4A4(1E4E4)2K41E4U4P4E4 J4355.7Q180 W4289 MA1TT.6 "DISPLAY JUPITER ";JU S54332.125E5.04A267.72666.813)P2A2(1E2E2)25K21E2BU2P2E2UJ2131.3Q180bW2140.5sVE1TT1.5"DISPLAY EARTH ";EAS3365.256E3.0167A394.55591.445P3A3(1E3E3)2K31E3U3P3E3J3102.6Q1CTED PLANETS ARE DISPLAYED7"DISPLAY MERCURY ";MEES187.969RE1.0167gA143.40328.597}P1A1(1E1E1)2K11E1U1P1E1J177.1Q180W137.58ME1TT2.3"DISPLAY VENUS ";VES2224.701E2.00681*E1)/2 /  E1=ECCENTRICITY:U1=P1/E1:K1=1/E1f  REM A1=MINIMUM AND MAXIMUM DISTANCE FROM THE SUN  J1=LONGITUDE OF PERIHELION IN RADIANS  W1=DAYS FRON 0 DEGREES TO PERIHELION FOR 1980 TT=SCALING FACTOR TO USE FULL PLOTTING AREA IF SELE04000 ?:; D:"YOU HAVEN'T PICKED THE PLANETS YET"E N::s "CHOOSE THE PLANETS YOU WANT TO DISPLAY"y  "ENTER A 1 FOR YES AND A 0 FOR NO"  (2020-2079) GET SPECITIC VALUES FOR EACH PLANET  S1=ORBITAL PERIOD:P1=A1*(1-EP  FA IS THE RATIO OF X TO Y TO PLOT A CIRCLE AN THE APPLE INSTEAD OF AN OVALa $X1140:Y196o :::: "DO YOU WANT TO DISPLAY" :"THE SAME PLANETS AS YOUR LAST RUN" "Y OR N ";A$ : &A$"N"2000 0A$"Y"1800 :S1TERCLOCKWISE.# DSRD2V1Q2V1/ V1V1JM X(V1)RV:Y(V1)RVFAe "XXTTX1:YYTTY1k ,  (1000)DISPLAY PRIMARY PAGE,SET TEXT MODE 16300,0:16303,0 T1.5708 Q3.14159265 Q26.2831853 VL.99999999 FA2932E RV IS THE RADIUS VECTOR OR DISTANCE FROM THE SUN TO THE PLANETT VPERVEZc V1VVLt V1VVL V1(V(VV1))T3.1415927 V1 IS THE ANGLE THAT THE PLANET LIES FROM THE SUN. THE 0 POINT BEING AT THE RIGHT, INCREASING COUN * SOLAR SYSTEM *8 * SIMULATOR * BU1000fZ (100-110) PLOT X AND Y VALUESodX,Yun (200-300) CALCULATE THE X AND Y PLANET POSITIONSDZ(ZSRD)SRD D IS FOR DAYSBQ(DSRDQ2) RVA(P(1E(B)))          = ";(10A1.5)10;" DEGREES C"%N:"ENTER DEWPOINT IN DEGREES F: ";AX1670::"PRESS ANY KEY TO CONTINUE";:Q$:::"BR DIST ";(DB.5) &DTRTDBA02:24:"TL DIST ";(DT.5);f:17:22:"(0) CHART,(1) GRAPH ";D17:23:"(5) ANOTHER,(2) END ";NA$:A$"0"Ĺ16303,0:590XA(A$):A0590bA$"1"Ĺ16304,0:590lA$"5"100vA$"3"A$"4"A$1)20DTDBRT6RX(RT.50.5):DX(DT.50.5)rB:1,HRX,H:1,H1RX,H1:C:RX,HDX,H:RX,H1DX,H11:21:"0";:5:" ";:7:"100";:14:"200";:21:"300";:25:" ";:29:"400";:36:"500"2:22:"RE DIST ";(RT.5)2:23:FST(FSFS)(220)S r2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "370:a |21:958m ZPZP1| ZP8ZP1 ZP1đ ZP1470 H027550 H150HH2 H250H250 7:H,0H,159:H B2:C3:16304,0H5(ZPDTDBRT 5 "MILES PER HR..............";MP; f ""FEET PER SEC..............";(FS.5)l , 6"REACTION DISTANCE.........";(RT.5) @ J"BRAKING DISTANCE..........";(DB.5) T ^"TOTAL DISTANCE............";(DT.5) hDT:958:"BETWEEN .01 AND 1.0 ";T$> T(T$):T0160Q T.01T1160a FSMP1.467n VVFSFSz RTFST 11:958:"YOUR BRAKES ARE (1) GOOD OR (2) BAD ? ";DB$:DB(DB$):DB1DB2220 DB1DBVV(220) DB2DBVV(217) OUR CAR ? ";MP$:MP(MP$):MP0110q xMP82ĺ:::"TOO BAD YOU GOT A TICKET FOR SPEEDING":Y12000:Y::110 MP0110 MP10Ė5:7:"NOT FAST ENOUGH, TRY AGAIN ":Q11500:Q:958:110 958:4:7:"WHAT IS YOUR REACTION TIME ") 7:9THE SPEED OF YOUR CAR": <7:14:"2) YOUR REACTION TIME"^ F7:16:"3) GOOD OR BAD BRAKES" K6:20:"AVERAGE REACTION IS .75" M P2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "80 ZZP0 d:# n3:5:958:"WHAT IS THE SPEED OF YL9 ::2:2:"CAR STOPING SIMULATION, BY T.PETERSON "Q T140:3:"=";:TZ$" ":H521:H::Z$:H2:7:"THIS PROGRAM WILL SHOW YOUR REACTIONS"(10:9:"AND THE IMPORTANCE OF " 27:12:"1) u VERSION !#$%"#$%*:!sDEGREE INTERVALS1u VERNAL EQUINOX IS TO RIGHTOu AT DOUBLE DOT. PLANETS nu REVOLVE COUNTERCLOCKWISEu THE SUN (DOT AT CENTER).u ORIGINAL PROGRAM FROMu MICRO APPLE 1 BY DAVIDu PARTYKA. WE THINK THE u BUGS ARE OUT OF THIS Z1DEDN7000851003XX279:Y190:100:A$E::Z10:DE0N(5)"WOULD YOU LIKE TO BEGIN THIS PROGRAM":"AGAIN? Y OR N " S$RS$"N"1000\:0u:::::::::::::::::::::::::::::::u BIG OUTER CIRCLE IS STARSu IN 10 F5:YG5:M5X:N5Y:3:100R (5600-5640) SET UP VALUES FOR SATURN AND PLOT aSA06000AA6:PP6:EE6:PEU6:EZK6:SRDS6:JJ6:WW6:ZZ1W200:F6X:G6YTY15640XM6:YN6:0:100XF6:YG6:M6X:N6Y:3:100pZ1Z1DAY1TY15440'6XM4:YN4:0:100G@XF4:YG4:M4X:N4Y:3:100|r (5500-5540) SET UP VALUES FOR JUPITOR AND PLOT|JU05600AA5:PP5:EE5:PEU5:EZK5:SRDS5:JJ5:WW5:ZZ1W200:F5X:G5YTY15540XM5:YN5:0:100XK3:SRDS3:JJ3:WW3:ZZ1W.200:F3X:G3Y=TY15340SXM3:YN3:0:100sXF3:YG3:M3X:N3Y:3:100 (5400-5440) SET UP VALUES FOR JUPITOR AND PLOTMA05500"AA4:PP4::EE4:PEU4:EZK4:SRDS4:JJ4:WW4:ZZ1W,200:F4X:G4 PVE05300IZAA2:PP2:EE2:PEU2:EZK2:SRDS2:JJ2:WW2:ZZ1W\d200:F2X:G2YkiTY15240nXM2:YN2:0:100xXF2:YG2:M2X:N2Y:3:100 (5200-5240) SET UP VALUES FOR EARTH AND PLOT EA05400AA3:PP3:EE3:PEU3:EZ"HELXINE S.-BABY TEARS",1,5,1,1,60JO"IMPATIENS-BUSY LIZZY",2,3,4,4,65mP"PILEA-MOON VALLY",2,5,1,1,60Q "SENECIO R.-STRING-O-BEADS",2,5,1,2,65 R"SCHEFFLERA V.-SCHEFFLERA",2,5,4,2,65S"NEPHROLEPIS-FERN",1,5,1,1,60T"CYNURA S.-VELVE C.-ALUMINUM PLANT",2,4,1,4,65NI "EUPHORBIA S.-CROWN OF THORNS",2,4,4,4,65xJ "RUELIA M.-MONKEY PLANT",2,4,1,1,65K "BEGONIA E.-WATERMELON",2,4,1,4,60L "ACALYPHA-CHENILLE PLANT",2,4,1,4,65M"CYCLAMEN P.-CYCLAMEN FLORIST",2,5,1,2,65#NEA-PONY TAIL PALM",3,5,1,4,65 JC "DRACENA S.-RIBBON PLANT",2,4,1,4,65rD "CISSUS R.-GRAPE IVY",2,4,1,4,65E "SENECIO M-WAX IVY",2,5,4,4,60F "GIBASIS-TAHITIAN BRIDL VEIL",3,5,4,4,60 G "AECHMEA F.-SILVER VASE",2,4,7,4,60H "PILEAY PLANT",3,5,1,4,65 == "SCILLA-SILVER SQUILL",2,4,1,4,60k> "HEMIGRAPHIS-PURPLE WAFFLE",1,3,1,1,65? "ABUTILON-FLOWERING MAPLE",3,5,1,4,60@ "DAVALLIA S.-RABBIT FOT FERN",2,4,1,1,65A "HOWEIA-KENTIA PALM",2,4,1,4,65B "BEAUCARN60/7 "CALATHEA Z.-ZEBRA PLANT",2,4,1,1,65 a8 "PEPEROMIA C.-EMERALD RIPPLE", 2,4,4,4,65 9 "FICUS B.-WEEPING FIG",3,5,4,4,65 : "BOWIEA-CLIMBING ONION",2,4,4,4,60 ; "POLYSCIAS F.-MING ARALIA",3,5,1,4,65< "MIMOSA P.-SENSITIVITEARS",2,4,1,1,60>1 "PILEA M.-ARTILLERY PLANT",2,4,4,1,65 j2 "CRASSULA A.-JADE PLANT",3,5,4,4,60 3 "KALANCHOE",3,5,4,4,604 "CHEVERIA-CHICK & HENS",3,5,2,4,605 "SEDUM-JELLY BEANS",3,5,2,4,60 6 "ZEBRINA-INCH PLANTS",2,4,4,4,SCHEFFLERA-UMBRELLA TEE",2,4,1,4,65M+ "CEROPEGIA-ROSARY VINE",2,4,4,4,65r, "BROMELIAD FAMILY",2,5,7,4,60- "MAMMILLARIA CACTUS",3,5,2,3,60. "RHOEO-MOSES IN THE CRADLE",3,5,1,4,60 / "PODOCARPUS",3, 5,1,4,600 "HELXINE-BABY T1,1,65!$ "COLEUS",3,5,3,4,60 S% "PLECTRANTHUS A.-SWEDISH IVY",2,4,4,4,60 w& "HOYA-WAX VINES",2,4,4,4,60 ' "LITHOPS-STONE PLANTS",3,5,4,3,65( "BEGONIA M.-IRON CROSS",2,4,1,1,60 ) "CALADIUM-ELEPHANT EARS",2,4,1,4,65 #* "&  "CODIAEUM-CROTONS",3,5,3,1,65 R  "CISSUS A.-KANGAROO VIE",2,4,4,4,60 "SAXIFRAGA-STRAWBERRY BEGONIA",3,5,4,4,55 ! "COLUMNEA M.-GOLDFISH",2,4,4,2,65 " "AESCHYNANTHUS-LIPSTICKVINE",2,4,1,1,65# "FITTONIA-NERVE PLANT",2,4, "ADIANTUM R.-MAIDENHAIRFERN",2,4,1,1,65 Z  "PLATYCERIUM-STAG HORNFERN",2,4,7,1,65  "CHRYSALIDOCARPUS-ARECA PALM",2,4,1,4,65  "SPATHIPHYLLUM-WHITE FLAG",2,4,1,4,65  "ASPARAGUS SPRENGERII",2,4,4,4,60  "YUCCA TREE",3,5,4,3,60 LMIEA-PIGGY BACK PLANT",2,4,1,1,60M  "DIZYGOTHECA-FALSE ARALI",2,4,1,4,65w  "HEDERA H.-ENGLISH IVY",2,3,1,4,60  "SAINTPAULIA-AFRICAN VOLET",2,4,1,4,60  "GYNURA-PURPLE PASSION",3,5,1,4,60  "FATSIA-JAPANESE ARALIA",2,4,1,4,55 , GAVE P.-PRINCESS AGAVE",3,5,2,3,65J "MARANTA-PRAYER PLANT",2,4,1,4,60}  "PEPEROMIA O.-BABY RUBBER PLANT",2,4,4,4,65  "FICUS E.-RUBBER TREE",3,5,4,4,65  "CACTUS FAMILY",5,5,2,3,60  "AEONIUM-PINWHEEL SUCCULENTS",2,5,4,3,60"  "TOANDERING JEW",2,4,4,4,60D  "ALOE VERA-MEDICINE PLANT",2,4,4,3,60r  "CHLOROPUYTIUM-SPIDER PLANT",2,4,1,4,60 "DRACENA M.-DRAGON TREE",2,4,1,4,65 "HAWTHORIA P.-PEARLY DOTS",2,4,2,3,60 "SANSEVIERIA T.-SNAKE PLANT",1,4,4,4,65 " "A8 "ARAUCARIA-NORFOLK ISLAND PINE",1,3,1,4,60a "DIFFENBACHIA-DUMBCANE",2,4,4,4,60 "MONSTERA D.-SPLIT LEAF PHILO",2,4,1,4,60 "PHILODENDRON-HEART-LEAF",2,4,1,4,60 "SYNGONIUM P.TRILEAF WONDER",2,4,1,4,60  "TRADESCANTIA-W          "6"A$"7"A$"8"A$"9"590-A$"2"650E::"SAFE DRIVING"KT);" X EARTH"* "NO. OF MOONS: ";P(I,11)S "REV. ABOUT SUN: ";P(I,12);" YEARS"y "ROT. ON AXIS: ";P(I,13);" HRS." "SURFACE AREA: ";P(I,14); " X EARTH" "SURFACE GRAVITY: ";P(I,15);" G" "TILT OF AXIS: ";P(I,16);" DEG." "VOLUM4)) L" -TO CONTINUE, HIT RETURN-";Z$3 V3000S `"ECCENTRICITY OF ORBIT: ";_ jP(I,6) t"ESCAPE VELOCITY: ";P(I,7); ~" MI./SEC." "INCLINATION OF ORBIT: "; P(I,8);" DEG." "LIGHT-MINUTES FROM SUN: ";P(I,9) "MASS: ";P(I,10I "AND PLUTO." 180' 10000 "180M  DISPLAY PLANETARY DATAW 936_ N$e | "ALBEDO: ";P(I,1) "AVE. DIST. FROM SUN: "; $P(I,2);" MILLION MI." ."AVE. ORBITAL SPEED: "; 8P(I,3);" MI./SEC." B"DENSITY: ";P(I, dP(9,17),P$(9) i:936+nI197xJ117CP(I,J)LJ,IWI19bP$(I)iI|"PLANET? ";N$I19N$P$(I)280I"SOLAR PLANETS ARE:"I15P$(I);", ";I:I68P$(I);", ";     TOP,'N'=PLANT NEEDS ?";:(8);:Z$5 (Z$,1)"S"ĀJ (Z$,1)"N"280Y IT12370 :3:"I RECOMMEND THE FOLLOWING PLANTS" :"CODE PLANT" : L1:3000 '" e :j L1t I1T13y 1130:C1I13000\~ C2I23000:I3C32440:I5C33000y I4C42450:I6C43000 C5I73000:C5I83000 I;"-----";A$:QQ1:LL1:L143020  :S$;" THAT'S ALL ";S$" :S$:"'C'=CONT.LIST,'S'=S"3=DRY"("4=ROOM AIR":"5=ANY"::S$K"TWO ATMOSPHERE CODES ";I4,I6iI30I46I60I662305s2280 :"ENTER MIN,MAX ROOM TEMPERATURE ";I7,I8 I7I82305B ` :3:"I RECOMMEND THE FOLLOWING PLANTS"b :"CODE PLANTSUMMER LESS IN WINTER"9z"6=REST PERIOD NEEDED YEARLY"`"7=SPECIAL WATERING NEEDED"::S$"ENTER TWO WATER CODES ";I3,I5I30I38I5822202190:3:S$;"ATMOSPHERE CODES";S$::"1=HUMID""2=HUMID WITHOUT SPRAYING LEAVES":Y":"4=INDIRECT":"5=SUNNY":PS$:"ENTER MIN,MAX CODE FOR YOUR ROOM ";I1,I2kI2I1I10I162110u 2050>:3:S$;"WATER CODES";S$::"1=EVENLY MOIST"R"2=DRY":"3=MODERATE, CAN'T DRY OUT"f"4=MODERATE LET DRY OUT"p"5=MORE IN ENTER ONE OF THE FOLLOWING"::"0=CONTINUE LIST , OR PLANT NUMBER ";ISBI0300cCI1T11000G::::"CODE PLANT":L1L::1060jA$,C1,C2,C3,C4,C5::3:S$;" LIGHT CODES ";S$::"1=SHADE""2=SEMI-SHADY":"3=SEMI-SUNNMID"/C42ĺ"HUMID WITHOUT SPARYING LEAVES"@C43ĺ"DRY"VC44ĺ"ROOM AIR"gC45ĺ"ANY":"TEMPERATURE : ";C5::290:::::"CODE PLANT":L1:I11T1:1130:I1;"-----";A$:LL1L141070$E.:"T"NC32ĺ"DRY "9SC33ĺ"MODERATE, CAN'T DRY OUT"[bC34ĺ"MODERATE LET DRY OUT"lC35ĺ"SEASONAL, MORE IN SUMMER, LESS IN WINTER"vC36ĺ" REST PERIOD NEEDED YEARLY"C37ĺ"SPECIAL WATERING NEEDED":"ATMOSPHERE: ";:C41ĺ"HUI,I110001IT1195%6:+@TJI11I:1130:::A$::"LIGHT : ";lC12ĺ"SHADY";",";C13ĺ"SEMI-SHADY";",";C14ĺ"SEMI-SUNNY";",";C15ĺ"INDIRECT";",";C24ĺ"SUNNY"&0:"WATER: ";:C31ĺ"EVENLY MOIS>16:6:S$:16:26:S$:16:16:"OPTIONS ?";:(8);:I$OI$"S"9999`I$"H"2000qI$"N"230y:"LIST AVAILABLE PLANTS (Y=YES,N=NO) ?";:(8);:I$ (I$,1)"Y"1000(I$,1)"N"255":"PLANT CODE NUMBER ";T PLANT",5,1,1,2,65<U"PANDANUS V.-SCREW PINE",5,1,1,2,65FT185OP17bS$"<*><*><*>"h:5:6);S$;"TERRARIUM 1";S$10:11:"STOP PROGRAM = 'S'"12:8:"PLANT GROWTH NEEDS = 'N'"14:7:"PLANTS FOR YOUR HOME = 'H'"                    EFORE YOU CAN GIVE IT TO ANYONE YOU LIKE YO PROGRAMMER IS NOT RESPONSIBLE FOR ANY ERROR WHAT-SO-EVER EG IF THIS BOMBS YOUR SYSTEM I CANNOT ... I REPAET CANNOT BE SUED!!!PLEASE CORRECT ALL SPELLING ERRORS IN THIS PROGRAMWRST""THEREFORE, FOR A SQUARE ONLY HIT BUTTTON #0 FOUR TIMES. *** IF YOU HEAR MORE THAN ONE BELL PER PLOT THAT MEANS YOU HAVE HELD THE BUTTON DOWN TOO LONG "W$:+ WRITTEN BY BOB SEEMAN TORONTO ONT CANADA THIS PROGRAM IS NOT COPYRIGHTED THERBOUT 100 . TRY TO DRAW YOUR SHAPE AS NEAR TO THE MIDDLE AS POSSIBLE TO AVOID RANGE ERRORS""TO GET AN ACCURATE AREA YOUR LINES SHOULD NOT CROSS WHEN PLOTTING. THE PROGRAM WILL AUTOMATICALLY CONNECT YOU LAST POINT PLOTTED,UPON FINISHING, TO THE VERY FIHAT YOU DRAW THE FLAT END OF."\ "THEN YOU INPUT THE LENGTH THATYOU WANT THE PRISM TO BE" "TO PLOT A POINT CONTROL FLASHING DOT WITH PADDLES . TO PLOT PRESS BUTTON #0. TO END SHAPE PRESS #1"Z "THE LENGTH OF THE PRISM SHOULD NOT BE LONGER THAN A S0 I1C* SSA(I,0)A(I1,1)B SSA(I,0)A(I1,1)H "` ,SSA(I,0)A(I1,1) 6"VOLUME =";.5(S)QQ.01;" SQUARE UNITS" @ I TO LOOK INTO ARRAY JI0C1:A(I,0),A(I,1): "THIS PROGRAM FINDS THE VOLUME OF A PRISM T,1) I1C XOX:YOY8 XA(I,0)20:YA(I,1)QQH I1ēX,Y_ A(I,0),A(I,1)X,Ye  A(1,0)20,A(1,1)QQ 15:"HIT ANY KEY FOR VOLUME":I1200:I:16299,0:16304,0:W$:: A(0,0)0:A(0,1)0:A(C1,0)A(1,0):A(C1,1)A(1,1)(B0)127200 F0:X,Y:208 CC1:A(C,0)X:A(C,1)YE C1170` A(C1,0),A(C1,1)X,Yu I1100::198 X3,Y3X3,Y3:X3,Y3X3,Y3 ::12 "WHAT DEEPNESS FOR THE FIGURE?";QQ 3 A(C,0),A(C,1)A(1,0),A(1A(99,1)4006B0116287:B116287@ :C0G 5g139,0139,190:0,95279,95I127:I101,93::I018:137,I104:3X(((0)10)10)10Y(((1)17925510)10)104(3:X,Y2(B1)127İ150 <IAMETER: "; P(I,5);" MI."$ K " -TO CONTINUE, HIT RETURN-";Z$Y :936:_ y DONATED TO APPLE PI BY JIM DAY OF GRANADA, CALIF ON 7 APRIL 79I25, .4. 90, .1268 "MERCURY", "VENUS", "EARTH"XB "MARS", "SATURN", "JUPITER"{L "URANUS", "NEPTUNE", "PLUTO" SHOW DIAMETER :3:RP(I,5)1200 A03.14161R 140R(A),85R(A)140R(A),85R(A) A 21  "D.5, .8, 160, 14.70 5, 84.02, 10.82, 13, .99? 97.9, 47a .52, 2792, 3.4, 1.58, 28000 .009, 15, 1.8, 250, 17.3 2, 164.8, 15.7, 12, 1.28 28.8, 43 .60, 3671, 2.9, 4, 4000 .249, 3, 17.1, 320, .1$ 0, 248.4, 150, .71, 75100)z .056, 22, 2.5, 79.4, 95.2J 10, 29.46, 10.23, 90, 1.15Z 26.7, 860{ .44, 483, 8.1, 1.34, 88700 .048, 37.6, 1.3, 43.3, 318.4 14, 11.86, 9.85, 125, 2.68 3.1, 1400 .45, 1782, 4.2, 1.27, 29000 .047, 13, .62, 5834, .90, .9#  177, .86C  .30, 93, 18.5, 5.52, 7927\ * .017, 7, 0, 8.3, 1q 4 1, 1, 24, 1, 1 > 23.5, 1 H .15, 141, 15, 3.96, 4200 R .093, 3.1, 1.9, 12.6, .11 \ 2, 1.88, 24.6, .28, .3 f 25.2, .15 p .42, 886, 6, .E: ";P(I,17);" X EARTH" 24F " -TO CONTINUE, HIT RETURN-";Z$R 936:r  .07, 36, 29.8, 5.44, 3030  .206, 2.6, 7, 3.2, .055  0, .24, 1409, .15, .38  28, .06  .59, 67, 21.8, 4.85, 7570  .007, 6.4, 3.4, 6, .82  0  *** PURCHASES ***!*X11G4K80:S40:F10:F20:M0:M90:D30O>:R"HOW MUCH DO YOU WANT TO SPEND ON YOUR OXEN TEAM (200-300)? ";ASA200A300ĺ"NOT POSSIBLE ":850[865\:"YOU HAVE ";700AFBCM1;" DOLLARS LEFT"]HOT" " 3 - FAIRLY FAIR">" 4 - NEED PRACTICE"Z" 5 - SHAKY KNEES":"ENTER ONE OF THE ABOVE -- THE BETTER YOUCLAIM YOU ARE, THE FASTER YOU'LL HAVE TOBE WITH YOUR GUN TO BE SUCCESSFUL. ";D9D95D95D9(D9) 810KED TO ENTER DOLLAR AMOUNTS, DON'T USE A '$'."7:\"PRESS 'RETURN' TO CONTINUE";C$bD124:15)::"GOOD LUCK"::D:::"HOW GOOD OF A SHOT ARE YOU WITH YOUR RIFLE? "" 1 - ACE MARKSMAN"" 2 - GOOD SOUNDS LIKE A GUNSHOT."b" THE FASTER YOU TYPE IN THE WORD AND PRESS THE 'RETURN' KEY, THE BETTER THE CHANCE YOU WILL HAVE OF HITTING YOUR TARGET."/:" AT EACH TURN, ALL ITEMS ARE SHOWN IN DOLLAR AMOUNTS, EXCEPT BULLETS. WHEN YOU ARE AS FORTS ALONG THE WAY WHEN YOU RUN LOW."0" HOWEVER, ITEMS COST MORE AT THE FORTS. YOU CAN ALSO GO HUNTING ALONG THE WAY TO GET MORE FOOD. WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY, YOU WILL BE TOLD TO TYPE IN A WORD THAT SICINE AND OTHER THINGS YOU WILL NEED FOR SICKNESS AND EMERGENCY REPAIRS"e"PRESS 'RETURN' TO CONTINUE";C$:+" YOU CAN SPEND ALL YOUR MONEY BEFORE YOU START YOUR TRIP - OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT AND BANDITS, AND FOR HUNTING FOOD";1"CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD WEATHER YOU WILL ENCOUNTER WHEN CROSSING THE MOUNTAINS"_"MISCELLANEOUS SUPPLIES - THIS INCLUDES MED FASTER YOU WILL GO BECAUSE"Oh" YOU'LL HAVE BETTER ANIMALS"Ur|"FOOD - THE MORE YOU HAVE THE LESS CHANCE THERE IS OF GETTING SICK"+"AMMUNITION - $1 BUYS A BELT OF 50 BULLETS FOR ATTACKS BY ANIMALS TRIP, AND YOU'VE JUST PAID $200 FOR A WAGON"~6"YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE FOLLOWING ITEMS-"@:J"PRESS 'RETURN' TO CONTINUE";C$:&T"OXEN - YOU CAN SPEND $200-$300 ON YOUR TEAM. THE MORE YOU SPEND, THE SIMULATES A TRIP OVER THE OREGON TRAIL FROM INDEPENDENCE, MISSOURI";m"TO OREGON CITY, OREGON IN 1847.""YOUR FAMILY WILL COVER THE 2040 MILE OREGON TRAIL IN 5-6 MONTHS---IF YOU MAKEIT ALIVE!"1""YOU HAVE SAVED $900 TO SPEND FOR THE }" * T R A I L *"L " * *"s " *********************"} :: C$(5) "DO YOU NEED INSTRUCTIONS?(Y/N)";C$ C$"N"690 *INSTRUCTIONS*******F"THIS PROGRAMFOSTER F CITY, MAY/1979< P FOR FULL DOCUMENTATION,SEES Z ORIGINAL ARTICLEb d:::255 i" *********************" n" * *" s" * O R E G O N *" x" * *"%  * PROGRAM MAY BE COPIED*=  * FOR EDUCATIONAL USE *\ * ONLY AND IS NOT TO *{ ! * BE SOLD. * " ************************ ( REWRITTEN FOR APPLE BY TOM BEAL 2 AND TIM IVERSON,STUDENTS OF < BOWDITCH MIDDLE SCHOOL, *4  * 333 MAIN STREET *S  * REDWOOD CITY *r  * CA 94063 *  *(415)364-5600 EX 4401 *  * *  ************************  *  *  ************************ ************************< * *[  * SAN MATEO COUNTY *z  * OFFICE OF EDUCATION *  * *  COMPUTER-USING EDUCATORS  * *  * SOFTSWAP *  * = OREGON TRAIL AUG 1980' F SIMULATES PIONEER WAGON^ TRIP TO THE WESTdy 32K APPLESOFT  DAN RAWITCH CREATIVE COMPUTING  ADAPTED BY TOM BEAL, TIM IVERSON AND KEITH ROLLIN  2 - MODERATELY 3 - WELL ";Ex' E3E3:E1E1`' E(E)' FF(85E)' F02860' FF(85E)' "YOU CAN'T EAT THAT WELL":2750', MM200(A220)5((1)10)(6 L1NE -- FULL BELLIES TONIGHT":&x FF52(1)6L& BB10(1)4V& 2720& "YOU MISSED --- AND YOUR DINNER GOT AWAY."& F132750& 5060& *** EATING ***a' :"DO YOU WANT TO EAT 1 - POORLY M45% 6140% B1226607%( (1)10013B12710G%2 FF482B1%< "NICE SHOT -- RIGHT ON TARGET -- GOOD EATIN' TONIGHT!"%F BB103B1%P 2720%Z *** BELLS IN LINE 2660 ***(&d "RIGHT BETWEEN THE EYES -- YOU GOT A BIG O B(B23P50)"$ "CLOTHING ";,$ 2330:$ CC23PZ$ "MISCELLANEOUS SUPPLIES ";d$ 2330t$ M1M123P$ MM45$ 2720$ *** HUNTING ***$ B392570$ "TOUGH --- YOU NEED MORE BULLETS TO GO HUNTING"$ 2080% M FOOD ";# 2330&# 24107# P:P02400A#. TTPP#8 T02400#B "YOU DO NOT HAVE THAT MUCH MONEY --- KEEPYOUR SPENDING DOWN, YOU MISS YOUR CHANCE TO BUY THAT ITEM"#L TTP#V P0#` #j FF23P#t "AMMUNITION";#~ 2330$:"TOUGH --- YOU NEED MORE BULLETS TO GO HUNTING"I"2170X"X1X1(1)n"X2290,2540,2720" *** STOPPING AT FORT***#"ENTER WHAT YOU WISH TO SPEND ON THE FOLLOWING 3 - CONTINUE":X+!>X221509!HX12150J!RX(X):2270X!fX3:2270!z"DO YOU WANT TO: 1 - HUNT 2 - CONTINUE":X!X12210!X2!XX1!X32260!B392260?"----------------":"MISC. SUPP.","CASH":"-----------","----":M1,T::m "PRESS 'RETURN' TO CONTINUE";QQ$} X112170 X1X1(1)! :"DO YOU WANT TO: 1 - STOP AT NEXT FORT 2 - HUNT DOCTOR BILL WAS $20""K80:S401M912020k"TOTAL MILEAGE IS ";M;" WITH ";2040M;" TO GO":2040"TOTAL MILEAGE IS 950 WITH 1090 TO GO":M90G :"FOOD","BULLETS","CLOTHING":"----","-------","--------":F,B,C::"------------------------0 B0C01810 C00M1018309M10I&F1318500"YOU BETTER DO SOME HUNTING OR BUY FOOD, AND SOON":F(F):B(B):C(C):M1(M1):T(T):M(M):M2MS411950K8119501990TT20:T15080"THE "OCTOBER 25 ";:1720.J"NOVEMBER 8 ";:1720I^"NOVEMBER 22 ";:1720dr"DECEMBER 20 ";:1720"YOU HAVE BEEN ON THE TRAIL TO LONG ----- YOUR FAMILY DIES IN THE FIRST BLIZARD OF THE WINTER":5170"1847"F01770F0B01791720n"JUNE 7 ";:17201"JUNE 21 ";:1720G"JULY 5 ";:1720^"JULY 19 ";:1720v"AUGUST 2 ";:1720"AUGUST 16 ";:1720"AUGUST 31 ";:1720"SEPTEMBER 13 ";:1720"SEPTEMBER 27 ";:1720""OCTOBER 11 ";:17206**D3D31 :"MONDAY ";1D3101300k D31310,1330,1350,1370,1390,1410,1430,1450,1470,1490D3101510,1530,1550,1570,1590,1610,1630,1650,1670,1690"APRIL 12 ";:17202"APRIL 26 ";:1720F"MAY 10 ";:1720Z"MAY 24 ";::F0:B0:C0:M10V~"YOU OVER SPENT -- YOU ONLY HAD $700 TO SPEND. BUY AGAIN":830aBB50:"AFTER ALL YOUR PURCHASES YOU NOW HAVE ";T;" DOLLARS LEFT":"MONDAY, MARCH 29, 1847":1750M20405430 ***SETTING DATE* YOU WANT TO SPEND ON CLOTHING? ";C3860BC01080Z$"IMPOSSIBLE":10308:"HOW MUCH DO YOU WANT TO SPEND ON MISCELLANEOUS SUPPLIES? ";M1LM101130V"IMPOSSIBLE":1080j860:T700AFBCM1tT01170yA0a860::"HOW MUCH DO YOU WANT TO SPEND ON FOOD? ";FC860QF0980h"IMPOSSIBLE":930:"HOW MUCH DO YOU WANT TO SPEND ON AMMUNITION ($1 BUYS 50 BULLETS)? ";B860B01030"IMPOSSIBLE":980*:"HOW MUCH DO*MOUNTAINS*** 7fM9501230E7p(1)109((M10015)212)4860n7z"RUGGED MOUNTAINS!!":(1).1147807"YOU GET LOST --- LOSE TIME LOOKING FOR TRAIL":MM60:48607(1).1148408"WAGON DAMAGED! -- LOSE TIME AND SUPPLIES":M1M15:BB076"HAIL STORM --- SUPPLIES DAMAGED ":MM5(1)10R6BB200:M1M14(1)3\64710j6E16300x6 E346506(1).2563006 47106*(1).563006447106>"HELPFUL INDIANS SHOW YOU WERE TO FIND MORE FOOD":FF14:47107\ ** THE DRAW --- THEY GOT AT YOUR FOOD AND CLOTHES"@5bBB20B1M5lCCB14Z5vFFB18d547105"COLD WEATHER --- BRRRRRRR! --- YOU ";5C224(1)45305"DON'T ";5C115"HAVE ENOUGH CLOTHING TO KEEP YOU WARM ":C1047106630LOTHES":FF30:CC20:MM2020(1):4710V4"WILD ANIMALS ARE ATTACKING!!! ":6140e4B3944104"YOU WERE TO LOW ON BULLETS -- THE WOLVESOVERPOWERED YOU":K81:51204:B1244404D"NICE SHOOTING --- THEY DIDN'T GET MUCH":445025X"SLOW ONT":MM105(1):4710d3|"YOU KILLED A RATTLE SNAKE AFTER IT BIT YOU":BB10:M1M15:M1042803"YOU DIE OF SNAKE-BITE SINCE YOU HAVE NO MEDICINE":517034710*4"WAGON GETS SWAMPED FORDING RIVER -- LOSEFOOD AND C":M1M15:AA20:4710^2"QUICKEST DRAW OUTSIDE OF DODGE CITY!!! --- YOU GOT 'EM!!":47102""THERE WAS A FIRE IN YOUR WAGON -- FOOD AND SUPPLIES DAMAGED ":FF40:BB400:M1M1(1)83:MM15:47103^"LOSE YOUR WAY IN HEAVY FOG --- TIME IS LOSYOU RAN OUT OF BULLETS AND THEY GOT A LOT OF YOUR CASH. YOU NOW HAVE $";(T3100)100n1T(T3100)100x140401B11.541001"YOU GOT SHOT IN THE LEG --- AND THEY TOOK ONE OF YOUR OXEN":K8K812"BETTER HAVE DOC LOOK AT YOUR WOUND0 "UNSAFE WATER -- LOSE TIME LOOKING FOR CLEAN SPRING":MM10(1)2:4710^0(M950449002"HEAVY RAINS -- TIME AND SUPPLIES LOST":FF10:BB500:M1M115:MM10(1)5:47100x"BANDITS ARE ATTACKING !":61400BB20B10B04030Y1"ROKE HER ARM YOU HAD TO STOP AND USE SUPPLIES TO MAKEA SLING"N/MM54(1)a/M1M123(1)k/4710/"OX WANDERS OFF --- SPEND TIME LOOKING FOR IT":MM17:4710/"YOUR SON GETS LOST --- SPEND HALF THE DAY LOOKING FOR HIM":MM10:4710N104220,4290,4340,4560,4610,4670d.L"WAGON BREAKS DOWN -- LOSE TIME AND SUPPPLIES FIXING IT"v.VMM155(1).`M1M18.j4710.t"OX HURTS ITS LEG --- SLOWS YOU DOWN RESTOF WAY".~MM25:AA20.4710=/"BAD LUCK --- YOU DAUGHTER BESS 'RETURN' TO CONTINUE: ";:GLITCH$.- D104- :- J- R1100(1)V- D1D11f-D1164670m-D|-R1D3580-$ 6,11,13,15,17,22,32,35,37,42,44,54,64,69,95-.D1103650-8D13660,3700,3740,3790,3820,3850,3880,3960,4130,4190!.BD1503500N, "THE RIDERS WERE FRIENDY, BUT CHECK FOR POSSIBLE LOSSES ":3550, "THE RIDERS WERE HOSTILE -- CHECK FOR LOSSES , B03550, "YOU RAN OUT OF BULLETS AND GOT MASSACREDBY THE RIDERS":5170, ***SELECTION OF EVENTS*** %- "PR90+ (1).83450/+ BB150:M1M115:34709+ 6140W+ BBB13080:MM25:3140f+ T113370~+ MM15:AA10:3470+* T123410+4 BB100:MM5:3470+R T133430+\ 3470+f MM20+p 3470+z "THEY DID NOT ATTACK!"+ 3550, S40*: BBB14080$*D B11.53170V*N "NICE SHOOTING -- YOU DROVE THEM OFF!":3470f*b B143220*l :"LOUSY SHOT -- YOU GOT KNIFED":K81::"YOU'LL HAVE TO GO SEE OL' DOC BLANCHARD":3470* :"KINDA SLOW WITH YOUR COLT .44":3470+ T1332 3 - CONTINUE 4 - CIRCLE WAGONS":(1).23000o) S51S5w) T1) T11T11) T14T14) T1(T1)) S513330) T113110) MM20:M1M115:BB150:AA40:3470)& T123240*0 610:C10"(@ *** RIDERS ATTACK ***V(J (1)10((M100)272)((M1004)212)13550r(T "RIDERS AHEAD. THEY ";{(^ S50(h (1).82940(r "DON'T ";c)| "LOOK HOSTILE"::"TACTICS":"-------":"1 - RUN 2 - ATTACK E"YOU MUST STOP FOR MEDICAL ATTENTION":M1M110:S41:6440zE"MILD ILNESS --- YOUR MEDICINE CURED YOU":MM5:M1M15E6440E "BAD ILLNESS --- YOU USED YOUR MEDICINE":MM5:M1M12E(M105110E2L114940E<4710ECDH XX=KEY BOARD STROBE:DI .03003003 X B1 = GIVES TIMENDJB1B1.03003003ZDKD9D91mDLB1B1(D9.05)yDMD9D91DD *** ILLNESS SUBROUTINE ***D100(1)1035(E1)6370D100(1)100(404(E1))6410D"SERIOUS ILLNESS ---"=WHAM"C.S((1)41)C<9C="TO SHOOT TYPE ";S$(S)?C>RC@VV0:XX0:B10`CAVV0:XX0qCBXX(16384)CC16368,0:XX1416214CDB1B11:XX1286210CEVVVV1:6210CFVV2ĺ"TRY AGAIN":6209CG VV=NUMBER OF LETTERS USED TO SHOOTNGRATULATIONS"PB:"AND WISHES YOU A PROSPEROUS LIFE AHEAD AT YOUR NEW HOME"VBlB B *** START OF SHOOTING SUBROUTINE ***B"PRESS 'RETURN' TO START SHOOTING";C$BS$(1)"BANG"BS$(2)"BLAM"BS$(3)"POW"C$S$(4)"1847": A A*"FOOD","BULLETS","CLOTHING":"----","-------","--------":(F),(B),(C):"---------------------------------------":"MISC. SUPP.","CASH":"-----------","----"::M1,TB:5):"PRESIDENT JAMES K. POLK SENDS YOU HIS HEARTIEST COUGUST ";D3;" 1847":5920)@D318558207@D3D3155Z@"SEPTEMBER ";D3;" 1847":5920k@D32165860y@D3D3185@"OCTOBER ";D3;" 1847":5920@D32465900@D3D3216@"NOVEMBER ";D3;" 1847":5920@ D3D3246A"DECEMBER ";D3;" "MONDAY ";:5700(?"TUESDAY ";:5700A?"WEDNESDAY ";:5700Y?"THURSDAY ";:5700o?"FRIDAY ";:5700?&"SATURDAY ";:5700?:"SUNDAY ";:5700?DD31245740?ND3D393?X"JULY ";D3;" 1847":5920?lD31555780?vD3D3124@"A--- HOORAY !!!!!"[>r::"A REAL PIONEER !!!!!"a>|q>F9(F914)>D3D314F9>F9F91>F985560>F9F97>"PRESS 'RETURN' TO CONTINUE ";C$>:F95570,5590,5610,5630,5650,5670,5690?, *** FINAL TURN ***/=6F9(2040M2)(MM2)F=@FF(1F9)(85E)L=Jv=T ***BELLS IN LINES 5470,5480***=]::=^"YOU FINALLY ARRIVED AT OREGON CITY":>h"AFTER 2040 LONG MILES OR THE TELEGRAPH CHARGE ":<"WE THANK YOU FOR THIS INFORMATION AND WE ARE SORRY YOU DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON. BETTER LUCK NEXT TIME."::<15):"SINCERELY,"<:2):"THE OREGON CITY CHAMBER OF COMMERCE"<"=STER? (Y/N)";C$A;n:"WOULD YOU LIKE A FANCY FUNERAL? (Y/N)";C$;:"WOULD YOU LIKE US TO INFORM YOUR NEXT OFKIN? (Y/N) ";C$;C$"Y"5310;::"BUT, YOUR AUNT SADIE IN SAINT LOUIS IS REALY WORRIED ABOUT YOU"::5330<"THAT WILL BE $4.50 FD A DOCTOR":51208:"YOU RAN OUT OF MEDICAL SUPPLIES"M:"YOU DIED OF ";\: K815160s:"PNEUMONIA":5170:("INJURIES"::2:<"DUE TO YOUR UNFORTUNATE SITUATION, THEREARE A FEW FORMALITIES WE MUST GO THROUGH ";Z"WOULD YOU LIKE A MINI09VM91:1230x9j"BLIZZARD IN MOUNTAIN PASS -- LOSE TIME AND SUPPLIES":L11:FF25:M1M110:BB300:MM3040(1)9C182(1)6300949409 *** DYING ***9"YOU RAN OUT OF FOOD AND STARVED TO DEATH":51709T0:"YOU CAN'T AFFOR200:MM2030(1):4860M8"THE GOING GETS SLOW":MM45(1).2:F114900\8F114900s8F11:(1).849708"YOU MADE IT THROUGH THE SOUTH PASS --- (THERE WAS NO SNOW)"8$M170049408.F21494088F218B(1).749709LM950123