0,1: 4,1: (27)"C"O "    " A$"     ": A$: A$ "     " A$: A$: "    " " COPYRIGHT 1985 BY "`10)"OLAF PANZ":10)"DROSSELGASSE 4":10)"2095 MARSCHACHT" T0 45: A$: 1552T,(A$): T: 1585:5 33: 29: " VERSUCHEN SIE ERDOEL ZU FOERDERN UND ZU RAFFINERIEREN"4" KAUFEN SIE SICH ERDOELFELDER ,PIPELINES UND BOHRGESTAENGE ZUM ROHOELFOERDERN."" KAUFEN SIE SICH DANN EINE RAFFINERIE UND RAFFINERIEREN SIE DAS ROHOEL ZU"" BENZIN UND HEIZOEL.":" VERSUCHEN SIE MIT DEN GEGEBENEN"" KAPITAL, SOVIEL GELD,"" WIE MOEGLICH HERAUSZUWIRTSCHAFTEN,": 33_ 29: "IHNEN WERDEN FOLGENDE KOSTEN LAUFEND ABGEZOGEN :" " 1. 0.7%VERMOEGENSSTEUER,WENN SIE MEHR  ALS 70 000 $ HABEN."" 2. UNTERHALTUNGSKOSTEN FUER IHRE UNTERNEHMEN."5 "DIE FOERDERUNG IHRER OELQUELLEN NIMMT  MIT DER ZEIT AB. ""SEIEN SIE AUF UEBERASCHUNGEN GEFASST ! " 13)"VIEL SPASS":33:38 ""16)"OEL": " COPYRIGHT 1985 BY OLAF PANZ": " " A$:A(A$): A1 AAN 31 " ":1! 239,0: 1,16,24,"TASTE": A$:l" 29: "SPIELER :";NA$(SP);" KAPITAL :";KA(SP)"$":#"SIE HABEN NICHT GENUG GELD !!": 33: 54$ AD,11,FF,29,EF,8D,11,FF,A6,C6,E0,40,F0,10,AD,11,FF,09,10,8D,11,FF,8E,0E2% FF,A2,C7,8E,12,FF,4C,0E,CE,78,A2,10,8E,14,03,A2,06,8E,15,03,58,60i& 29: "WIEVIELE SPIELER (1-3) ?":AN3: 30: 216' KA(3),NA$(3),FE(A3),FM(A3),RA(A3),RP(A3),BT(A),PI(A),LE(A),SC(A),RO(A)( ST(9,3),WE(9),KR(A))QA: "LEVEL (1-9) 1 = SCHWER 9 = LEICHT ?":AN9: 30:WA:AQh*SDA: X(A) (A100.5)100: Y(A)(A.5):BO0:BP((1)1E4)5E4+ T1A: "IHR NAME, SPIELER";T:BT(T)0, "";NA$(T): (NA$(T))9 "DER NAME IST ZU LANG": 44-KA(T)1E5W5E4: T5. T1 SD3:FE(T)0:FM(T)((1)3E3)9E3:FP(T)((1)1E4FM(T))M/KA(T)1E5W5E4: Ti0SP1:BB((1)1E3)3E3s1 2242 T1SD3:Q03 FM(T)1000 29:"DIE OELQUELLE NR."T" IST VERSIEGT.": 33:Q204 Q20 FE(T)20:"SIE GEHOERT :";NA$(FE(T))5 T6 34]710);"KAUFEN":" (1) OELFELDER KAUFEN":" (2) RAFFINERIEN KAUFEN"8 " (3) BOHRGESTAENGEFIRMA KAUFEN":" (4) BOHRGESTAENGE KAUFEN"9" (5) PIPELINE KAUFEN":" (6) NAECHSTES MENUE": 4:AN6: 30: A 114,127,135,149,157,59: 58K; 34: 10);"VERKAUFEN":" (1) HEIZOEL VERKAUFEN"< " (2) BENZIN VERKAUFEN":" (3) ROHOEL VERKAUFEN"= " (4) WEITER":AN4> 30: A 166,170,174,63: 62? 34: 5);"SONSTIGES"@ " (1) KAPITALSTATISTIK":" (2) SACHUEBERSICHT"YA " (3) PRODUKTIONSUEBERSICHT":" (4) KREDIT AUFNEHMEN"B " (5) KREDIT ZURUECKBEZAHLEN": " (6) NAECHSTER SPIELER"CAN6: 30: A 178,188,198,206,211,68: 67D E801:ST(E1,SP)ST(E,SP):WE(E1)0: E:ST(0,SP)KA(SP):A03E T1SD3: FE(T)SP AA1SF:Q0: API(SP) API(SP)mG ABT(SP) ABT(SP)|H A0 76IT1SD3:FM(T)0AA1:QQFM(T):FM(T)FM(T) Y(FM(T)100((1)10))J A0 TKRO(SP)RO(SP)Q10L KR(SP)0 78: Q Y(KR(SP)10)MM KA(SP)Q1 KR(SP)KR(SP)Q: KA(SP)KA(SP)QbN RO(SP)0 81O T1SD3: RA(T)SP T: 81PQ Y(RO(SP)3):RO(SP)RO(SP)Q:LE(SP)LE(SP) Y(Q3):SC(SP)SC(SP) Y(Q3) QQ0:T1SD3:RA(T)SP QQ ((1)1E3)4E3JR T:QQPI(SP)(((1)1E3)3E3)BT(SP)(((1)3E3)4E3)eT QKA(SP) 88: 34U"DIE UNTERHALTUNGSKOSTEN FUER IHR BETRIB IST GROESSER, ALS IHR KAPITAL."V KR(SP)0 KR(SP)Q:"SIE NEHMEN EINE KREDIT VON"Q"$ AUF": 33: 89 W 33XKA(SP)KA(SP)QXY KA(SP)KR(SP)7E4 KA(SP)KA(SP) Y(KA(SP)100.7)vZ BT(SP)0 (1).1 94[ 34: "IHR BOHRGESTAENGE WURDE BESCHAEDIGT.":Q((1)100)2000\"EINE REPERATUR KOSTET"Q" $.":KA(SP)KA(SP)Q] 33 ^ T1SD3: FE(T)SP T:977 _ (1).1 97: 34 ` " EINS IHRER OELFELDER IST UEBERASCHEND  VERSIEGT.":FE(T)200: 33 a T1SD3: RA(T)SP :104 b (1).1 100: 34 !c " EINE IHRER RAFFINERIEN IST EXPLODIERT.":RA(T)200: 33: 104#!d (1).1 104: 34^!e "IN IHRER RAFFINERIE IST EIN TANK":Q Y(RO(SP)10)!f"GEPLATZT. ES SIND "Q" LITER ROHOEL":"AUSGELAUFEN.": 33:RO(SP)RO(SP)Q!gRO(SP)RO(SP)Q!h (1).1 PT(SP)0 106'"i 34:" IHNEN IST EINE PIPELINE GEPLATZT.":PI(SP)PI(SP)1: 33F"j (1).1 BT(SP)0 108"k 34: " IHNEN IST EIN BOHRGESTAENGE ZERBROCHEN.": 33:BT(SP)BT(SP)1"l T1SD: KA(T)1 112: T: 29"m " ALLE SPIELTEILNEHMER SIND PLEITE."#n "WOLLEN SIE NOCHEINMAL SPIELEN ?"J#o " (1) JA":" (2) NEIN":AN2: 30: A1 : k#pSPSP1: SPSD SP1: 224#r T1SD3: FE(T)0 116: T#s "ES SIND ALLE OELFELDER VERKAUFT.": 33: 54#t 34: "FOLGENDE OELFELDER KOENNEN SIE KAUFEN :"H$u10);"OELFELD QUALITAETPREIS ":10)""$vE0: T1SD3:A$(FP(T))"$": FE(T)0 T:123: EE1$w 10);" ";T;" ": 1,30,9E,A$$x FM(T)1E4 A$"SCHLECHT": 122 %y FM(T)1E4 FM(T)11000 A$"MITTEL": A$"GUT":%z 1,20,9E,A$: : Tj%{ :"WELCHES OELFELD WOLLEN SIE KAUFEN ?"%|ANSD3: 30: FE(A)0 124%~KA(SP)KA(SP)FP(A):FE(A)SP: 59% 231% 34: "FOLGENDE RAFFINERINEN KOENNEN SIE KAUFEN"& T1SD3: RA(T)0 131U& "RAFFINERIE ";T;" : PREIS :";RP(T)"$": 1,(T2(T2))5& T:"WELCHE RAFFINERIE WOLLEN SIE KAUFEN ?":ANSD3& 30: RA(A)0 132& KA(SP)RP(A)0 35&KA(SP)KA(SP)RP(A):RA(A)SP: 59,' BOSP "IHNEN GEHOERT DIE BOHRGESTAENGEFIRMA": 33: 54' 34:"INTER BOHR IST DIE EINZIGE FIRMA,  DIE BOHRGESTAENGE HERSTELLT."'"SIE GEHOERT Z.Z. :";: BO0 "BANK": NA$(BO)( "SIE IST FUER ";BP;"$ ZU KAUFEN.": "WOLLEN SIE DIE FIRMA KAUFEN ?")( " (1) JA": " (2) NEIN"l(AN2: 30:A254: KA(SP)BP0 35: KA(BO)KA(BO)BP: 34(KA(SP)KA(SP)BP:BOSP: "LEGEN SIE NUN DEN NEUEN VERKAUFSPREIS") "FUER DIE FIRMA FEST.ER DARF NICHT MEHR ALS 5% VOM ALTEN WERT ABWEICHEN."D)"ALTE PREISE: FIRMA :";BP"$",,"BOHRGESTAENGE :";BB"$") A: ABP Y(5BP100)ABP Y(5BP100) "";: 144)BPA: "GEBEN SIE NUN DEN PREIS FUER EIN BOHR- GESTAENGE EIN. ER DARF AUCH NUR"* "5% VOM ALTEN WERT ABWEICHEN."A* A: ABB Y(5BB100) ABB Y(5BB100) "";: 147O*BBA: 59k*E Y(BB(SPBO)BB10)* 34:"EIN BOHRGESTAENGE KOSTET";E"$"* " (1) JA":" (2) NEIN":AN2* 30: A2 54* SPBO KA(BO)KA(BO) Y(E10)+BT(SP)BT(SP)1: 59/+ 34:Q Y( (1)2E3)2E4u+"EINE PIPELINE KOSTET ";Q"$": "WOLLEN SIE EINE KAUFEN ?":AN2+" (1) JA": " (2) NEIN"+ 30: A2 54+ KA(SP)Q0 35: KA(SP)KA(SP)Q+PI(SP)PI(SP)1: 59,"SIE BEKOMMEN EIN ANGEBOT :"S, Q"$ JE LITER": "SIE HABEN";QW;" LITER": "WIEVIEL WOLLEN";q, " SIE VERKAUFEN": W:, 34: LE(SP)0 "SIE HABEN KEIN HEIZOEL": 33: 59,10)"HEIZOEL VERKAUFEN":Q X((1).3).5:QWLE(SP): 163<-WLE(SP) "SOVIEL HEIZOEL HABEN SIE NICHT !":33:59:LE(SP)LE(SP)W\-KA(SP) Y(KA(SP)WQ): 63-34:SC(SP)0 "SIE HABEN KEIN BENZIN";:33:59-Q X((1).2).9: 10)"BENZIN VERKAUFEN":QWSC(SP): 163. WSC(SP) "SOVIEL BENZIN HABEN SIE NICHT": 33: 59,.SC(SP)SC(SP)W: 169f. 34: RO(SP)0 "SIE HABEN KEIN ROHOEL":33:59.Q X((1).5).1: 10)"ROHOEL VERKAUFEN":QWRO(SP): 163. WRO(SP) "SOVIEL ROHOEL HABEN SIE NICHT": 33: 59.RO(SP)RO(SP)W: 169?/ 34: 10)"KAPITALSTATISTIK": T0 9:WE(T)ST(T,SP): T/ T0 9:WE(T)WE(T)2: T: T0 9: WE(T)100 179: T/ T9 0 1:WE(T) Y(WE(T)):A$"": 1,6,7( (T2)T2)4/ WE(T)8 A$A$" ":WE(T)WE(T)8: 181;0 WE(T)1A$A$"": WE(T)2A$A$"": WE(T)5A$A$""0 WE(T)3A$A$"": WE(T)4A$A$"": WE(T)6A$A$""0 WE(T)7 A$A$""0 A$"" A$""0 1,T31,24,A$: 1,T32,24,A$: 1,T3,24,A$ 1 T: 1,15,9,"TASTE": A$: 63N1 34: 10)"SACHUEBERSICHT": " SACHE : ANZAHL :"v1A0: T0 SD3: RA(T)SP AA11 T: " RAFFINERIEN" 13)A:A0: T0 SD3: FE(T)SP A A 11 T: " OELFELDER" 15)A 2 BO SP " BOHRGESTAENGEFIRMEN" 6)"1"I2" BOHRGESTAENGE" 11)BT(SP): " PIPELINES " 11)PI(SP)|2 " HEIZOEL" 17)LE(SP): " BENZIN" 18)SC(SP)2" ROHOEL" 18)RO(SP)2 33: 632 10)"+":2 34: 10)"PRODUKTIONSUEBERSICHT": T0 SD3!3 FE(T)SP : "IHNEN FEHLT EIN OELFELD": 205g3 5)"OELFELD":BT(SP)0 "IHNEN FEHLT DAS BOHRGESTAENGE": 2053197:5)"BOHRGESTAENGE":PI(SP)0"IHNEN FEHLT DIE PIPELINE":2053 197: 5)"PIPELINE": 10)"=": 5)"ROHOEL": T0SD3*4 RA(T)SP T: "IHNEN FEHLT EINE RAFFINERIE": 205f4 197:5)"RAFFINERIE":10)"=": 5)"BENZIN + HEIZOEL"t4 33: 634 34: KR(SP)0 "SIE HABEN SCHON EINEN KREDIT": 33: 634 10)"KREDIT NEHMEN":"SIE KOENNEN BIS ZU 100000 $ LEIHEN."5"BEI EINEM ZINSSATZ VON 10%."g5 "WIEVIEL GELD WOLLEN SIE LEIHEN ";Q: Q1 Q1E5 "";: 2095KA(SP)KA(SP)Q:KR(SP)Q: 635 34:KR(SP)0 "SIE BRAUCHEN KEINEN KREDIT TILGEN":33: 635"IHR KREDIT BETRAEGT "KR(SP)" $."6 "WIEVIEL WOLLEN SIE ABBEZAHLEN ?"H6 Q: QKR(SP) QKA(SP) "";:214q6KR(SP)KR(SP)Q:KA(SP)KA(SP)Q: 636 29: " "6 " WOLLEN SIE AUFHOEREN ZU SPIELEN ?":" (1) JA":" (2) NEIN"6AN2: 30: A2 7 34: 10);"RANGFOLGE"=7 T1 SD:KA(T)KA(T)KR(T): T: T1 SD: E1 SD17W0: KA(E)KA(E1) QKA(E):KA(E)KA(E1):KA(E1)Q:Q$NA$(E):W17 W1 NA$(E)NA$(E1):NA$(E1)Q$7E,T:T1SD:"";NA$(T) 15 (NA$(T)))":" 5)KA(T)"$": T:110$8 29: 5)" SPIELER KAPITAL RANG `8 5)"": T1 SD218 5)" ": T: T1 SD8 1,7,6T2,NA$(T):A$( X(KA(T)))"$": 1,18,6T2,A$9 KA(T)KA(1) KA(T)KA(2) KA(T)KA(3) A$"1": 230X9 KA(T)KA(1) KA(T)KA(2) KA(T)KA(3) A$"2": A$"3"u9 1,33,6T2,A$: T: 339PM0: T1 SD3: RA(T)0 PM1: T: 2339 T9 PM1 1289 (147);"KEINE RAFFINERIE ZU KAUFEN": 33: 55