1 REM ======================= 2 REM = = 3 REM = ACHTUNG LADER AB- = 4 REM = = 5 REM = TIPPEN !! = 6 REM = = 7 REM ======================= 10 POKE52,160:POKE56,160 12 DIM SP$(2),PA(2),KA(2),SC(2),LE(2),WO(2),T(2),SU(2),SB(2),W(2),S(2),L(2),JA(2) 14 DIM R$(2) 16 PRINTCHR$(147):HJ=1 18 POKE53280,1:POKE53281,1 30 PRINT TAB(10)"[144]I N T E R N A T 1" 40 PRINT TAB(5)"[151]EIN PROGRAMM VON STEFAN BELS" 50 PRINT TAB(12)"[152]SEPTEMBER 1986" 79 PRINT"WIEVIELE MITSPIELER (1/2) ?" 80 POKE198,0 81 GETA$:IFA$=""THEN81 82 IFVAL(A$)<1ORVAL(A$)>2THEN81 83 A=VAL(A$):PRINT"[147]" 84 FORI=1TOA:PRINT" NAME SPIELER"I 85 PRINT"":GOSUB32500:SP$(I)=SP$:NEXT 94 FORI=1TO2:KA(I)=25000:SC(I)=1:PA(I)=1:LE(I)=1:WO(I)=15:S(I)=30:T(I)=30 95 SB(I)=30:SU(I)=30:L(I)=1:W(I)=0:R$(I)="REFERENDAR":JA(I)=1975:NEXT 98 GOSUB10000 99 POKE53280,6:POKE53281,0:PRINT"[147]" 100 PRINT"[145] " 110 PRINT"[145] " 120 PRINT"[145][145]";R$;"[146]":PRINT"":PRINTTAB(21)"[145]";SP$;"[146]" 140 PRINT" " 150 PRINT"[149][169] [223][146][163] SCHUELER (";S;")" 155 PRINT"[149][169] [223]" 160 PRINT"[149][169] [223][146][164] TISCHE (";T;")" 165 PRINT"[149]@ [146][149][191]" 170 PRINT" [146][166][166] [146][166][166] [146][166][166] [146][165] STUEHLE (";SU;")" 175 PRINT" [146]" 180 PRINT" [146][166][166] [146][166][166] [146][166][166] [146]$ KAPITAL (";KA;"[157])" 185 PRINT" [146][166][166] [146][149][167][168] [146][166][166] [146]" 190 PRINT" [146][149][167][168] " 200 PRINT"^-ERWEITERN DES";SPC(8)"[192]-EINSTELLEN" 203 PRINT" GEBAEUDES";SPC(14);"VON LEHRERN" 210 PRINT"_-AUSSTATTUNG [209]-RAUS" 220 PRINT"[193]-BILANZ" 230 PRINT"[194]-BESITZ" 240 GOSUB15000 250 IFCO=1THEN500 255 IFCO=2THEN1000 260 IFCO=3THEN2000 265 IFCO=4THEN3000 270 IFCO=5THEN4000 275 IFCO=6THEN5000 500 PRINTCHR$(147):POKE53280,9:POKE53281,9 510 GOSUB12000 540 PRINT" [146]GEBAEUDEERWEITERUNG " 550 PRINTTAB(16)"ANZAHL";SPC(8);"PREIS" 560 PRINT"^ SCHULRAUM";SPC(6);SC;SPC(9);"5000" 570 PRINT"_ PARTYRAEUME";SPC(4);PA;SPC(9);"2000" 580 PRINT"[193] LEHRERZIMMER";SPC(3);LE;SPC(9);"4000" 590 PRINT"[194] WOHNRAEUME";SPC(5);WO;SPC(8);"3000" 600 PRINT"[209] MENUE " 610 GOSUB15000 620 IFCO=1ANDKA>4999THENSC=SC+1:KA=KA-5000:PRINT"":GOTO510 630 IFCO=2ANDKA>1999THENPA=PA+1:KA=KA-2000:PRINT"":GOTO 510 640 IFCO=3ANDKA>3999THENLE=LE+1:KA=KA-4000:PRINT"":GOTO 510 650 IFCO=4ANDKA>2999THENWO=WO+1:KA=KA-3000:PRINT"":GOTO 510 660 IFCO=6THEN99 670 IFCO=5THENGOSUB15000 750 PRINT"[147][144]NICHT GENUG GELD !!":FORI=1TO2500:NEXT:GOTO500 1000 PRINTCHR$(147):POKE53280,3:POKE53281,3 1010 GOSUB12000 1040 PRINT" [146]AUSSTATTUNG " 1050 PRINTTAB(16)"ANZAHL";SPC(8);"PREIS" 1060 PRINT"^ TISCHE ";SPC(7);T;SPC(9);"500" 1070 PRINT"_ STUEHLE";SPC(7);SU;SPC(9);"300" 1080 PRINT"[193] SCHULBUECHER";SPC(2);SB;SPC(9);"90" 1090 PRINT"[194] WERBUNG";SPC(7);W;SPC(9);" 300" 1100 PRINT"[209] MENUE " 1110 GOSUB15000 1120 IFCO=1ANDKA>499THENT=T+1:KA=KA-500:PRINT"":GOTO1010 1130 IFCO=2ANDKA>299THENSU=SU+1:KA=KA-300:PRINT"":GOTO1010 1140 IFCO=3ANDKA>89THENSB=SB+1:KA=KA-90:PRINT"":GOTO1010 1150 IFCO=4ANDKA>299THENW=W+1:KA=KA-300:PRINT"":GOTO1010 1160 IFCO=6THEN99 1170 IFCO=5THENGOSUB15000 1500 PRINT"[147][144]NICHT GENUG GELD !!":FORI=1TO2500:NEXT:GOTO1000 2000 PRINTCHR$(147):POKE53280,12:POKE53281,12 2010 GOSUB12000 2040 PRINT" [146]BILANZ " 2050 PRINT"IHR INTERNAT IST ZU";INT(S*100/(WO*2))"%"; 2055 PRINT"AUSGELASTET." 2060 PRINT"IHR KAPITAL BETRAEGT:";KA 2070 PRINT"SIE BESCHAEFTIGEN";L;"LEHRER ." 2080 PRINT"WIR SCHREIBEN DAS JAHR : ";JA 2085 PRINT"";HJ;". QUARTAL" 2090 PRINT"[209] MENUE " 2100 GOSUB15000 2110 IFCO=6THEN99 2120 PRINT"":GOTO2010 3000 PRINTCHR$(147):POKE53280,6:POKE53281,6:PRINT"" 3010 GOSUB12000 3040 PRINT" [146]BESITZ " 3050 PRINT"SIE BESITZEN : " 3060 PRINT"";SC;"SCHULRAUME" 3070 PRINT"";PA;"PARTYRAEUME" 3080 PRINT"";LE;"LEHRERZIMMER" 3085 PRINT"";WO;"WOHNRAEUME" 3090 PRINT"[209] MENUE " 3100 GOSUB15000 3110 IFCO=6THEN99 3120 PRINT"":GOTO3010 4000 PRINTCHR$(147):POKE53280,10:POKE53281,10:PRINT"" 4010 PRINT"[145]":GOSUB12000 4040 PRINT" [146] ARBEITSMARKT LEHRER  " 4050 PRINT"^ LEHRER EINSTELLEN" 4060 PRINT"[193] LEHRER ENTLASSEN " 4070 PRINT"[209] MENUE" 4073 PRINT"SIE BESCHAEFTIGEN ";L;"[157]"; 4074 PRINT" LEHRER. " 4075 PRINT"(EIN LEHRER BEKOMMT 2000 GEHALT)" 4080 GOSUB15000 4085 IFCO=1THENL=L+1:PRINT"":GOTO4010 4090 IFCO=3ANDL=1THENL=1:PRINT"":GOTO4010 4100 IFCO=3THENL=L-1:PRINT"":GOTO4010 4115 IFCO=6THEN99 4120 IFCO<>6ORCO<>1ORCO<>3THENPRINT"":GOTO4010 5000 PRINTCHR$(147):POKE53280,10:POKE53281,10:PRINT"[144]" 5010 PRINT"[145]":GOSUB12000 5035 NE=INT(RND(1)*8000)+1:SE=INT(RND(1)*ABS(KA)/75)+1:GT=INT(RND(1)*1000)+1 5040 PRINT" [146] ENDABRECHNUNG ";JA;"  " 5050 PRINT"";L*2000;"DM LEHRERVERDIENST" 5053 IFL=0THENKA=KA*1 5055 KA=KA-L*2000 5058 AP=INT(RND(1)*400)+1 5060 PRINT"";NE;"DM NEBENAUSGABEN" 5065 KA=KA-NE-AP 5070 PRINT"";S*150;"DM SCHUELEREINNAHMEN" 5075 KA=KA+S*150 5080 PRINT"";GT;"DM GETRAENKEEINNAHMEN" 5085 KA=KA+S*10 5090 PRINT"";SE;"DM STEUERN" 5095 PRINT"";AP;"DM FUER POLITISCHE AUSBILDUNG." 5100 KA=KA-SE 5110 PRINT"ENDKAPITAL :";KA 5120 PRINT" TRIGGER !" 5130 GOSUB15000 5131 IFCO<>6THEN5130 5140 PRINTCHR$(147) 5150 IFS>60ANDKA>50000THENR$="LEHRER" 5160 IFS>90ANDKA>75000THENR$="DIREKTOR" 5170 IFS>120ANDKA>125000THENR$="STUDIENASSESSOR" 5180 IFS>150ANDKA>125000THENR$="STUDIENRAT" 5190 IFS>165ANDKA>150000THENR$="OBERSTUDIENRAT" 5210 IFS>200ANDKA>175000THENR$="OBERSTUDIENDIREKTOR" 5220 IFS>225ANDKA>200000THENR$="KULTUSMINISTER":GOTO60000 5300 PRINTCHR$(147):POKE53280,5:POKE53281,5:PRINT"[144]":ZG=INT(RND(1)*S/10)+1 5305 AG=INT(RND(1)*S/10) 5310 GOSUB12000 5340 PRINT" [146] SCHULAUSBILDUNG  [146]" 5350 PRINT"";AG;"SCHUELER BEENDETEN IHRE AUSBILDUNG" 5360 PRINT"";ZG;"SCHUELER BEGINNEN IHRE AUSBILDUNG" 5370 PRINT"TRIGGER !" 5380 S=S+ZG 5395 S=S-AG 5400 GOSUB15000 5410 IFCO=6THEN6000 5420 PRINT"":GOTO5310 6000 ZF=INT(RND(1)*70)+1 6040 IFZF=57THEN6520 6050 IFZF=65THEN6530 6060 IFZF=27THEN6540 6070 IFZF=9THEN6550 6075 GOTO 7000 6080 FORI=1TO2500:NEXT:GOTO7000 6500 PRINT"SCHUELER DEMOLIEREN CAFE.KOSTEN 2300 DM":KA=KA-2300:GOTO6080 6510 PRINT"SCHULE ERHAELT EINEN PREIS. 1800 DM":KA=KA+1800:GOTO6080 6520 PRINT"FIRMA WIRBT FUERS INTERNAT.":W=W+3:GOTO6080 6530 PRINT"4 SCHULBUECHER GEKLAUT .":SB=SB-4:GOTO6080 6540 PRINT"EINBRUCH ! SCHADEN 1300 DM":KA=KA-1300:GOTO6080 6550 PRINT"SCHULFEST ! EINNAHMEN 3000 DM":KA=KA+3000:GOTO6080 7000 IFSU=>SANDT=>SANDSB=>STHEN7400 7010 S=S-3:PRINT"[147]WEGEN ZUWENIG AUSSTATTUNG VERLASSEN  3 SCHUELER DAS INTERNAT 7020 [129]I[178]1[164]1000:[130]:[137]7400 7400 [139]SC[172]30[177][178]S[167]7500 7410 [153]"WEGEN SCHULRAUMMANGELS VERLASSEN " 7420 [153]"EINIGE SCHUELER DAS INTERNAT." 7430 S[178]SC[172]30:[129]I[178]1[164]1000:[130] 7500 [139]L[172]30[177][178]S[167]7600 7510 [153]"WEGEN LEHRERMANGEL VERLASSEN " 7520 [153]"EINIGE SCHUELER DAS INTERNAT." 7530 S[178]L[172]30:[129]I[178]1[164]1000:[130] 7600 [139]W[178]0[167]7700 7602 [153]"LOADDURCH WERBUNG KAMEN"[181](W[173]2);"NEUE SCHUELER.":S[178]S[170][181](W[173]2):W[178]0 7700 [139] WO[172]2[177][178]S[167]7800 7710 [153]"WEGEN WOHNRAUMMANGEL GEHEN EINIGE" 7720 [153]"SCHUELER VOM INTERNAT AB ." 7730 S[178]WO[172]2 7800 [139]S[179]0[167]S[178]0 7810 HJ[178]HJ[170]1:[139]HJ[178]5[167]HJ[178]1:JA[178]JA[170]1 8000 [129]I[178]1[164]1000:[130] 8010 HJ[178]HJ[170]1:[139]HJ[178]5[167]HJ[178]1:JA[178]JA[170]1 8020 [139]JA[178]2020[167]40000 8500 PA(U2)[178]PA:KA(U2)[178]KA:SC(U2)[178]SC:LE(U2)[178]LE:WO(U2)[178]WO:T(U2)[178]T 8510 SU(U2)[178]SU:SB(U2)[178]SB:W(U2)[178]W:S(U2)[178]S:L(U2)[178]L:JA(U2)[178]JA:R$(U2)[178]R$ 8520 W[178]0:[137]98 10000 UU[178][182](UU[171]1) 10010 U2[178]UU[170]1 10015 [139]A[178]1[167]U2[178]1 10020 SP$[178]SP$(U2):PA[178]PA(U2):KA[178]KA(U2):SC[178]SC(U2):LE[178]LE(U2):WO[178]WO(U2):T[178]T(U2) 10030 SU[178]SU(U2):SB[178]SB(U2):W[178]W(U2):S[178]S(U2):L[178]L(U2):JA[178]JA(U2):R$[178]R$(U2) 10040 [142] 12000 [153][163]17)"STOPSTEP+-*" 12010 [153][163]17)"/^^AND" 12020 [153][163]17)"OR>=<" 12030 [142] 15000 JO[178][194](56320) 15010 [139]JO[178]126[167]CO[178]1:[142] 15020 [139]JO[178]123[167]CO[178]2:[142] 15030 [139]JO[178]125[167]CO[178]3:[142] 15040 [139]JO[178]119[167]CO[178]4:[142] 15050 [139]JO[178]117[167]CO[178]5:[142] 15060 [139]JO[178]111[167]CO[178]6:[142] 15070 [139]JO[178]127[167]15000 15080 [139]JO[178]122[176]JO[178]121[176]JO[178]118[167]15000:CO[178]0 32490 [143] ***** CURSOR ***** 32500 C[178]0:SP$[178]"" 32510 [153]" WAITCMD"; 32520 [161]A$:[139]A$[178]""[167]32520 32525 [139]A$[178][199](20)[175]C[178]0[167]32520 32530 [139]A$[178][199](13)[167] [153]" ":[142] 32550 [139]A$[178]""[176]A$[178]"CMD"[176]A$[178]""[176]A$[178]"ON"[176]A$[178]""[176]A$[178]"LOAD"[167]32520 32551 [139]A$[178][199](20)[167]32580 32554 [151]54272[170]24,15 32555 SI[178]54272:[151]SI[170]1,100:[129]X[178]1[164]10:[130]:[151]SI[170]1,0:[151]SI[170]24,0 32560 [153]A$;:SP$[178]SP$[170]A$:C[178]C[170]1:[139]C[178]10[167][142] 32570 [137]32510 32580 [153]" CMDCMD";:C[178]C[171]1:SP$[178][202](SP$,1,C):[137]32510 40000 [143] **** IN PENSION **** 40010 [153][199](147) 40020 [151]53281,2:[151]53280,10 40030 [153]"STOP WEGEN ALTERSSCHWAECHE WURDEN SIE IN 40040 PRINT" PENSION GESCHICKT. RENTE"S*75"DM." 40050 PRINT" TUT MIR LEID , GROSSVATTERN " 40060 FORI=1TO7500:NEXT:GOTO 60180 60000 PRINTCHR$(147):POKE53280,11:POKE53281,11:PRINT"[144]" 60010 PRINT"***************************************" 60015 PRINT"* *" 60020 PRINT"* HERZLICHEN GLUECKWUNSCH *" 60030 PRINT"* *" 60040 PRINT"* SIE BEENDETEN DAS SPIEL ";JA;" *" 60050 PRINT"* *" 60060 PRINT"* *" 60070 PRINT"* HIERMIT ERNENNE ICH SIE ZUM *" 60080 PRINT"* *" 60090 PRINT"* KULTUSMINISTER VON NIEDERSACHSEN *" 60100 PRINT"* *" 60110 PRINT"* *" 60120 PRINT"* GEZ.RONALD *" 60130 PRINT"* *" 60140 PRINT"* REAGENZ *" 60150 PRINT"* *" 60160 PRINT"***************************************" 60170 FOR I=1TO7500:NEXT 60180 PRINT"[147]NOCH EINMAL SPIELEN ?" 60190 GETA$:IFA$="J"THENCLR:GOTO5 60200 IFA$="N"THENSYS64763 60210 IFA$<>"J"ORA$<>"N"THEN60190