home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 8 / Commodore_Disc_08_19xx_-_de.d64 / internat.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  8.1 KB  |  267 lines
  1. 1 rem =======================
  2. 2 rem =                     =
  3. 3 rem =  achtung lader ab-  =
  4. 4 rem =                     =
  5. 5 rem =  tippen !!          =
  6. 6 rem =                     =
  7. 7 rem =======================
  8. 10 poke52,160:poke56,160
  9. 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)
  10. 14 dim r$(2)
  11. 16 printchr$(147):hj=1
  12. 18 poke53280,1:poke53281,1
  13. 30 print tab(10)"[144]i n t e r n a t  1"
  14. 40 print tab(5)"[151]ein programm von stefan bels"
  15. 50 print tab(12)"[152]september 1986"
  16. 79 print"wieviele mitspieler (1/2) ?"
  17. 80 poke198,0
  18. 81 geta$:ifa$=""then81
  19. 82 ifval(a$)<1orval(a$)>2then81
  20. 83 a=val(a$):print"[147]"
  21. 84 fori=1toa:print" name spieler"i
  22. 85 print"":gosub32500:sp$(i)=sp$:next
  23. 94 fori=1to2:ka(i)=25000:sc(i)=1:pa(i)=1:le(i)=1:wo(i)=15:s(i)=30:t(i)=30
  24. 95 sb(i)=30:su(i)=30:l(i)=1:w(i)=0:r$(i)="referendar":ja(i)=1975:next
  25. 98 gosub10000
  26. 99 poke53280,6:poke53281,0:print"[147]"
  27. 100 print"[145]                                        "
  28. 110 print"[145]                                        "
  29. 120 print"[145][145]";r$;"[146]":print"":printtab(21)"[145]";sp$;"[146]"
  30. 140 print"                                        "
  31. 150 print"[149][169]        [223][146][163] schueler (";s;")"
  32. 155 print"[149][169]          [223]"
  33. 160 print"[149][169]            [223][146][164] tische   (";t;")"
  34. 165 print"[149]@              [146][149][191]"
  35. 170 print"  [146][166][166]  [146][166][166]  [146][166][166]  [146][165] stuehle  (";su;")"
  36. 175 print"              [146]"
  37. 180 print"  [146][166][166]  [146][166][166]  [146][166][166]  [146]$ kapital (";ka;"[157])"
  38. 185 print"  [146][166][166]  [146][149][167][168]  [146][166][166]  [146]"
  39. 190 print"      [146][149][167][168]      "
  40. 200 print"^-erweitern des";spc(8)"[192]-einstellen"
  41. 203 print"  gebaeudes";spc(14);"von lehrern"
  42. 210 print"_-ausstattung [209]-raus"
  43. 220 print"[193]-bilanz"
  44. 230 print"[194]-besitz"
  45. 240 gosub15000
  46. 250 ifco=1then500
  47. 255 ifco=2then1000
  48. 260 ifco=3then2000
  49. 265 ifco=4then3000
  50. 270 ifco=5then4000
  51. 275 ifco=6then5000
  52. 500 printchr$(147):poke53280,9:poke53281,9
  53. 510 gosub12000
  54. 540 print"          [146]gebaeudeerweiterung          "
  55. 550 printtab(16)"anzahl";spc(8);"preis"
  56. 560 print"^ schulraum";spc(6);sc;spc(9);"5000"
  57. 570 print"_ partyraeume";spc(4);pa;spc(9);"2000"
  58. 580 print"[193] lehrerzimmer";spc(3);le;spc(9);"4000"
  59. 590 print"[194] wohnraeume";spc(5);wo;spc(8);"3000"
  60. 600 print"[209] menue  "
  61. 610 gosub15000
  62. 620 ifco=1andka>4999thensc=sc+1:ka=ka-5000:print"":goto510
  63. 630 ifco=2andka>1999thenpa=pa+1:ka=ka-2000:print"":goto 510
  64. 640 ifco=3andka>3999thenle=le+1:ka=ka-4000:print"":goto 510
  65. 650 ifco=4andka>2999thenwo=wo+1:ka=ka-3000:print"":goto 510
  66. 660 ifco=6then99
  67. 670 ifco=5thengosub15000
  68. 750 print"[147][144]nicht genug geld !!":fori=1to2500:next:goto500
  69. 1000 printchr$(147):poke53280,3:poke53281,3
  70. 1010 gosub12000
  71. 1040 print"             [146]ausstattung             "
  72. 1050 printtab(16)"anzahl";spc(8);"preis"
  73. 1060 print"^ tische ";spc(7);t;spc(9);"500"
  74. 1070 print"_ stuehle";spc(7);su;spc(9);"300"
  75. 1080 print"[193] schulbuecher";spc(2);sb;spc(9);"90"
  76. 1090 print"[194] werbung";spc(7);w;spc(9);" 300"
  77. 1100 print"[209] menue  "
  78. 1110 gosub15000
  79. 1120 ifco=1andka>499thent=t+1:ka=ka-500:print"":goto1010
  80. 1130 ifco=2andka>299thensu=su+1:ka=ka-300:print"":goto1010
  81. 1140 ifco=3andka>89thensb=sb+1:ka=ka-90:print"":goto1010
  82. 1150 ifco=4andka>299thenw=w+1:ka=ka-300:print"":goto1010
  83. 1160 ifco=6then99
  84. 1170 ifco=5thengosub15000
  85. 1500 print"[147][144]nicht genug geld !!":fori=1to2500:next:goto1000
  86. 2000 printchr$(147):poke53280,12:poke53281,12
  87. 2010 gosub12000
  88. 2040 print"                [146]bilanz                 "
  89. 2050 print"ihr internat ist zu";int(s*100/(wo*2))"%";
  90. 2055 print"ausgelastet."
  91. 2060 print"ihr kapital betraegt:";ka
  92. 2070 print"sie beschaeftigen";l;"lehrer ."
  93. 2080 print"wir schreiben das jahr : ";ja
  94. 2085 print"";hj;". quartal"
  95. 2090 print"[209] menue "
  96. 2100 gosub15000
  97. 2110 ifco=6then99
  98. 2120 print"":goto2010
  99. 3000 printchr$(147):poke53280,6:poke53281,6:print""
  100. 3010 gosub12000
  101. 3040 print"                 [146]besitz                 "
  102. 3050 print"sie besitzen : "
  103. 3060 print"";sc;"schulraume"
  104. 3070 print"";pa;"partyraeume"
  105. 3080 print"";le;"lehrerzimmer"
  106. 3085 print"";wo;"wohnraeume"
  107. 3090 print"[209] menue "
  108. 3100 gosub15000
  109. 3110 ifco=6then99
  110. 3120 print"":goto3010
  111. 4000 printchr$(147):poke53280,10:poke53281,10:print""
  112. 4010 print"[145]":gosub12000
  113. 4040 print"         [146] arbeitsmarkt  lehrer          "
  114. 4050 print"^ lehrer einstellen"
  115. 4060 print"[193] lehrer entlassen "
  116. 4070 print"[209] menue"
  117. 4073 print"sie beschaeftigen ";l;"[157]";
  118. 4074 print" lehrer. "
  119. 4075 print"(ein lehrer bekommt 2000 gehalt)"
  120. 4080 gosub15000
  121. 4085 ifco=1thenl=l+1:print"":goto4010
  122. 4090 ifco=3andl=1thenl=1:print"":goto4010
  123. 4100 ifco=3thenl=l-1:print"":goto4010
  124. 4115 ifco=6then99
  125. 4120 ifco<>6orco<>1orco<>3thenprint"":goto4010
  126. 5000 printchr$(147):poke53280,10:poke53281,10:print"[144]"
  127. 5010 print"[145]":gosub12000
  128. 5035 ne=int(rnd(1)*8000)+1:se=int(rnd(1)*abs(ka)/75)+1:gt=int(rnd(1)*1000)+1
  129. 5040 print"         [146] endabrechnung ";ja;"          "
  130. 5050 print"";l*2000;"dm lehrerverdienst"
  131. 5053 ifl=0thenka=ka*1
  132. 5055 ka=ka-l*2000
  133. 5058 ap=int(rnd(1)*400)+1
  134. 5060 print"";ne;"dm nebenausgaben"
  135. 5065 ka=ka-ne-ap
  136. 5070 print"";s*150;"dm schuelereinnahmen"
  137. 5075 ka=ka+s*150
  138. 5080 print"";gt;"dm getraenkeeinnahmen"
  139. 5085 ka=ka+s*10
  140. 5090 print"";se;"dm steuern"
  141. 5095 print"";ap;"dm fuer politische ausbildung."
  142. 5100 ka=ka-se
  143. 5110 print"endkapital :";ka
  144. 5120 print"  trigger !"
  145. 5130 gosub15000
  146. 5131 ifco<>6then5130
  147. 5140 printchr$(147)
  148. 5150 ifs>60andka>50000thenr$="lehrer"
  149. 5160 ifs>90andka>75000thenr$="direktor"
  150. 5170 ifs>120andka>125000thenr$="studienassessor"
  151. 5180 ifs>150andka>125000thenr$="studienrat"
  152. 5190 ifs>165andka>150000thenr$="oberstudienrat"
  153. 5210 ifs>200andka>175000thenr$="oberstudiendirektor"
  154. 5220 ifs>225andka>200000thenr$="kultusminister":goto60000
  155. 5300 printchr$(147):poke53280,5:poke53281,5:print"[144]":zg=int(rnd(1)*s/10)+1
  156. 5305 ag=int(rnd(1)*s/10)
  157. 5310 gosub12000
  158. 5340 print"            [146] schulausbildung            [146]"
  159. 5350 print"";ag;"schueler beendeten ihre ausbildung"
  160. 5360 print"";zg;"schueler beginnen ihre ausbildung"
  161. 5370 print"trigger !"
  162. 5380 s=s+zg
  163. 5395 s=s-ag
  164. 5400 gosub15000
  165. 5410 ifco=6then6000
  166. 5420 print"":goto5310
  167. 6000 zf=int(rnd(1)*70)+1
  168. 6040 ifzf=57then6520
  169. 6050 ifzf=65then6530
  170. 6060 ifzf=27then6540
  171. 6070 ifzf=9then6550
  172. 6075 goto 7000
  173. 6080 fori=1to2500:next:goto7000
  174. 6500 print"schueler demolieren cafe.kosten 2300 dm":ka=ka-2300:goto6080
  175. 6510 print"schule erhaelt einen preis. 1800 dm":ka=ka+1800:goto6080
  176. 6520 print"firma wirbt fuers internat.":w=w+3:goto6080
  177. 6530 print"4 schulbuecher geklaut .":sb=sb-4:goto6080
  178. 6540 print"einbruch ! schaden 1300 dm":ka=ka-1300:goto6080
  179. 6550 print"schulfest ! einnahmen 3000 dm":ka=ka+3000:goto6080
  180. 7000 ifsu=>sandt=>sandsb=>sthen7400
  181. 7010 s=s-3:print"[147]wegen zuwenig ausstattung verlassen     3 schueler das internat
  182. 7020 [129]i[178]1[164]1000:[130]:[137]7400
  183. 7400 [139]sc[172]30[177][178]s[167]7500
  184. 7410 [153]"wegen schulraummangels verlassen "
  185. 7420 [153]"einige schueler das internat."
  186. 7430 s[178]sc[172]30:[129]i[178]1[164]1000:[130]
  187. 7500 [139]l[172]30[177][178]s[167]7600
  188. 7510 [153]"wegen lehrermangel verlassen "
  189. 7520 [153]"einige schueler das internat."
  190. 7530 s[178]l[172]30:[129]i[178]1[164]1000:[130]
  191. 7600 [139]w[178]0[167]7700
  192. 7602 [153]"loaddurch werbung kamen"[181](w[173]2);"neue schueler.":s[178]s[170][181](w[173]2):w[178]0
  193. 7700 [139] wo[172]2[177][178]s[167]7800
  194. 7710 [153]"wegen wohnraummangel gehen einige"
  195. 7720 [153]"schueler vom internat ab ."
  196. 7730 s[178]wo[172]2
  197. 7800 [139]s[179]0[167]s[178]0
  198. 7810 hj[178]hj[170]1:[139]hj[178]5[167]hj[178]1:ja[178]ja[170]1
  199. 8000 [129]i[178]1[164]1000:[130]
  200. 8010 hj[178]hj[170]1:[139]hj[178]5[167]hj[178]1:ja[178]ja[170]1
  201. 8020 [139]ja[178]2020[167]40000
  202. 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
  203. 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$
  204. 8520 w[178]0:[137]98
  205. 10000 uu[178][182](uu[171]1)
  206. 10010 u2[178]uu[170]1
  207. 10015 [139]a[178]1[167]u2[178]1
  208. 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)
  209. 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)
  210. 10040 [142]
  211. 12000 [153][163]17)"stopstep+-*"
  212. 12010 [153][163]17)"/^^and"
  213. 12020 [153][163]17)"or>=<"
  214. 12030 [142]
  215. 15000 jo[178][194](56320)
  216. 15010 [139]jo[178]126[167]co[178]1:[142]
  217. 15020 [139]jo[178]123[167]co[178]2:[142]
  218. 15030 [139]jo[178]125[167]co[178]3:[142]
  219. 15040 [139]jo[178]119[167]co[178]4:[142]
  220. 15050 [139]jo[178]117[167]co[178]5:[142]
  221. 15060 [139]jo[178]111[167]co[178]6:[142]
  222. 15070 [139]jo[178]127[167]15000
  223. 15080 [139]jo[178]122[176]jo[178]121[176]jo[178]118[167]15000:co[178]0
  224. 32490 [143] ***** cursor *****
  225. 32500 c[178]0:sp$[178]""
  226. 32510 [153]" waitcmd";
  227. 32520 [161]a$:[139]a$[178]""[167]32520
  228. 32525 [139]a$[178][199](20)[175]c[178]0[167]32520
  229. 32530 [139]a$[178][199](13)[167] [153]" ":[142]
  230. 32550 [139]a$[178]""[176]a$[178]"cmd"[176]a$[178]""[176]a$[178]"on"[176]a$[178]""[176]a$[178]"load"[167]32520
  231. 32551 [139]a$[178][199](20)[167]32580
  232. 32554 [151]54272[170]24,15
  233. 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
  234. 32560 [153]a$;:sp$[178]sp$[170]a$:c[178]c[170]1:[139]c[178]10[167][142]
  235. 32570 [137]32510
  236. 32580 [153]" cmdcmd";:c[178]c[171]1:sp$[178][202](sp$,1,c):[137]32510
  237. 40000 [143] **** in pension ****
  238. 40010 [153][199](147)
  239. 40020 [151]53281,2:[151]53280,10
  240. 40030 [153]"stop wegen altersschwaeche wurden sie in
  241. 40040 print" pension geschickt. rente"s*75"dm."
  242. 40050 print" tut mir leid , grossvattern "
  243. 40060 fori=1to7500:next:goto 60180
  244. 60000 printchr$(147):poke53280,11:poke53281,11:print"[144]"
  245. 60010 print"***************************************"
  246. 60015 print"*                                     *"
  247. 60020 print"*       herzlichen glueckwunsch       *"
  248. 60030 print"*                                     *"
  249. 60040 print"*    sie beendeten das spiel ";ja;"   *"
  250. 60050 print"*                                     *"
  251. 60060 print"*                                     *"
  252. 60070 print"*   hiermit ernenne ich sie zum       *"
  253. 60080 print"*                                     *"
  254. 60090 print"*   kultusminister von niedersachsen  *"
  255. 60100 print"*                                     *"
  256. 60110 print"*                                     *"
  257. 60120 print"*                  gez.ronald         *"
  258. 60130 print"*                                     *"
  259. 60140 print"*                       reagenz       *"
  260. 60150 print"*                                     *"
  261. 60160 print"***************************************"
  262. 60170 for i=1to7500:next
  263. 60180 print"[147]noch einmal spielen ?"
  264. 60190 geta$:ifa$="j"thenclr:goto5
  265. 60200 ifa$="n"thensys64763
  266. 60210 ifa$<>"j"ora$<>"n"then60190
  267.