home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 8
/
Commodore_Disc_08_19xx_-_de.d64
/
internat.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
8KB
|
267 lines
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