home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 27 / Commodore_Disc_27_19xx_-_de.d64 / bigboss (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  25KB  |  1,298 lines
  1. 10 rem bigboss **************c64
  2. 20 rem (p) by commodore welt ***
  3. 30 rem *************************
  4. 40 rem (c) by g. kramer      ***
  5. 50 rem        4407 emsdetten ***
  6. 60 rem *************************
  7. 70 rem basic v2.0            ***
  8. 80 rem c64 + floppy/datasette***
  9. 90 rem *************************
  10. 100 gosub11360
  11. 110 gosub12260
  12. 120 gosub11730
  13. 130 gosub380
  14. 140 gosub1250
  15. 150 printchr$(158)
  16. 160 pokeze,16:pokesp,20:syscu
  17. 170 print"spielende - -"
  18. 180 printspc(20)"noch drei jahre?"
  19. 190 print:printspc(26)"j/n"
  20. 200 geta$:ifa$="n"then240
  21. 210 ifa$<>"j"then200
  22. 220 en=en+3:s=0
  23. 230 gosub500:goto140
  24. 240 gosub10900
  25. 250 gosub1250
  26. 260 printchr$(158)
  27. 270 pokeze,16:pokesp,20:syscu
  28. 280 print"spielende - -"
  29. 290 printspc(20)"noch ein spiel?"
  30. 300 print:printspc(26)"j/n"
  31. 310 geta$:ifa$="n"then340
  32. 320 ifa$<>"j"then310
  33. 330 run
  34. 340 sys2048
  35. 350 rem ***************
  36. 360 rem spielbeginn ***
  37. 370 rem ***************
  38. 380 fori=1toan
  39. 390 ms(i,1)=10000
  40. 400 ms(0,i)=0
  41. 410 forj=2to12
  42. 420 ms(i,j)=0
  43. 430 nextj,i
  44. 440 fori=0to3
  45. 450 w(i,1)=0:next
  46. 460 w(0,0)=100:w(1,0)=5000
  47. 470 w(2,0)=10000:w(3,0)=50000
  48. 480 s=1:gosub840
  49. 490 ru=0:s=0:en=8
  50. 500 s=s+1:ifs>anthens=1
  51. 510 ifms(0,s)<9999then550
  52. 520 ms(0,11)=ms(0,11)+1
  53. 530 ifms(0,11)=anthen800
  54. 540 goto500
  55. 550 ms(0,0)=ms(0,0)+1
  56. 560 ms(0,11)=0:gosub1250
  57. 570 so=ms(s,2):ad=f(so,1)+41
  58. 580 pokeb+ad,s+176
  59. 590 ifs=10thenpokeb+ad,214
  60. 600 pokeze,16:pokesp,20:syscu
  61. 610 printchr$(158)"spieler "s
  62. 620 print
  63. 630 a=ms(0,s):ifa=0then660
  64. 640 printspc(20)a"mal aussetzen"
  65. 650 goto670
  66. 660 printspc(20)"bitte wuerfeln"
  67. 670 poke198,0
  68. 680 gosub1090:ife<>32then680
  69. 690 ifa=0then720
  70. 700 ms(0,s)=a-1
  71. 710 goto500
  72. 720 gosub840:gosub1250
  73. 730 gosub1560:gosub1330
  74. 740 a=f(ms(s,2),0)
  75. 750 ona+1gosub3950,6970,7500,7710
  76. 760 fori=1toan
  77. 770 forj=f+124+i*40toj+8
  78. 780 pokej,4:nextj,i
  79. 790 ifru<=enthen500
  80. 800 return
  81. 810 rem ************************
  82. 820 rem spielerfeld aufbauen ***
  83. 830 rem ************************
  84. 840 gosub4440:gosub6210
  85. 850 so=ms(s,2):ad=f(so,1)+41
  86. 860 ms(s,12)=160
  87. 870 pokeb+ad,s+176
  88. 880 ifs=10thenpokeb+ad,214
  89. 890 a$=right$(str$(s),2)
  90. 900 pokeze,4:pokesp,22:syscu
  91. 910 printchr$(30)a$spc(6)e$(ms(s,0))
  92. 920 print
  93. 930 fori=3to10
  94. 940 a$=str$(ms(s,i))
  95. 950 a$=right$("......"+right$(a$,len(a$)-1),7)
  96. 960 printspc(29)a$
  97. 970 next
  98. 980 pokeze,17:pokesp,0:syscu
  99. 990 fori=0to3
  100. 1000 a$=str$(w(i,0))
  101. 1010 printspc(19-len(a$))a$
  102. 1020 next
  103. 1030 fori=f+124+s*40toi+8
  104. 1040 pokei,5:next
  105. 1050 return
  106. 1060 rem ***********
  107. 1070 rem eingabe ***
  108. 1080 rem ***********
  109. 1090 e=0
  110. 1100 ifms(s,0)<3then1140
  111. 1110 geta$:ifa$=""then1210
  112. 1120 e=asc(a$)
  113. 1130 goto1200
  114. 1140 poke56322,224
  115. 1150 e0=peek(56320)
  116. 1160 ifms(s,0)=1thene0=peek(56321)
  117. 1170 poke56322,255
  118. 1180 if(e0and2)=0thene=17
  119. 1190 if(e0and16)=0thene=32
  120. 1200 ife<>32ande<>17thene=0
  121. 1210 return
  122. 1220 rem ********************
  123. 1230 rem loeschen anzeige ***
  124. 1240 rem ********************
  125. 1250 fori=b+620toi+15
  126. 1260 forj=0to200step40
  127. 1270 pokei+j,32
  128. 1280 nextj,i
  129. 1290 return
  130. 1300 rem **************
  131. 1310 rem spielerzug ***
  132. 1320 rem **************
  133. 1330 forl=1toa
  134. 1340 pokeb+ad,ms(s,12)
  135. 1350 so=so+1:ifso=38thenso=0
  136. 1360 ms(s,2)=so
  137. 1370 ad=f(so,1)+41
  138. 1380 ms(s,12)=peek(b+ad)
  139. 1390 pokeb+ad,s+176
  140. 1400 ifs=10thenpokeb+ad,214
  141. 1410 ifso=0thengosub1920
  142. 1420 next
  143. 1430 fori=1toan
  144. 1440 a=f(ms(i,2),1)+41
  145. 1450 pokeb+a,i+176
  146. 1460 ifi=10thenpokeb+a,214
  147. 1470 next
  148. 1480 ifs=0then1520
  149. 1490 pokeb+ad,s+176
  150. 1500 ifs=10thenpokeb+ad,214
  151. 1510 ifr$="1"ands=anthen2110
  152. 1520 return
  153. 1530 rem ************
  154. 1540 rem wuerfeln ***
  155. 1550 rem ************
  156. 1560 poke247,0:poke248,2
  157. 1570 fori=peek(249)to57step-1
  158. 1580 poke249,i:poke250,i+9
  159. 1590 next
  160. 1600 fori=58to216
  161. 1610 poke249,i:poke250,i+8:next
  162. 1620 a=int(rnd(0)*6)+1
  163. 1630 a0=250-32*a
  164. 1640 fori=217toa0step-1
  165. 1650 poke249,i:poke250,i+9:next
  166. 1660 return
  167. 1670 rem **************
  168. 1680 rem auswaehlen ***
  169. 1690 rem **************
  170. 1700 fori=i0+a1*40toi+15
  171. 1710 pokef+i,7:next
  172. 1720 poke198,0
  173. 1730 gosub1090:ife=32then1780
  174. 1740 ife<>17then1730
  175. 1750 fori=i0+a1*40toi+15
  176. 1760 pokef+i,10:next
  177. 1770 a1=a1+1:ifa1=i1thena1=1
  178. 1780 return
  179. 1790 rem *******************
  180. 1800 rem zahlen an jeden ***
  181. 1810 rem *******************
  182. 1820 fori=1toan
  183. 1830 ifms(0,i)=9999then1880
  184. 1840 ifi=sthen1880
  185. 1850 pu=-pu:gosub3580
  186. 1860 pu=-pu:aa=s:s=i:gosub3580
  187. 1870 s=aa
  188. 1880 next:return
  189. 1890 rem ***************
  190. 1900 rem blaues feld ***
  191. 1910 rem ***************
  192. 1920 poke247,6:poke248,6
  193. 1930 ifr$="2"then2110
  194. 1940 ifru=0then1970
  195. 1950 ifs=anthen2110
  196. 1960 r$="1":goto3540
  197. 1970 ms(s,11)=ms(s,11)+1
  198. 1980 ifms(s,11)>1then2390
  199. 1990 gosub1250
  200. 2000 pokeze,16:pokesp,20:syscu
  201. 2010 printchr$(158)"sie erhalten"
  202. 2020 print:printspc(30)"10000"
  203. 2030 poke198,0
  204. 2040 gosub1090:ife=0then2040
  205. 2050 pu=10000:gosub3580
  206. 2060 gosub1250
  207. 2070 fori=1toan
  208. 2080 ifms(i,11)=0theni=99
  209. 2090 next
  210. 2100 ifi=100then3540
  211. 2110 ru=ru+1
  212. 2120 r$="2"
  213. 2130 gosub1250
  214. 2140 pokeze,24:pokesp,16:syscu
  215. 2150 a$=right$(str$(ru)+". jahr",8)
  216. 2160 printchr$(156)a$;
  217. 2170 fors=1toan
  218. 2180 gosub840
  219. 2190 so=ms(s,2):ad=f(so,1)+41
  220. 2200 pokeb+ad,160
  221. 2210 ms(s,12)=160
  222. 2220 ms(s,2)=0
  223. 2230 ifru=1then3530
  224. 2240 zi=ms(s,10)
  225. 2250 ifzi=0then2450
  226. 2260 zi=int(ms(s,10)/10)
  227. 2270 gosub1250
  228. 2280 printchr$(19)chr$(158)
  229. 2290 pokeze,16:pokesp,20:syscu
  230. 2300 print"spieler"s" zahlt"
  231. 2310 a$=str$(zi)
  232. 2320 printspc(20)"zinsen =";
  233. 2330 printtab(36-len(a$))a$
  234. 2340 tl=int(ms(s,10)/10)
  235. 2350 tl=100*int((tl+tl/2)/100)
  236. 2360 iftl<1000thentl=1000
  237. 2370 iftl>ms(s,10)thentl=ms(s,10)
  238. 2380 a$=str$(tl)
  239. 2390 printspc(20)"tilgung =";
  240. 2400 printtab(36-len(a$))a$
  241. 2410 poke198,0
  242. 2420 gosub1090:ife<>32then2420
  243. 2430 pu=-zi-tl:gosub3580
  244. 2440 ms(s,10)=ms(s,10)-tl:gosub840
  245. 2450 gosub1250
  246. 2460 pokeze,15:pokesp,20:syscu
  247. 2470 print"spieler"s":"
  248. 2480 a=ms(s,1)-ms(s,10)+40*ms(s,3)
  249. 2490 a=a+ms(s,4)*w(1,0)/2
  250. 2500 a=a+ms(s,5)*w(2,0)*.75
  251. 2510 a=a+ms(s,6)*35000
  252. 2520 a=100*int(12*a/10000)
  253. 2530 a=a-5000
  254. 2540 ifa>0then2570
  255. 2550 a=0:printspc(20)"keine steuer"
  256. 2560 goto2590
  257. 2570 printspc(20)"steuerzahlung"
  258. 2580 printspc(20)a
  259. 2590 poke198,0
  260. 2600 gosub1090:ife<>32then2600
  261. 2610 pu=-a:gosub3580
  262. 2620 gosub1250
  263. 2630 a=0:fori=7to9
  264. 2640 a=a+ms(s,i):next
  265. 2650 ifa=0then2900
  266. 2660 forii=7to9
  267. 2670 ifms(s,ii)=0then2890
  268. 2680 pokeze,16:pokesp,20:syscu
  269. 2690 printchr$(150)"spieler"s" hat"
  270. 2700 a$="versicherung ="
  271. 2710 ifii=8thena$="werbung ="
  272. 2720 ifii=9thena$="rationalisierung"
  273. 2730 a=ms(s,ii):ifa=0then2890
  274. 2740 printspc(20)a$
  275. 2750 a$=str$(a)+"[160]punkte"
  276. 2760 printspc(22)a$
  277. 2770 a=a*200
  278. 2780 a$="zahlen ="+str$(a)
  279. 2790 printspc(20)a$
  280. 2800 printspc(20)"abzug = 1 punkt"
  281. 2810 a1=1
  282. 2820 ifa>ms(s,1)thena1=2
  283. 2830 poke198,0
  284. 2840 i0=740:i1=3:gosub1700
  285. 2850 ife<>32then2820
  286. 2860 ifa1=2then2880
  287. 2870 pu=-a:gosub3580:goto2890
  288. 2880 ms(s,ii)=ms(s,ii)-1:gosub840
  289. 2890 gosub1250:next
  290. 2900 ifms(s,1)>=0then3530
  291. 2910 gosub1250:printchr$(150)
  292. 2920 pokeze,15:pokesp,20:syscu
  293. 2930 print"konto ueberzogen"
  294. 2940 gosub3680
  295. 2950 ifl<100then3000
  296. 2960 printspc(20)"kredit anfordern"
  297. 2970 poke198,0
  298. 2980 gosub1090:ife<>32then2980
  299. 2990 gosub5270:goto2900
  300. 3000 printspc(20)"verkaufen:"
  301. 3010 printspc(20)"computer   35000"
  302. 3020 printspc(20)"maschine    8000"
  303. 3030 a=700*int(w(1,0)/1000)
  304. 3040 printspc(20)"fertigware";
  305. 3050 a$=str$(a)
  306. 3060 printtab(36-len(a$))a$
  307. 3070 printspc(20)"rohware"tab(34)"40"
  308. 3080 pl=0
  309. 3090 a1=1
  310. 3100 ifms(s,6)=0thena1=2
  311. 3110 ifms(s,5)=0thena1=3
  312. 3120 ifms(s,4)=0thena1=4
  313. 3130 ifms(s,3)=0thena1=5
  314. 3140 ifa1=5andpl=1then3300
  315. 3150 ifa1=5thenpl=1:goto3090
  316. 3160 pl=0:poke198,0
  317. 3170 i0=660:i1=4:gosub1700
  318. 3180 ife=32then3200
  319. 3190 ona1goto3100,3110,3120,3130
  320. 3200 ona1goto3210,3230,3250,3270
  321. 3210 pu=35000:gosub3580
  322. 3220 gosub6870:goto3290
  323. 3230 pu=8000:gosub3580
  324. 3240 gosub6760:goto3290
  325. 3250 pu=700*int(w(1,0)/1000)
  326. 3260 gosub6130:goto3290
  327. 3270 pu=40:gosub3580
  328. 3280 gosub6050
  329. 3290 ifms(s,1)<0then3190
  330. 3300 ifms(s,1)>=0then3530
  331. 3310 pl=0:gosub1250
  332. 3320 printchr$(156)
  333. 3330 pokeze,15:pokesp,20:syscu
  334. 3340 print"spieler"s
  335. 3350 printspc(20)"p l e i t e !"
  336. 3360 printspc(20)"fuer sie ist das"
  337. 3370 printspc(20)"spiel zu ende"
  338. 3380 printchr$(158)
  339. 3390 printspc(20)"neues spiel? j/n"
  340. 3400 poke198,0
  341. 3410 geta$:ifa$="n"then3430
  342. 3420 ifa$<>"j"then3410
  343. 3430 fori=0to3
  344. 3440 w(i,1)=w(i,1)-ms(s,i+3)
  345. 3450 next
  346. 3460 fori=1to12
  347. 3470 ms(s,i)=0:next
  348. 3480 ms(s,1)=15000
  349. 3490 ifa$="j"then3520
  350. 3500 ms(s,1)=0
  351. 3510 ms(0,s)=9999
  352. 3520 pu=0:gosub3580
  353. 3530 next:l=99:s=0
  354. 3540 gosub1250:return
  355. 3550 rem ******************
  356. 3560 rem punkte zaehlen ***
  357. 3570 rem ******************
  358. 3580 ms(s,1)=int(ms(s,1)+pu)
  359. 3590 a$=str$(ms(s,1))
  360. 3600 a$=right$("......"+right$(a$,len(a$)-1),7)
  361. 3610 ifms(s,1)<0thena$=chr$(18)+a$+chr$(146)
  362. 3620 pokeze,s+3:pokesp,6:syscu
  363. 3630 printchr$(30)a$
  364. 3640 return
  365. 3650 rem ***********************
  366. 3660 rem rechnen kreditlimit ***
  367. 3670 rem ***********************
  368. 3680 l=ms(s,5)*w(2,0)
  369. 3690 l=(l+ms(s,6)*w(3,0))/2
  370. 3700 l=100*int((l-ms(s,10))/100)
  371. 3710 return
  372. 3720 rem ******************
  373. 3730 rem pruefen kredit ***
  374. 3740 rem ******************
  375. 3750 gosub3680
  376. 3760 ifl>=0then3900
  377. 3770 gosub1250:l=abs(l)
  378. 3780 ifl>ms(s,1)thenl=ms(s,1)
  379. 3790 pokeze,16:pokesp,20:syscu
  380. 3800 printchr$(150)"kreditlimit"
  381. 3810 printspc(20)"ueberzogen"
  382. 3820 a$=str$(l)
  383. 3830 printchr$(158)spc(30-len(a$))a$
  384. 3840 printspc(20)"rueckforderung !"
  385. 3850 poke198,0
  386. 3860 gosub1090:ife<>32then3860
  387. 3870 ms(s,10)=ms(s,10)-l
  388. 3880 pu=-l:gosub3580
  389. 3890 gosub840
  390. 3900 gosub1250:li=0
  391. 3910 return
  392. 3920 rem **************
  393. 3930 rem rotes feld ***
  394. 3940 rem **************
  395. 3950 pokeze,15:pokesp,20:syscu
  396. 3960 printchr$(150)"rohware kaufen"
  397. 3970 printspc(20)"hardware kaufen"
  398. 3980 printspc(20)"produzieren"
  399. 3990 printspc(20)"verkaufen"
  400. 4000 printspc(20)"kreditabteilung"
  401. 4010 printspc(20)"nichts tun"
  402. 4020 a1=1:ifms(s,1)>=w(0,0)then4140
  403. 4030 a1=2:gosub3680:l=l+w(2,0)/2
  404. 4040 ifms(s,1)<(w(2,0)-l)then4060
  405. 4050 goto4140
  406. 4060 a1=3
  407. 4070 ifms(s,3)=0orms(s,5)=0then4110
  408. 4080 ifms(s,1)<700then4110
  409. 4090 ifms(s,6)=0andms(s,1)<1000then4110
  410. 4100 goto4140
  411. 4110 a1=4:a0=0:fori=3to6
  412. 4120 a0=a0+ms(s,i):next
  413. 4130 ifa0=0thena1=5
  414. 4140 i0=580:i1=7:gosub1700
  415. 4150 ife=32then4180
  416. 4160 ona1goto4020,4030,4060,4110
  417. 4170 goto4140
  418. 4180 ifa1=6then4210
  419. 4190 gosub1250
  420. 4200 ona1gosub4260,4560,6330,5660,4950
  421. 4210 gosub1250
  422. 4220 return
  423. 4230 rem ******************
  424. 4240 rem rohware kaufen ***
  425. 4250 rem ******************
  426. 4260 gosub1250
  427. 4270 pokeze,16:pokesp,20:syscu
  428. 4280 printchr$(158)"rohware kaufen"
  429. 4290 printchr$(150)spc(20)"ende"
  430. 4300 a1=1
  431. 4310 ifms(s,1)<w(0,0)thena1=2
  432. 4320 i0=620:i1=3:gosub1700
  433. 4330 ife<>32then4310
  434. 4340 ifa1=2then4400
  435. 4350 pu=-w(0,0)
  436. 4360 gosub3580
  437. 4370 ms(s,3)=ms(s,3)+1
  438. 4380 gosub4440:w(0,1)=w(0,1)+1
  439. 4390 gosub840:goto4270
  440. 4400 return
  441. 4410 rem *****************
  442. 4420 rem preis rohware ***
  443. 4430 rem *****************
  444. 4440 a=w(0,1)
  445. 4450 aa=100
  446. 4460 ifa>8*anthenaa=200
  447. 4470 ifa>14*anthenaa=300
  448. 4480 ifa>20*anthenaa=400
  449. 4490 ifa>24*anthenaa=500
  450. 4500 ifa>26*anthenaa=600
  451. 4510 ifa>27*anthenaa=100*int((a-an*21)/an)
  452. 4520 w(0,0)=aa:return
  453. 4530 rem *******************
  454. 4540 rem hardware kaufen ***
  455. 4550 rem *******************
  456. 4560 gosub1250
  457. 4570 pokeze,16:pokesp,20:syscu
  458. 4580 printchr$(150)"maschine kaufen"
  459. 4590 printspc(20)"computer kaufen"
  460. 4600 printspc(20)"ende"
  461. 4610 a1=1
  462. 4620 i0=620:i1=4:gosub1700
  463. 4630 ife<>32then4620
  464. 4640 gosub1250
  465. 4650 ifa1=3then4870
  466. 4660 ifa1<>1then4700
  467. 4670 li=w(2,0)/2:gosub5270
  468. 4680 ifms(s,1)<w(2,0)then4570
  469. 4690 goto4730
  470. 4700 li=w(3,0)/2:gosub5270
  471. 4710 ifms(s,1)<w(3,0)then4570
  472. 4720 goto4800
  473. 4730 pu=-w(2,0):gosub3580
  474. 4740 ms(s,5)=ms(s,5)+1
  475. 4750 w(2,1)=w(2,1)+1
  476. 4760 w(2,0)=10000
  477. 4770 ifw(2,1)<=anthen4790
  478. 4780 w(2,0)=10000+1000*(w(2,1)-an)
  479. 4790 goto4860
  480. 4800 pu=-w(3,0):gosub3580
  481. 4810 ms(s,6)=ms(s,6)+1
  482. 4820 w(3,1)=w(3,1)+1
  483. 4830 w(3,0)=50000
  484. 4840 ifw(3,1)<=anthen4860
  485. 4850 w(3,0)=50000+5000*(w(3,1)-an)
  486. 4860 gosub840:gosub1250
  487. 4870 ifli=0then4910
  488. 4880 ifa1=2then4910
  489. 4890 ifa1=1andli<8000then4910
  490. 4900 gosub3750
  491. 4910 li=0:return
  492. 4920 rem **********
  493. 4930 rem kredit ***
  494. 4940 rem **********
  495. 4950 gosub1250
  496. 4960 pokeze,16:pokesp,20:syscu
  497. 4970 printchr$(150)"kredit"
  498. 4980 printspc(20)"aufnehmen"
  499. 4990 printspc(20)"zurueckzahlen"
  500. 5000 printspc(20)"nichts"
  501. 5010 a1=1
  502. 5020 i0=660:i1=3:gosub1700
  503. 5030 ife<>32then5020
  504. 5040 ifa1=1then5270
  505. 5050 ifa1=3then5230
  506. 5060 gosub1250
  507. 5070 pokeze,16:pokesp,20:syscu
  508. 5080 printchr$(150)"kredit-"
  509. 5090 printspc(22)"rueckzahlung ="
  510. 5100 a1=ms(s,10):a2=ms(s,1)
  511. 5110 ifa1>a2thena1=a2
  512. 5120 a$=right$("      "+str$(a1),8)
  513. 5130 pokeze,18:pokesp,20:syscu
  514. 5140 printchr$(158)a$
  515. 5150 poke198,0
  516. 5160 gosub1090:ife=32then5200
  517. 5170 ife<>17then5160
  518. 5180 a1=a1-1000:ifa1<0then5100
  519. 5190 goto5120
  520. 5200 pu=-a1:gosub3580
  521. 5210 ms(s,10)=ms(s,10)+pu
  522. 5220 gosub840
  523. 5230 return
  524. 5240 rem ********************
  525. 5250 rem kredit aufnehmen ***
  526. 5260 rem ********************
  527. 5270 gosub3680:gosub1250
  528. 5280 l=l+li
  529. 5290 pokeze,16:pokesp,20:syscu
  530. 5300 ifl>0then5420
  531. 5310 printchr$(150)"keine sicherheit"
  532. 5320 printspc(20)"kredit abgelehnt"
  533. 5330 printspc(20)"verkaufen"
  534. 5340 printspc(20)"ende"
  535. 5350 a1=1
  536. 5360 i0=700:i1=3
  537. 5370 ife<>32then5360
  538. 5380 gosub1250
  539. 5390 ifa1=1thengosub5660
  540. 5400 a0=a0+900
  541. 5410 goto5610
  542. 5420 printchr$(150)"kreditlimit ="
  543. 5430 a$=str$(l)
  544. 5440 printspc(36-len(a$))a$
  545. 5450 printspc(20)"wieviel ?"
  546. 5460 a0=l:printchr$(158)
  547. 5470 a$=str$(a0)
  548. 5480 pokeze,19:pokesp,36-len(a$)
  549. 5490 syscu:poke198,0
  550. 5500 printa$
  551. 5510 gosub1090:ife=32then5570
  552. 5520 ife<>17then5510
  553. 5530 a0=a0+1000:ifa0>lthena0=0
  554. 5540 fori=780toi+15
  555. 5550 pokeb+i,32:next
  556. 5560 goto5470
  557. 5570 ifa0=0then5610
  558. 5580 pu=a0:gosub3580
  559. 5590 ms(s,10)=ms(s,10)+pu
  560. 5600 gosub840
  561. 5610 gosub1250
  562. 5620 return
  563. 5630 rem *************
  564. 5640 rem verkaufen ***
  565. 5650 rem *************
  566. 5660 gosub1250
  567. 5670 pokeze,15:pokesp,20:syscu
  568. 5680 printchr$(150)"verkaufen :"
  569. 5690 a2=1
  570. 5700 a$="fertigware"
  571. 5710 ifms(s,8)<3then5770
  572. 5720 a$=a$+" +"
  573. 5730 a2=ms(s,8)*5
  574. 5740 ifa2>95thena2=95
  575. 5750 a$=a$+str$(a2)+"%"
  576. 5760 a2=1+a2/100
  577. 5770 printspc(20)a$
  578. 5780 printspc(20)"rohware"
  579. 5790 printspc(20)"maschine"
  580. 5800 printspc(20)"computer"
  581. 5810 printspc(20)"nichts"
  582. 5820 a1=1:ifms(s,4)>0then5870
  583. 5830 a1=2:ifms(s,3)>0then5870
  584. 5840 a1=3:ifms(s,5)>0then5870
  585. 5850 a1=4:ifms(s,6)>0then5870
  586. 5860 a1=5
  587. 5870 i0=620:i1=6:gosub1700
  588. 5880 ife=32then5900
  589. 5890 ona1goto5820,5830,5840,5850,5860
  590. 5900 ifa1=5then6000
  591. 5910 ona1gosub6120,6040,6750,6860
  592. 5920 fori=620+40*a1toi+15
  593. 5930 pokef+i,10:next
  594. 5940 ifa1=1andms(s,4)>0then5890
  595. 5950 ifa1=2andms(s,3)>0then5890
  596. 5960 ifa1>1then6000
  597. 5970 ifa2=1then6000
  598. 5980 ms(s,8)=ms(s,8)-1
  599. 5990 gosub840
  600. 6000 gosub1250:return
  601. 6010 rem ********************
  602. 6020 rem verkaufe rohware ***
  603. 6030 rem ********************
  604. 6040 pu=w(0,0)/2:gosub3580
  605. 6050 ms(s,3)=ms(s,3)-1
  606. 6060 gosub4440:w(0,1)=w(0,1)-1
  607. 6070 gosub840
  608. 6080 return
  609. 6090 rem ***********************
  610. 6100 rem verkaufe fertigware ***
  611. 6110 rem ***********************
  612. 6120 pu=w(1,0)*a2
  613. 6130 gosub3580
  614. 6140 ms(s,4)=ms(s,4)-1
  615. 6150 gosub4440:ms(0,0)=ms(0,0)-3
  616. 6160 gosub840
  617. 6170 return
  618. 6180 rem ********************
  619. 6190 rem preis fertigware ***
  620. 6200 rem ********************
  621. 6210 a=5000+100*ms(0,0)
  622. 6220 aa=w(0,0)+1200
  623. 6230 ifa<aathena=aa
  624. 6240 ifa>10*aathena=10*aa
  625. 6250 ifa<4000thena=a+100
  626. 6260 ifa<3000thena=a+100
  627. 6270 ifa<2000thena=a+100
  628. 6280 w(1,0)=a:ms(0,0)=(a-5000)/100
  629. 6290 return
  630. 6300 rem ***************
  631. 6310 rem produzieren ***
  632. 6320 rem ***************
  633. 6330 gosub1250
  634. 6340 a3=1000:ifms(s,9)<3then6360
  635. 6350 a3=a3-100*(ms(s,9)-2)
  636. 6360 ifa3<400thena3=400
  637. 6370 ifms(s,6)>0thena3=a3-300
  638. 6380 a=int(ms(s,1)/a3)
  639. 6390 ifa>ms(s,3)thena=ms(s,3)
  640. 6400 a1=int(ms(s,9)/3)
  641. 6410 ifa1<ms(s,5)then6430
  642. 6420 a1=ms(s,5)+ms(s,5):goto6440
  643. 6430 a1=ms(s,5)+a1
  644. 6440 ifms(s,6)>0thena1=a1+ms(s,5)
  645. 6450 ifa>a1thena=a1
  646. 6460 pokeze,16:pokesp,20:syscu
  647. 6470 printchr$(150)"produktion =";
  648. 6480 a$=str$(a)
  649. 6490 printtab(36-len(a$))chr$(158)a$
  650. 6500 printchr$(150)
  651. 6510 printspc(20)"kosten ="
  652. 6520 a$=str$(a3)
  653. 6530 printspc(20)a$" pro ware"
  654. 6540 poke198,0:a1=a
  655. 6550 gosub1090:ife=32then6620
  656. 6560 ife<>17then6550
  657. 6570 a1=a1-1:ifa1<0thena1=a
  658. 6580 a$=str$(a1)
  659. 6590 pokeze,16:pokesp,36-len(a$):syscu
  660. 6600 printchr$(158)a$
  661. 6610 goto6550
  662. 6620 ifa1=0then6710
  663. 6630 pu=-a3*a1:gosub3580
  664. 6640 ifms(s,6)>0thenpu=-700*a1
  665. 6650 ms(s,4)=ms(s,4)+a1
  666. 6660 ms(s,3)=ms(s,3)-a1
  667. 6670 ms(0,0)=ms(0,0)-a1
  668. 6680 w(1,1)=w(1,1)+a1
  669. 6690 w(0,1)=w(0,1)-a1:gosub4440
  670. 6700 gosub6210:gosub840
  671. 6710 gosub1250:return
  672. 6720 rem *********************
  673. 6730 rem verkaufe maschine ***
  674. 6740 rem *********************
  675. 6750 pu=w(2,0)/2:gosub3580
  676. 6760 w(2,1)=w(2,1)-1
  677. 6770 w(2,0)=10000
  678. 6780 ifw(2,1)<=anthen6800
  679. 6790 w(2,0)=10000+1000*(w(2,1)-an)
  680. 6800 ms(s,5)=ms(s,5)-1
  681. 6810 gosub840:gosub3750
  682. 6820 return
  683. 6830 rem *********************
  684. 6840 rem verkaufe computer ***
  685. 6850 rem *********************
  686. 6860 pu=w(3,0)/2:gosub3580
  687. 6870 w(3,1)=w(3,1)-1
  688. 6880 w(3,0)=50000
  689. 6890 ifw(3,1)<=anthen6910
  690. 6900 w(3,0)=50000+5000*(w(3,1)-an)
  691. 6910 ms(s,6)=ms(s,6)-1
  692. 6920 gosub840:gosub3750
  693. 6930 return
  694. 6940 rem ***************
  695. 6950 rem gelbes feld ***
  696. 6960 rem ***************
  697. 6970 gosub1250
  698. 6980 pokeze,16:pokesp,20:syscu
  699. 6990 ifms(s,1)<10000then7120
  700. 7000 ifms(s,6)=0then7120
  701. 7010 a2=int(5*rnd(0))+1
  702. 7020 ifa2>1then7120
  703. 7030 a1=5000
  704. 7040 ifms(s,1)<25000then7100
  705. 7050 a1=int(ms(s,1)/4)
  706. 7060 ifa1>10000thena1=10000
  707. 7070 a1=100*int(a1/100)
  708. 7080 a2=int(3*rnd(0))+1
  709. 7090 ifa2>1then7300
  710. 7100 printchr$(158)"computerausfall!"
  711. 7110 goto7380
  712. 7120 a1=1000*ms(s,5)
  713. 7130 ifa1=0then7220
  714. 7140 if(4*int(rnd(0)))>0then7220
  715. 7150 if(a1+1000)>ms(s,1)thena1=ms(s,1)-1000:ifa1<0thena1=0
  716. 7160 ifa1>5000thena1=5000
  717. 7170 a1=100*int(a1/100)
  718. 7180 a2=int(7*rnd(0))+1
  719. 7190 ifa2<6then7270
  720. 7200 a$="maschinenschaden"
  721. 7210 goto7330
  722. 7220 a1=int(ms(s,1)/10)
  723. 7230 ifa1>2000thena1=2000
  724. 7240 a1=100*int(a1/100)
  725. 7250 ifa1>ms(s,1)thena1=ms(s,1)
  726. 7260 a2=int(5*rnd(0))+1
  727. 7270 ona2goto7290,7300,7310,7320
  728. 7280 a$="liefer-verzug":goto7330
  729. 7290 a$="streik !":goto7330
  730. 7300 a$="sabotage":goto7330
  731. 7310 a$="grippe-epidemie":goto7330
  732. 7320 a$="betriebs-unfall":goto7330
  733. 7330 printchr$(158)a$
  734. 7340 ifa1>0then7380
  735. 7350 printspc(20)"einmal aussetzen"
  736. 7360 ms(0,s)=ms(0,s)+1
  737. 7370 goto7410
  738. 7380 printspc(20)"kosten =";
  739. 7390 a$=str$(a1)
  740. 7400 printtab(35-len(a$))a$
  741. 7410 poke198,0
  742. 7420 gosub1090:ife=32then7440
  743. 7430 goto7420
  744. 7440 ifpu=0then7460
  745. 7450 pu=-a1:gosub3580
  746. 7460 return
  747. 7470 rem ****************
  748. 7480 rem gruenes feld ***
  749. 7490 rem ****************
  750. 7500 gosub1250
  751. 7510 pokeze,16:pokesp,20:syscu
  752. 7520 printchr$(150)"versicherung"
  753. 7530 printspc(20)"werbung"
  754. 7540 printspc(20)"rationalisieren"
  755. 7550 printspc(20)"nichts"
  756. 7560 printspc(20)"preis =  500"
  757. 7570 a1=1:poke198,0
  758. 7580 ifms(s,1)<500thena1=4
  759. 7590 i0=620:i1=5:gosub1700
  760. 7600 ife<>32then7580
  761. 7610 ifa1=4then7670
  762. 7620 pu=-500:gosub3580
  763. 7630 a0=7:ifa1=2thena0=8
  764. 7640 ifa1=3thena0=9
  765. 7650 ms(s,a0)=ms(s,a0)+1
  766. 7660 gosub840
  767. 7670 return
  768. 7680 rem ******************
  769. 7690 rem violettes feld ***
  770. 7700 rem ******************
  771. 7710 gosub1250
  772. 7720 printchr$(150)
  773. 7730 pokeze,16:pokesp,20:syscu
  774. 7740 a=int(10*rnd(0))+1
  775. 7750 onagoto7820,8200,8670,8830
  776. 7760 ona-4goto9110,9430,9560
  777. 7770 ona-7goto10030,10230,10740
  778. 7780 return
  779. 7790 rem *****************
  780. 7800 rem sonderangebot ***
  781. 7810 rem *****************
  782. 7820 ifms(s,2)=5then9440
  783. 7830 print"sonderangebot"
  784. 7840 a=int(6*rnd(0))+1
  785. 7850 onagoto7900,7900,7950
  786. 7860 a$="5 rohwaren"
  787. 7870 a0$="preis 200"
  788. 7880 a=200:a0=5:a2=3
  789. 7890 goto7990
  790. 7900 ifms(s,1)<2500then7860
  791. 7910 a$="4 fertigwaren"
  792. 7920 a0$="preis 2000"
  793. 7930 a=2000:a0=4:a2=4
  794. 7940 goto7990
  795. 7950 ifms(s,1)<4000then7900
  796. 7960 a$="eine maschine"
  797. 7970 a0$="preis 4000"
  798. 7980 a=4000:a0=1:a2=5
  799. 7990 printspc(20)a$
  800. 8000 printspc(20)a0$
  801. 8010 printspc(20)"kaufen"
  802. 8020 printspc(20)"nicht kaufen"
  803. 8030 a1=1:poke198,0
  804. 8040 ifms(s,1)<athena1=2
  805. 8050 i0=740:i1=3:gosub1700
  806. 8060 ife<>32then8050
  807. 8070 ifa1=2then8160
  808. 8080 pu=-a:gosub3580
  809. 8090 ms(s,a2)=ms(s,a2)+a0
  810. 8100 w(a2-3,1)=w(a2-3,1)+a0
  811. 8110 ona2-2gosub4440,6210:goto8150
  812. 8120 w(2,0)=10000
  813. 8130 ifw(2,1)<anthen8150
  814. 8140 w(2,0)=10000+1000*(w(2,1)-an)
  815. 8150 gosub840
  816. 8160 return
  817. 8170 rem *********
  818. 8180 rem brand ***
  819. 8190 rem *********
  820. 8200 ifrnd(0)<.5then8230
  821. 8210 print"brand im werk"
  822. 8220 goto8240
  823. 8230 print"sabotage im werk"
  824. 8240 a=int(6*rnd(0))+1
  825. 8250 onagoto8350,8350,8390
  826. 8260 a=1:a0=3
  827. 8270 a2=int(ms(s,3)*rnd(0))+1
  828. 8280 a$=str$(a2)+" rohwaren"
  829. 8290 ifms(s,3)>0then8430
  830. 8300 a2=0
  831. 8310 printspc(20)"aufraeumarbeiten"
  832. 8320 printspc(20)"einmal aussetzen"
  833. 8330 goto8470
  834. 8340 goto8430
  835. 8350 ifms(s,4)=0then8260
  836. 8360 a2=int(ms(s,4)*rnd(0))+1
  837. 8370 a$=str$(a2)+" fertigwaren"
  838. 8380 a=2:a0=4:goto8430
  839. 8390 ifms(s,5)=0then8350
  840. 8400 a2=1
  841. 8410 a$=str$(a2)+" maschine"
  842. 8420 a=3:a0=5
  843. 8430 printspc(20)"schaden ="
  844. 8440 printspc(20)a$
  845. 8450 printspc(20)"versicherung:"a
  846. 8460 printspc(20)"versicherung: 0"
  847. 8470 a1=1
  848. 8480 ifms(s,7)<athena1=2
  849. 8490 ifa2=0thena1=1
  850. 8500 i0=740:i1=3:gosub1700
  851. 8510 ife<>32then8480
  852. 8520 ifa2>0then8550
  853. 8530 ms(0,s)=ms(0,s)+1
  854. 8540 goto8630
  855. 8550 w(a0-3,1)=w(a0-3,1)-a2
  856. 8560 pu=a2*w(a0-3,0)
  857. 8570 ms(s,a0)=ms(s,a0)-a2
  858. 8580 ifa1=2then8610
  859. 8590 gosub3580
  860. 8600 ms(s,7)=ms(s,7)-a
  861. 8610 ifa=3thengosub3750
  862. 8620 a2=a0:gosub8110
  863. 8630 return
  864. 8640 rem *************
  865. 8650 rem gute idee ***
  866. 8660 rem *************
  867. 8670 print"gute werbe-idee"
  868. 8680 printspc(20)"preis = 1000"
  869. 8690 printspc(20)"fuer 3 punkte"
  870. 8700 printspc(20)"angenommen"
  871. 8710 printspc(20)"abgelehnt"
  872. 8720 a1=1
  873. 8730 ifms(s,1)<1000thena1=2
  874. 8740 i0=740:i1=3:gosub1700
  875. 8750 ife<>32then8730
  876. 8760 ifa1=2then8790
  877. 8770 pu=-1000:gosub3580
  878. 8780 ms(s,8)=ms(s,8)+3:gosub840
  879. 8790 return
  880. 8800 rem *************
  881. 8810 rem explosion ***
  882. 8820 rem *************
  883. 8830 print"explosion !":ifan=1then8860
  884. 8840 ifms(s,1)>100*anthen8890
  885. 8850 ifms(s,7)>0then8890
  886. 8860 printspc(20)"aufraeumen -"
  887. 8870 printspc(20)"einmal aussetzen"
  888. 8880 pu=0:goto8930
  889. 8890 pu=100*int(int(ms(s,1)/an)/100)
  890. 8900 ifpu>1500thenpu=1500
  891. 8910 printspc(20)"schadenersatz an"
  892. 8920 printspc(20)"alle ="str$(pu)
  893. 8930 printspc(20)"versicherung: 1"
  894. 8940 printspc(20)"versicherung: 0"
  895. 8950 a1=1
  896. 8960 ifms(s,7)=othena1=2
  897. 8970 i0=740:i1=3:gosub1700
  898. 8980 ife<>32then8960
  899. 8990 ifa1=2then9030
  900. 9000 ms(s,7)=ms(s,7)-1:gosub840
  901. 9010 ms(s,1)=ms(s,1)+pu*(an-1)
  902. 9020 ifpu=0thenms(0,s)=1
  903. 9030 ifpu>0then9060
  904. 9040 ms(0,s)=ms(0,s)+1
  905. 9050 goto9070
  906. 9060 gosub1820
  907. 9070 gosub840:return
  908. 9080 rem *************************
  909. 9090 rem unlauterer wettbewerb ***
  910. 9100 rem *************************
  911. 9110 print"unlauterer"
  912. 9120 printspc(26)"wettbewerb"
  913. 9130 a2=int(rnd(0)*5):ifa2>3then9260
  914. 9140 ifru=0then9260
  915. 9150 a2=ms(s,1)-2000:ifa2<100then9260
  916. 9160 a2=100*int(a2/100)
  917. 9170 printspc(20)"prozess verloren"
  918. 9180 if(a2>2000)and(an>1)then9220
  919. 9190 ifa2>500thena2=500
  920. 9200 printspc(20)chr$(158)"kosten ="
  921. 9210 a1=1:goto9320
  922. 9220 a2=a2/(an-1):a2=100*int(a2/100)
  923. 9230 ifa2>1200thena2=1200
  924. 9240 printspc(20)"zahlen an jeden"
  925. 9250 a1=2:goto9320
  926. 9260 printspc(20)"prozess gewonnen"
  927. 9270 a$="sie erhalten :"
  928. 9280 printspc(20)chr$(158)a$
  929. 9290 a2=100*int(ms(s,1)/1000)
  930. 9300 ifa2>1500thena2=1500
  931. 9310 a1=3
  932. 9320 printspc(25)a2
  933. 9330 poke198,0
  934. 9340 gosub1090:ife<>32then9340
  935. 9350 pu=a2:ifa1=2then9380
  936. 9360 ifa1=1thenpu=-pu
  937. 9370 gosub3580:goto9390
  938. 9380 gosub1820
  939. 9390 gosub840:return
  940. 9400 rem ************
  941. 9410 rem karneval ***
  942. 9420 rem ************
  943. 9430 ifms(s,2)<>5then7830
  944. 9440 print"karneval"
  945. 9450 printspc(20)"der betrieb ruht"
  946. 9460 printchr$(158)
  947. 9470 printspc(20)"dreimal"
  948. 9480 printspc(27)"aussetzen"
  949. 9490 poke198,0
  950. 9500 gosub1090:ife<>32then9500
  951. 9510 ms(0,s)=3
  952. 9520 return
  953. 9530 rem *****************
  954. 9540 rem wasserschaden ***
  955. 9550 rem *****************
  956. 9560 ifms(s,6)>0then9610
  957. 9570 ifms(s,5)>0then9660
  958. 9580 ifms(s,4)>0then9710
  959. 9590 ifms(s,3)>0then9770
  960. 9600 goto9110
  961. 9610 a2=6:a$="computer"
  962. 9620 a1=100*int(ms(s,1)/1000)
  963. 9630 ifa1>6000thena1=6000
  964. 9640 ifa1>0then9810
  965. 9650 goto9570
  966. 9660 a2=5:a$="maschinen"
  967. 9670 a1=100*int(ms(s,1)/1000)
  968. 9680 ifa1>700*ms(s,5)thena1=700*ms(s,5)
  969. 9690 ifa1>0then9810
  970. 9700 goto9580
  971. 9710 a2=4:a$="fertigwaren"
  972. 9720 a1=400*ms(s,4)
  973. 9730 ifa1<ms(s,1)then9810
  974. 9740 a1=100*int(ms(s,1)/100)
  975. 9750 ifa1>0then9810
  976. 9760 goto9590
  977. 9770 a2=3:a$="rohwaren"
  978. 9780 a1=50*ms(s,3)
  979. 9790 ifa1<ms(s,1)then9810
  980. 9800 a1=100*int(ms(s,1)/100)
  981. 9810 print"wasserrohrbruch"
  982. 9820 ifa2<5then9850
  983. 9830 a$=a$+"schaden"
  984. 9840 goto9860
  985. 9850 a$="bei "+a$
  986. 9860 printspc(20)a$
  987. 9870 printspc(20)chr$(158)"verlust =";
  988. 9880 ifa1=0then9900
  989. 9890 printa1:goto9920
  990. 9900 a2=int(rnd(0)*ms(s,3))+1
  991. 9910 printa2
  992. 9920 poke198,0
  993. 9930 gosub1090:ife<>32then9930
  994. 9940 ifpu=0then9960
  995. 9950 pu=-a1:gosub3580:goto9990
  996. 9960 ms(s,3)=ms(s,3)-a2
  997. 9970 w(0,1)=w(0,1)-a2
  998. 9980 gosub4440:gosub840
  999. 9990 return
  1000. 10000 rem *****************
  1001. 10010 rem umweltskandal ***
  1002. 10020 rem *****************
  1003. 10030 print"umweltskandal":print
  1004. 10040 ifru=0then10120
  1005. 10050 a1=ms(s,1)
  1006. 10060 ifa1<2000then10120
  1007. 10070 a1=100*int(a1/1000)
  1008. 10080 ifa1>10000thena1=10000
  1009. 10090 printspc(20)"bussgeld ="
  1010. 10100 printspc(30)chr$(158)a1
  1011. 10110 a1=-a1:goto10160
  1012. 10120 printspc(20)"sie erhalten"
  1013. 10130 printspc(20)"schadenersatz"
  1014. 10140 printchr$(158)spc(31)"3000"
  1015. 10150 a1=3000
  1016. 10160 poke198,0
  1017. 10170 gosub1090:ife<>32then10170
  1018. 10180 pu=a1:gosub3580:gosub840
  1019. 10190 return
  1020. 10200 rem ************
  1021. 10210 rem gewinnen ***
  1022. 10220 rem ************
  1023. 10230 a2=ms(s,1):ifa2<1000then10390
  1024. 10240 ifa2<10000then10310
  1025. 10250 a1=int(rnd(0)*3)
  1026. 10260 ifa1>0then10310
  1027. 10270 print"spekulieren sie!"
  1028. 10280 print:a1=10000
  1029. 10290 printspc(20)"einsatz:";
  1030. 10300 goto10340
  1031. 10310 print"pferderennen!"
  1032. 10320 print:a1=1000
  1033. 10330 printspc(20)"sie wetten:";
  1034. 10340 a$=str$(a1)
  1035. 10350 pokeze,18:pokesp,36-len(a$)
  1036. 10360 syscu
  1037. 10370 printchr$(158)a$
  1038. 10380 goto10440
  1039. 10390 a1=100*int(rnd(0)*9)+100
  1040. 10400 print"lottogewinn!"
  1041. 10410 print
  1042. 10420 printspc(20)"sie erhalten";
  1043. 10430 goto10340
  1044. 10440 poke198,0
  1045. 10450 gosub1090:ife=32then10590
  1046. 10460 ife<>17then10450
  1047. 10470 ifa1<1000then10450
  1048. 10480 ifa1<10000then10530
  1049. 10490 a1=a1+10000
  1050. 10500 ifa1>90000thena1=10000
  1051. 10510 ifa1>ms(s,1)thena1=10000
  1052. 10520 goto10340
  1053. 10530 a1=a1+1000
  1054. 10540 ifa1>9000thena1=1000
  1055. 10550 ifa1>ms(s,1)thena1=1000
  1056. 10560 fori=b+711toi+4
  1057. 10570 pokei,32:next
  1058. 10580 goto10340
  1059. 10590 ifa1<1000then10690
  1060. 10600 gosub1250
  1061. 10610 pokeze,16:pokesp,20:syscu
  1062. 10620 printchr$(158)"sie gewinnen:"
  1063. 10630 gosub1560
  1064. 10640 a1=a1*(a-1)*.2:a$=str$(a1)
  1065. 10650 ifa1=0thena$="nichts"
  1066. 10660 printspc(36-len(a$))a$
  1067. 10670 poke198,0
  1068. 10680 gosub1090:ife<>32then10680
  1069. 10690 pu=a1:gosub3580
  1070. 10700 return
  1071. 10710 rem ********************
  1072. 10720 rem rationalisierung ***
  1073. 10730 rem ********************
  1074. 10740 print"rationalisierung"
  1075. 10750 printspc(20)"kosten = 1000"
  1076. 10760 printspc(20)"wert = 3 punkte"
  1077. 10770 printspc(20)"angenommen"
  1078. 10780 printspc(20)"abgelehnt"
  1079. 10790 a1=1
  1080. 10800 ifms(s,1)<1000thena1=2
  1081. 10810 i0=740:i1=3:gosub1700
  1082. 10820 ife<>32then10820
  1083. 10830 ifa1=2then10860
  1084. 10840 pu=-1000:gosub3580
  1085. 10850 ms(s,9)=ms(s,9)+3:gosub840
  1086. 10860 return
  1087. 10870 rem *************
  1088. 10880 rem spielende ***
  1089. 10890 rem *************
  1090. 10900 fors=1toan
  1091. 10910 gosub840
  1092. 10920 gosub1250
  1093. 10930 pokeze,15:pokesp,20:syscu
  1094. 10940 printchr$(150)"spieler"s
  1095. 10950 a1=16
  1096. 10960 ifms(s,10)=0then11040
  1097. 10970 printspc(20)chr$(158)"kredit =";
  1098. 10980 a$=str$(ms(s,10))
  1099. 10990 printtab(36-len(a$))a$
  1100. 11000 poke198,0
  1101. 11010 geta$:ifa$=""then11010
  1102. 11020 pu=-ms(s,10):ms(s,10)=0:gosub3580
  1103. 11030 gosub840:gosub11300:a1=a1+1
  1104. 11040 forj=3to6
  1105. 11050 pokeze,a1:pokesp,0:syscu
  1106. 11060 ifms(s,j)=0then11240
  1107. 11070 a$="rohware=......40":a2=40
  1108. 11080 ifj=3then11180
  1109. 11090 a$="fertigware="
  1110. 11100 ifj=4then11140
  1111. 11110 a$="maschine="
  1112. 11120 ifj=5then11140
  1113. 11130 a$="computer="
  1114. 11140 a2=100*int(w(j-3,0)*.75/100)
  1115. 11150 a0$=str$(a2)
  1116. 11160 a$=left$(a$+".......",17-len(a0$))
  1117. 11170 a$=a$+right$(a0$,len(a0$)-1)
  1118. 11180 printspc(20)a$
  1119. 11190 poke198,0
  1120. 11200 gosub1090:ife<>32then11200
  1121. 11210 pu=a2*ms(s,j):gosub3580
  1122. 11220 ms(s,j)=0:gosub840
  1123. 11230 gosub11300:a1=a1+1
  1124. 11240 nextj,s
  1125. 11250 gosub1250
  1126. 11260 return
  1127. 11270 rem ****************
  1128. 11280 rem zeile in rot ***
  1129. 11290 rem ****************
  1130. 11300 fori=f+20+a1*40toi+15
  1131. 11310 pokei,2:next
  1132. 11320 return
  1133. 11330 rem ****************
  1134. 11340 rem anfangswerte ***
  1135. 11350 rem ****************
  1136. 11360 poke247,0:poke248,0
  1137. 11370 poke249,240:poke250,249
  1138. 11380 fori=49152to49235
  1139. 11390 reada:pokei,a
  1140. 11400 next
  1141. 11410 sys12*4096
  1142. 11420 poke53280,0:poke53281,0
  1143. 11430 b=rnd(-ti): rem zufall
  1144. 11440 b=1024:     rem bildram
  1145. 11450 f=55296:    rem farbram
  1146. 11460 ze=214:     rem zeile
  1147. 11470 sp=211:     rem spalte
  1148. 11480 cu=58640:   rem cursor setzen
  1149. 11490 dimms(10,12):rem spieler
  1150. 11500 dimf(37,1): rem spielfelder
  1151. 11510 dimfa(4):   rem feldfarben
  1152. 11520 dime$(3):   rem eingabe
  1153. 11530 dimw(3,1):  rem warenwert+zahl
  1154. 11540 fa(0)=2:fa(1)=7:fa(2)=5
  1155. 11550 fa(3)=4:fa(4)=14
  1156. 11560 e$(1)="joy 1"
  1157. 11570 e$(2)="joy 2"
  1158. 11580 e$(3)="taste"
  1159. 11590 fori=0to37
  1160. 11600 a=0:ifi-7*int(i/7)=0thena=1
  1161. 11610 ifi-6*int(i/6)=0thena=2
  1162. 11620 ifi-5*int(i/5)=0thena=3
  1163. 11630 ifi=0thena=4
  1164. 11640 f(i,0)=a:a=3*i
  1165. 11650 ifi>12thena=120*(i-12)+36
  1166. 11660 ifi>19thena=840+3*(31-i)
  1167. 11670 ifi>31thena=120*(38-i)
  1168. 11680 f(3,0)=2:f(33,0)=1
  1169. 11690 f(i,1)=a:next:return
  1170. 11700 rem **************
  1171. 11710 rem bildaufbau ***
  1172. 11720 rem **************
  1173. 11730 printchr$(147)
  1174. 11740 fori=0to37
  1175. 11750 forj=0to2
  1176. 11760 a0=160:ifj=2thena0=231
  1177. 11770 fork=0to80step40
  1178. 11780 ifk=80thena0=239
  1179. 11790 ifk+j=82thena0=250
  1180. 11800 a=f(i,1)+j+k
  1181. 11810 pokef+a,fa(f(i,0))
  1182. 11820 pokeb+a,a0
  1183. 11830 nextk,j,i
  1184. 11840 fori=39to959step40
  1185. 11850 pokef+i,2:pokeb+i,160
  1186. 11860 next:pokeb+959,239
  1187. 11870 fori=6to1step-1
  1188. 11880 pokeb+160*(6-i)+79,i+176
  1189. 11890 next
  1190. 11900 fori=563to595
  1191. 11910 pokef+i,1:pokeb+i,64:next
  1192. 11920 fori=133to533step40
  1193. 11930 pokef+i,1:pokeb+i,66
  1194. 11940 next:pokeb+i,113
  1195. 11950 pokeb+579,114
  1196. 11960 fori=619to819step40
  1197. 11970 pokef+i,1:pokeb+i,66:next
  1198. 11980 printchr$(156)
  1199. 11990 pokeze,4:pokesp,0:syscu
  1200. 12000 a$=" ..10000"
  1201. 12010 fori=1toan
  1202. 12020 printspc(3)right$(str$(i),2);
  1203. 12030 printa$:next
  1204. 12040 printchr$(159)
  1205. 12050 pokeze,4:pokesp,14:syscu
  1206. 12060 print"spieler"
  1207. 12070 print:printspc(14)"rohwaren"
  1208. 12080 printspc(14)"fertigwaren"
  1209. 12090 printspc(14)"maschinen"
  1210. 12100 printspc(14)"computer"
  1211. 12110 printspc(14)"versichert"
  1212. 12120 printspc(14)"werbung"
  1213. 12130 printspc(14)"rationalisieren"
  1214. 12140 printspc(14)"kredite"
  1215. 12150 printchr$(153)
  1216. 12160 pokeze,15:pokesp,8:syscu
  1217. 12170 print"preise":print
  1218. 12180 printspc(3)"rohware"
  1219. 12190 printspc(3)"fertigware"
  1220. 12200 printspc(3)"maschine"
  1221. 12210 printspc(3)"computer"
  1222. 12220 return
  1223. 12230 rem *********
  1224. 12240 rem titel ***
  1225. 12250 rem *********
  1226. 12260 printchr$(147)
  1227. 12270 fori=1to61
  1228. 12280 reada,a0
  1229. 12290 pokef+a,4:pokeb+a,a0
  1230. 12300 next
  1231. 12310 a$="(c) by g. kramer"
  1232. 12320 pokeze,11:pokesp,12:syscu
  1233. 12330 printchr$(30)a$:print
  1234. 12340 a$="(p) by commodorewelt"
  1235. 12350 printspc(10)a$
  1236. 12360 printchr$(158)
  1237. 12370 print"eingeben: ";
  1238. 12380 print"1=joy1 - 3=tastatur"
  1239. 12390 printspc(10)"2=joy2 - 0=spielbeginn"
  1240. 12400 a=0:an=1:printchr$(154)
  1241. 12410 a$=right$(str$(an),2)
  1242. 12420 printspc(a)"spieler "a$"[160]= ";
  1243. 12430 geta$:ifa$="0"then12530
  1244. 12440 ifa$<"1"ora$>"3"then12430
  1245. 12450 a0=val(a$)
  1246. 12460 printe$(a0);
  1247. 12470 ms(an,0)=a0
  1248. 12480 an=an+1
  1249. 12490 ifan=11then12530
  1250. 12500 ifan<>6thenprint:goto12410
  1251. 12510 a=20:pokeze,18:pokesp,0:syscu
  1252. 12520 goto12410
  1253. 12530 an=an-1
  1254. 12540 ifan=0thenan=1:goto12430
  1255. 12550 printchr$(158)
  1256. 12560 pokeze,24:pokesp,0:syscu
  1257. 12570 print"in ordnung? (j/n)";
  1258. 12580 geta$:ifa$="j"then12650
  1259. 12590 ifa$<>"n"then12580
  1260. 12600 fori=18to24
  1261. 12610 poke781,i:sys59903
  1262. 12620 next
  1263. 12630 pokeze,17:pokesp,0:syscu
  1264. 12640 goto12400
  1265. 12650 return
  1266. 12660 rem *********************
  1267. 12670 rem datas m. programm ***
  1268. 12680 rem *********************
  1269. 12690 data76,6,192,76,40,192,32,160,229,120,169,3,141,20,3,169,192,141,21,3
  1270. 12700 data169,240,141,18,208,173,17,208,41,127,141,17,208,169,129,141,26,208
  1271. 12710 data88,96,173,25,208,141,25,208,48,7,173,13,220,88,76,49,234,173,18,208
  1272. 12720 data197,250,144,9,165,247,141,32,208,166,249,208,7,165,248,141,32,208
  1273. 12730 data166,250,142,18,208,76,188,254
  1274. 12740 rem ***************
  1275. 12750 rem datas titel ***
  1276. 12760 rem ***************
  1277. 12770 data91,66,131,66,171,66
  1278. 12780 data211,66,251,66,291,74
  1279. 12790 data292,64,293,75,253,66
  1280. 12800 data213,73,212,64,211,107
  1281. 12810 data214,66,254,66,294,74
  1282. 12820 data134,87,217,73,216,64
  1283. 12830 data215,85,255,66,295,74
  1284. 12840 data296,64,297,75,257,66
  1285. 12850 data217,115,297,115,337,75
  1286. 12860 data336,64,335,74,99,66
  1287. 12870 data139,66,179,66,219,66
  1288. 12880 data259,66,299,74,300,64
  1289. 12890 data301,75,261,66,221,73
  1290. 12900 data220,64,219,107,224,73
  1291. 12910 data223,64,222,85,262,66
  1292. 12920 data302,74,303,64,304,75
  1293. 12930 data264,66,226,73,225,85
  1294. 12940 data265,74,266,73,306,75
  1295. 12950 data305,74,228,73,227,85
  1296. 12960 data267,74,268,73,308,75
  1297. 12970 data307,74
  1298.