/ BARREL REM] AMA-PRODUCTIONS REMh1,""S12:G(S)10000000:BI(S)1:BT(S)5:TA(S)5:RV(S)1000000SBI5000000:BT2000000:TA1000000:KO100000:P5 50:4,3,3$ "============= B A R R E L =============="D "NAME DER 1. FIRMA:";S$(1)e "NAME DER 2. FIRMA:";S$(2)(S$(1))18(S$(2))1811W152:S12"";:100:S6000: ZU TESTZWECKEN WURDE [GOSUB 5000]ENTFERNT ! (1.BEFEHL)#W10W20W30W40W50W5280(W*21,2:4,243""a4" "5" # "6" $$ $$$ $$$ $$$ $$$ $ ### "7" $ $ $ $ $ $ $ $ $ $ # "8" $ $$ $ $ $ $ $ $ $ # "B9" $$ $$$ $$$ $$$ $$$ $ # "o:" $ $ $$ $$ $$ $ $ # ";" $ $ $ $ $ $ $ $ $ $ # "<" $$ $ $ $ $ $ $ $$$ $$$ # "=" # "%>"  1987 AMA-PRODUCTIONS # "R?" # "@" WER DAS OEL HAT, # "A" HAT DAS GELD. # "B" WER DAS GELD HAT, # "C" HAT DIE M A C H T. # ";D" # "pE"  ";F"  ";G" "; H" ";<I" ";oJ" ";{K9000:P ZWISCHENABRECHNUNGUW52Z ENDABRECHNUNGd260f990:992gh" BARGELD :";G(S)j" KREDIT :";K(S)-l" OELVORRAT :";B(S)Gn" OELPREIS :";Pdo" RESTVORKOMMEN :"RV(S)p" BOHRINSELN :";BI(S);"/";FI(S)r" BOHRTUERME :";BT(S);"/";FT(S)t" TANKER :";TA(S)v" KONZESSIONEN :";KO(S) x" VERTRAEGE :";V(S)yzL" AKTIONEN "Rl" 1 = INVESTITIONEN"" 2 = ABSATZ"" 3 = FOERDERUNG"" 4 = POLITIK"990:996:985:A$""A(A$):A1A4250"";:102:990A1000,2000,3000,40004"";:102:200:250IZ((1)99)1:ZC1500::mC11000:C:" O.K.":905:" [SPACE]"A$:" ";:" ";S$(S)30)W33);".WOCHE":" NR. ODER [SPACE]":4" NR. ODER [F1]":M" INVESTITIONEN"St" 1 = BOHRINSEL :";BI;"$"" 2 = BOHRTURM :";BT;"$"" 3 = TANKER :";TA;"$"" 4 = KONZESSION :";KO;"$"SU(S)0" 5 = SUPERMARKT" 990:994985:A$" "8 A(A$):A1A51032] A51600:"";:102:990:1000"";:102:990:"":A1100,1200,1300,1400"";:102:990:1000LA$"BOHRINSELN":ZBI:1500:A$"BOHRTUERME":ZBT:1500: A$"OELTANKER":ZTA:1500:,xA$"KONZESSIONEN":ZKO:1500:V:" WIEVIEL ";A$;" WUENSCHEN SIE ZU"g" KAUFEN";X|X0XZG(S)G(S)G(S)XZ(A$,2)"LN"BI(S)BI(S)X:1550(A$,2)"ME"BT(S)BT(S)X:1550(A$,2)"ER"TA(S)TA(S)X:1550&(A$,2)"EN"KO(S)KO(S)X:15501920:A@SU(S)0gE" S U P E R M A R K T :":SU1F" KAUFEN = < NR. ! >"J900:Z(Z25)LT14:ZTA(T)10:1614MA(T)10NTO""P910:" A C H T U N G !":910)T" 1 - BOHRINSEL :";5000000(A(1)50000)YV" 2 - BOHRTURM :";2000000(A(2)20000)X" 3 - TANKER :";1000000(A(3)10000)Z" 4 - KONZESSION :";KO(A(1)(KO10))^T1100: A$:A(A$):A1A4A$"":1640c" Z U S P A E T !":910:SU(S)1:-hA1650,1655,1660,1665NrG(S)5000000(A(1)50000)sG(S)G(S)5000000(A(1)50000):BI(S)BI(S)1:1670wG(S)2000000(A(2)20000)xG(S)G(S)2000000(A(2)20000):BT(S)BT(S)1:1670|G(S)1000000(A(3)10000)5 }G(S)G(S)1000000(A(3)10000):TA(S)TA(S)1:1670S G(S)KO(A(4)(KO10)) G(S)G(S)KO(A(4)(KO10)):KO(S)KO(S)1:1670 920: " ABSATZ" " WIEVIEL OEL (IN BARREL) WUENSCHEN SIE" " ZU VERKAUFEN ";X X0XB(S)#!G(S)G(S)XP:B(S)B(S)X:920:9! " FOERDERUNG"?! U! " 1 = BOHRINSEL"j! " 2 = BOHRTURM"! " 3 = TESTBOHRUNG / INSEL"! " 4 = TESTBOHRUNG / TURM"! " 5 = EINSTELLUNG"! ! 990:994! 985:A(A$):A$" "" A1A53030" A3A43040." "";:102:990:""d" A3100,3200,3300,3400,3600:"";:102:990:3000" " WIEVIELE BOHRINSELN SOLLEN ZUSAETZLICH""& " FOERDERN ";X"0 X0XBI(S)": FI(S)FI(S)X:BI(S)BI(S)X:920:# " WIEVIELE BOHRTUERME SOLLEN ZUSAETZLICH"'# " FOERDERN ";X;# X0XBT(S)b# FT(S)FT(S)X:BT(S)BT(S)X:920:}# G(S)500000BI(S)0# G(S)G(S)500000:3500# X0# FI(S)FI(S)1:BI(S)BI(S)1:RV(S)RV(S)500000:#H G(S)200000BT(S)0$R G(S)G(S)200000:3500$\ X0N$f FT(S)FT(S)1:BT(S)BT(S)1:RV(S)RV(S)200000:u$ "":" T E S T B O H R U N G :"$ " STOPPEN SIE DIE BOHRUNG MIT [SPACE] !"$ 900:Z(Z8)300200$ " TIEFE DES OELVORKOMMENS :";Z;"METER":9105% "100 500 1000 2000 3000 ";g% "";% "ѺѺѺѺѺѺѺѺ"% "":C911:C;"-";:CC1100:CC,C:0% "";& C140:" ";:TSTS1& A$:A$" "3550-& CC130:CC,CY& " F E H L B O H R U N G ":910:3560& TS100Z:" QUELLE ANGEZAPFT !":X1:TB0:TS0:910:& :" SIE HABEN DIE OELSCHICHT VERFEHLT !":910& TS0:TBTB1:TB3TB0:X0:' "":3512('" EINSTELLUNG DER FOERDERUNG BEI"S'" BOHRINSELN :";X:X0XFI(S)3630s'$FI(S)FI(S)X:BI(S)BI(S)X'." BOHRTUERMEN :";X:X0XFT(S)'8FT(S)FT(S)X:BT(S)BT(S)X:'" POLITIK"'" 1 = PARTEISPENDEN"(" 2 = SABOTAGE"(" 3 = ABLENKUNG",(" 4 = SPIONAGE"E(" 5 = UMWELTSCHUTZ"Y(" 6 = KREDIT"g(990:994z(985:A$" "(A(A$):A64600(A1A54025("";:102:990(" ALLE EINGABEN IN 100000 $. ";)" KEINE AUSGABE DER EINGABE ! ";I)" "k)985:AA(A$):AA0AA94040)AA100000G(S))G(S)G(S)AA100000)A4100,4200,4300,4400,4500:"";:102:990:4000)P(S)P(S)AA:)hSA(S)SA(S)AA100000:*AB(S)AB(S)AA100000:6*0SP(S)SP(S)AA100000:R*UW(S)UW(S)AA100000:*" KREDIT NEHMEN ODER TILGEN ? "*985:A$"N"4700* A$"T"4800*"";:102:990:4000*\"";:102:990::+a" WIEVIEL KREDIT WUENSCHEN SIE ZU NEHMEN"7+f" (IN $) ";X:X0X10000000k+pXK(S)10000000K(S)K(S)X:G(S)G(S)X:920:+z" IHR KREDITLIMIT LIEGT BEI 10000000 $."+" SIE HABEN SCHON"K(S)"$ AUFGENOMMEN.":" TASTE !":A$:+"";:102:990::"," WIEVIEL KREDIT WUENSCHEN SIE ZU TILGEN"B," (IN $) ";X:X0XK(S)e,K(S)K(S)X:G(S)G(S)X:920:q,"";,"CONTRACTCONTRACTCONTRACTCONTRACTCONTRACT"," ";S$(1)30)"= 1"," ";S$(2)30)"= 2"-" BEIDE"30)"= ":" KEINER"30)"= *":+-" REAKTIONSTASTE LINKS = [A]"V-" REAKTIONSTASTE RECHTS = [;]"-" START = [SPACE]":T0-985:A$" "5024-""-""." "7.900:Z(Z10)150:C1Z:T.900:Z((Z1)25)1:C0o.Z5050,5051,5052,5053y.5030.C$"*":5055.C$"1":5055.C$"2":5055.C$"":5055."";C$.A$:A$"A"5100 /A$";"5200"/CC1:C305300,/5060K/C$"1"C$""V(1)V(1)1j/C$"2"C$"*"V(1)V(1)2t/5300/PC$"2"C$""V(2)V(2)1/ZC$"1"C$"*"V(2)V(2)2/" "/"";0" VERTRAEGE ";S$(1)":"30)V(1)@0" VERTRAEGE ";S$(2)":"30)V(2)U0TT1:T405028o0C12:V(C)0V(C)0v0C0"":910:0pS12:"";:990:992: UMWELTSCHUTZ0rU(S)U(S)UW(S):U(S)100000W62001u"ACHTUNG ! UMWELTVERSCHMUTZUNG !"21zU(S)100000W26200r1"WEITE GEBIETE VERSEUCHT ! OELPEST !":P(S)29999962001" STRAFE : ";:900:Z(Z10)100000(W2U(S)100000)1Z;"$":G(S)G(S)Z1P(S)19999962001U(S)100000W46200 2FT(S)06040K2"EIN BOHRTURM WIRD ZWANGSGESCHLOSSEN !":FT(S)FT(S)1:6200]2FI(S)062002"EINE BOHRINSEL WIRD ZWANGSGESCHLOSSEN !":FI(S)FI(S)1:620028 PARTEISPENDEN2=PA(S)PA(S)P(S):PA(S)999999G(S)G(S)(PA(S)1000000)3 SABOTAGE3S1D23S2D123SA(D)SA(D)100000O3900:Z(Z10):ZZSA(D)^3Z176330x3FI(S)0BI(S)063603BI(S)0BI(S)BI(S)1:63283FI(S)0FI(S)FI(S)1:6328363603"EINE BOHRINSEL WURDE ZERSTOERT !":63504Z1363404FT(S)0BT(S)06360=4BT(S)0BT(S)BT(S)1:6338^4FT(S)0FT(S)FT(S)1:6338h463604"EIN BOHRTURM WURDE ZERSTOERT !":63504Z963604TA(S)063604TA(S)0TA(S)TA(S)1:634846360 5"EIN OELTANKER IST GESUNKEN !":6350-5"S A B O T A G E ! ! !"756400F5 SPIONAGEX5SP(S)165005"ERKENNTNISSE DER ABTEILUNG SPIONAGE :"5"AUSDRUCK DER ";S$(D);" - POLITIK"5 "----------------------------------------" 6 SP(S)1000006470,6460,6450,6440,643056" - SABOTAGE :";SA(D)100000V6(" - PARTEISPENDEN :";P(D)x62" - UMWELTSCHUTZ :";UW(D)6<" - ABLENKUNG :";AB(D)6F" - SPIONAGE :";SP(D)6dG(S)G(S)AB(S)6900:Z50T1:T06900:Z(Z10)!7T0BIBIZ10000:BIBIZ1000097900:Z50T1:T0L7900:Z(Z10)p7T0BTBTZ5000:BTBTZ50007900:Z50T1:T07900:Z(Z10)7T0TATAZ4000:TATAZ40007900:Z50T1:T07 900:Z(Z10) 8T0KOKOZ400:KOKOZ400$8900:Z50T1:T078900:Z(Z10)S8"T0PPZ10:PPZ10`8$P1P1o8&P10P108,SU(S)0:TB(S)08 FOERDERUNG8FI(S)068508T1FI(S)8RV(S)T200000T:68508RV(S)RV(S)200000:B(S)B(S)2000009T9FT(S)06999"9T1FT(S)>9RV(S)T50000T:6999d9RV(S)RV(S)50000:B(S)B(S)50000k9T9W" TASTE":A$:S9XS12:SA(S)0:P(S)0:SP(S)0:UW(S)0:AB(S)0:S9]8000: TEST AUF SPIELENDE !9b:@ SPIELENDE :JS12J:TG(S)(BI(S)BIFI(S)BIBT(S)BTFT(S)BTTA(S)TA)S:h:^""S$(S)" IST PLEITE !"v:hS:A$::(#3:A,B,C:A0T1800:::-#1,A,B:2,C,B:2#9000:%453,12,739:&%596,32,810:0%453,12,739::%737,32,881;D%596,12,810;N%685,24,854";X%643,12,8342;b%685,12,854B;l%596,24,810R;v%453,24,739b;%596,24,810r;%770,24,897;%739,24,881;%685,12,854;%704,12,864;%739,48,881;%453,12,739;%596,32,810;%453,12,739;%737,32,881<%596,12,810<%685,24,854"<%643,12,8342<&685,12,854B< &596,24,810R<&453,24,739b< &596,24,810r<*&685,12,854<4&704,12,864<>&643,32,834