' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( n Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`TO YOUR COUNTRYPERSONS ":401RCP:RCP0ī680ARCPRT790QRCPRT750:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"ROLLADS IN THE TREASURY":40:680RP0:POL0:RT0:1170RT(RTRCP):440  :L$"HOW MANY SQ. MILES DO YOU WI0kb:L$"FOREIGN INDUSTRY WILL ONLY BUY FARMLAND ":40:L$"BECAUSE FOREST LAND IS UNECONOMICAL ":40lL$"TO STRIP MINE.":40:XX1:550SM(SMSI):RT(RT(SIRSM)):440:L$"HOW MANY RALLODS DO YOU WISH TO ":40:L$"DISTRIBUTE S PER SQ. MILE TO PLANT"+: MORE SOUND}&:L$"HOW MANY SQ. MILES DO YOU WISH TO SELL ":40:L$"TO INDUSTRY ":40:SI:SI0550DSISM1000660N:L$"THINK AGAIN, YOU'VE ONLY ":40:SM1000;:L$" SQ. MILES OF FARM LAND.":40:XX0ī55:FW04909FIG(FW):41:A$;(FW);" FOREIGN WORKERS"jFIG(SM):41:A$;(SM);" SQ. MILES OF LAND"" INDUSTRY WILL BUY LAND FOR":FIGRSM:41:A$;RSM;" RALLODS PER SQ. MILE"" LAND CURRENTLY COSTS ":FIGV9:41:A$;V9;" RALLODSM2000=RSM((1)50150):TP2RSM((1)100300):410[TP4RSM((1)100200)~V9(((1)2)1010):440:550:FIGRT:41:" YEAR IN OFFICE=";YR1:A$;RT;" RALLODS IN THE TREASURY" FIG(CP):41:A$;(CP);" COUNTRYPERSONS"LANT."R:" YOUR GOAL IS TO COMPLETE YOUR 8 YEAR TERM OF OFFICE. GOOD LUCK."24::"HIT ANY KEY TO CONTINUE...";::A$ SOUND HERE6:TP2RT100000:380@TP4RT80000:380JRT(60000(1)1000)|CP((500(1)10(1)10)):ORESTS ETC." "HALF YOUR LAND IS FARMLAND WHICH ALSO HAS EXCELLENT MINERAL CONTENT AND MAY BESOLD TO FORIEGN INDUSTRY FOR STRIP MINING. THEY IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND""50 RALLODS PER SQUARE MILE TO PFROM THE COMMUNAL TREASURY. THE MONETARY SYSTEM IS IN RALLODS. ":TP10220m X14000:X:310 :" EACH PERSON NEEDS 100 RALLODS PER YEARTO SURVIVE. YOUR COUNTRY'S INCOME IS FROM FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT FREFULLY......"::ME1500:ME :"CONGRATULATIONS! YOU'VE BEEN ELECTED PREMIER OF SETATS DESTINU, A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO DECIDE UPON THE COUNTRYS BUDGET AND DISTRIBUTE MONEY TO YOUR"W "COUNTRY'S MEN IEST VERSION."::" 2 OR 3 FO` AVERAGE VERSION."::" 4 TO 999 FOR DIFFICULT VERSION."::" 1000 TO RESTART GAME." C22:"HIT RETURN AFTER ANSWERING QUESTION.":18:7:TP nTP10002630 xTP10140 ::"PLEASE READ THE RULES CAA$" ":! +FIG999A$" ":9 ,FIG99A$" ":Q -FIG9A$" ":c .A$" ": 6::12::" M O N A R C H ":::10:"(C) 1981 BY DYNACOMP":12:"APPLE II VERSION" 7:"HOW MANY TIMES HAVE YOU PLAYED?":::"ENTER 0 OR 1 FOR EAS"P19:T18+Q(100):Q1P:Q(P):Q3 54z#:23::"SPACE TO CONTINUE -- (S) TO SAVE GAME ";:A$::A$" "ı$A$"S"ī1120%35(ME1(L$):(L$,ME,1);:X(16336):X(16336):X15:X:ME:)FIG99999A$" ": *FIG9999         NEW FILE":"2) ADD TO FILE":"3) BEGIN TESTING"::"PRESS NUMBER OF YOUR CHOICE."o ,A$:A(A$):A1A3300 :"FILENAME: ";F$ A1000,2000,3000 :"COMMOM PHRASE: ";CP$ N1 :"QUESTION #";N;:DQ$(N) DQ$(N)""1010 DQ$(Π΍ɠٍԠӠ΍ȍӠ΍ōԠӍ͠ō΍ȍōϠĠŠ00:-24:17::"SONAR CONTACT !!! ":AI,1)0SH(I,1)0D4500(b MOVE NWblSH(I,1)SH(I,1)(SPEED(I).707):SH(I,1)0SH(I,1)0vSH(I,2)SH(I,2)(SPEED(I).707):SH(I,2)0SH(I,2)0ISH(I,1)21,SH(I,2)9:RA(I)(((SXSH(I,1))2(SYSH(I,2))2)):RA(I)50İ480020TN8SH(I,2)SH(I,2)SPEED(I):SH(I,2)110SH(I,2)110B4500P MOVE SWSH(I,1)SH(I,1)(SPEED(I).707):SH(I,1)0SH(I,1)0SH(I,2)SH(I,2)(SH(I,2).707):SH(I,2)110SH(I,2)11045000 MOVE W:SH(I,1)SH(I,1)SPEED(I):SH(:CP$:H(CP$):CP$"*"CP$""7-#H1CP$(CP$,H1)M.#D$;"CLOSE ";F$:':"HIT SPACE BAR TO CONTINUE ";:A$:A$" "10000'DONG."KC 18:12:"SCORE ";(NR(NRNW)100);" %.":X14000:X:23:10000a\ J0N:NT(J)0:JX:"REPEAT DRILL (Y/N)?";:A$:A$"Y"A$"N"7000lAN$:A$"Y"NW0:NR0:3050v(#D$;"OPEN ";F$:D$;"READ ";F$:N:I1N1:DQ$(I),DA$(I):IWNW1:10000:3290M* NRNR1::"VERY GOOD YOU GOT IT RIGHT!!":10000::KS4 9 " 100 %":23:" 0 %";:X123:X:10:"-":X:NN(NR(NRNW)22)23:X23NN1::11:X:" ":X:> 18:4:"YOU GOT ";NR;" RIGHT.":18:8:"YOU GOT ";NW;" WR(1)N)1:LT(JA(J))3220( LT(JA(J))1/ JG :"QUESTION #";K:_ CP$" ";DQ$(L)"?": J1NC:J;") ";DA$(JA(J)):J :"PRESS NUMBER OF CORRECT ANSWER ";  A$:MA(A$):MA1MANC3350 MA:MA(KA)ĺ:"NICE TRY BUT NOT CORRECT.":NC$G :"HOW MANY CHOICES (2-";N;") ?":NC$:NC(NC$):NC2NCN3040O NC[ K1KQq J0N:LT(J)0:J LK:C$"S"3090 L((1)N)1:NT(L)3070  NT(L)1  KA((1)NC)1:JA(KA)L:LT(L)1 J1NC J(KA)3260 JA(J)($:D$;"NOMON I,O,C":10000 .* 90004 1010> 9000H NN1 936:"HOW MANY QUESTIONS (UP TO ";N;" )?";:KQ:KQ1KQNĺ"INVALID ANSWER.":X12000:X:3010 :"PRESS (R) FOR RANDOM (S) FOR SEQUENTIAL":C$:C$"R"C$"S"3020 N)"END"1050$ "ANSWER: ";DA$(N)8 DA$(N)""1030 NN1:NJĺ"FILE FULL. ";J;" QUESTIONS MAX.":"NOW STORING FILE.":1050 1010 D$;"MON I,O,C":30:D$;"WRITE ";F$::N:I1N1:DQ$(I):DA$(I):I:CP$"*"CP$ CP$ $D$;"CLOSE ";F NEW FILE":"2) ADD TO FILE":"3) BEGIN TESTING"::"PRESS NUMBER OF YOUR CHOICE."o ,A$:A(A$):A1A3300 :"FILENAME: ";F$ A1000,2000,3000 :"COMMOM PHRASE: ";CP$ N1 :"QUESTION #";N;:DQ$(N) DQ$(N)""1010 DQ$(  D$(4)60JD$;"OPEN ";F$:D$;"DELETE ";F$:D$;"OPEN ";F$:V2 DRILL<:8:12);"MASTER DRILL"::11);"COPYRIGHT 1982"::10);"APPLE II VERSION":N02000:NdJ200:DA$(J),DQ$(J),NT$(J),JA(9),LT%(J)R :"OPTIONS:":"1) CREATE261,I:I:::ATER LEVEL OF PLAY (1-4) ";:L$:L(L$):L1L450 7:I1PL:13:"NAME OF PLAYER ";I;:CAPT$(PL):13:" ":I <16:15::" GOOD LUCK "::I1500:I F1000 :I2126116:I,9I,152:I:I915213:21,IӠʠˠʍԠӠōŠӍԠӠōŠӍԠӠ΍ΠӍԠӠٍ٠ӍӍٍōӍ΍ȍԠŠčύ΍ՍנˍנˍԠӠŠ̠ƠBABILITY ";PAJ(24):D$;" PR# 0":"PRESS SPACEBAR TO RETURN TO MENU.";`4A$:A$" "2100fHDK11K2BB(IN)(I1)4PTBPN(1P)(IN)WPT0ĺ"UNDERFLOW ERROR":2000hPTPXPXPTuPAPAPTZ$"N"1280I,PT(1745)160ľA$::AN$"N"ĺ"ATTEMPTS","PROBABILITY":PTPX1000000001300 I :"TOTAL PRO0 BL1LINK11#VBBIL-`LL14jINtPABPN(1P)(K1N)q~PA0ĺ"UNDERFLOW ERROR":2000~K1K2ĺK1K2ĺ"THE PROBABILITY OF EVENT # ";N;" OCCURRING":"ON ATTEMPT # ";K1;" IS ";PAK1K22000Z$"Y"ĺK1,PAI"1060:D$;"PR#1"::"PASCAL PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTS ";P:"NUMBER OF SUCCESSES DESIRED ";N:"MINIMUM NUMBER OF EVENTS ";K1:"MAXIMUM NUMBER OF EVENTS ";K2:$Z$"Y"ė::"ATTEMPTS","PROBABILITY":8N1K1N114R. MIN IS LARGER THAN MAX. REENTER.":990K1Nĺ"NOTE - MIN # OF ATTEMPTS (";K1;")":"AUTOMATICALLY INCREASED TO ";N:K1NK1K2Z$"N":1030"DO YOU WANT A TABLE (Y/N)?";Z$:Z$"Y"Z$"N"1020Z$"N"ĺ:"COMPUTING"AN$"Y2000,:" PASCAL PROBABILITY"::B1Z"PROBABILITY OF INDIVIDUAL EVENTS? ";P:P0P1ĺ"ERROR. PROBABILITY MUST BE BETWEEN 0-1.":965"INPUT # OF SUCESSES DESIRED ";N:"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:)K1K2ĺ"ERRO>::"ATTEMPT #","PROBABILITY":0HIK1K2ERPAP(1P)(I1)R\PTPTPAcfPAPSPSPA|pPAPS100000000940zZ$"N"930I,PA(1745)160ľA$::AN$"N"ĺ"ATTEMPT #","PROBABILITY":I:"TOTAL PROBABILITY ";PTZ$:Z$"Y"Z$"N"7959Z$"N"ĺ::"COMPUTING"S AN$"Y"ĺ:D$;"PR#1"*AN$"Y"ĺ"GEOMETRIC PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTS = ";P:"MINIMUM NUMBER OF ATTEMPTS = ";K1:"MAXIMUM NUMBER OF ATTEMPTS = ";K2:4Z$"N"840#00"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:K11ĺ"ERROR. LOWEST POSSIBLE NUMBER OF EVENTS IS ONE. REENTER MIN AMD MAX.":760K2K1ĺ"ERROR. MIN IS GREATER THAN MAX. REENTER.":760 K1K2Z$"N":796:"DO YOU WANT A TABLE (Y/N)?";(1745)160ľA$::AN$"N"ĺ"K","P(X=K)":3LX:"TOTAL PROBABILITY ";PT:2000:" GEOMETRIC PROBABILITY"::"PROBABILITY FOR INDIVIDUAL EVENTS? ";P:P0P1ĺ"PROBABILITY MUST BE BETWEEN 0-1. REENTER PROBABILITY. ";:P:75ER OF EVENTS = ";K1:"MAXIMUM NUMBER OF EVENTS = ";K2::Z$"Y"ĺ"K","P(X=K)":\0LK1K2d:P1qDL0620|NI1LXPPAIbIlPP(A)vPPMPMPZ$"N"660L,PPTPTP(PM100000000)P720Z$"N"710,"DO YOU WANT A TABLE (Y/N)?";>Z$::Z$"Y"Z$"N"520fZ$"N"AN$"Y"ĺ:"COMPUTING":551!Z$"N"ĺ:"COMPUTING":560&:AN$"Y"ĺ"K","P(X=K)"::560':D$;"PR#1"O+"POISSON PROBABILITY"::"POISSON CONSTANT= ";A:"MINIMUM NUMB$"Y"ĺD$;"PR#1"/:"TOTAL PROBABILITY ";PA92000^:" POISSON PROBABILITY":"INPUT POISSON CONSTANT ";A:"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:K1K2ĺ"MIN IS GREATER THAN MAX. REENTER.":500K1K2Z$"N":5400 ^::AN$"Y"ĺD$;"PR#1"1 `"K","P(X=K)":< hK1,PAK rIK11K2] |BBI(NI1)v PTBPI(1P)(NI) PT0ĺ"UNDERFLOW ERROR":2000 PAPAPT Z$"N"460 I,PT (1745)160ľA$::AN$"N"ĺ"K","P(X=K)": IAN B1 NK0310 LNK+ IKT1N7 BBILA "LL1H ,Ic 6PABPK1(1P)(NK1) @PA0ĺ"UNDERFLOW ERROR":2000 EAN$"Y"ĺ:D$;"PR#1" JK1K2ĺ"PROBABILITY OF ";K1;" EVENTS = ";PA OK1K22000 TZ$"N"ĺ:"COMPUTING":37S =";P:"NUMBER OF TRIALS = "N:"MINIMUM NUMBER OF EVENTS = ";K1:"MAXIMUM NUMBER OF EVENTS = ";K2:~ AN$"Y"ĺ:D$;"PR#0" K1K2Z$"N":220 "DO YOU WANT A TABLE (Y/N)?"; Z$:Z$"Y"Z$"N"202 KTK1:NKNK1 NKKTKTNK:NKK1. "INPUT MIN AND MAX # OF EVENTS. ";K1,K2:] K2K1ĺ"MAX IS LESS THAN MIN. REDO.":160 K2Nĺ"# OF EVENTS IS GREATER THAN # OF TRIALS.ERROR TERMINATION.":2000d AN$"Y"ĺD$;"PR#1":"BINOMINAL PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTTER COPY (Y/N)?";:AN$:AN$"Y"AN$"N"ĺ"":84K VX120,490,740,960q x:" BINOMIAL PROBABILITY": "PROBABILITY OF INDIVIDUAL EVENTS? ";P: P0P1ĺ"ERROR. PROBABILITY MUST BE BETWEEN 0-1.":130 "INPUT NUMBER OF TRIALS ";N:h :D$(4):"TYPES OF PROBABILITY DISTRIBUTION":O" 1) BINOMIAL"c(" 2) POISSON"y2" 3) GEOMETRIC"<" 4) PASCAL"F::"SELECT NUMBER OF YOUR CHOICE (1-4)?"RA$:X(A$)48:X1X4ĺ"":104 T:"DO YOU WANT LINE PRIN        ":40,* L$"FOREST LAND.":40::2760F* YRYR1:CD0:35:400_*" : SOUND BEFORE ENDt* WA11000:WA:*' 0,1,2,3,4,9999,6,7,8,999,10,9,12,40000,1000,2000,20,3000,5P:40:CP:CP02140C) :L$"HOW MANY WORKERS ":40:FW:FW02140}) :L$"HOW MANY SQ. MILES OF LAND ":40:SM:SM02140) SM20002790) SM1000400 * :L$"COME ON, YOU STARTED WITH 1000 SQ. MILES":40:L$"OF FARM LAND AND 1000 SQ. MILES OF N OFFICE ":40:L$"WHE8 INTERRUPTED ":40:YR>(Z YR02140M(d YR72690(n :L$"COME ON, YOUR TERM IS ONLY ":40:T1;:L$"YEARS.":40::3000:2630( :L$"HOW MUCH DID YOU HAVE IN THE TREASURY ":40:RT:RT02140) :L$"HOW MANY COUNTRYMEN " NEVER THE LESS, IT IS QUITE ":40' L$"ACHIEVEMENT. GOODBYE AND GOOD LUCK. ":40:L$"( YOU'LL NEED IT IF YOU'RE THE TYPE ":40:L$"THAT PLAYS THIS GAME.)":40::2140'F :::8:"RESTART OPTION":::/(K :L$"HOW MANY YEARS HAD YOU BEEN IRE PROCEEDING. I CAN ":40:L$"NOT STAND THE SIGHT OF BLOOD.":40::2140& ::L$" CONGRATULATIONS ! ":40::L$"YOU HAVE SUCESSFULLY COMPLETED YOUR 8 ":40#' L$"YEAR TERM. YOU WERE OF COURSE, VERY ":40:L$"LUCKY, BUTTRYMEN STARVED. THE ":40:L$"PUBLIC IS ENRAGED AND YOU HAVE BEEN ":40% L$"FORCED TO EITHER RESIGN OR COMMIT ":40:L$"SUICIDE. THE CHOICE IS YOURS. IF YOU ":40M& L$"CHOOSE THE LATTER, PLEASE TURN OFF ":40:L$"MY MONITOR BEFOS ":40:L$"DIED SINCE YOU WERE ELECTED. THOSE ":40x$. L$"STILL ALIVE HATE YOUR GUTS. ":40:2090$t :::L$"MONEY WAS LEFT OVER IN THE TREASURY ":40:L$"WHICH YOU DID NOT SPEND. AS A RESULT ":40N% L$"SOME OF YOUR COUNAVE HAD YOUR LEFT ":40:L$"EYE GOUGED OUT.":40::2140#L$"HAVE ALSO GAINED A ":40:L$"VERY BAD REPUTATION.":40::2140# L$"HAVE ALSO BEEN ":40:L$"DECLARED NATIONAL FINK.":40::2140<$$ :L$"OVER ONE THIRD OF THE POPULATION HACC;:L$" COUNTRYPERSONS DIED IN ONE YEAR!":40:":L$"DUE TO EXTREME MISMANAGEMENT YOU HAVE ":40:L$"NOT ONLY BEEN IMPEACHED AND THROWN OUT ":40"L$"OF OFFICE BUT YOU ":40:R2((1)10):R232280"R262300"R2102320;#L$"H ":40=!L$"AS A MAJORITY THEY HAVE REVOLTED AND ":40P!*(1).52130!4L$"YOU HAVE BEEN THROWN OUT OF OFFICE AND ":40:L$"YOU ARE NOW RESIDING IN PRISON.":40::2140!RL$"YOU HAVE BEEN ASSASINATED.":40:!\28501":::3000:::E LOOKING SHABBY DUE TO ":40:L$"SMOG GRIT.":40::3000:1890W CC2002180h CP3282340x FWCP2040 T11YRė:2560 2820!::::L$"THE NUMBER OF FORIEGN WORKERS HAS ":40:L$"EXCEEDED THE NUMBER OF COUNTRYPERSONS.AME BIRD ":40:L$"POPULATION.":40::3000:1890:L$"MINERAL BATHS ARE BEING RUINED BY ":40:L$"WATER POLLUTION.":40::3000:1890:L$"UNPLEASANT SMOG IS DISCOURAGING THE ":40:L$"GIRLS.":40::3000:1890F :L$"HOTELS AR00 FEB," "," ",0+' " "," "," ",-1dMB,20,APPLICATION/PAT,15.002M FEB,20,FOOD,55.47JO FEB,20,METRO,1.30bR FEB,20,FOOD,13.44S FEB,20,CAR MNTNCE,3.39T FEB,20,GAS,5.00U FEB,23,METRO,2.30V FEB,21,THERMOS/RHEA,5.21W FEB,24,GAS,5.00\ FEB,25,INSURANCE/APT,3.98.85  FEB,13,CLEANING,7.00A  FEB,13,CLOTHING/RHEA,23.60_% FEB,13,GIFT/JASON,13.05{* FEB,13,GAS&ELEC,94.704 FEB,14,FOOD,30.006 FEB,14,GAS,5.009 FEB,15,BOOK SHELVES,40.00C FEB,15,METRO,2.30E FEB,17,GAS,5.00H FE FEB,07,TRIP HOME,80.006 FEB,06,RENT,345.00N FEB,06,FOOD,10.58k FEB,08,BOOK/RICH,32.00 FEB,08,PHONE,57.55  FEB,08,MC,25.00 FEB,08,GAS,5.00 FEB,08,PENNEY'S,56.65 FEB,09,METRO,2.30 FEB,13,COMPUTER PMNT,  JAN,25,ALLOWANCE/RHEA,8.004K JAN," "," ",0P FEB,01,TUITION,247.00n FEB,01,CAR MNTNCE,15.00 FEB,03,ALLOWANCE/RHEA,8.00 FEB,02,METRO,2.30 FEB,03,VIOLIN LESSONS,20.00 FEB,04,FOOD,96.97 FEB,05,HAIRDO/RHEA,40.00N TO MENU; 'E' TO EXIT PROGRAM: ";X$3X$"R"1CX$"E"999Ib JAN,01,RENT,345.00~ JAN,01,TUITION,247.00 JAN,15,CAR PAYMENT,165.15 JAN,15,TOYS/PHILIP,9.99 JAN,20,CLOTHING/PHILIP,6.55 JAN,20,CLOTHING/RHEA,23.85HM$A$ī820'M(C$)(N$)ī8204RX(C$)GSYX((N$)1)]WN$(C$,Y)ī820w\A$;4)B$;8)C$;30)DfTTDp820z"-----------------------------------""TOTAL SPENT";30)T990%:::"TYPE THE LETTER 'R' TO RETUR;30)JT9I$S$ĺ"SAVINGS";10)"200.00";20)T;30)STkI$V$ĺ"ENERT'MNT";10)"30.00";20)T;30)VTt990|: "TYPE 1ST 3 LETTERS OF MONTH: ";M$*:"TYPE NAME ('RICH', 'RHEA' OR 'PHILIP'): ";N$/:4A$,B$,C$,D>D1ī89010)"40.00";20)T;30)GTII$U$ĺ"GAS&ELEC";10)"75.00";20)T;30)UT|I$H$ĺ"ALLOWANCE";10)"100.00";20)T;30)HTI$E$ĺ"CLOTHING";10)"50.00";20)T;30)ETI$P$ĺ"PHONE";10)"50.00";20)T;30)PTI$J$ĺ"TOYS";10)"25.00";20)TC$ī650!A$;4)B$;8)C$;30)D+TTD4650_"-----------------------------------""TOTAL SPENT THIS CATEGORY";30)T::"ITEM";10)"BUDGETED";20)"SPENT";30)"DIFF":I$F$ĺ"FOOD";10)"200.00";20)T;30)FTI$G$ĺ"GAS";~G40.00:G$"GAS".U75.00:U$"GAS&ELEC"JH100.00:H$"ALLOWANCE"dE50.00:E$"CLOTHING"{P50.00:P$"PHONE"J25.00:J$"TOYS"S200.00:S$"SAVINGS"V30.00:V$"ENERT'MNT"A$,B$,C$,DD1ī720M$A$ī650I$"+N"TOTAL YEAR-TO-DATE THIS CAT.";30)T4X990:lvv:"TYPE 1ST 3 LETTERS OF SELECTED MONTH: ";M${:"TYPE CATEGORY (FOOD, GAS, GAS&ELEC, ALLOWANCE, CLOTHING, PHONE, TOYS, SAVINGS, ENERT'MNT): ";I$|}F200.00:F$"FOOD"D)100))100 990 H :"TYPE CATEGORY TO BE DISPLAYED: ";I$N ^ A$,B$,C$,Dm D1ī580 (C$)(I$)ī520 X(I$) I$(C$,1,X)ī520 A$;4)B$;8)C$;30)D &TTD :520D"-----------------------------------YPE CATEGORY TO BE DISPLAYED (FOOD, GAS, PHONE, ETC): ";I$@ ZP ^A$,B$,C$,D_ hD1ī440p rM$A$ī350 I$C$ī350 A$;4)B$;8)C$;30)D TTD 350 "-----------------------------------" "TOTAL THIS CATEGORY";30);(((T D1ī280 D0ī2507 A$;4)B$;8)C$;30)DB TTDS A$" "ī280\ 230 "-----------------------------------" ""TOTAL YEAR TO DATE";30)T ,990 J T:"TYPE 1ST 3 LETTERS OF MONTH TO BE DISPLAYED: ";M$:: Y"T$A$ī80 PC$" "ī1303 ZA$;4)B$;8)C$;30)D> dTTDZ i(1489)160ľA$::40h nD0ī130p x50 "-----------------------------------" "TOTAL FOR MONTH";30)T 990 : :"DATE";8)"ITEM";30)"AMOUNT": A$,B$,C$,DPENDER DISPLAY":::"SELECT OPTION 1,2,3,4,5 OR 6: ";I$E X(I$)c X15,225,330,490,620,790 ::"TYPE 1ST 3 LETTERS OF MONTH TO BE DISPLAYED: ";M$  T0 ("DATE";8)"ITEM";30)"AMOUNT": 2A$,B$,C$,D <M$A$ī50 FM-!::::::10)"MENU"::"1. ONE-MONTH DISPLAY"::"2. YEAR-TO-DATE DISPLAY"::"3. ONE-MONTH SELECTED CATEGORY DISPLAY"::"4. YEAR-TO-DATE SELECTED CATEGORY DISPLAY"::"5. BUDGETED VS SPENT DISPLAY"8 :"6. ONE-MONTH SELECTED S      35:1980: POSSIBLE TROUBLE6(RA(1)10:RA21920F:RA41940VDRA61950fNRA81960wXRA101970b1980:L$"FISH POPULATION HAS DWINDLED TO WATER ":40:L$"POLLUTION.":40::3000:18906:L$"AIR POLLUTION IS KILLING GLES OF CROPS MAKING":40::Q((CP10)MH):QQCP10:(Q);:L$" RALLODS.":40:_RT(RTQ)nFW01810TR((FW60)((1)1000))::L$"YOU MADE ":40:(TR);:L$" RALLODS FROM TOURIST":40:" ":L$"TRADE. WELL DONE.":40:RTRTTRPOL999İP)((2000SM)50)(DE2))):CC0CC((1)2010)CC;:L$" COUNTRYPERSONS CAME TO THE COUNTRY. ":40:CP(CPCC):RP01770^ME(1):MH((RP2)ME(RP2))::L$"OF ":40:(RP);:L$" SQ. MILES PLANTED YOU HARVESTED":40::P|MH;:L$" SQ. MIND WAS SOLD TO PROVIDE FUNDS. ":40:SM(SM(RTRSM)):RT0VDE0:SI01520~WC(SI(1)10(1)20):WC1WC0FW01510WCWC10:WC;:L$" WORKERS CAME TO THE COUNTRY AND":40:" ":FW(FWWC):FW1FW02CC(((RCP100C"YOU WERE REQUIRED BY LAW TO SPEND ":40:(DE9);:L$" RALLODS ON FUNERAL EXPENSES.":40:xCDCDDE:CPCPDE:CD1702220: SOUND AT BEGINNING OF STMTRT(RT(DE9)):RT01460B:L$"INSUFFICIENT RESERVES TO COVER COST- ":40:L$"LA@F1((1)(2000SM)):F1(F1(POL25)):DEDEF1:DE01301QF1CPF1CPcPOL9991301:F1;:L$" COUNTRYMEN DIED OF CARBON-MONOXIDE ":40:L$"GAS AND DUST INHALATION.":40:F10:RCP10050ī2340(DE01380-1460bd:L$E.":40:::23::"HIT ANY KEY TO END GAME.";:A$:>1050RT(RTPOL):A4RT:DE(CP(RCP100)):(CP(RCP100))0ė:1260:DE;:L$" COUNTRYPERSONS DIED OF STARVATION. ":40::DE99A499992420POL999DE01400POL0POL1E THIS GAME AT A ":40:L$"LATER TIME, ANSWER 1000 FOR HOW MANY ":40jL$"TIMES YOU'VE PLAYED, AT THE BEGINNING ":40:L$"OF THE NEXT GAME. YOU WILL NEED TO WRITE":40:L$"DOWN THE ABOVE TOTALS TO ENTER WHEN ":404L$"WE CONTINUE THIS GAM0990POLRT1050o:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODS IN THE TREASURY":40:990SI01180$RCP01180.RP011808POL01180B1180I`:L$" GOOD-BYE......":40:440::L$"IF YOU WISH TO CONTINUV9):U1RT970U1RT940y:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODS LEFT IN THE TREASURY":40:800POL0:RT0RTRTU1:440:L$"HOW MANY RALLODS DO YOU WISH TO SPEND ":40:L$"ON POLLUTION CONTROL ":40:POL:POL:RP:RP0ī800!>RPCP2860H:L$"SORRY BUT EACH COUNTRYPERSON CAN ONLY ":40:L$"PLANT 2 SQ. MILES OF FARM LAND":40:800\RPSM1000890f:L$"SORRY BUT YOU'VE ONLY GOT ":40:SM1000:L$"SQ. MILES OF FARM LAND":40:800zU1(RPRSONS ":40 RCP:RCP0ī6800RCPRT790@RCPRT750:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"ROLLADS IN THE TREASURY":40:680RP0:POL0:RT0:1170RT(RTRCP):440 :L$"HOW MANY SQ. MILES DO YOU WISH TO PLANT ":40ABILITY ";PAI(24):D$;" PR# 0":"PRESS SPACEBAR TO RETURN TO MENU.";_4A$:A$" "2100eHD11K2BB(IN)(I1)3PTBPN(1P)(IN)VPT0ĺ"UNDERFLOW ERROR":2000gPTPXPXPTtPAPAPTZ$"N"1280I,PT(1745)160ľA$::AN$"N"ĺ"ATTEMPTS","PROBABILITY":PTPX1000000001300 I :"TOTAL PROBBL1LINK11"VBBIL,`LL13jIMtPABPN(1P)(K1N)p~PA0ĺ"UNDERFLOW ERROR":2000}K1K2ĺK1K2ĺ"THE PROBABILITY OF EVENT # ";N;" OCCURRING":"ON ATTEMPT # ";K1;" IS ";PAK1K22000Z$"Y"ĺK1,PAIK"1060:D$;"PR#1"::"PASCAL PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTS ";P:"NUMBER OF SUCESSES DESIRED ";N:"MINIMUM NUMBER OF EVENTS ";K1:"MAXIMUM NUMBER OF EVENTS ";K2:$Z$"Y"ė::"ATTEMPTS","PROBABILITY":8N1K1N1140R. MIN IS LARGER THAN MAX. REENTER.":990K1Nĺ"NOTE - MIN # OF ATTEMPTS (";K1;")":"AUTOMATICALLY INCREASED TO ";N:K1NK1K2Z$"N":1030"DO YOU WANT A TABLE (Y/N)?";Z$:Z$"Y"Z$"N"1020Z$"N"ĺ:"COMPUTING"AN$"Y2000,:" PASCAL PROBABILITY"::B1Z"PROBABILITY OF INDIVIDUAL EVENTS? ";P:P0P1ĺ"ERROR. PROBABILITY MUST BE BETWEEN 0-1.":965"INPUT # OF SUCESSES DESIRED ";N:"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:)K1K2ĺ"ERRO>::"ATTEMPT #","PROBABILITY":0HIK1K2ERPAP(1P)(I1)R\PTPTPAcfPAPSPSPA|pPAPS100000000940zZ$"N"930I,PA(1745)160ľA$::AN$"N"ĺ"ATTEMPT #","PROBABILITY":I:"TOTAL PROBABILITY ";PTZ$:Z$"Y"Z$"N"7959Z$"N"ĺ::"COMPUTING"S AN$"Y"ĺ:D$;"PR#1"*AN$"Y"ĺ"GEOMETRIC PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTS = ";P:"MINIMUM NUMBER OF ATTEMPTS = ";K1:"MAXIMUM NUMBER OF ATTEMPTS = ";K2:4Z$"N"840#00"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:K11ĺ"ERROR. LOWEST POSSIBLE NUMBER OF EVENTS IS ONE. REENTER MIN AMD MAX.":760K2K1ĺ"ERROR. MIN IS GREATER THAN MAX. REENTER.":760 K1K2Z$"N":796:"DO YOU WANT A TABLE (Y/N)?";(1745)160ľA$::AN$"N"ĺ"K","P(X=K)":3LX:"TOTAL PROBABILITY ";PT:2000:" GEOMETRIC PROBABILITY"::"PROBABILITY FOR INDIVIDUAL EVENTS? ";P:P0P1ĺ"PROBABILITY MUST BE BETWEEN 0-1. REENTER PROBABILITY. ";:P:75ER OF EVENTS = ";K1:"MAXIMUM NUMBER OF EVENTS = ";K2::Z$"Y"ĺ"K","P(X=K)":\0LK1K2d:P1qDL0620|NI1LXPPAIbIlPP(A)vPPMPMPZ$"N"660L,PPTPTP(PM100000000)P720Z$"N"710,"DO YOU WANT A TABLE (Y/N)?";>Z$::Z$"Y"Z$"N"520fZ$"N"AN$"Y"ĺ:"COMPUTING":551!Z$"N"ĺ:"COMPUTING":560&:AN$"Y"ĺ"K","P(X=K)"::560':D$;"PR#1"O+"POISSON PROBABILITY"::"POISSON CONSTANT= ";A:"MINIMUM NUMB$"Y"ĺD$;"PR#1"/:"TOTAL PROBABILITY ";PA92000^:" POISSON PROBABILITY":"INPUT POISSON CONSTANT ";A:"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:K1K2ĺ"MIN IS GREATER THAN MAX. REENTER.":500K1K2Z$"N":5400 ^::AN$"Y"ĺD$;"PR#1"1 `"K","P(X=K)":< hK1,PAK rIK11K2] |BBI(NI1)v PTBPI(1P)(NI) PT0ĺ"UNDERFLOW ERROR":2000 PAPAPT Z$"N"460 I,PT (1745)160ľA$::AN$"N"ĺ"K","P(X=K)": IAN B1 NK0310 LNK+ IKT1N7 BBILA "LL1H ,Ic 6PABPK1(1P)(NK1) @PA0ĺ"UNDERFLOW ERROR":2000 EAN$"Y"ĺ:D$;"PR#1" JK1K2ĺ"PROBABILITY OF ";K1;" EVENTS = ";PA OK1K22000 TZ$"N"ĺ:"COMPUTING":37S =";P:"NUMBER OF TRIALS = "N:"MINIMUM NUMBER OF EVENTS = ";K1:"MAXIMUM NUMBER OF EVENTS = ";K2:~ AN$"Y"ĺ:D$;"PR#0" K1K2Z$"N":220 "DO YOU WANT A TABLE (Y/N)?"; Z$:Z$"Y"Z$"N"202 KTK1:NKNK1 NKKTKTNK:NKK1. "INPUT MIN AND MAX # OF EVENTS. ";K1,K2:] K2K1ĺ"MAX IS LESS THAN MIN. REDO.":160 K2Nĺ"# OF EVENTS IS GREATER THAN # OF TRIALS.ERROR TERMINATION.":2000d AN$"Y"ĺD$;"PR#1":"BINOMINAL PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTTER COPY (Y/N)?";:AN$:AN$"Y"AN$"N"ĺ"":84K VX120,490,740,960q x:" BINOMIAL PROBABILITY": "PROBABILITY OF INDIVIDUAL EVENTS? ";P: P0P1ĺ"ERROR. PROBABILITY MUST BE BETWEEN 0-1.":130 "INPUT NUMBER OF TRIALS ";N:g :D$(4):"TYPES OF PROBABILITY DISTRIBUTION":O" 1) BINOMIAL"c(" 2) POISSON"y2" 3) GEOMETRIC"<" 4) PASCAL"F::"SELECT NUMBER OF YOUR CHOICE (1-4)?"RA$:X(A$)48:X1X4ĺ"":104 T:"DO YOU WANT LINE PRIN            GN INDUSTRY WILL ONLY BUY FARMLAND ":40:L$"BECAUSE FOREST LAND IS UNECONOMICAL ":40lL$"TO STRIP MINE.":40:XX1:550SM(SMSI):RT(RT(SIRSM)):440 :L$"HOW MANY RALLODS DO YOU WISH TO ":40:L$"DISTRIBUTE TO YOUR COUNTRYPE PLANT": MORE SOUNDl&:L$"HOW MANY SQ. MILES DO YOU WISH TO SELL ":40:L$"TO INDUSTRY ":40:SIz:SI0550DSISM1000660N:L$"THINK AGAIN, YOU'VE ONLY ":40:SM1000;:L$" SQ. MILES OF FARM LAND.":40:XX0ī550Zb:L$"FOREIG(FW):41:A$;(FW);" FOREIGN WORKERS"YFIG(SM):41:A$;(SM);" SQ. MILES OF LAND"" INDUSTRY WILL BUY LAND FOR":FIGRSM:41:A$;RSM;" RALLODS PER SQ. MILE"" LAND CURRENTLY COSTS ":FIGV9:41:A$;V9;" RALLODS PER SQ. MILE TO((1)50150):TP2RSM((1)100300):410JTP4RSM((1)100200)mV9(((1)2)1010):440:550:FIGRT:41:" YEAR IN OFFICE=";YR1:A$;RT;" RALLODS IN THE TREASURY"FIG(CP):41:A$;(CP);" COUNTRYPERSONS":FW0490(FIYOUR GOAL IS TO COMPLETE YOUR 8 YEAR TERM OF OFFICE. GOOD LUCK."p24::"HIT ANY KEY TO CONTINUE...";::A$ SOUND HERE6:TP2RT100000:380@TP4RT80000:380JRT(60000(1)1000)|CP((500(1)10(1)10)):SM2000,RSMӺ"HALF YOUR LAND IS FARMLAND WHICH ALSO HAS EXCELLENT MINERAL CONTENT AND MAY BESOLD TO FORIEGN INDUSTRY FOR STRIP MINING. THEY IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND" "50 RALLODS PER SQUARE MILE TO PLANT."A:" TREASURY. THE MONETARY SYSTEM IS IN RALLODS. ":TP10220\ X14000:X:310 :" EACH PERSON NEEDS 100 RALLODS PER YEARTO SURVIVE. YOUR COUNTRY'S INCOME IS FROM FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT FORESTS ETC." ME1500:ME :"CONGRATULATIONS! YOU'VE BEEN ELECTED PREMIER OF SETATS DESTINU, A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO DECIDE UPON THE COUNTRYS BUDGET AND DISTRIBUTE MONEY TO YOUR"F "COUNTRY'S MEN FROM THE COMMUNAL" 2 OR 3 FO` AVERAGE VERSION."::" 4 TO 999 FOR DIFFICULT VERSION."::" 1000 TO RESTART GAME." C22:"HIT RETURN AFTER ANSWERING QUESTION.":18:7:TP nTP10002630 xTP10140 ::"PLEASE READ THE RULES CAREFULLY......"::G999A$" ":( ,FIG99A$" ":@ -FIG9A$" ":R .A$" ": 6::12::" M O N A R C H ":::10:"(C) 1981 BY DYNACOMP":12:"APPLE II VERSION"p 7:"HOW MANY TIMES HAVE YOU PLAYED?":::"ENTER 0 OR 1 FOR EASIEST VERSION."::"P19:T18+Q(100):Q1P:Q(P):Q3 54}#:23::"SPACE TO CONTINUE -- (S) TO SAVE GAME ";:A$::A$"S"1120$(ME1(L$):(L$,ME,1);:X(16336):X(16336):X15:X:ME:)FIG99999A$" ":*FIG9999A$" ": +FI                     AL PROBABILITY ";PAP(24):D$;" PR# 0":"PRESS SPACEBAR TO RETURN TO MENU.";f4A$:A$" "2100lHDIK11K2!BB(IN)(I1):PTBPN(1P)(IN)]PT0ĺ"UNDERFLOW ERROR":2000nPTPXPXPT{PAPAPTZ$"N"1280I,PT(1745)160ľA$::AN$"N"ĺ"ATTEMPTS","PROBABILITY":PTPX1000000001300 I:"TOTN1140BL1LINK11)VBBIL3`LL1:jITtPABPN(1P)(K1N)w~PA0ĺ"UNDERFLOW ERROR":2000K1K2ĺK1K2ĺ"THE PROBABILITY OF EVENT # ";N;" OCCURRING":"ON ATTEMPT # ";K1;" IS ";PAK1K22000Z$"Y"ĺK1,PA R. MIN IS LARGER THAN MAX. REENTER.":990K1Nĺ"NOTE - MIN # OF ATTEMPTS (";K1;")":"AUTOMATICALLY INCREASED TO ";N:K1NK1K2Z$"N":1030"DO YOU WANT A TABLE (Y/N)?";Z$:Z$"Y"Z$"N"1020Z$"N"ĺ:"COMPUTING":1080A2000,:" PASCAL PROBABILITY"::B1Z"PROBABILITY OF INDIVIDUAL EVENTS? ";P:P0P1ĺ"ERROR. PROBABILITY MUST BE BETWEEN 0-1.":965"INPUT # OF SUCESSES DESIRED ";N:"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:)K1K2ĺ"ERRO>::"ATTEMPT #","PROBABILITY":0HIK1K2ERPAP(1P)(I1)R\PTPTPAcfPAPSPSPA|pPAPS100000000940zZ$"N"930I,PA(1745)160ľA$::AN$"N"ĺ"ATTEMPT #","PROBABILITY":I:"TOTAL PROBABILITY ";PTZ$:Z$"Y"Z$"N"7959Z$"N"ĺ::"COMPUTING"S AN$"Y"ĺ:D$;"PR#1"*AN$"Y"ĺ"GEOMETRIC PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTS = ";P:"MINIMUM NUMBER OF ATTEMPTS = ";K1:"MAXIMUM NUMBER OF ATTEMPTS = ";K2:4Z$"N"840#00"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:K11ĺ"ERROR. LOWEST POSSIBLE NUMBER OF EVENTS IS ONE. REENTER MIN AMD MAX.":760K2K1ĺ"ERROR. MIN IS GREATER THAN MAX. REENTER.":760 K1K2Z$"N":796:"DO YOU WANT A TABLE (Y/N)?";(1745)160ľA$::AN$"N"ĺ"K","P(X=K)":3LX:"TOTAL PROBABILITY ";PT:2000:" GEOMETRIC PROBABILITY"::"PROBABILITY FOR INDIVIDUAL EVENTS? ";P:P0P1ĺ"PROBABILITY MUST BE BETWEEN 0-1. REENTER PROBABILITY. ";:P:75ER OF EVENTS = ";K1:"MAXIMUM NUMBER OF EVENTS = ";K2::Z$"Y"ĺ"K","P(X=K)":\0LK1K2d:P1qDL0620|NI1LXPPAIbIlPP(A)vPPMPMPZ$"N"660L,PPTPTP(PM100000000)P720Z$"N"710,"DO YOU WANT A TABLE (Y/N)?";>Z$::Z$"Y"Z$"N"520fZ$"N"AN$"Y"ĺ:"COMPUTING":551!Z$"N"ĺ:"COMPUTING":560&:AN$"Y"ĺ"K","P(X=K)"::560':D$;"PR#1"O+"POISSON PROBABILITY"::"POISSON CONSTANT= ";A:"MINIMUM NUMB$"Y"ĺD$;"PR#1"/:"TOTAL PROBABILITY ";PA92000^:" POISSON PROBABILITY":"INPUT POISSON CONSTANT ";A:"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:K1K2ĺ"MIN IS GREATER THAN MAX. REENTER.":500K1K2Z$"N":5400 ^::AN$"Y"ĺD$;"PR#1"1 `"K","P(X=K)":< hK1,PAK rIK11K2] |BBI(NI1)v PTBPI(1P)(NI) PT0ĺ"UNDERFLOW ERROR":2000 PAPAPT Z$"N"460 I,PT (1745)160ľA$::AN$"N"ĺ"K","P(X=K)": IAN B1 NK0310 LNK+ IKT1N7 BBILA "LL1H ,Ic 6PABPK1(1P)(NK1) @PA0ĺ"UNDERFLOW ERROR":2000 EAN$"Y"ĺ:D$;"PR#1" JK1K2ĺ"PROBABILITY OF ";K1;" EVENTS = ";PA OK1K22000 TZ$"N"ĺ:"COMPUTING":37S =";P:"NUMBER OF TRIALS = "N:"MINIMUM NUMBER OF EVENTS = ";K1:"MAXIMUM NUMBER OF EVENTS = ";K2:~ AN$"Y"ĺ:D$;"PR#0" K1K2Z$"N":220 "DO YOU WANT A TABLE (Y/N)?"; Z$:Z$"Y"Z$"N"202 KTK1:NKNK1 NKKTKTNK:NKK1. "INPUT MIN AND MAX # OF EVENTS. ";K1,K2:] K2K1ĺ"MAX IS LESS THAN MIN. REDO.":160 K2Nĺ"# OF EVENTS IS GREATER THAN # OF TRIALS.ERROR TERMINATION.":2000d AN$"Y"ĺD$;"PR#1":"BINOMINAL PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTTER COPY (Y/N)?";:AN$:AN$"Y"AN$"N"ĺ"":84K VX120,490,740,960q x:" BINOMIAL PROBABILITY": "PROBABILITY OF INDIVIDUAL EVENTS? ";P: P0P1ĺ"ERROR. PROBABILITY MUST BE BETWEEN 0-1.":130 "INPUT NUMBER OF TRIALS ";N:n :D$(4):"TYPES OF PROBABILITY DISTRIBUTION":O" 1) BINOMIAL"c(" 2) POISSON"y2" 3) GEOMETRIC"<" 4) PASCAL"F::"SELECT NUMBER OF YOUR CHOICE (1-4)?"RA$:X(A$)48:X1X4ĺ"":104 T:"DO YOU WANT LINE PRINΠӠ΍ٍŠō΍Šōԍؠō΍Š΍٭ōנȠӠ OREST LAND.":40::2760.* YRYR1:CD0:400G*" : SOUND BEFORE END\* WA11000:WA:*' 0,1,2,3,4,9999,6,7,8,999,10,9,12,40000,1000,2000,20,3000,5P/) :L$"HOW MANY WORKERS ":40:FW:FW02140i) :L$"HOW MANY SQ. MILES OF LAND ":40:SM:SM02140{) SM20002790) SM1000400) :L$"COME ON, YOU STARTED WITH 1000 SQ. MILES":40:L$"OF FARM LAND AND 1000 SQ. MILES OF ":40* L$"F"WHEN INTERRUPTED ":40:YR*(Z YR021409(d YR72690(n :L$"COME ON, YOUR TERM IS ONLY ":40:T1;:L$"YEARS.":40::3000:2630( :L$"HOW MUCH DID YOU HAVE IN THE TREASURY ":40:RT:RT02140( :L$"HOW MANY COUNTRYMEN ":40:CP:CP02140IS QUITE ":40' L$"ACHIEVEMENT. GOODBYE AND GOOD LUCK. ":40:L$"( YOU'LL NEED IT IF YOU'RE THE TYPE ":40:L$"THAT PLAYS THIS GAME.)":40::2140'F :::8:"RESTART OPTION":::(K :L$"HOW MANY YEARS HAD YOU BEEN IN OFFICE ":40:L$SUPPLY: ";(FS);" PERSON DAYS":=*0"INVALID ANSWER.":3310HI:NC(NP)NC(NP)I:NCND(I100):FSFS(I100).5?)#2000K)LIE1ıQ)V)[" STATUS REPORT ":IE1)`ND15000ND15000:HA0 *"DATE: ";ND;". CURRENTLY ORBITING PLANET":"VEGA";NP;".":"COLONISTS ABOARD: ";HA:"FOOD SPORT HOW MANY (1 DAY/100 PEOPLE) ":I8(F#A$"F"9070q(P#I(HA)ĺ"YOU ONLY HAVE ";HA;" PEOPLE ABOARD.":9020(Z#HAHAI:NC(NP)NC(NP)I:NDND(I100):FSFS(I100).5(d#2000(n#INC(NP)ĺ"ONLY ";NC(NP);" COLONISTS ON VEGA";NP:90205)x#HAHAI:FSFSHAI:2000p'(#"PRESS TO TRANSPORT TO SURFACE":"PRESS TO TRANSPORT FROM SURFACE":"OF VEGA";NP'2#A$:A$"T"A$"F"9010'6#"PREPARING TO TRANSPORT COLONISTS ":A$"T"ĺ"TO PLANET VEGA";NP:9020'7#"FROM PLANET VEGA";NP'(<#"TRANITP1):UP(NP)UP(NP)P:DP(NP)DP(NP)P:DP(NP)0DP(NP)0Q&UP(NP)0UP(NP)0[&8500&PUA(NP)UA(NP)(ITA1):UA(NP)UA(NP)P:DA(NP)DA(NP)P:UA(NP)0UA(NP)0&DA(NP)0DA(NP)0&8500& NB(NP)NB(NP)2(I((10000NK)))'4!NDND0UH(NP)0!%DH(NP)0UN(NP)0+%8500o%NH(NP)NH(NP)(I((10000NK))):NH(NP)MC(NP)NH(NP)MC(NP)y%8500%PUG(NP)UG(NP)(ITG1):UG(NP)UG(NP)P:DG(NP)DG(NP)P:UG(NP)0UG(NP)0%DG(NP)0DG(NP)0%8500:&PUP(NP)UP(NP)(HOICE.";$$^A$:A$"1"A$"7"80300$c" ";A$b$h"SPEND HOW MANY DAYS (1-300) ";I:I3008040$r(A$)8090,8110,8140,8170,8060,8200$tNA(NP)NA(NP)2(I((10000NK))):8500 %|PUH(NP)UH(NP)(ITH1):UH(NP)UH(NP)P:DH(NP)DH(NP)P:UH(NP)RIENDS WITH NATIVES ";TH;" DAYS":"6) CONSTRUCT PERSONAL ANTI BACTERIA":" UNITS ";0(10000NK);" DAY";E$(NK10000);"/PAIR"$Y"7) CONSTRUCT PERSONAL ANIMAL REPELLENT":" UNITS ";0(10000NK);" DAY";E$(NK10000);"/PAIR"::"PRESS NUMBER OF YOUR CKUH(NP)32000TH3E7NKUH(NP)"J60000::"OPTIONS:"::"1) BUILD LIVING UNITS ";0(10000NK);" DAYS EACH":"2) DESTROY DANGEROUS BACTERIA ";TG;" DAYS":"3) DESTROY TOXIC PLANTS ";TP;" DAYS"#T"4) DESTROY DANGEROUS ANIMALS ";TA;" DAYS":"5) MAKE F:NK100ĺ"INSUFFICIENT MANPOWER FOR ANY OF THE COLONIZING PROCEEDURES.":3310!BTG32000:2E7NKUG(NP)32000TG2E7NKUG(NP)!DTP32000:1E7NKUP(NP)32000TP1E7NKUP(NP)!FTA32000:15E6NKUA(NP)32000TA15E6NKUA(NP)"HTH32000:3E7N30000NK)):7200[ SP(NP)1:UP(NP)DP(NP)(I(20000NK)1)(1)(I(20000NK)):7200 SA(NP)1:UA(NP)DA(NP)(I(20000NK)1)(1)(I(20000NK)):7200 NDNDI:FSFSHAI:"CONDUCTING SURVEY TYPE ";A$:I0900:I:2000Q!@:NKHANC(NP))MS(NP)(I(10000NK)1)(1)(I(10000NK)):7200zJS(NP)MC(NP)(I(20000NK)1)(0)(I(20000NK)):7200SE(NP)1:UE(NP)DE(NP)(I(20000NK)1)(1)(I(20000NK)):7200 SG(NP)1:UG(NP)DG(NP)(I(30000NK)1)(1)(I( OF YOU CHOICE.";-vA$:A$"1"A$"8"70309{" ";A$c"# OF DAYS TO BE SPENT ON SURVEY ";I(A$)7070,7080,7090,7100,7110,7120,7130SH(NP)1:UH(NP)DH(NP)(I(20000NK)1)(1)(I(20000NK)):7200IJB(NP)172008JM(NP0NK);" DAYS"l"5) BACTERIAL DANGER SURVEY: ";0(30000NK);" DAYS":"6) PLANT DANGER SURVEY: ";0(20000NK);" DAYS":"7) ANIMAL DANGER SURVEY: ";0(20000NK);" DAYS"m"8) INTELLIGIENT LIFE DANGER: ";0(20000NK);" DAYS"q:"PRESS NUMBERRSONNEL TO CONDUCT SURVEY":3310=]60000::"OPTIONS:":: b"1) GENERAL LIFE FORM SURVEY: 1 DAY":"2) MAX POPULATION SURVEY: ";0(10000NK);" DAYS":"3) BUILDING MATERIALS SURVEY: ";0(20000NK);" DAYS":"4) GEOLOGICAL DANGER SURVEY: ";0(2000AL DANGER: ";:SE(I)ĺUE(I):6100*AA$O"CURRENT # OF COLONISTS-";NC(I)o"# OF LIVING UNITS-";NH(I)"# OF PERSONAL ANTI-BACTERIA UNITS-";NB(I)"# OF ANIMAL REPELLENT UNITS-";HA(I)3310 X:NKNC(CP)HA:NK100ĺ"INSUFFICIENT PE0)ĺUG(I):6060AA$T"PLANT DANGER: ";:SP(I)(JB(I)LP(I)0)ĺUP(I):6070]AA$"ANIMAL DANGER: ";:SA(I)(JB(I)LA(I)0)ĺUA(I):6080AA$"INTELLIGENT LIFE DANGER: ";:SH(I)(JB(I)LH(I)0)ĺUH(I):6090AA$!"GEOLOGIC)ĺ", INTELLIGIENT LIFE";6JB(I)LG(I)0ĺ"NONE";IJB(I)0ĺAA$;O"MAX POSSIBLE # OF SETTLERS: ";:JM(I)ĺJM(I):6045AA$"MAX POSSIBLE LIVING UNITS: ";:JS(I)ĺJS(I):6050AA$"BACTERIA DANGER: ";:SG(I)(JB(I)LG(I)1:NDND25:FSFSHA25:2005Ip"INFORMATION ON WHICH PLANET (1-4) ?";esA$:A$"1"A$"4"6003qvI(A$)z::"PLANET VEGA";I::"TYPE ";B$(KP(I)):"LIFE FORMS: ";:JB(I)ĭLG(I)ĺ"BACTERIA";:LP(I)ĺ", PLANTS";:LA(I)ĺ", ANIMALS";:LH(IOLONISTS TO/FROM VEGA";NP:"5) EMBARK FOR ANOTHER PLANET"u"6) WAIT FOR EVENT"::"PRESS NUMBER OF YOUR CHOICE.";A$:A$"1"A$"6"5030" ";A$(A$)6000,7000,8000,9000,1000,5500|:12:10::"WAITING.":16:10:"DATE: ";ND:IT"Ā IT1IE05510) (IT)IEIT08 IE05000f 23:1:"PRESS SPACE BAR FOR MAIN MENU.";| A$:A$" "33209:60000::"OPTIONS:"::"1) CONSULT COMPUTER":"2) CONDUCT SURVEY":"3) PROCEED WITH COLONIZING PROCEEDURES":"4) TRANSPORT C"YOUR ENERGY CELLS HAVE EXHAUSTED. YOUR TIME IS UP. THE VEGA SYSTEM HAS A SURVIVING POPULATION OF ";NC(1)NC(2)NC(3)NC(4)::"PRESS FOR NEW GAME, TO STOP." ND15000ľA$:A$"N"A$"S"3304 ND15000A$"N"Ĭ ND15000A$"SILLED ";NK;" COLONIST";E$((NK1)):"ON VEGA";I;"."` LP(I)1RG(I)(ND4)NC(I)NH(I)13300 59980:NC(I)NH(I);" COLONIST";E$(NC(I)NH(I)1);" ON VEGA";I;" DIED":"OF STARVATION.":NC(I)NH(I) NC(I)NH(I)1RB(I)(ND4) I ND15000I)NA(I))):NK0İ59980:NC(I)NC(I)NK:"ANIMALS KILLED ";NK;" COLONIST";E$(NK1);" ON VEGA";I;"." RH(I)(ND50)LH(I)03250 RH(I)(ND50) DH(I)2(1)NC(I)032502 NK(DH(I)(1)NC(I)):NK0İ59980:NC(I)NC(I)NK:"HOSTILE NATIVES KP(I)(1)(NC(I)NH(I))):NK0İ59980:NC(I)NC(I)NK:NK;" COLONIST";E$(NK1);" ON VEGA";I;" DIED OF ":"EATING POISONOUS PLANTS."b RA(I)(ND14)LA(I)03210l RA(I)(ND14)v DA(I)2(1)NC(I)NH(I)NA(I)13210b NK(DA(I)(1)(NC(I)NH(2(1)NC(I)NH(I)NB(I)13130& NK(DG(I)(1)(NC(I)NH(I)NB(I))):NK0İ59980:NC(I)NC(I)NK:NK;" COLONIST";E$(NK1);" ON VEGA";I;" DIED OF DISEASE.": RP(I)(ND9)LP(I)03170D RP(I)(ND9)N DP(I)2(1)NC(I)NH(I)13170X NK(D1)):NK0NH(I)NH(I)NK:NK;"LIVING UNIT";E$(NK1);" DESTROYED." KP(I)3NC(I)NH(I)İ59980:NC(I)NH(I);" COLONIST";E$(NC(I)NH(I)1);" ON VEGA";I;" DIED OF":"LACK OF AIR.":NC(I)NH(I) RG(I)(ND16)LG(I)03130 RG(I)(ND16) DG(I))MS(I)1));" DIED.":NC(I)MS(I)? RE(I)(ND(252I))3070X RE(I)(ND(252I))w DE(I)3(1)NC(I)23070 59980:NK(DE(I)(1)NC(I)2):NC(I)NC(I)NK:C$((1)2);" ON VEGA";I". ";NK:"COLONIST";E$(NK1);" DIED."A NK(NH(I)DE(I)((HA)ė:"YOU HAVE RUN OUT OF FOOD ABOARD SHIP."::"THEN ";HA;" COLONISTS HAVE STARVED.":HA0:59995zND15000İ59980  I14:NC(I)MS(I)İ59980:"POPULATION OF VEGA";I;" EXCEEDS MAXIMUM":"SUPPORTABLE POPULATION.";NC(I)MS(I);" COLONIST";E$((NC(I::" VEGA ";I:NP0750:NP:NPI:NDND2:FSFS2HA:2000 :"YOU ARE ALREADY AT VEGA";I:"PRESS 1 TO CHOOSE ANOTHER PLANET, 2 TO GO TO MAIN MENU."; A$:A$"1"A$"2"1040 A$"1"1000 $5000  IE0 FS0FS0dFS0PERSON DAYS"X "PRELIMINARY SCAN SHOWS 4 PLANETS. PRELIMINARY DATA AS FOLLOWS:"e :I14 "PLANET #";I:"TYPE: ";B$(KP(I)): : "GO TO WHICH PLANET ?"; A$:I(A$):I1I41010@ NPIė:2:10:" PROCEEDING TO PLANET "RE":B$(2)"V: CARBON-DIOXIDE ATMOSPHERE":B$(3)"M: OXYGEN-NITROGEN ATMOSPHERE":C$(0)"EARTHQUAKE":C$(1)"VOLCANIC ERUPTION":AA$" UNKNOWN":E$(0)"S" "ENTERING VEGA SYSTEM. DATE: 0":"COLONISTS ABOARD: 10,000 FOOD SUPPLY: 30,000,000 G(I)(1)5 PKP(I)(1):LP(I)1:P.5LP(I)0:210D DP(I)(1)p PKP(I)(1):LA(I)1:P.7LA(I)0:210 DA(I)(1) PKP(I)(0):LH(I)1:P1LH(I)0:210 DH(I)(1) I B$(0)"L: NO ATMOSPHERE":B$(1)"J: AMMONIA-METHANE ATMOSPHEnI14L xDE(I)(1):MS(I)2500((1)25001):MC(I)MS(I)((1)25001) |I4ĭKP(3)LP(3)3KP(2)LP(2)3KP(1)LP(1)3KP(4)3:LG(4)1:DG(4)(1):LP(4)1:160 ~KP(I)((1)10):KP(I)2KP(I)3 PKP(I)(1):LG(I)1:P.5LG(I)0:210 D?"ZdB$(3),DA(4),DE(4),DG(4),DH(4),DP(4),JB(4),JM(4),JS(4),LA(4),LG(4),LH(4),LP(4),MC(4),MS(4),KP(4),NC(4),NH(4),UG(4),UA(4),UP(4),UH(4),UE(4),JE(4),JG(4),JP(4),JA(4),JH(4),C$(2),SA(4),SE(4),SG(4),SH(4),SP(4),NB(4),E(1),NA(4)iHA10000:FS3E7              RT1050^:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODS IN THE TREASURY":40:990nSI01180$RCP01180.RP011808POL01180B11805`:L$" GOOD-BYE......":40:440::L$"IF YOU WISH TO CONTINUE THIS GAME AT A U1RT940h:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODS LEFT IN THE TREASURY":40:800wPOL0:RT0RTRTU1:440:L$"HOW MANY RALLODS DO YOU WISH TO SPEND ":40:L$"ON POLLUTION CONTROL ":40:POL:POL0990POL>RPCP2860uH:L$"SORRY BUT EACH COUNTRYPERSON CAN ONLY ":40:L$"PLANT 2 SQ. MILES OF FARM LAND":40:800\RPSM1000890f:L$"SORRY BUT YOU'VE ONLY GOT ":40:SM1000:L$"SQ. MILES OF FARM LAND":40:800zU1(RPV9):U1RT970 RCP:RCP0ī680RCPRT790/RCPRT750:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"ROLLADS IN THE TREASURY":40:680RP0:POL0:RT0:1170RT(RTRCP):440 :L$"HOW MANY SQ. MILES DO YOU WISH TO PLANT ":40:RP:RP0ī800ONLY BUY FARMLAND ":40:L$"BECAUSE FOREST LAND IS UNECONOMICAL ":40olL$"TO STRIP MINE.":40:XX1:550SM(SMSI):RT(RT(SIRSM)):440:L$"HOW MANY RALLODS DO YOU WISH TO ":40:L$"DISTRIBUTE TO YOUR COUNTRYPERSONS ":40ORE SOUND[&:L$"HOW MANY SQ. MILES DO YOU WISH TO SELL ":40:L$"TO INDUSTRY ":40:SIi:SI0550~DSISM1000660N:L$"THINK AGAIN, YOU'VE ONLY ":40:SM1000;:L$" SQ. MILES OF FARM LAND.":40:XX0ī550Ib:L$"FOREIGN INDUSTRY WILL (FW);" FOREIGN WORKERS"HFIG(SM):41:A$;(SM);" SQ. MILES OF LAND"" INDUSTRY WILL BUY LAND FOR":FIGRSM:41:A$;RSM;" RALLODS PER SQ. MILE"" LAND CURRENTLY COSTS ":FIGV9:41:A$;V9;" RALLODS PER SQ. MILE TO PLANT" : M2RSM((1)100300):4109TP4RSM((1)100200)\V9(((1)2)1010):440:550:FIGRT:41:" YEAR IN OFFICE=";YR1:A$;RT;" RALLODS IN THE TREASURY"FIG(CP):41:A$;(CP);" COUNTRYPERSONS":FW0490FIG(FW):41:A$;OMPLETE YOUR 8 YEAR TERM OF OFFICE. GOOD LUCK."_24::"HIT ANY KEY TO CONTINUE...";::A$p SOUND HERE6:TP2RT100000:380@TP4RT80000:380JRT(60000(1)1000)|CP((500(1)10(1)10)):SM2000RSM((1)50150):TPIS FARMLAND WHICH ALSO HAS EXCELLENT MINERAL CONTENT AND MAY BESOLD TO FORIEGN INDUSTRY FOR STRIP MINING. THEY IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND" "50 RALLODS PER SQUARE MILE TO PLANT."0:" YOUR GOAL IS TO C. THE MONETARY SYSTEM IS IN RALLODS. ":TP10220K X14000:X:310 :" EACH PERSON NEEDS 100 RALLODS PER YEARTO SURVIVE. YOUR COUNTRY'S INCOME IS FROM FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT FORESTS ETC." "HALF YOUR LAND :"CONGRATULATIONS! YOU'VE BEEN ELECTED PREMIER OF SETATS DESTINU, A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO DECIDE UPON THE COUNTRYS BUDGET AND DISTRIBUTE MONEY TO YOUR"5 "COUNTRY'S MEN FROM THE COMMUNAL TREASURYERSON DAYS":**0"INVALID ANSWER.":3310HI:NCND(I100):FSFS(I100).5/)#2000;)LIE1ıA)Vu)[" STATUS REPORT ":IE1)`ND15000ND15000:HA0 *"DATE: ";ND;". CURRENTLY ORBITING PLANET":"VEGA";NP;".":"COLONISTS ABOARD: ";HA:"FOOD SUPPLY: ";FS;" P(1 DAY/100 PEOPLE) ";I((F#A$"F"9070a(P#I(HA)ĺ"YOU ONLY HAVE ";HA;" PEOPLE ABOARD.":9020(Z#HAHAI:NC(NP)NC(NP)I:NDND(I100):FSFS(I100).5(d#2000(n#INC(NP)ĺ"ONLY ";NC(NP);" COLONISTS ON VEGA";NP:9020%)x#HAHAI:NC(NP)NC(NP)00`'(#"PRESS TO TRANSPORT TO SURFACE":"PRESS TO TRANSPORT FROM SURFACE":"OF VEGA";NP~'2#A$:A$"T"A$"F"9010'6#"PREPARING TO TRANSPORT COLONISTS ";:A$"T"ĺ"TO PLANET VEGA";NP:9020'7#"FROM PLANET VEGA";NP(<#"TRANSPORT HOW MANY z#    Ԡ̴ ȷ $ȸ$ Ӡ̴!$̵$ ȱ$ ȹ $Ӡ̳ ϠРҠ̠ Ҡ̠ ± ̲ ±CC(((RCP100CP)((2000SM)50)(DE2))):CC0CC((1)2010)CC;:L$" COUNTRYPERSONS CAME TO THE COUNTRY. ":40:CP(CPCC):RP01770^ME(1):MH((RP2)ME(RP2))::L$"OF ":40:(RP);:L$" SQ. MILES PLANTED YOU HARVESTED":40::a|- ":40:L$"LAND WAS SOLD TO PROVIDE FUNDS. ":40:SM(SM(RTRSM)):RT0gDE0:SI01520WC(SI(1)10(1)20):WC1WC0FW01510WCWC10:WC;:L$" WORKERS CAME TO THE COUNTRY AND":40:" ":FW(FWWC):FW1FW0C-1460sd:L$"YOU WERE REQUIRED BY LAW TO SPEND ":40:(DE9);:L$" RALLODS ON FUNERAL EXPENSES.":40:xCDCDDE:CPCPDE:CD1702220: SOUND AT BEGINNING OF STMTRT(RT(DE9)):RT01460S:L$"INSUFFICIENT RESERVES TO COVER COSTPOL0POL1QF1((1)(2000SM)):F1(F1(POL25)):DEDEF1:DE01301bF1CPF1CPtPOL9991301:F1;:L$" COUNTRYMEN DIED OF CARBON-MONOXIDE ":40:L$"GAS AND DUST INHALATION.":40:F10:RCP10050ī2340(DE01380CONTINUE THIS GAME.":40:::23::"HIT ANY KEY TO END GAME.";:A$:O1050RT(RTPOL):A4RT:DE(CP(RCP100)):(CP(RCP100))0ė:1260:DE;:L$" COUNTRYPERSONS DIED OF STARVATION. ":40::DE99A499992420POL999DE01400U WISH TO CONTINUE THIS GAME AT A ":40:L$"LATER TIME, ANSWER 1000 FOR HOW MANY ":40jL$"TIMES YOU'VE PLAYED, AT THE BEGINNING ":40:L$"OF THE NEXT GAME. YOU WILL NEED TO WRITE":40:L$"DOWN THE ABOVE TOTALS TO ENTER WHEN ":40EL$"WE 40:POL:POL0990)POLRT1050:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODS IN THE TREASURY":40:990SI01180$RCP01180.RP011808POL01180B1180Z`:L$" GOOD-BYE......":40:440::L$"IF YO800zU1(RPV9):U1RT970.U1RT940:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODS LEFT IN THE TREASURY":40:800POL0:RT0RTRTU1:440:L$"HOW MANY RALLODS DO YOU WISH TO SPEND ":40:L$"ON POLLUTION CONTROL ":SH TO PLANT ":40:RP:RP0ī8002>RPCP2860H:L$"SORRY BUT EACH COUNTRYPERSON CAN ONLY ":40:L$"PLANT 2 SQ. MILES OF FARM LAND":40:800\RPSM1000890f:L$"SORRY BUT YOU'VE ONLY GOT ":40:SM1000:L$"SQ. MILES OF FARM LAND":40:E"4 1:" PLEASE INSERT ANOTHER DISKETTE TO BOOT"d 6(20):(10):"PRESS RETURN TO CONTINUE";A$m @:6X)48 K17KT1670X CH1:CVSTK16:220:C194(B$"RUN"B$"LOAD")B$"B"B$ CH639:220:B$B$(C):CH:1:868:B$:D$;B$:70 C1(CV8):C2CVC18:P1024128C240C1CH:C(P): ,:(12):(5):"THERE IS AN ERROR ON THIS DISKETTA$(A$,2)(A$,1):K(16384):K128āK175:K:K(0):110_ x16368,0:KK176:K1K6190s 1:868:K5Ā "PRESS 'LETTER'YOU WISH TO ";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K4B$"DELETE": B$;:198::K$:K(K$X$ F(1002)::936I P::D$(4):D$"CATALOG":B(37)2:B22B22 ZT0:CH4:CV023:220:C160ĹP1,219:P,T193:P1,221:TT1:SCV dCV:24:A$"TYPE LETTER TO RUN,OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5...."< nB$"RUN":1:(A$,39);:1:2,2721:2,2822:3,2823:3,2924:3,3025:4,3126:4,3227 23:4,3228:5,3229:5,3130:6,3131:6,3032:7,3033:2 <8,2934:8,2835:9,2736:10,1837:21,2637:12,1538:22,2538 F(4);"RUN MASTER DRILL"NWHEN READY TO GO ON";:C ::12:22,251:22,252:21,243:20,244:20,235:19,22610,137:18,217:24,277:9,148:18,198:23,288:7,169:21,309:6,3110:13:5,3211:4,3112:3,30133,2914:2,2815:9:2,2816:1,2717:1,2618:1,2619:2,2720A (     Π΍ɠٍŠҍŠӍԠӠ΍͠ō΍Ǡč΍̍®îϠĠŠ:40&* L$"FOREST LAND.":40::2760@* YRYR1:CD0:35:400Y*" : SOUND BEFORE ENDn* WA11000:WA:*' 0,1,2,3,4,9999,6,7,8,999,10,9,12,40000,1000,2000,20,3000,5PCP:CP02140=) :L$"HOW MANY WORKERS ":40:FW:FW02140w) :L$"HOW MANY SQ. MILES OF LAND ":40:SM:SM02140) SM20002790) SM1000400* :L$"COME ON, YOU STARTED WITH 1000 SQ. MILES":40:L$"OF FARM LAND AND 1000 SQ. MILES OF "CE ":40:L$"WHE8 INTERRUPTED ":40:YR8(Z YR02140G(d YR72690(n :L$"COME ON, YOUR TERM IS ONLY ":40:T1;:L$"YEARS.":40::3000:2630( :L$"HOW MUCH DID YOU HAVE IN THE TREASURY ":40:RT:RT02140 ) :L$"HOW MANY COUNTRYMEN ":40: THE LESS, IT IS QUITE ":40' L$"ACHIEVEMENT. GOODBYE AND GOOD LUCK. ":40:L$"( YOU'LL NEED IT IF YOU'RE THE TYPE ":40:L$"THAT PLAYS THIS GAME.)":40::2140'F :::8:"RESTART OPTION":::)(K :L$"HOW MANY YEARS HAD YOU BEEN IN OFFICEEDING. I CAN ":40:L$"NOT STAND THE SIGHT OF BLOOD.":40::2140& ::L$" CONGRATULATIONS ! ":40::L$"YOU HAVE SUCESSFULLY COMPLETED YOUR 8 ":40' L$"YEAR TERM. YOU WERE OF COURSE, VERY ":40:L$"LUCKY, BUT NEVER STARVED. THE ":40:L$"PUBLIC IS ENRAGED AND YOU HAVE BEEN ":40% L$"FORCED TO EITHER RESIGN OR COMMIT ":40:L$"SUICIDE. THE CHOICE IS YOURS. IF YOU ":40G& L$"CHOOSE THE LATTER, PLEASE TURN OFF ":40:L$"MY MONITOR BEFORE PRO:40:L$"DIED SINCE YOU WERE ELECTED. THOSE ":40r$. L$"STILL ALIVE HATE YOUR GUTS. ":40:2090$t :::L$"MONEY WAS LEFT OVER IN THE TREASURY ":40:L$"WHICH YOU DID NOT SPEND. AS A RESULT ":40H% L$"SOME OF YOUR COUNTRYMEND YOUR LEFT ":40:L$"EYE GOUGED OUT.":40::2140#L$"HAVE ALSO GAINED A ":40:L$"VERY BAD REPUTATION.":40::2140# L$"HAVE ALSO BEEN ":40:L$"DECLARED NATIONAL FINK.":40::21406$$ :L$"OVER ONE THIRD OF THE POPULATION HAS "$" COUNTRYPERSONS DIED IN ONE YEAR!":40:":L$"DUE TO EXTREME MISMANAGEMENT YOU HAVE ":40:L$"NOT ONLY BEEN IMPEACHED AND THROWN OUT ":40"L$"OF OFFICE BUT YOU ":40:R2((1)10):R232280"R262300"R21023205#L$"HAVE HA07!L$"AS A MAJORITY THEY HAVE REVOLTED AND ":40J!*(1).52130!4L$"YOU HAVE BEEN THROWN OUT OF OFFICE AND ":40:L$"YOU ARE NOW RESIDING IN PRISON.":40::2140!RL$"YOU HAVE BEEN ASSASINATED.":40:!\2850+":::3000:::CC;:LING SHABBY DUE TO ":40:L$"SMOG GRIT.":40::3000:1890Q CC2002180b CP3282340r FWCP2040 T11YRė:2560 2820!::::L$"THE NUMBER OF FORIEGN WORKERS HAS ":40:L$"EXCEEDED THE NUMBER OF COUNTRYPERSONS. ":4RD ":40:L$"POPULATION.":40::3000:1890:L$"MINERAL BATHS ARE BEING RUINED BY ":40:L$"WATER POLLUTION.":40::3000:1890:L$"UNPLEASANT SMOG IS DISCOURAGING THE ":40:L$"GIRLS.":40::3000:1890@ :L$"HOTELS ARE LOOKTRPOL999ī19800(RA(1)10:RA21920@:RA41940PDRA61950`NRA81960qXRA101970{b1980:L$"FISH POPULATION HAS DWINDLED TO WATER ":40:L$"POLLUTION.":40::3000:18900:L$"AIR POLLUTION IS KILLING GAME BIMH;:L$" SQ. MILES OF CROPS MAKING":40::Q((CP10)MH):QQCP10:(Q);:L$" RALLODS.":40:pRT(RTQ)FW01810TR((FW60)((1)1000))::L$"YOU MADE ":40:(TR);:L$" RALLODS FROM TOURIST":40:" ":L$"TRADE. WELL DONE.":40:RTRTS IN THE TREASURY":40:990+SI01180<$RCP01180L.RP01180]8POL01180gB1180`:L$" GOOD-BYE......":40:440::L$"IF YOU WISH TO CONTINUE THIS GAME AT A ":40:L$"LATER TIME, ANSWER 1000 FOR HOW MANY":40:jL$"TIMESALLODS LEFT IN THE TREASURY":40:8004POL0:RT0FRTRTU1:440:L$"HOW MANY RALLODS DO YOU WISH TO SPEND ":40:L$"ON POLLUTION CONTROL ":40:POL:POL0990POLRT1050:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODDE::L00:-24:17::"SONAR CONTACT !!! ":MX1SH(I,1)RA(I):X10X10qX2SH(I,1)RA(I):X2150X1150Y1SH(I,2)RA(I):Y10Y10Y2SH(I,2)RA(I):Y1110Y11101:X121,Y19X121,Y29X221,Y29X121,Y29X121,Y29:DE11000:I,1)0SH(I,1)0D4500(b MOVE NWblSH(I,1)SH(I,1)(SPEED(I).707):SH(I,1)0SH(I,1)0vSH(I,2)SH(I,2)(SPEED(I).707):SH(I,2)0SH(I,2)0ISH(I,1)21,SH(I,2)9:RA(I)(((SXSH(I,1))2(SYSH(I,2))2)):RA(I)50İ480020TN8SH(I,2)SH(I,2)SPEED(I):SH(I,2)110SH(I,2)110B4500P MOVE SWSH(I,1)SH(I,1)(SPEED(I).707):SH(I,1)0SH(I,1)0SH(I,2)SH(I,2)(SH(I,2).707):SH(I,2)110SH(I,2)11045000 MOVE W:SH(I,1)SH(I,1)SPEED(I):SH(7000%lAN$:A$"Y"NW0:NR0:3050+v(#D$;"OPEN ";F$:D$;"READ ";F$:N:I1N1:DQ$(I),DA$(I):I:CP$:H(CP$):CP$"*"CP$""-#H1CP$(CP$,H1).#D$;"CLOSE ";F$:'23:1:"HIT SPACE BAR TO CONTINUE ";:A$:A$" "10000'MNR(NRNW)22)23:X23NN1::11:X:" ":X:u> 18:4:"YOU GOT ";NR;" RIGHT.":18:8:"YOU GOT ";NW;" WRONG."C 18:12:"SCORE ";(NR(NRNW)100);" %.":X12000:X\ J0N:NT(J)0:JX16:18:"REPEAT DRILL (Y/N)?";:A$:A$"Y"A$"N"NUMBER OF CORRECT ANSWER ";= A$:MA(A$):MA1MANC3350 MA:MA(KA)ĺ:"NICE TRY BUT NOT CORRECT.":NWNW1:10000:3340* NRNR1::"VERY GOOD YOU GOT IT RIGHT!!":10000::K4 19 " 100 %":23:" 0 %";:X123:X:10:"-":X:NN(L)1)  KA((1)NC)1:JA(KA)L:LT(L)15 J1NCF J(KA)3260l JA(J)((1)N)1:LT(JA(J))3220| LT(JA(J))1 J :"QUESTION #";K: CP$" ";DQ$(L)"?": J1NC:J;") ";DA$(JA(J)):J 20:1:SP14:B$:SP:20:1:"PRESS :"(R) FOR RANDOM (S) FOR SEQUENTIAL? ";J C$:C$"R"C$"S"3030R C$x :"HOW MANY CHOICES (2-";N;")?"; NC$:NC(NC$):NC2NCN3045 NC K1KQ J0N:LT(J)0:J LK:C$"S"3090 L((1)N)1:NT(L)3070  NT(D$;"WRITE ";F$::N:I1N1:DQ$(I):DA$(I):I:CP$"*"CP$E CP$Y $D$;"CLOSE ";F$_ .i 9000s 1010} 9000 NN1 936:"HOW MANY QUESTIONS (UP TO ";N;") ";:KQ$ KQ(KQ$):KQ1KQNĺ:"INVALID ANSWER.":X11200:X:3010,,3000# :"COMMOM PHRASE: ";CP$+ N1J :"QUESTION #";N;:DQ$(N)^ DQ$(N)""1010u DQ$(N)"END"1050 "ANSWER: ";DA$(N) DA$(N)""1030 NN1:NJĺ"FILE FULL. ";J;" QUESTIONS MAX.":"NOW STORING FILE.":1050 1010< 30:)800:J(ME180):J200J200J dDA$(J),DQ$(J),NT$(J),JA(9),LT(J),NT(J) :"OPTIONS:":"1) CREATE NEW FILE":"2) ADD TO FILE":"3) BEGIN TESTING"::"PRESS NUMBER OF YOUR CHOICE." ,A$:A(A$):A1A3300 :"FILENAME: ";F$ A1000,2000: D$(4):B$" "B60wD$;"OPEN ";F$:D$;"DELETE ";F$:D$;"OPEN ";F$:2 DRILL<:8:12);"MASTER DRILL"::11);"COPYRIGHT 1982"::10);"APPLE II VERSION":N02000:N _J200:ME(116)256(115     I):I:CP$:H(CP$):CP$"*"CP$""<-#H1CP$(CP$,H1)R.#D$;"CLOSE ";F$:':"HIT SPACE BAR TO CONTINUE ";:A$:A$" "10000'D;" WRONG."PC 18:12:"SCORE ";(NR(NRNW)100);" %.":X14000:X:23:10000f\ J0N:NT(J)0:JX:"REPEAT DRILL (Y/N)?";:A$:A$"Y"A$"N"7000lAN$:A$"Y"NW0:NR0:3050v#(#D$;"OPEN ";F$:D$;"READ ";F$:N:I1N1:DQ$(I),DA$(T.":NWNW1:10000:3290R* NRNR1::"VERY GOOD YOU GOT IT RIGHT!!":10000::KX4 9 " 100 %":23:" 0 %";:X123:X:10:"-":X:NN(NR(NRNW)22)23:X23NN1::11:X:" ":X: > 18:4:"YOU GOT ";NR;" RIGHT.":18:8:"YOU GOT ";NW)((1)N)1:LT(JA(J))3220- LT(JA(J))14 JL :"QUESTION #";K:d CP$" ";DQ$(L)"?": J1NC:J;") ";DA$(JA(J)):J :"PRESS NUMBER OF CORRECT ANSWER ";  A$:MA(A$):MA1MANC3350 MA:MA(KA)ĺ:"NICE TRY BUT NOT CORREC C$L :"HOW MANY CHOICES (2-";N;") ?":NC$:NC(NC$):NC2NCN3040T NC` K1KQv J0N:LT(J)0:J LK:C$"S"3090 L((1)N)1:NT(L)3070  NT(L)1  KA((1)NC)1:JA(KA)L:LT(L)1 J1NC J(KA)3260 JA(JE ";F$:D$;"NOMON I,O,C":10000% ./ 90009 1010C 9000M NN1 936:"HOW MANY QUESTIONS (UP TO ";N;" )?";:KQ:KQ1KQNĺ"INVALID ANSWER.":X12000:X:3010 :"PRESS (R) FOR RANDOM (S) FOR SEQUENTIAL":C$:C$"R"C$"S"3020DQ$(N)"END"1050) "ANSWER: ";DA$(N)= DA$(N)""1030 NN1:NJĺ"FILE FULL. ";J;" QUESTIONS MAX.":"NOW STORING FILE.":1050 1010 D$;"MON I,O,C":30:D$;"WRITE ";F$::N:I1N1:DQ$(I):DA$(I):I:CP$"*"CP$ CP$ $D$;"CLOSREATE NEW FILE":"2) ADD TO FILE":"3) BEGIN TESTING"::"PRESS NUMBER OF YOUR CHOICE."t ,A$:A(A$):A1A3300 :"FILENAME: ";F$ A1000,2000,3000 :"COMMOM PHRASE: ";CP$ N1 :"QUESTION #";N;:DQ$(N) DQ$(N)""1010   D$(4)60JD$;"OPEN ";F$:D$;"DELETE ";F$:D$;"OPEN ";F$:V2 DRILL<:8:12);"MASTER DRILL"::11);"COPYRIGHT 1982"::10);"APPLE II VERSION":N02000:NdJ200:DA$(J),DQ$(J),NT$(J),JA(9),LT(J),NT(J)W :"OPTIONS:":"1) CS IN THE TREASURY":40:990+SI01180<$RCP01180L.RP01180]8POL01180gB1180`:L$" GOOD-BYE......":40:440::L$"IF YOU WISH TO CONTINUE THIS GAME AT A ":40:L$"LATER TIME, ANSWER 1000 FOR HOW MANY":40:jL$"TIMESALLODS LEFT IN THE TREASURY":40:8004POL0:RT0FRTRTU1:440:L$"HOW MANY RALLODS DO YOU WISH TO SPEND ":40:L$"ON POLLUTION CONTROL ":40:POL:POL0990POLRT1050:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLOD":40:L$"PLANT 2 SQ. MILES OF FARM LAND":40:800G\RPSM1000890f:L$"SORRY BUT YOU'VE ONLY GOT ":40:SM1000:L$"SQ. MILES OF FARM LAND":40:800zU1(RPV9):U1RT970U1RT940%:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RIN, YOU'VE ONLY GOT ":40:RT:L$"ROLLADS IN THE TREASURY":40:680^RP0:POL0:RT0:1170tRT(RTRCP):440 :L$"HOW MANY SQ. MILES DO YOU WISH TO PLANT ":40:RP:RP0ī800>RPCP28602H:L$"SORRY BUT EACH COUNTRYPERSON CAN ONLY ":40,lL$"TO STRIP MINE.":40:XX1:550SSM(SMSI):RT(RT(SIRSM)):440:L$"HOW MANY RALLODS DO YOU WISH TO ":40:L$"DISTRIBUTE TO YOUR COUNTRYPERSONS ":40RCP:RCP0ī680RCPRT790RCPRT750D:L$"THINK AGA$"TO INDUSTRY ":40:SI&:SI0550;DSISM1000660N:L$"THINK AGAIN, YOU'VE ONLY ":40:SM1000;:L$" SQ. MILES OF FARM LAND.":40:XX0ī550b:L$"FOREIGN INDUSTRY WILL ONLY BUY FARMLAND ":40:L$"BECAUSE FOREST LAND IS UNECONOMICAL LAND"[" INDUSTRY WILL BUY LAND FOR":FIGRSM:41:A$;RSM;" RALLODS PER SQ. MILE"" LAND CURRENTLY COSTS ":FIGV9:41:A$;V9;" RALLODS PER SQ. MILE TO PLANT": MORE SOUND&:L$"HOW MANY SQ. MILES DO YOU WISH TO SELL ":40:L((1)2)1010):440:550m:FIGRT:41:" YEAR IN OFFICE=";YR1:A$;RT;" RALLODS IN THE TREASURY"FIG(CP):41:A$;(CP);" COUNTRYPERSONS":FW0490FIG(FW):41:A$;(FW);" FOREIGN WORKERS"FIG(SM):41:A$;(SM);" SQ. MILES OF Y KEY TO CONTINUE...";::A$- SOUND HEREH6:TP2RT100000:380`@TP4RT80000:380zJRT(60000(1)1000)|CP((500(1)10(1)10)):SM2000RSM((1)50150):TP2RSM((1)100300):410TP4RSM((1)100200)V9(LD TO FORIEGN INDUSTRY FOR STRIP MINING. THEY IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND" "50 RALLODS PER SQUARE MILE TO PLANT." :" YOUR GOAL IS TO COMPLETE YOUR 8 YEAR TERM OF OFFICE. GOOD LUCK."24::"HIT AN:X:310 :" EACH PERSON NEEDS 100 RALLODS PER YEARTO SURVIVE. YOUR COUNTRY'S INCOME IS FROM FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT FORESTS ETC."u "HALF YOUR LAND IS FARMLAND WHICH ALSO HAS EXCELLENT MINERAL CONTENT AND MAY BESOINU, A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO DECIDE UPON THE COUNTRYS BUDGET AND DISTRIBUTE MONEY TO YOUR" "COUNTRY'S MEN FROM THE COMMUNAL TREASURY. THE MONETARY SYSTEM IS IN RALLODS. ":TP10220 X14000 1000 TO RESTART GAME."W C22:"HIT RETURN AFTER ANSWERING QUESTION.":18:7:TPi dTP1000ī630x xTP10140 ::"PLEASE READ THE RULES CAREFULLY......"::ME1500:ME :"CONGRATULATIONS! YOU'VE BEEN ELECTED PREMIER OF SETATS DEST 6::12::" M O N A R C H ":::10:"(C) 1981 BY DYNACOMP":12:"APPLE II VERSION" 7:"HOW MANY TIMES HAVE YOU PLAYED?":::"ENTER 0 OR 1 FOR EASIEST VERSION."::" 2 OR 3 FOR AVERAGE VERSION."::" 4 TO 999 FOR DIFFICULT VERSION."::"ĠҠ΍ύō̠ӠԠĠ̍čϠĠύɍננΠ׍ōڍ؍ƍÍčԠӠŠР΍:K1K2ĺ"ERROR. MIN IS LARGER THAN MAX. REENTER.":990K1Nĺ"NOTE - MIN # OF ATTEMPTS (";K1;")":"AUTOMATICALLY INCREASED TO ";N:K1NK1K2Z$"N":1030"DO YOU WANT A TABLE (Y/N)?";Z$:Z$"Y"Z$"N"1020B1 Z$"N"ĺ"2000$:"PASCAL PROBABILITY":O"PROBABILITY OF INDIVIDUAL EVENTS ";PP0P1ĺ"ERROR. PROBABILITY MUST BE BETWEEN 0-1.":965"NUMBER OF SUCESSES YOU WISH TO ACHIEVE ";N"MINIMUM AND MIXIMUM NUMBER OF ATTEMPTS. MAX?";K2:"MIN?";K1"ATTEMPT #","PROBABILITY"&HIK1K2;RPAP(1P)(I1)H\PTPTPAYfPAPSPSPArpPAPS100000000940zZ$"N"930I,PALCLC1LC20AN$"N"ľA$::"ATTEMPT #","PROBABILITY":LC0I"THE TOTAL PROBABILITY IS ";PTԠӠŠР΍ĠҠ΍ύō̠ӠԠĠ̍čϠĠύɍננΠ׍ōڍ؍ƍÍčϠĠԍӠҠϠŠĠĠԍ٠Ġ٠ԍԧӠĠN"7000(lAN$:A$"Y"NW0:NR0:3050.v(#D$;"OPEN ";F$:D$;"READ ";F$:N:I1N1:DQ$(I),DA$(I):I:CP$:H(CP$):CP$"*"CP$""-#H1CP$(CP$,H1).#D$;"CLOSE ";F$:'23:1:"HIT SPACE BAR TO CONTINUE ";:A$:A$" "10000'(NR(NRNW)22)23:X23NN1::11:X:" ":X:x> 18:4:"YOU GOT ";NR;" RIGHT.":18:8:"YOU GOT ";NW;" WRONG."C 18:12:"SCORE ";(NR(NRNW)100);" %.":X12000:X\ J0N:NT(J)0:JX16:18:"REPEAT DRILL (Y/N)?";:A$:A$"Y"A$"SS NUMBER OF CORRECT ANSWER ";@ A$:MA(A$):MA1MANC3350 MA:MA(KA)ĺ:"NICE TRY BUT NOT CORRECT.":NWNW1:10000:3340* NRNR1::"VERY GOOD YOU GOT IT RIGHT!!":10000::K4 49 " 100 %":23:" 0 %";:X123:X:10:"-":X:NNNT(L)1,  KA((1)NC)1:JA(KA)L:LT(L)18 J1NCI J(KA)3260o JA(J)((1)N)1:LT(JA(J))3220 LT(JA(J))1 J :"QUESTION #";K: CP$" ";DQ$(L)"?": J1NC:J;") ";DA$(JA(J)):J 20:1:SP14:B$:SP:20:1:"PRE30102 :"(R) FOR RANDOM (S) FOR SEQUENTIAL? ";P C$:C$"R"C$"S"3030X C${ :"HOW MANY CHOICES (2-9)? "; NC$:NC(NC$):NC2NC93045 NC K1KQ J0N:LT(J)0:J LK:C$"S"3090 L((1)N)1:NT(L)3070  30:D$;"WRITE ";F$::N:I1N1:DQ$(I):DA$(I):I:CP$"*"CP$K CP$_ $D$;"CLOSE ";F$e .o 9000y 1010 9000 NN1 936:"HOW MANY QUESTIONS (UP TO ";N;") ";:KQ$ KQ(KQ$):KQ1KQNĺ:"INVALID ANSWER.":X11200:X:0,2000,3000) :"COMMOM PHRASE: ";CP$1 N1P :"QUESTION #";N;:DQ$(N)d DQ$(N)""1010{ DQ$(N)"END"1050 "ANSWER: ";DA$(N) DA$(N)""1030 NN1:NJĺ"FILE FULL. ";J;" QUESTIONS MAX.":"NOW STORING FILE.":1050 1010B )800:J(ME280):J200J200P dJ200:DA$(J),DQ$(J),NT$(J),JA(9),LT(J),NT(J) :"OPTIONS:":"1) CREATE NEW FILE":"2) ADD TO FILE":"3) BEGIN TESTING"::"PRESS NUMBER OF YOUR CHOICE." ,A$:A(A$):A1A3300 :"FILENAME: ";F$ A100 : D$(4):B$" "B60wD$;"OPEN ";F$:D$;"DELETE ";F$:D$;"OPEN ";F$:2 DRILL<:8:12);"MASTER DRILL"::11);"COPYRIGHT 1982"::10);"APPLE II VERSION":N02000:N _J200:ME(116)256(115     S IN THE TREASURY":40:990+SI01180<$RCP01180L.RP01180]8POL01180gB1180`:L$" GOOD-BYE......":40:440::L$"IF YOU WISH TO CONTINUE THIS GAME AT A ":40:L$"LATER TIME, ANSWER 1000 FOR HOW MANY":40:jL$"TIMESALLODS LEFT IN THE TREASURY":40:8004POL0:RT0FRTRTU1:440:L$"HOW MANY RALLODS DO YOU WISH TO SPEND ":40:L$"ON POLLUTION CONTROL ":40:POL:POL0990POLRT1050:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLOD":40:L$"PLANT 2 SQ. MILES OF FARM LAND":40:800G\RPSM1000890f:L$"SORRY BUT YOU'VE ONLY GOT ":40:SM1000:L$"SQ. MILES OF FARM LAND":40:800zU1(RPV9):U1RT970U1RT940%:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RIN, YOU'VE ONLY GOT ":40:RT:L$"ROLLADS IN THE TREASURY":40:680^RP0:POL0:RT0:1170tRT(RTRCP):440 :L$"HOW MANY SQ. MILES DO YOU WISH TO PLANT ":40:RP:RP0ī800>RPCP28602H:L$"SORRY BUT EACH COUNTRYPERSON CAN ONLY P$"*"CP$""&-#H1CP$(CP$,H1)<.#D$;"CLOSE ";F$:z'23:1:"HIT SPACE BAR TO CONTINUE. ";:A$:A$" "10000'D8:12:"SCORE ";(NR(NRNW)100);" %.":X12000:XJ\ J0N:NT(J)0:JX16:18:"REPEAT DRILL (Y/N)?";:A$:A$"Y"A$"N"7000lAN$:A$"Y"NW0:NR0:3050v (#D$;"OPEN ";F$:D$;"READ ";F$:N:I1N1:DQ$(I),DA$(I):I:CP$:H(CP$):C0:3340A* NRNR1::"VERY GOOD YOU GOT IT RIGHT!!":10000::KG4 9 " 100 %":23:" 0 %";:X123:X:10:"-":X:NN(NR(NRNW)22)23:X23NN1::11:X:" ":X:> 18:4:"YOU GOT ";NR;" RIGHT.":18:8:"YOU GOT ";NW;" WRONG."4C 1CP$;  (CP$)(DQ$(L))37ĺ6 " ";DQ$(L);"?":X J1NC:J;") ";DA$(JA(J)):J 20:1:SP14:B$:SP:20:1:"PRESS NUMBER OF CORRECT ANSWER. "; A$:MA(A$):MA1MANC3350 MA:MA(KA)ĺ:"NICE TRY BUT NOT CORRECT.":NWNW1:1000NC K1KQ% J0N:LT(J)0:J: LK:C$"S"3090X L((1)N)1:NT(L)3070d  NT(L)1  KA((1)NC)1:JA(KA)L:LT(L)1 J1NC J(KA)3260 JA(J)((1)N)1:LT(JA(J))3220 LT(JA(J))1 J :"QUESTION #";K: QUESTIONS (UP TO ";N;") ";:KQ$b KQ(KQ$):KQ1KQNĺ:"INVALID ANSWER.":X11200:X:3010 :"(R) FOR RANDOM (S) FOR SEQUENTIAL? "; C$:C$"R"C$"S"3030 C$ :"HOW MANY CHOICES (2-9)?"; NC$:NC(NC$):NC2NCN3045 1030Q NN1:NJĺ"FILE FULL. ";J;" QUESTIONS MAX.":"NOW STORING FILE.":1050[ 1010 30:D$;"WRITE ";F$::N:I1N1:DQ$(I):DA$(I):I:CP$"*"CP$ CP$ $D$;"CLOSE ";F$ . 9000 1010 9000 NN1! 936:"HOW MANY"HIT SPACE BAR TO CONTINUE":A$:200< :"FILENAME: ";F$R A1000,2000,3000n "INPUT COMMON PHRASE."w CP$ N1 :"INPUT QUESTION #";N:DQ$(N) DQ$(N)""1010 DQ$(N)"END"1050 "INPUT ANSWER." DA$(N) DA$(N)"")800:J(ME180):J200J200J dDA$(J),DQ$(J),NT$(J),JA(9),LT(J),NT(J) :"OPTIONS:":"1) CREATE NEW FILE":"2) ADD TO FILE":"3) BEGIN TESTING":"4) CATALOG"::"PRESS NUMBER OF YOUR CHOICE." ,A$:A(A$):A1A4300$ ^A4ĺ:D$;"CATALOG": : D$(4):B$" "B60wD$;"OPEN ";F$:D$;"DELETE ";F$:D$;"OPEN ";F$:2 DRILL<:8:12);"MASTER DRILL"::11);"COPYRIGHT 1982"::10);"APPLE II VERSION":N02000:N _J200:ME(116)256(115     : "10000'AVE SUCESSFULLY COMPLETED YOUR 8 ":40& L$"YEAR TERM. YOU WERE OF COURSE, VERY ":40:L$"LUCKY, BUT NEVER THE LESS, IT IS QUITE ":40 ' L$"ACHIEVEMENT. GOODBYE AND GOOD LUCK. ":40:L$"( YOU'LL NEED IT IF YOU'RE THE TYPE ":40:L$"THAHE CHOICE IS YOURS. IF YOU ":40% L$"CHOOSE THE LATTER, PLEASE TURN OFF ":40:L$"MY MONITOR BEFORE PROCEEDING. I CAN ":40:L$"NOT STAND THE SIGHT OF BLOOD.":40::2140(& ::L$" CONGRATULATIONS ! ":40::L$"YOU HFT OVER IN THE TREASURY ":40:L$"WHICH YOU DID NOT SPEND. AS A RESULT ":40$ L$"SOME OF YOUR COUNTRYMEN STARVED. THE ":40:L$"PUBLIC IS ENRAGED AND YOU HAVE BEEN ":40#% L$"FORCED TO EITHER RESIGN OR COMMIT ":40:L$"SUICIDE. T ALSO BEEN ":40:L$"DECLARED NATIONAL FINK.":40::2140#$ :L$"OVER ONE THIRD OF THE POPULATION HAS ":40:L$"DIED SINCE YOU WERE ELECTED. THOSE ":40#. L$"STILL ALIVE HATE YOUR GUTS. ":40:2090S$t :::L$"MONEY WAS LEOUT ":40D"L$"OF OFFICE BUT YOU ":40:R2((1)10):R232280T"R262300e"R2102320"L$"HAVE HAD YOUR LEFT ":40:L$"EYE GOUGED OUT. ":40::2140"L$"HAVE ALSO GAINED A ":40:L$"VERY BAD REPUTATION.":40::2140?# L$"HAVENOW RESIDING IN PRISON.":40::2140P!R:L$"YOU HAVE BEEN ASSASINATED.":40:Z!\2850!:::3000:::CC;:L$" COUNTRYPERSONS DIED IN ONE YEAR!":40: ":L$"DUE TO EXTREME MISMANAGEMENT YOU HAVE ":40:L$"NOT ONLY BEEN IMPEACHED AND THROWN 2820t ::::L$"THE NUMBER OF FORIEGN WORKERS HAS ":40:L$"EXCEEDED THE NUMBER OF COUNTRYPERSONS. ":40 L$"AS A MAJORITY THEY HAVE REVOLTED AND ":40 *(1).52130$!4L$"YOU HAVE BEEN THROWN OUT OF OFFICE AND ":40:L$"YOU ARE :1890\:L$"UNPLEASANT SMOG IS DISCOURAGING THE ":40:L$"GIRLS.":40::3000:1890:L$"HOTELS ARE LOOKING SHABBY DUE TO ":40:L$"SMOG GRIT.":40::3000:1890CC2002180CP3282340FWCP2040T11YR2560  POPULATION HAS DWINDLED TO WATER ":40:L$"POLLUTION.":40::3000:1890:L$"AIR POLLUTION IS KILLING GAME BIRD ":40:L$"POPULATION.":40::3000:1890:L$"MINERAL BATHS ARE BEING RUINED BY ":40:L$"WATER POLLUTION.":40::3000((FW60)((1)1000))::L$"YOU MADE ":40:(TR);:L$" RALLODS FROM TOURIST TRADE.":40:RTRTTRPOL999İ35:1980: POSSIBLE TROUBLE(RA(1)10:RA21920:RA41940DRA61950NRA81960XRA101970b1980KL$"FISH1770x^ME(1):MH((RP2)ME(RP2))::L$"OF ":40:(RP);:L$" SQ. MILES PLANTED, YOU HARVESTED":40:|MH;:L$" SQ. MILES OF CROPS MAKING":40::Q((CP10)MH):QQCP10:(Q);:L$" RALLODS.":40RT(RTQ)FW01810cTRōōōӠ΍ȍԠŠٍԍҍč΍Ԡ΍΍΍ǍōԠӠŠ̠ƍנōčנٍ΍נύŠōנˠٍȠȍȠˍύӍٍ΍͍ǍŠčōȠȠӠӍӍٍԍΠōōčӍӍ΍΍ǍԮ̍ɍ΍ɍΠٍ΍ΠٍōٍՍ؍ӍŠˍύύҍԍčōҍōɍՍύōӍčӍ   0,5P1:2,2721:2,2822:3,2823:3,2924:3,3025:4,3126:4,3227 23:4,3228:5,3229:5,3130:6,3131:6,3032:7,3033:2 <8,2934:8,2835:9,2736:10,1837:21,2637:12,1538:22,2538 F(4);"RUN MASTER DRILL";C ::12:22,251:22,252:21,243:20,244:20,235:19,22610,137:18,217:24,277:9,148:18,198:23,288:7,169:21,309:6,3110:13:5,3211:4,3112:3,30133,2914:2,2815:9:2,2816:1,2717:1,2618:1,2619:2,2720A ( K AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODS IN THE TREASURY":40:990XSI01180i$RCP01180y.RP011808POL01180B1180`:L$" GOOD-BYE......":40:440::L$"IF YOU WISH TO CONTINUE THIS GAME AT A ":40:L$"LATER TIME,"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"RALLODS LEFT IN THE TREASURY":40:800aPOL0:RT0sRTRTU1:440:L$"HOW MANY RALLODS DO YOU WISH TO SPEND ":40:L$"ON POLLUTION CONTROL ":40:POL:POL0990POLRT1050H:L$"THIN:L$"SORRY BUT EACH COUNTRYPERSON CAN ONLY ":40:L$"PLANT 2 SQ. MILES OF FARM LAND":40:800t\RPSM1000890f:L$"SORRY BUT YOU'VE ONLY GOT ":40:SM1000:L$"SQ. MILES OF FARM LAND":40:800zU1(RPV9):U1RT970U1RT940R:L$CPRT790RCPRT750q:L$"THINK AGAIN, YOU'VE ONLY GOT ":40:RT:L$"ROLLADS IN THE TREASURY":40:680RP0:POL0:RT0:1170RT(RTRCP):440 :L$"HOW MANY SQ. MILES DO YOU WISH TO PLANT ":40:RP:RP0ī800>RPCP2860_H0:L$"BECAUSE FOREST LAND IS UNECONOMICAL ":40YlL$"TO STRIP MINE.":40:XX1:550SM(SMSI):RT(RT(SIRSM)):440:L$"HOW MANY RALLODS DO YOU WISH TO ":40:L$"DISTRIBUTE TO YOUR COUNTRYPERSONS ":40RCP:RCP0ī680 R50vf(#D$;"OPEN ";F$:D$;"READ ";F$:N:I1N1:DQ$(I),DA$(I):I:CP$:H(CP$):CP$"*"CP$""-#H1CP$(CP$,H1).#D$;"CLOSE ";F$:'23:1:"HIT SPACE BAR TO CONTINUE. ";:A$:A$" "10000':X:" ":X:R> 18:4:"YOU GOT ";NR;" RIGHT.":18:8:"YOU GOT ";NW;" WRONG."C 18:12:"SCORE ";(NR(NRNW)100);" %.":X12000:X\ J0N:NT(J)0:JX16:18:"REPEAT DRILL (Y/N)?";:A$:A$"Y"A$"N"7000lAN$:A$"Y"NW0:NR0:30:MA(A$):MA1MANC3350` MA:MA(KA)ĺ:"NICE TRY BUT NOT CORRECT.":NWNW1:10000:3340* NRNR1::"VERY GOOD YOU GOT IT RIGHT!!":10000::K4 9 " 100 %":23:" 0 %";:X123:X:10:"-":X:NN(NR(NRNW)22)23:X23NN1::11% JA(J)((1)N)1:LT(JA(J))32205 LT(JA(J))1< JT :"QUESTION #";K:^ CP$;y (CP$)(DQ$(L))37ĺ " ";DQ$(L);"?": J1NC:J;") ";DA$(JA(J)):J 20:1:SP14:B$:SP:20:1:"PRESS NUMBER OF CORRECT ANSWER. "; A$S"3030 C$1 :"HOW MANY CHOICES (2-9)?";T NC$:NC(NC$):NC2NCN3045\ NCh K1KQ~ J0N:LT(J)0:J LK:C$"S"3090 L((1)N)1:NT(L)3070  NT(L)1  KA((1)NC)1:JA(KA)L:LT(L)1 J1NC J(KA)3260P$ $D$;"CLOSE ";F$ .& 90000 1010: 9000D NN1z 936:"HOW MANY QUESTIONS (UP TO ";N;") ";:KQ$ KQ(KQ$):KQ1KQNĺ:"INVALID ANSWER.":X11200:X:3010 :"(R) FOR RANDOM (S) FOR SEQUENTIAL? "; C$:C$"R"C$"DQ$(N)""1010( DQ$(N)"END"1050= "INPUT ANSWER."I DA$(N)] DA$(N)""1030 NN1:NJĺ"FILE FULL. ";J;" QUESTIONS MAX.":"NOW STORING FILE.":1050 1010 30:D$;"WRITE ";F$::N:I1N1:DQ$(I):DA$(I):I:CP$"*"CP$ C:"PRESS NUMBER OF YOUR CHOICE."> ,A$:A(A$):A1A4300} ^A4ĺ:D$;"CATALOG":"HIT SPACE BAR TO CONTINUE":A$:200 :"FILENAME: ";F$ A1000,2000,3000 "INPUT COMMON PHRASE." CP$ N1 :"INPUT QUESTION #";N:DQ$(N) "COPYRIGHT 1983 BY DYNACOMP, INC."* P:; UI14000:Iw _J200:ME(116)256(115)800:J(ME180):J200J200 dDA$(J),DQ$(J),NT$(J),JA(9),LT(J),NT(J)! :"OPTIONS:":"1) CREATE NEW FILE":"2) ADD TO FILE":"3) BEGIN TESTING":"4) CATALOG": @ D$(4):B$" "H60}D$;"OPEN ";F$:D$;"DELETE ";F$:D$;"OPEN ";F$:2 DRILL<:::A" ****************"F" * MASTER DRILL *"K" ****************"L:" M     ":40::2140{& ::L$" CONGRATULATIONS ! ":40::L$"YOU HAVE SUCESSFULLY COMPLETED YOUR 8 ":40& L$"YEAR TERM. YOU WERE OF COURSE, VERY ":40:L$"LUCKY, BUT NEVER THE LESS, IT IS QUITE ":40s' L$"ACHIEVEMENT. GOODBYEBEEN ":40v% L$"FORCED TO EITHER RESIGN OR COMMIT ":40:L$"SUICIDE. THE CHOICE IS YOURS. IF YOU ":40 & L$"CHOOSE THE LATTER, PLEASE TURN OFF ":40:L$"MY MONITOR BEFORE PROCEEDING. I CAN ":40:L$"NOT STAND THE SIGHT OF BLOOD. L$"STILL ALIVE HATE YOUR GUTS. ":40:2090$t :::L$"MONEY WAS LEFT OVER IN THE TREASURY ":40:L$"WHICH YOU DID NOT SPEND. AS A RESULT ":40% L$"SOME OF YOUR COUNTRYMEN STARVED. THE ":40:L$"PUBLIC IS ENRAGED AND YOU HAVE L$"HAVE ALSO GAINED A ":40:L$"VERY BAD REPUTATION.":40::2140# L$"HAVE ALSO BEEN ":40:L$"DECLARED NATIONAL FINK.":40::2140#$ :L$"OVER ONE THIRD OF THE POPULATION HAS ":40:L$"DIED SINCE YOU WERE ELECTED. THOSE ":408$.TO EXTREME MISMANAGEMENT YOU HAVE ":40:L$"NOT ONLY BEEN IMPEACHED AND THROWN OUT ":40"L$"OF OFFICE BUT YOU ":40:R2((1)10):R232280"R262300"R2102320"L$"HAVE HAD YOUR LEFT ":40:L$"EYE GOUGED OUT.":40::2140E#`(#D$;"OPEN ";F$:D$;"READ ";F$:N:I1N1:DQ$(I),DA$(I):I:CP$:H(CP$):CP$"*"CP$""y-#H1CP$(CP$,H1).#D$;"CLOSE ";F$:'23:1:"HIT SPACE BAR TO CONTINUE. ";:A$:A$" "10000'D ":X:L> 18:4:"YOU GOT ";NR;" RIGHT.":18:8:"YOU GOT ";NW;" WRONG."C 18:12:"SCORE ";(NR(NRNW)100);" %.":X12000:X\ J0N:NT(J)0:JX16:18:"REPEAT DRILL (Y/N)?";:A$:A$"Y"A$"N"7000lAN$:A$"Y"NW0:NR0:3050vA$):MA1MANC3350Z MA:MA(KA)ĺ:"NICE TRY BUT NOT CORRECT.":NWNW1:10000:3340* NRNR1::"VERY GOOD YOU GOT IT RIGHT!!":10000::K4 9 " 100 %":23:" 0 %";:X123:X:10:"-":X:NN(NR(NRNW)22)23:X23NN1::11:X:"(J)((1)N)1:LT(JA(J))3220/ LT(JA(J))16 JN :"QUESTION #";K:X CP$;s (CP$)(DQ$(L))37ĺ " ";DQ$(L);"?": J1NC:J;") ";DA$(JA(J)):J 20:1:SP14:B$:SP:20:1:"PRESS NUMBER OF CORRECT ANSWER. "; A$:MA(0 C$+ :"HOW MANY CHOICES (2-9)?";N NC$:NC(NC$):NC2NCN3045V NCb K1KQx J0N:LT(J)0:J LK:C$"S"3090 L((1)N)1:NT(L)3070  NT(L)1  KA((1)NC)1:JA(KA)L:LT(L)1 J1NC J(KA)3260 JAD$;"CLOSE ";F$ . 9000* 10104 9000> NN1t 936:"HOW MANY QUESTIONS (UP TO ";N;") ";:KQ$ KQ(KQ$):KQ1KQNĺ:"INVALID ANSWER.":X11200:X:3010 :"(R) FOR RANDOM (S) FOR SEQUENTIAL? "; C$:C$"R"C$"S"303(N)""1010" DQ$(N)"END"10507 "INPUT ANSWER."C DA$(N)W DA$(N)""1030 NN1:NJĺ"FILE FULL. ";J;" QUESTIONS MAX.":"NOW STORING FILE.":1050 1010 30:D$;"WRITE ";F$::N:I1N1:DQ$(I):DA$(I):I:CP$"*"CP$ CP$ $ESS NUMBER OF YOUR CHOICE."8 ,A$:A(A$):A1A4300w ^A4ĺ:D$;"CATALOG":"HIT SPACE BAR TO CONTINUE":A$:200 :"FILENAME: ";F$ A1000,2000,3000 "INPUT COMMON PHRASE." CP$ N1 :"INPUT QUESTION #";N:DQ$(N) DQ$IGHT 1983 BY DYNACOMP, INC."$ P:5 UI14000:Iq _J200:ME(116)256(115)800:J(ME180):J200J200 dDA$(J),DQ$(J),NT$(J),JA(9),LT(J),NT(J) :"OPTIONS:":"1) CREATE NEW FILE":"2) ADD TO FILE":"3) BEGIN TESTING":"4) CATALOG"::"PR : D$(4):B$" "B60wD$;"OPEN ";F$:D$;"DELETE ";F$:D$;"OPEN ";F$:2 DRILL<:::A" ****************"F" * MASTER DRILL *"K" ****************"L: M"COPYR      ";K1,K2:EK1K2ĺ"ERROR. MIN IS LARGER THAN MAX. REENTER.":990K1Nĺ"NOTE - MIN # OF ATTEMPTS (";K1;")":"AUTOMATICALLY INCREASED TO ";N:K1NK1K2Z$"N":1030"DO YOU WANT A TABLE (Y/N)?";Z$:Z$"Y"Z$"N"1020Z$"N"TOTAL PROBABILITY ";PT 2000H:" PASCAL PROBABILITY"::B1v"PROBABILITY OF INDIVIDUAL EVENTS? ";P:P0P1ĺ"ERROR. PROBABILITY MUST BE BETWEEN 0-1.":965"INPUT # OF SUCESSES DESIRED ";N: "INPUT MIN AND MAX # OF EVENTS.4Z$"N"8404>::"ATTEMPT #","PROBABILITY":AHIK1K2VRPAP(1P)(I1)c\PTPTPAtfPAPSPSPApPAPS100000000940zZ$"N"930I,PALCLC1LC19ľA$::LC0:AN$"Y"ĺ"ATTEMPT #","PROBABILITY":I:"A TABLE (Y/N)?";-Z$:Z$"Y"Z$"N"795JZ$"N"ĺ::"COMPUTING"d AN$"Y"ĺ:D$;"PR#1"*AN$"Y"ĺ"GEOMETRIC PROBABILITY"::"PROBABILITY OF INDIVIDUAL EVENTS = ";P:"MINIMUM NUMBER OF ATTEMPTS = ";K1:"MAXIMUM NUMBER OF ATTEMPTS = ";K2:BILITY. ";:P:750A"INPUT MIN AND MAX # OF EVENTS. ";K1,K2:K11ĺ"ERROR. LOWEST POSSIBLE NUMBER OF EVENTS IS ONE. REENTER MIN AMD MAX.":760K2K1ĺ"ERROR. MIN IS GREATER THAN MAX. REENTER.":760 K1K2Z$"N":796:"DO YOU WANT 0 LCLC1=LC19ľA$:LC0::AN$"Y"ĺ"K","P(X=K)":DLi:"TOTAL PROBABILITY ";PT:2000:" GEOMETRIC PROBABILITY"::"PROBABILITY FOR INDIVIDUAL EVENTS? ";P:P0P1ĺ"PROBABILITY MUST BE BETWEEN 0-1. REENTER PROBA"MINIMUM NUMBER OF EVENTS = ";K1:"MAXIMUM NUMBER OF EVENTS = ";K2::"K","P(X=K)":b0LK1K2j:P1wDL0620NI1LXPPAIbIlPP(A)vPPMPMPZ$"N"660L,PPTPTP(PM100000000)P720Z$"N"71R THAN MAX. REENTER.":5001K1K2Z$"N":540T"DO YOU WANT A TABLE (Y/N)?";sZ$::Z$"Y"Z$"N"520Z$"N"ĺ:"COMPUTING":560&:AN$"Y"ĺ"K","P(X=K)"::560':D$;"PR#1"U+"POISSON PROBABILITY"::"POISSON CONSTANT = ";A:R1::"VERY GOOD YOU GOT IT RIGHT!!":9100::K(#D$;"OPEN ";F$:D$;"READ ";F$:N:I1N1:DQ$(I),DA$(I):I:CP$:H(CP$):CP$"*"CP$""-#H1CP$(CP$,H1).#D$;"CLOSE ";F$:':"HIT SPACE BAR TO CONTINUE ";:A$:A$" "10000'20 LT(JA(J))1 J/ :"QUESTION #";KE CP$" ";DQ$(L)"?"f J1NC:J;") ";DA(JA(L)):J :"PRESS NUMBER OF CORRECT ANSWER ";  A$:MA(A$):MA1MANC3350  MA:MAKHEN:"NICE TRY BUT NOT CORRECT.":NWNW1:9100:33400* NRN"HOW MANY CHOICES (2-9) ?";:NC$:NC(NC$):NC2NC93040B NCN K1KQd J0N:LT(J)0:Jy LK:C$"S"3090 L(1)N1:NT(L)3070  NT(L)1  KA(1)NC1:JA(KA)L:LT(L)1 J1NC JKHEN3260 JA(J)(1)N1:LT(JA(J))32$:D$;"NOMON I,O,C":10000 .* 90004 1010> 9000 936:"HOW MANY QUESTIONS (UP TO ";N;" )?";:KQ:KQ1KQNĺ"INVALID ANSWER.":X12000:X:3010 :"PRESS (R) FOR RANDOM (S) FOR SEQUENTIAL":C$:C$"R"C$"S"3020 C$: :N)"END"1050$ "ANSWER: ";DA$(N)8 DA$(N)""1030 NN1:NJĺ"FILE FULL. ";J;" QUESTIONS MAX.":"NOW STORING FILE.":1050 1010 D$;"MON I,O,C":30:D$;"WRITE ";F$::N:I1N1:DQ$(I):DA$(I):I:CP$"*"CP$ CP$ $D$;"CLOSE ";FnI14H xDE(I)(1):MS(I)2500((1)2500):MC(I)MS(I)((1)2500) |I4ĭKP(3)LP(3)3KP(2)LP(2)3KP(1)LP(1)3KP(4)3:LG(4)1:DG(4)(1):LP(4)1:160 ~KP(I)((1)15XZdB$(3),DA(4),DE(4),DG(4),DH(4),DP(4),JB(4),JM(4),JS(4),LA(4),LG(4),LH(4),LP(4),MC(4),MS(4),KP(4),NC(4),NH(4),UG(4),UA(4),UP(4),UH(4),UE(4),JE(4),JG(4),JP(4),JA(4),JH(4),C$(2),SA(4),SE(4),SG(4),SH(4),SP(4),NB(4),E(1),NA(4)iHA10000:FS3E7  S(I)1));" DIED.":NC(I)MS(I)< RE(I)(ND(252I))3070U RE(I)(ND(252I))t DE(I)3(0)NC(I)23070 59980:NKDE(I)(0)NC(I)2:NC(I)NC(I)NK:C$((1)2);" ON VEGA";I". ";NK;"COLONIST";E$((NK1));" DIED." N"HI"A)ė:"YOU HAVE RUN OUT OF FOOD ABOARD SHIP."::"THEN ";HA;" COLONISTS HAVE STARVED.":HA0:59995xND15000İ59980 I14:NC(I)MS(I)İ59980:"POPULATION OF VEGA";I;" EXCEEDS MAXIMUM SUPPORTABLE POPULATION.":NC(I)MS(I);" COLONIST";E$((NC(I)M::" VEGA ";I:NP0750:NP:NPI:NDND2:FSFS2HA:2000 "YOU ARE ALREADY AT VEGA";I:"PRESS 1 TO CHOOSE ANOTHER PLANET, 2 TO GO TO MAIN MENU."; A$:A$"1"A$"2"1040 A$"1"1000 $5000  IE0 FS0FS0bFS0(HPERSON DAYS"X "PRELIMINARY SCAN SHOWS 4 PLANETS. PRELIMINARY DATA AS FOLLOWS:"e :I14 "PLANET #";I:"TYPE: ";B$(KP(I)): : "GO TO WHICH PLANET ?"; A$:I(A$):I1I41010@ NPIė:2:10:" PROCEEDING TO PLANET "RE":B$(2)"V: CARBON-DIOXIDE ATMOSPHERE":B$(3)"M: OXYGEN-NITROGEN ATMOSPHERE":C$(0)"EARTHQUAKE":C$(1)"VOLCANIC ERUPTION":AA$" UNKNOWN":E$(0)"S" "ENTERING VEGA SYSTEM. DATE: 0":"COLONISTS ABOARD: 10,000 FOOD SUPPLY: 30,000,000 G(I)(0)5 PKP(I)(0):LP(I)1:P.5LP(I)0:210D DP(I)(0)p PKP(I)(0):LA(I)1:P.7LA(I)0:210 DA(I)(0) PKP(I)(0):LH(I)1:P1LH(I)0:210 DH(I)(0) I B$(0)"L: NO ATMOSPHERE":B$(1)"J: AMMONIA-METHANE ATMOSPHEnI14L xDE(I)(0):MS(I)2500((1)25001):MC(I)MS(I)((1)25001) |I4ĭKP(3)LP(3)3KP(2)LP(2)3KP(1)LP(1)3KP(4)3:LG(4)1:DG(4)(1):LP(4)1:160 ~KP(I)((1)10):KP(I)2KP(I)3 PKP(I)(0):LG(I)1:P.5LG(I)0:210 DZdB$(3),DA(4),DE(4),DG(4),DH(4),DP(4),JB(4),JM(4),JS(4),LA(4),LG(4),LH(4),LP(4),MC(4),MS(4),KP(4),NC(4),NH(4),UG(4),UA(4),UP(4),UH(4),UE(4),JE(4),JG(4),JP(4),JA(4),JH(4),C$(2),SA(4),SE(4),SG(4),SH(4),SP(4),NB(4),E(1),NA(4)iHA10000:FS3E7      S"Ā IT1IE05510+ (IT)IEIT0: IE05000h 23:1:"PRESS SPACE BAR FOR MAIN MENU.";~ A$:A$" "33207:60000:"OPTIONS:":"1) CONSULT COMPUTER":"2) CONDUCT SURVEY":"3) PROCEED WITH COLONIZING PROCEEDURES":"4) TRANSPORT COLĺ"YOUR ENERGY CELLS HAVE EXHAUSTED. YOUR TIME IS UP. THE VEGA SYSTEM HAS A SURVIVING POPULATION OF ";NC(1)NC(2)NC(3)NC(4)::"PRESS FOR NEW GAME, TO STOP." ND15000ľA$:A$"N"A$"S"3304 ND15000A$"N"Ĭ ND15000A$";NK;" COLONIST";E$((NK1));" ON VEGA";I;"."Z LP(I)1RG(I)(ND4)NC(I)NH(I)13300 GOUSB59980:NC(I)NH(I);" COLONIST";E$((NC(I)NH(I)1));" ON VEGA";I;" DIED":"OF STARVATION.":NC(I)NH(I) NC(I)NH(I)1RB(I)(ND4) I ND15000I)):NK0İ59980:NC(I)NC(I)NK:"ANIMALS KILLED ";NK;" COLONIST";E$((NK1));" ON VEGA";I;"." RH(I)(ND50)LH(I)03250 RH(I)(ND50) DH(I)2(0)NC(I)03250, NKDH(I)(0)NC(I):NK0İ59980:NC(I)NC(I)NK:"HOSTILE NATIVES KILLED "(0)(NC(I)NH(I)):NK0İ59980:NC(I)NC(I)NK:NK;" COLONIST";E$((NK1));" ON VEGA";I;" DIED OF ":"EATING POISONOUS PLANTS."b RA(I)(ND14)LA(I)03210l RA(I)(ND14)v DA(I)2(0)NC(I)NH(I)NA(I)13210^ NKDA(I)(0)(NC(I)NH(I)NA((0)NC(I)NH(I)NB(I)13130& NKDG(I)(0)(NC(I)NH(I)NB(I)):NK0İ59980:NC(I)NC(I)NK:K;" COLONIST";E$((NK1));" ON VEGA";I;" DIED OF DISEASE.": RP(I)(ND9)LP(I)03170D RP(I)(ND9)N DP(I)2(0)NC(I)NH(I)13170~X NKDP(I)0NH(I)NH(I)NK:NK;"LIVING UNIT";E$((NK1));" DESTROYED." KP(I)3NC(I)NH(I)İ59980:NC(I)NH(I);" COLONIST";E$((NC(I)NH(I)1));" ON VEGA";I;:"DIED OF LACK OF AIR.":NC(I)NH(I) RG(I)(ND16)LG(I)03130 RG(I)(ND16) DG(I)2S(I)1));" DIED.":NC(I)MS(I)< RE(I)(ND(252I))3070U RE(I)(ND(252I))t DE(I)3(0)NC(I)23070 59980:NKDE(I)(0)NC(I)2:NC(I)NC(I)NK:C$((1)2);" ON VEGA";I". ";NK;"COLONIST";E$((NK1));" DIED."= NKNH(I)DE(I)(0):NKA)ė:"YOU HAVE RUN OUT OF FOOD ABOARD SHIP."::"THEN ";HA;" COLONISTS HAVE STARVED.":HA0:59995xND15000İ59980 I14:NC(I)MS(I)İ59980:"POPULATION OF VEGA";I;" EXCEEDS MAXIMUM SUPPORTABLE POPULATION.":NC(I)MS(I);" COLONIST";E$((NC(I)M::" VEGA ";I:NP0750:NP:NPI:NDND2:FSFS2HA:2000 "YOU ARE ALREADY AT VEGA";I:"PRESS 1 TO CHOOSE ANOTHER PLANET, 2 TO GO TO MAIN MENU."; A$:A$"1"A$"2"1040 A$"1"1000 $5000  IE0 FS0FS0bFS0(HPERSON DAYS"X "PRELIMINARY SCAN SHOWS 4 PLANETS. PRELIMINARY DATA AS FOLLOWS:"e :I14 "PLANET #";I:"TYPE: ";B$(KP(I)): : "GO TO WHICH PLANET ?"; A$:I(A$):I1I41010@ NPIė:2:10:" PROCEEDING TO PLANET "RE":B$(2)"V: CARBON-DIOXIDE ATMOSPHERE":B$(3)"M: OXYGEN-NITROGEN ATMOSPHERE":C$(0)"EARTHQUAKE":C$(1)"VOLCANIC ERUPTION":AA$" UNKNOWN":E$(0)"S" "ENTERING VEGA SYSTEM. DATE: 0":"COLONISTS ABOARD: 10,000 FOOD SUPPLY: 30,000,000 G(I)(0)5 PKP(I)(0):LP(I)1:P.5LP(I)0:210D DP(I)(0)p PKP(I)(0):LA(I)1:P.7LA(I)0:210 DA(I)(0) PKP(I)(0):LH(I)1:P1LH(I)0:210 DH(I)(0) I B$(0)"L: NO ATMOSPHERE":B$(1)"J: AMMONIA-METHANE ATMOSPHEnI14L xDE(I)(0):MS(I)2500((1)25001):MC(I)MS(I)((1)25001) |I4ĭKP(3)LP(3)3KP(2)LP(2)3KP(1)LP(1)3KP(4)3:LG(4)1:DG(4)(1):LP(4)1:160 ~KP(I)((1)10):KP(I)2KP(I)3 PKP(I)(0):LG(I)1:P.5LG(I)0:210 DZdB$(3),DA(4),DE(4),DG(4),DH(4),DP(4),JB(4),JM(4),JS(4),LA(4),LG(4),LH(4),LP(4),MC(4),MS(4),KP(4),NC(4),NH(4),UG(4),UA(4),UP(4),UH(4),UE(4),JE(4),JG(4),JP(4),JA(4),JH(4),C$(2),SA(4),SE(4),SG(4),SH(4),SP(4),NB(4),E(1),NA(4)iHA10000:FS3E7          ONLY BUY FARMLAND ":40:L$"BECAUSE FOREST LAND IS UNECONOMICAL ":40olL$"TO STRIP MINE.":40:XX1:550SM(SMSI):RT(RT(SIRSM)):440:L$"HOW MANY RALLODS DO YOU WISH TO ":40:L$"DISTRIBUTE TO YOUR COUNTRYPERSONS ":40ORE SOUND[&:L$"HOW MANY SQ. MILES DO YOU WISH TO SELL ":40:L$"TO INDUSTRY ":40:SIi:SI0550~DSISM1000660N:L$"THINK AGAIN, YOU'VE ONLY ":40:SM1000;:L$" SQ. MILES OF FARM LAND.":40:XX0ī550Ib:L$"FOREIGN INDUSTRY WILL (FW);" FOREIGN WORKERS"HFIG(SM):41:A$;(SM);" SQ. MILES OF LAND"" INDUSTRY WILL BUY LAND FOR":FIGRSM:41:A$;RSM;" RALLODS PER SQ. MILE"" LAND CURRENTLY COSTS ":FIGV9:41:A$;V9;" RALLODS PER SQ. MILE TO PLANT" : M2RSM((1)100300):4109TP4RSM((1)100200)\V9(((1)2)1010):440:550:FIGRT:41:" YEAR IN OFFICE=";YR1:A$;RT;" RALLODS IN THE TREASURY"FIG(CP):41:A$;(CP);" COUNTRYPERSONS":FW0490FIG(FW):41:A$;OMPLETE YOUR 8 YEAR TERM OF OFFICE. GOOD LUCK."_24::"HIT ANY KEY TO CONTINUE...";::A$p SOUND HERE6:TP2RT100000:380@TP4RT80000:380JRT(60000(1)1000)|CP((500(1)10(1)10)):SM2000RSM((1)50150):TPIS FARMLAND WHICH ALSO HAS EXCELLENT MINERAL CONTENT AND MAY BESOLD TO FORIEGN INDUSTRY FOR STRIP MINING. THEY IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND" "50 RALLODS PER SQUARE MILE TO PLANT."0:" YOUR GOAL IS TO C. THE MONETARY SYSTEM IS IN RALLODS. ":TP10220K X14000:X:310 :" EACH PERSON NEEDS 100 RALLODS PER YEARTO SURVIVE. YOUR COUNTRY'S INCOME IS FROM FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT FORESTS ETC." "HALF YOUR LAND . CURRENTLY ORBITING PLANET":"VEGA";NP;".":"COLONISTS ABOARD: ";HA:"FOOD SUPPLY: ";FS;" PERSON DAYS":0"INVALID ANSWER.":3310H10"7030{" ";A$<"# OF DAYS TO BE SPENT ON SURVEY ";Ij(A$)7070,7080,7090,7100,7110,7120,7130SH(NP)1:UH(NP)DH(NP)(I(20000NK)1)(0)(I(20000NK)):7200IJB(NP)17200`ND15000ND15000:HA0i"DATE: ";ND;"DANGER SURVEY: ";0(30000NK);" DAYS":"6) PLANT DANGER SURVEY: ";0(20000NK);" DAYS":"7) ANIMAL DANGER SURVEY: ";0(20000NK);" DAYS":"8) INTELLIGIENT LIFE DANGER: ";0(20000NK);" DAYq:"PRESS NUMBER OF YOU CHOICE.";vA$:A$"1"A$"8]60000::"OPTIONS:"::b"1) GENERAL LIFE FORM SURVEY: 1 DAY":"2) MAX POPULATION SURVEY: ";0(10000NK);" DAYS":"3) BUILDING MATERIALS SURVEY: ";0(20000NK);" DAYS":"4) GEOLOGICAL DANGER SURVEY: ";0(20000NK);" DAYS"l"5) BACTERIAL AA$."CURRENT # OF COLONISTS-";NC(I)N"# OF LIVING UNITS-";NH(I)~"# OF PERSONAL ANTI-BACTERIA UNITS-";NB(I)"# OF ANIMAL REPELLENT UNITS-";HA(I)3310X:NKNC(CP)HA:NK100ĺ"INSUFFICIENT PERSONNEL TO CONDUCT SURVEY":3310LANT DANGER: ";:SP(I)(JB(I)LP(I)0)ĺUP(I):6070<AA$x"ANIMAL DANGER: ";:SA(I)(JB(I)LA(I)0)ĺUA(I):6080AA$"INTELLIGENT LIFE DANGER: ";:SH(I)(JB(I)LH(I)0)ĺUH(I):6090AA$"GEOLOGICAL DANGER: ";:SE(I)ĺUE(I):6100JB(I)LG(I)0ĺ"NONE";.JB(I)0ĺAA$g"MAX POSSIBLE # OF SETTLERS: ";:JM(I)ĺJM(I):6045pAA$"MAX POSSIBLE LIVING UNITS: ";:JS(I)ĺJS(I):6050AA$"BACTERIA DANGER: ";:SG(I)(JB(I)LG(I)0)ĺOG(I):6060AA$3"P1:NDND25:FSFSHA25:2005Hp"INFORMATION ON WHICH PLANET (1-4) ?";dsA$:A$"1"A$"4"6003pvI(A$)z::"PLANET VEGA";I:::"LIFE FORMS: ";:JB(I)ĭLG(I)ĺ"BACTERIA";:LP(I)ĺ", PLANTS";:LA(I)ĺ", ANIMALS";:LH(I)ĺ", INTELLIGIENT LIFE"ONISTS TO/FROM VEGA";NP:"5) EMBARK FOR ANOTHER PLANET"s"6) WAIT FOR EVENT"::"PRESS NUMBER OF YOUR CHOICE.";A$:A$"1"A$"6"5030" ";A$(A$)6000,7000,8000,9000,1000,5500|:12:10::"WAITING.":16:10:"DATE: ";ND:IT ND15000A$"S"Ā* IT1IE05510< (IT)IEIT0K IE05000y 23:1:"PRESS SPACE BAR FOR MAIN MENU."; A$:A$" "3320H:60000:"OPTIONS:":"1) CONSULT COMPUTER":"2) CONDUCT SURVEY":"3) PROCEED WITH COLONIZING PROCEEDURES": I ND15000ĺ"YOUR ENERGY CELLS HAVE EXHAUSTED. YOUR TIME IS UP. THE VEGA SYSTEM HAS A SURVIVING POPULATION OF ";NC(1)NC(2)NC(3)NC(4)::"PRESS FOR NEW GAME, TO STOP." ND15000ľA$:A$"N"A$"S"3304 ND15000A$"N"Ĭ NATIVES KILLED ";NK;" COLONIST";E$((NK1));" ON VEGA";I;"."k LP(I)1RG(I)(ND4)NC(I)NH(I)13300 GOUSB59980:NC(I)NH(I);" COLONIST";E$((NC(I)NH(I)1));" ON VEGA";I;" DIED":"OF STARVATION.":NC(I)NH(I) NC(I)NH(I)1RB(I)(ND4)(I)NH(I)NA(I))):NK0İ59980:NC(I)NC(I)NK:"ANIMALS KILLED ";NK;" COLONIST";E$((NK1));" ON VEGA";I;"." RH(I)(ND50)LH(I)03250 RH(I)(ND50) DH(I)2(0)NC(I)03250= NK(DH(I)(0)NC(I)):NK0İ59980:NC(I)NC(I)NK:"HOSTILE(DP(I)(0)(NC(I)NH(I))):NK0İ59980:NC(I)NC(I)NK:NK;" COLONIST";E$((NK1));" ON VEGA";I;" DIED OF ":"EATING POISONOUS PLANTS."b RA(I)(ND14)LA(I)03210l RA(I)(ND14)v DA(I)2(0)NC(I)NH(I)NA(I)13210l NK(DA(I)(0)(NC)2(0)NC(I)NH(I)NB(I)13130& NK(DG(I)(0)(NC(I)NH(I)NB(I))):NK0İ59980:NC(I)NC(I)NK:K;" COLONIST";E$((NK1));" ON VEGA";I;" DIED OF DISEASE.": RP(I)(ND9)LP(I)03170D RP(I)(ND9)N DP(I)2(0)NC(I)NH(I)13170X NK):NK0NH(I)NH(I)NK:NK;"LIVING UNIT";E$((NK1));" DESTROYED." KP(I)3NC(I)NH(I)İ59980:NC(I)NH(I);" COLONIST";E$((NC(I)NH(I)1));" ON VEGA";I;:"DIED OF LACK OF AIR.":NC(I)NH(I) RG(I)(ND16)LG(I)03130 RG(I)(ND16)! DG(IS(I)1));" DIED.":NC(I)MS(I)< RE(I)(ND(252I))3070U RE(I)(ND(252I))t DE(I)3(0)NC(I)23070 59980:NK(DE(I)(0)NC(I)2):NC(I)NC(I)NK:C$((1)2);" ON VEGA";I". ";NK;"COLONIST";E$((NK1));" DIED."B NK(NH(I)DE(I)(0A)ė:"YOU HAVE RUN OUT OF FOOD ABOARD SHIP."::"THEN ";HA;" COLONISTS HAVE STARVED.":HA0:59995xND15000İ59980 I14:NC(I)MS(I)İ59980:"POPULATION OF VEGA";I;" EXCEEDS MAXIMUM SUPPORTABLE POPULATION.":NC(I)MS(I);" COLONIST";E$((NC(I)M::" VEGA ";I:NP0750:NP:NPI:NDND2:FSFS2HA:2000 "YOU ARE ALREADY AT VEGA";I:"PRESS 1 TO CHOOSE ANOTHER PLANET, 2 TO GO TO MAIN MENU."; A$:A$"1"A$"2"1040 A$"1"1000 $5000  IE0 FS0FS0bFS0(HPERSON DAYS"X "PRELIMINARY SCAN SHOWS 4 PLANETS. PRELIMINARY DATA AS FOLLOWS:"e :I14 "PLANET #";I:"TYPE: ";B$(KP(I)): : "GO TO WHICH PLANET ?"; A$:I(A$):I1I41010@ NPIė:2:10:" PROCEEDING TO PLANET "RE":B$(2)"V: CARBON-DIOXIDE ATMOSPHERE":B$(3)"M: OXYGEN-NITROGEN ATMOSPHERE":C$(0)"EARTHQUAKE":C$(1)"VOLCANIC ERUPTION":AA$" UNKNOWN":E$(0)"S" "ENTERING VEGA SYSTEM. DATE: 0":"COLONISTS ABOARD: 10,000 FOOD SUPPLY: 30,000,000 G(I)(0)5 PKP(I)(0):LP(I)1:P.5LP(I)0:210D DP(I)(0)p PKP(I)(0):LA(I)1:P.7LA(I)0:210 DA(I)(0) PKP(I)(0):LH(I)1:P1LH(I)0:210 DH(I)(0) I B$(0)"L: NO ATMOSPHERE":B$(1)"J: AMMONIA-METHANE ATMOSPHEnI14L xDE(I)(0):MS(I)2500((1)25001):MC(I)MS(I)((1)25001) |I4ĭKP(3)LP(3)3KP(2)LP(2)3KP(1)LP(1)3KP(4)3:LG(4)1:DG(4)(1):LP(4)1:160 ~KP(I)((1)10):KP(I)2KP(I)3 PKP(I)(0):LG(I)1:P.5LG(I)0:210 D,"ZdB$(3),DA(4),DE(4),DG(4),DH(4),DP(4),JB(4),JM(4),JS(4),LA(4),LG(4),LH(4),LP(4),MC(4),MS(4),KP(4),NC(4),NH(4),UG(4),UA(4),UP(4),UH(4),UE(4),JE(4),JG(4),JP(4),JA(4),JH(4),C$(2),SA(4),SE(4),SG(4),SH(4),SP(4),NB(4),E(1),NA(4)iHA10000:FS3E7 !! ! ! ! ! !!!!!!!!!""" " " " " """""""""  UP(NP)P:DP(NP)DP(NP)P:DP(NP)0DP(NP)0B&UP(NP)0UP(NP)0L&8500&PUA(NP)UA(NP)(ITA1):UA(NP)UA(NP)P:DA(NP)DA(NP)P:UA(NP)0UA(NP)0&DA(NP)0DA(NP)0&8500& NB(NP)NB(NP)2(I(10000NK)))'4!NDNDI:FSFSHAI:20DH(NP)0UN(NP)0%8500`%NH(NP)NH(NP)(I((10000NK))):NH(NP)MC(NP)NH(NP)MC(NP)j%8500%PUG(NP)UG(NP)(ITG1):UG(NP)UG(NP)P:DG(NP)DG(NP)P:UG(NP)0UG(NP)0%DG(NP)0DG(NP)0%8500+&PUP(NP)UP(NP)(ITP1):UP(NP)ЭA$"1"A$"7"8030$c" ";A$S$h"SPEND HOW MANY DAYS (300 MAX) ";I:I3008040|$r(A$)8090,8110,8140,8170,8060,8200$tNA(NP)NA(NP)2(I((10000NK))):8500$|PUH(NP)UH(NP)(ITH1):UH(NP)UH(NP)P:DH(NP)DH(NP)P:UH(NP)0UH(NP)0%ES ";TH;" DAYS":"6) CONSTRUCT PERSONAL ANTI BACTERIA":"UNITS ";0(10000NK);" DAY";E$((NK10000));"/PAIR"#Y"7) CONSTRUCT PERSONAL ANIMAL REPELLENT":"UNITS ";0(10000NK);" DAY";E$((NK10000));"/PAIR"::"PRESS NUMBER OF YOUR CHOICE.";$^A$:3E7NKUH(NP)"J60000::"OPTIONS:"::"1) BUILD LIVING UNITS ";0(10000NK);" DAYS EACH":"2) DESTROY DANGEROUS BACTERIA ";TG;" DAYS":"3) DESTROY TOXIC PLANTS ";TP;" DAYS"n#T"4) DESTROY DANGEROUS ANIMALS ";TA;" DAYS":"5) MAKE FRIENDS WITH NATIVICIENT MANPOWER FOR ANY OF THE COLONIZING PROCEEDURES.":3310s!BTG32000:2E7NKUG(NP)32000TG2E7NKUG(NP)!DTP32000:1E7NKUP(NP)32000TP1E7NKUP(NP)!FTA32000:15E6NKUA(NP)32000TA15E6NKUA(NP)"HTH32000:3E7NKUH(NP)32000THSP(NP)1:UP(NP)DP(NP)(I(20000NK)1)(0)(I(20000NK)):7200 SA(NP)1:UA(NP)DA(NP)(I(20000NK)1)(0)(I(20000NK)):7200 NDND1:FSFSHAI:"CONDUCTING SURVEY TYPE ";A$:I0900:I:2000@!@:NKHANC(NP):NK100ĺ"INSUFFNK)1)(0)(I(10000NK)):7200eJS(NP)MC(NP)(I(20000NK)1)(0)(I(20000NK)):7200SE(NP)1:UE(NP)DE(NP)(I(20000NK)1)(0)(I(20000NK)):7200SG(NP)1:UG(NP)DG(NP)(I(30000NK)1)(0)(I(30000NK)):7200I A$:A$"1"A$"8"7030"{" ";A$L"# OF DAYS TO BE SPENT ON SURVEY ";Iz(A$)7070,7080,7090,7100,7110,7120,7130SH(NP)1:UH(NP)DH(NP)(I(20000NK)1)(0)(I(20000NK)):7200IJB(NP)17200#JM(NP)MS(NP)(I(10000"5) BACTERIAL DANGER SURVEY: ";0(30000NK);" DAYS":"6) PLANT DANGER SURVEY: ";0(20000NK);" DAYS":"7) ANIMAL DANGER SURVEY: ";0(20000NK);" DAYS":"8) INTELLIGIENT LIFE DANGER: ";0(20000NK);" DAYq:"PRESS NUMBER OF YOU CHOICE.";vT SURVEY":3310,]60000::"OPTIONS:"::b"1) GENERAL LIFE FORM SURVEY: 1 DAY":"2) MAX POPULATION SURVEY: ";0(10000NK);" DAYS":"3) BUILDING MATERIALS SURVEY: ";0(20000NK);" DAYS":"4) GEOLOGICAL DANGER SURVEY: ";0(20000NK);" DAYS"l(I)ĺUE(I):6100AA$>"CURRENT # OF COLONISTS-";NC(I)^"# OF LIVING UNITS-";NH(I)"# OF PERSONAL ANTI-BACTERIA UNITS-";NB(I)"# OF ANIMAL REPELLENT UNITS-";HA(I)3310X:NKNC(CP)HA:NK100ĺ"INSUFFICIENT PERSONNEL TO CONDUCAA$C"PLANT DANGER: ";:SP(I)(JB(I)LP(I)0)ĺUP(I):6070LAA$"ANIMAL DANGER: ";:SA(I)(JB(I)LA(I)0)ĺUA(I):6080AA$"INTELLIGENT LIFE DANGER: ";:SH(I)(JB(I)LH(I)0)ĺUH(I):6090AA$"GEOLOGICAL DANGER: ";:SENTELLIGIENT LIFE",JB(I)LG(I)0ĺ"NONE">JB(I)0ĺAA$w"MAX POSSIBLE # OF SETTLERS: ";:JM(I)ĺJM(I):6045AA$"MAX POSSIBLE LIVING UNITS: ";:JS(I)ĺJS(I):6050AA$"BACTERIA DANGER: ";:SG(I)(JB(I)LG(I)0)ĺOG(I):6060"DATE: ";ND:IT1:NDND25:FSFSHA25:2005Yp"INFORMATION ON WHICH PLANET (1-4) ?";usA$:A$"1"A$"4"6003vI(A$)z::"PLANET VEGA";I:::"LIFE FORMS: ";:JB(I)ĭLG(I)ĺ"BACTERIA";:LP(I)ĺ", PLANTS";:LA(I)ĺ", ANIMALS";:LH(I)ĺ", I"4) TRANSPORT COLONISTS TO/FROM VEGA";NP:"5) EMBARK FOR ANOTHER PLANET""6) WAIT FOR EVENT"::"PRESS NUMBER OF YOUR CHOICE.";A$:A$"1"A$"6"5030" ";A$(A$)6000,7000,8000,9000,1000,5500|:12:10::"WAITING.":-16:10: