home *** CD-ROM | disk | FTP | other *** search
/ Publication 3 / Publication_03_1996_High-Tech_de_Side_A.d64 / game-manager_006 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  35KB  |  842 lines
  1. 0 poke792,193:poke775,.:open2,8,2,"game-manager/008,s,r":input#2,zy,d,ka,kb,da,ks$,kt$,ku$,kv$,kw$,kx$,bg,bh,sa$,sb$,sc$,sd$,se$,sf$:input#2,sg$,sh$,si$,sj$,sk$,sl$,sm$,sn$,so$,sq$,sa,sb,sc,sd,se,sf,sg,sh,si,sj
  2. 1 input#2,sk,sl,sm,sn,so,sq,ga$,gb$,gc$,gd$,ge$,gf$,gg$,gh$,gi$,gj$,gk$,gl$,ga:input#2,gb,gc,gd,ge,gf,gg,gh,gi,gj,gk,gl,hb$,hc$,hd$,he$,hf$,hg$,hh$,hi$:input#2,hj$,hk$,hl$,ha,hb,hc,hd,he,hf,hg,hh,hi,hj,hk,hl,kc$,ke$,kf$,kd$,kg$
  3. 2 input#2,kc,kd,ke,kf,zi,zl,pa$,pb$,pc$,pd$,pe$,pf$,pg$,ph$,pi$,pj$,pk$,pl$,pm$:input#2,pn$,po$,pa(1),pa(2),pa(3),pa(4),pa(5),pa(6),pa(7),pa(8),pa(9),pb(1):input#2,pb(2),pb(3),pb(4),pb(5),pb(6),na(1),na(2),na(3),na(4),na(5),na(6)
  4. 3 input#2,na(7),na(8),na(9),nb(1),nb(2),nb(3),nb(4),nb(5),nb(6),na$,nb$,nc$,nd$:input#2,ne$,nf$,ng$,nh$,ni$,nj$,nk$,nl$,nn$,nm$,no$,wa$,wb$,wc$,wa,wb,wc,ha$:input#2,za$,zb$,zc$,zd$,ze$,zf$,zg$,zh$,zi$,zj$,zk$,zl$:close2
  5. 4 poke53280,6:poke53281,6:gosub5:goto6
  6. 5 print"[147]     game-manager by sascha herbrig     ":return
  7. 6 print"[154]wieviele spieler (1 oder 2) ?":d=1
  8. 7 geta$:ifa$=""then7
  9. 8 ifa$="1"thensy=1
  10. 9 ifa$="2"thensy=2
  11. 10 print"[153]":x=21:y=6:te$="name des 1.spielers?":le=15:by=1:gosub833:fa$=i$:ifsy=2thenx=21:y=8:te$="name des 2.spielers?":le=15:by=1:gosub833:fb$=i$
  12. 11 print:print"[158]   sind ihre eingaben richtig (j/n) ?
  13. 12 [161]a$:[139]a$[178]""[167]12
  14. 13 [139]a$[178]"j"[167]15
  15. 14 [137]4
  16. 15 [151]53280,6:[151]53281,6:[141]16:[141]17:[137]19
  17. 16 [153]"loadgame-manager by sascha herbrigwait"da"cmd.runde":[142]
  18. 17 [139]d[178]1[167][153]"cont"fa$:[153]"kap."ka:[142]
  19. 18 [153]"cont"fb$:[153]"kap."kb:[142]
  20. 19 [153]"print           spiel herstellen
  21.           einnahmen/ausgaben
  22.             top-15 ansehen
  23.             werbung machen
  24.            spielstand laden
  25.          spielstand speichern
  26.                  bank
  27.               zug beenden
  28. 20 print"":gosub35:ze=1
  29. 21 ifpeek(56320)=125thengosub36:print:gosub35:ze=ze+1
  30. 22 ifpeek(56320)=126thengosub36:print"[145][145][145][145]":gosub35:ze=ze-1
  31. 23 ifze=9thengosub36:print"":gosub35:ze=1
  32. 24 ifze=0thengosub36:print"":gosub35:ze=8
  33. 25 ifpeek(56320)=111then27
  34. 26 goto21
  35. 27 ifze=1then42
  36. 28 ifze=2then288
  37. 29 ifze=3thenm=1:goto557
  38. 30 ifze=4then767
  39. 31 ifze=5thenp=1:goto788
  40. 32 ifze=6thenp=2:goto788
  41. 33 ifze=7then293
  42. 34 ifze=8then39
  43. 35 print"[154]     [192][192][192]___":return
  44. 36 print"[145]           ":return
  45. 37 print"[154]___ [192][192][192]":return
  46. 38 print"[145]       ":return
  47. 39 ifsy=2andd=1thend=2:goto41
  48. 40 goto419
  49. 41 gosub16:gosub17:goto19
  50. 42 gosub16:gosub17:gosub279:print"[153]     wie soll ihr spiel hei\en?
  51. [158]":x=16:y=6:te$="spielname?":by=1:le=16:gosub833:sr$=i$:print:print"[154]     sind sie sich sicher (j/n)?
  52. 43 [161]a$:[139]a$[178]""[167]43
  53. 44 [139]a$[178]"j"[167]326
  54. 45 [137]15
  55. 46 [139]d[178]1[167]51
  56. 47 [139]kp[178]0[167]kv$[178]sr$:zo[178]1:lx[178]1:[137]255
  57. 48 [139]kq[178]0[167]kw$[178]sr$:zo[178]2:ly[178]1:[137]255
  58. 49 [139]kr[178]0[167]kx$[178]sr$:zo[178]3:lz[178]1:[137]255
  59. 50 [137]395
  60. 51 [139]kl[178]0[167]ks$[178]sr$:zp[178]1:lu[178]1:[137]255
  61. 52 [139]km[178]0[167]kt$[178]sr$:zp[178]2:lv[178]1:[137]255
  62. 53 [139]kn[178]0[167]ku$[178]sr$:zp[178]3:lw[178]1:[137]255
  63. 54 [137]399
  64. 55 [141]16:[141]17:[153]"print bitte w;hlen sie den programmierer !":[139]d[178]1[167]103
  65. 56 [139]kb[179]0[167]105
  66. 57 [153]"sys   "ha$:[153]"on"ha:[153]"   "hb$:[153]"on"hb:[153]"   "hc$:[153]"on"hc:[153]"   "hd$:[153]"on"hd:[153]"   "he$:[153]"on"he
  67. 58 [153]"   "hf$:[153]"on"hf:[153]"   "hg$:[153]"on"hg:[153]"   "hh$:[153]"on"hh:[153]"   "hi$:[153]"on"hi:[153]"   "hj$:[153]"on"hj
  68. 59 [153]"   "hk$:[153]"on"hk:[153]"   "hl$:[153]"on"hl
  69. 60 [153]"":[141]37:ze[178]1
  70. 61 [139][194](56320)[178]125[167][141]38:[153]"on":[141]37:ze[178]ze[170]1
  71. 62 [139][194](56320)[178]126[167][141]38:[153]"ononon":[141]37:ze[178]ze[171]1
  72. 63 [139]ze[178]13[167][141]38:[137]60
  73. 64 [139]ze[178]0[167][141]38:[153]"":[141]37:ze[178]12
  74. 65 [139][194](56320)[178]111[167]67
  75. 66 [137]61
  76. 67 [139]ze[178]1[167]79
  77. 68 [139]ze[178]2[167]81
  78. 69 [139]ze[178]3[167]83
  79. 70 [139]ze[178]4[167]85
  80. 71 [139]ze[178]5[167]87
  81. 72 [139]ze[178]6[167]89
  82. 73 [139]ze[178]7[167]91
  83. 74 [139]ze[178]8[167]93
  84. 75 [139]ze[178]9[167]95
  85. 76 [139]ze[178]10[167]97
  86. 77 [139]ze[178]11[167]99
  87. 78 [139]ze[178]12[167]101
  88. 79 [139]d[178]1[167]ka[178]ka[171]ha:hz[178]ha:[137]108
  89. 80 kb[178]kb[171]ha:hz[178]ha:[137]108
  90. 81 [139]d[178]1[167]ka[178]ka[171]hb:hz[178]hb:[137]108
  91. 82 kb[178]kb[171]hb:hz[178]hb:[137]108
  92. 83 [139]d[178]1[167]ka[178]ka[171]hc:hz[178]hc:[137]108
  93. 84 kb[178]kb[171]hc:hz[178]hc:[137]108
  94. 85 [139]d[178]1[167]ka[178]ka[171]hd:hz[178]hd:[137]108
  95. 86 kb[178]kb[171]hd:hz[178]hd:[137]108
  96. 87 [139]d[178]1[167]ka[178]ka[171]he:hz[178]he:[137]108
  97. 88 kb[178]kb[171]he:hz[178]he:[137]108
  98. 89 [139]d[178]1[167]ka[178]ka[171]hf:hz[178]hf:[137]108
  99. 90 kb[178]kb[171]hf:hz[178]hf:[137]108
  100. 91 [139]d[178]1[167]ka[178]ka[171]hg:hz[178]hg:[137]108
  101. 92 kb[178]kb[171]hg:hz[178]hg:[137]108
  102. 93 [139]d[178]1[167]ka[178]ka[171]hh:hz[178]hh:[137]108
  103. 94 kb[178]kb[171]hh:hz[178]hh:[137]108
  104. 95 [139]d[178]1[167]ka[178]ka[171]hi:hz[178]hi:[137]108
  105. 96 kb[178]kb[171]hi:hz[178]hi:[137]108
  106. 97 [139]d[178]1[167]ka[178]ka[171]hj:hz[178]hj:[137]108
  107. 98 kb[178]kb[171]hj:hz[178]hj:[137]108
  108. 99 [139]d[178]1[167]ka[178]ka[171]hk:hz[178]hk:[137]108
  109. 100 kb[178]kb[171]hk:hz[178]hk:[137]108
  110. 101 [139]d[178]1[167]ka[178]ka[171]hl:hz[178]hl:[137]108
  111. 102 kb[178]kb[171]hl:hz[178]hl:[137]108
  112. 103 [139]ka[179]0[167]105
  113. 104 [137]57
  114. 105 [153]"sys    werfen sie doch mal einen blick
  115.         auf ihren kontostand....
  116. 106 ifpeek(56320)=111then15
  117. 107 goto106
  118. 108 gosub16:gosub17:print"[153]    bitte w;hlen sie den grafiker !":ifd=1then156
  119. 109 ifkb<0thenkb=kb+hz:goto158
  120. 110 print"[158]   "ga$:print"[145]"ga:print"   "gb$:print"[145]"gb:print"   "gc$:print"[145]"gc:print"   "gd$:print"[145]"gd:print"   "ge$:print"[145]"ge
  121. 111 print"   "gf$:print"[145]"gf:print"   "gg$:print"[145]"gg:print"   "gh$:print"[145]"gh:print"   "gi$:print"[145]"gi:print"   "gj$:print"[145]"gj
  122. 112 print"   "gk$:print"[145]"gk:print"   "gl$:print"[145]"gl
  123. 113 print"":gosub37:ze=1
  124. 114 ifpeek(56320)=125thengosub38:print"[145]":gosub37:ze=ze+1
  125. 115 ifpeek(56320)=126thengosub38:print"[145][145][145]":gosub37:ze=ze-1
  126. 116 ifze=13thengosub38:goto113
  127. 117 ifze=0thengosub38:print"":gosub37:ze=12
  128. 118 ifpeek(56320)=111then120
  129. 119 goto114
  130. 120 ifze=1then132
  131. 121 ifze=2then134
  132. 122 ifze=3then136
  133. 123 ifze=4then138
  134. 124 ifze=5then140
  135. 125 ifze=6then142
  136. 126 ifze=7then144
  137. 127 ifze=8then146
  138. 128 ifze=9then148
  139. 129 ifze=10then150
  140. 130 ifze=11then152
  141. 131 ifze=12then154
  142. 132 ifd=1thenka=ka-ga:gz=ga:goto161
  143. 133 kb=kb-ga:gz=ga:goto161
  144. 134 ifd=1thenka=ka-gb:gz=gb:goto161
  145. 135 kb=kb-gb:gz=gb:goto161
  146. 136 ifd=1thenka=ka-gc:gz=gc:goto161
  147. 137 kb=kb-gc:gz=gc:goto161
  148. 138 ifd=1thenka=ka-gd:gz=gd:goto161
  149. 139 kb=kb-gd:gz=gd:goto161
  150. 140 ifd=1thenka=ka-ge:gz=ge:goto161
  151. 141 kb=kb-ge:gz=ge:goto161
  152. 142 ifd=1thenka=ka-gf:gz=gf:goto161
  153. 143 kb=kb-gf:gz=gf:goto161
  154. 144 ifd=1thenka=ka-gg:gz=gg:goto161
  155. 145 kb=kb-gg:gz=gg:goto161
  156. 146 ifd=1thenka=ka-gh:gz=gh:goto161
  157. 147 kb=kb-gh:gz=gh:goto161
  158. 148 ifd=1thenka=ka-gi:gz=gi:goto161
  159. 149 kb=kb-gi:gz=gi:goto161
  160. 150 ifd=1thenka=ka-gj:gz=gj:goto161
  161. 151 kb=kb-gj:gz=gj:goto161
  162. 152 ifd=1thenka=ka-gk:gz=gk:goto161
  163. 153 kb=kb-gk:gz=gk:goto161
  164. 154 ifd=1thenka=ka-gl:gz=gl:goto161
  165. 155 kb=kb-gl:gz=gl:goto161
  166. 156 ifka<0thenka=ka+hz:goto158
  167. 157 goto110
  168. 158 print"[158]    sie haben nicht genug knete....
  169. 159 [139][194](56320)[178]111[167]15
  170. 160 [137]159
  171. 161 [141]16:[141]17:[153]"print  bitte w;hlen sie den soundmacher !":[139]d[178]1[167]222
  172. 162 [139]kb[179]0[167]kb[178]kb[170]hz[170]gz:[137]224
  173. 163 [153]"sys   "sa$:[153]"on"sa:[153]"   "sb$:[153]"on"sb:[153]"   "sc$:[153]"on"sc:[153]"   "sd$:[153]"on"sd:[153]"   "se$:[153]"on"se
  174. 164 [153]"   "sf$:[153]"on"sf:[153]"   "sg$:[153]"on"sg:[153]"   "sh$:[153]"on"sh:[153]"   "si$:[153]"on"si:[153]"   "sj$:[153]"on"sj
  175. 165 [153]"   "sk$:[153]"on"sk:[153]"   "sl$:[153]"on"sl:[153]"   "sm$:[153]"on"sm:[153]"   "sn$:[153]"on"sn:[153]"   "so$:[153]"on"so
  176. 166 [153]"   "sq$:[153]"on"sq
  177. 167 [153]"":[141]37:ze[178]1
  178. 168 [139][194](56320)[178]125[167][141]38:[153]"on":[141]37:ze[178]ze[170]1
  179. 169 [139][194](56320)[178]126[167][141]38:[153]"ononon":[141]37:ze[178]ze[171]1
  180. 170 [139]ze[178]17[167][141]38:[137]167
  181. 171 [139]ze[178]0[167][141]38:[153]"":[141]37:ze[178]16
  182. 172 [139][194](56320)[178]111[167]174
  183. 173 [137]168
  184. 174 [139]ze[178]1[167]190
  185. 175 [139]ze[178]2[167]192
  186. 176 [139]ze[178]3[167]194
  187. 177 [139]ze[178]4[167]196
  188. 178 [139]ze[178]5[167]198
  189. 179 [139]ze[178]6[167]200
  190. 180 [139]ze[178]7[167]202
  191. 181 [139]ze[178]8[167]204
  192. 182 [139]ze[178]9[167]206
  193. 183 [139]ze[178]10[167]208
  194. 184 [139]ze[178]11[167]210
  195. 185 [139]ze[178]12[167]212
  196. 186 [139]ze[178]13[167]214
  197. 187 [139]ze[178]14[167]216
  198. 188 [139]ze[178]15[167]218
  199. 189 [139]ze[178]16[167]220
  200. 190 [139]d[178]1[167]ka[178]ka[171]sa:sz[178]sa:[137]227
  201. 191 kb[178]kb[171]sa:sz[178]sa:[137]227
  202. 192 [139]d[178]1[167]ka[178]ka[171]sb:sz[178]sb:[137]227
  203. 193 kb[178]kb[171]sb:sz[178]sb:[137]227
  204. 194 [139]d[178]1[167]ka[178]ka[171]sc:sz[178]sc:[137]227
  205. 195 kb[178]kb[171]sc:sz[178]sc:[137]227
  206. 196 [139]d[178]1[167]ka[178]ka[171]sd:sz[178]sd:[137]227
  207. 197 kb[178]kb[171]sd:sz[178]sd:[137]227
  208. 198 [139]d[178]1[167]ka[178]ka[171]se:sz[178]se:[137]227
  209. 199 kb[178]kb[171]se:sz[178]se:[137]227
  210. 200 [139]d[178]1[167]ka[178]ka[171]sf:sz[178]sf:[137]227
  211. 201 kb[178]kb[171]sf:sz[178]sf:[137]227
  212. 202 [139]d[178]1[167]ka[178]ka[171]sg:sz[178]sg:[137]227
  213. 203 kb[178]kb[171]sg:sz[178]sg:[137]227
  214. 204 [139]d[178]1[167]ka[178]ka[171]sh:sz[178]sh:[137]227
  215. 205 kb[178]kb[171]sh:sz[178]sh:[137]227
  216. 206 [139]d[178]1[167]ka[178]ka[171]si:sz[178]si:[137]227
  217. 207 kb[178]kb[171]si:sz[178]si:[137]227
  218. 208 [139]d[178]1[167]ka[178]ka[171]sj:sz[178]sj:[137]227
  219. 209 kb[178]kb[171]sj:sz[178]sj:[137]227
  220. 210 [139]d[178]1[167]ka[178]ka[171]sk:sz[178]sk:[137]227
  221. 211 kb[178]kb[171]sk:sz[178]sk:[137]227
  222. 212 [139]d[178]1[167]ka[178]ka[171]sl:sz[178]sl:[137]227
  223. 213 kb[178]kb[171]sl:sz[178]sl:[137]227
  224. 214 [139]d[178]1[167]ka[178]ka[171]sm:sz[178]sm:[137]227
  225. 215 kb[178]kb[171]sm:sz[178]sm:[137]227
  226. 216 [139]d[178]1[167]ka[178]ka[171]sn:sz[178]sn:[137]227
  227. 217 kb[178]kb[171]sn:sz[178]sn:[137]227
  228. 218 [139]d[178]1[167]ka[178]ka[171]so:sz[178]so:[137]227
  229. 219 kb[178]kb[171]so:sz[178]so:[137]227
  230. 220 [139]d[178]1[167]ka[178]ka[171]sq:sz[178]sq:[137]227
  231. 221 kb[178]kb[171]sq:sz[178]sq:[137]227
  232. 222 [139]ka[179]0[167]ka[178]ka[170]hz[170]gz:[137]224
  233. 223 [137]163
  234. 224 [153]"sys    sie haben nicht genug geld.....
  235. 225 ifpeek(56320)=111then15
  236. 226 goto225
  237. 227 gosub16:gosub17:print"[153]  bitte w;hlen sie den kopierschutz !":ifd=1then250
  238. 228 ifkb<0thenkb=kb+hz+gz+sz:goto252
  239. 229 print"[158]   "kc$:print"[145]"kc:print"   "kd$:print"[145]"kd:print"   "ke$:print"[145]"ke:print"   "kf$:print"[145]"kf:print"   "kg$
  240. 230 print"":gosub37:ze=1
  241. 231 ifpeek(56320)=125thengosub38:print"[145]":gosub37:ze=ze+1
  242. 232 ifpeek(56320)=126thengosub38:print"[145][145][145]":gosub37:ze=ze-1
  243. 233 ifze=6thengosub38:goto230
  244. 234 ifze=0thengosub38:print"":gosub37:ze=5
  245. 235 ifpeek(56320)=111then237
  246. 236 goto231
  247. 237 ifze=1then242
  248. 238 ifze=2then244
  249. 239 ifze=3then246
  250. 240 ifze=4then248
  251. 241 ifze=5theniz=0:goto46
  252. 242 ifd=1thenka=ka-kc:iz=kc:goto46
  253. 243 kb=kb-kc:iz=kc:goto46
  254. 244 ifd=1thenka=ka-kd:iz=kd:goto46
  255. 245 kb=kb-kd:iz=kd:goto46
  256. 246 ifd=1thenka=ka-ke:iz=ke:goto46
  257. 247 kb=kb-ke:iz=ke:goto46
  258. 248 ifd=1thenka=ka-kf:iz=kf:goto46
  259. 249 kb=kb-kf:iz=kf:goto46
  260. 250 ifka<0thenka=ka+hz+gz+sz:goto252
  261. 251 goto229
  262. 252 print"[158]    sie haben nicht genug money....
  263. 253 [139][194](56320)[178]111[167]15
  264. 254 [137]253
  265. 255 [133]"contwie teuer soll ihr spiel sein";ko:[139]ko[179]5[176]ko[177]80[167][153]"onononon":[137]255
  266. 256 [139]ks$[178]sr$[167]hs[178]hz:gs[178]gz:ss[178]sz:ks[178]iz:lu[178].:[137]262
  267. 257 [139]kt$[178]sr$[167]ht[178]hz:gt[178]gz:sr[178]sz:kt[178]iz:lv[178].:[137]262
  268. 258 [139]ku$[178]sr$[167]hu[178]hz:gu[178]gz:su[178]sz:ku[178]iz:[137]262
  269. 259 [139]kv$[178]sr$[167]hv[178]hz:gv[178]gz:sv[178]sz:kv[178]iz:[137]262
  270. 260 [139]kw$[178]sr$[167]hw[178]hz:gw[178]gz:sw[178]sz:kw[178]iz:[137]262
  271. 261 [139]kx$[178]sr$[167]hx[178]hz:gx[178]gz:sx[178]sz:kx[178]iz:[137]262
  272. 262 pr[178]1:[139]hz[177]120000[167]pr[178]pr[170]2:[137]264
  273. 263 [139]hz[177]80000[167]pr[178]pr[170]1:[137]264
  274. 264 [139]gz[177]120000[167]pr[178]pr[170]2:[137]266
  275. 265 [139]gz[177]80000[167]pr[178]pr[170]1:[137]266
  276. 266 [139]sz[177]80000[167]pr[178]pr[170]2:[137]268
  277. 267 [139]sz[177]60000[167]pr[178]pr[170]1:[137]268
  278. 268 mw[178]ko[172]15[173]100:mw[178]2[172]mw:dr[178]ko[172]5[173]100:ds[178]ko[172]20[173]100:ko[178]ko[171]mw[171]dr[171]ds:[139]ks$[178]sr$[167]as[178]ko:kl[178]1
  279. 269 [139]kt$[178]sr$[167]at[178]ko:km[178]1
  280. 270 [139]ku$[178]sr$[167]au[178]ko:kn[178]1
  281. 271 [139]kv$[178]sr$[167]av[178]ko:kp[178]1
  282. 272 [139]kw$[178]sr$[167]aw[178]ko:kq[178]1
  283. 273 [139]kx$[178]sr$[167]ax[178]ko:kr[178]1
  284. 274 [153]"nach abz@gen(z.b.umsatzst.)machen sie   einen gewinn von"ko"dm pro spiel.
  285. die produktion wird"pr"monate dauern.":[137]277
  286. 275 [139][194](56320)[178]111[167]15
  287. 276 [137]275
  288. 277 [139]d[178]1[167]ps[178]pr:[137]275
  289. 278 pt[178]pr:[137]275
  290. 279 [139]d[178]1[167]283
  291. 280 [139]pt[177]0[167][153]"sys  sie schlingel! sie produzieren doch
  292. 281 ifpt>0thenprint"        schon gerade ein spiel !":goto286
  293. 282 return
  294. 283 ifps>0thenprint"[158]  sie schlingel! sie produzieren doch
  295. 284 [139]ps[177]0[167][153]"        schon gerade ein spiel !":[137]286
  296. 285 [142]
  297. 286 [139][194](56320)[178]111[167]15
  298. 287 [137]286
  299. 288 [141]16:[141]17:[153]"printname des spiels  ausgaben  einnahmen":[139]d[178]1[167]290
  300. 289 gy[178]hv[170]gv[170]sv[170]kv:[153]"sys"kv$:[153]"on"gy:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"gp:gy[178]hw[170]gw[170]sw[170]kw:[153]""kw$:[153]"on"gy:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"gq:gy[178]hx[170]gx[170]sx[170]kx:[153]""kx$:[153]"on"gy:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"gr:[137]291
  301. 290 gy[178]hs[170]gs[170]ss[170]ks:[153]"sys"ks$:[153]"on"gy:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"gm:gy[178]ht[170]gt[170]sr[170]kt:[153]""kt$:[153]"on"gy:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"gn:gy[178]hu[170]gu[170]su[170]ku:[153]""ku$:[153]"on"gy:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"g
  302. 291 [139][194](56320)[178]111[167]15
  303. 292 [137]291
  304. 293 [141]16:[141]17:[153]"print           kredit aufnehmen
  305.             kredit abzahlen
  306.            geld verschenken
  307.               geld leihen
  308.              geld abzahlen
  309.                hauptmen@
  310. ":[141]35:ze[178]1
  311. 294 [139][194](56320)[178]125[167][141]36:[153]:[141]35:ze[178]ze[170]1
  312. 295 [139][194](56320)[178]126[167][141]36:[153]"onononon":[141]35:ze[178]ze[171]1
  313. 296 [139]ze[178]7[167][141]36:[153]"":[141]35:ze[178]1
  314. 297 [139]ze[178]0[167][141]36:[153]"":[141]35:ze[178]6
  315. 298 [139][194](56320)[178]111[167]300
  316. 299 [137]294
  317. 300 [139]ze[178]1[167]341
  318. 301 [139]ze[178]2[167]355
  319. 302 [139]ze[178]3[167]306
  320. 303 [139]ze[178]4[167]376
  321. 304 [139]ze[178]5[167]403
  322. 305 [139]ze[178]6[167]15
  323. 306 [141]16:[141]17:[139]sy[178]1[167][153]"cont         sie spielen doch solo!":[137]414
  324. 307 [153]"print wieviel geld wollen sie an ihren mit-":[139]d[178]1[167][153]"spieler verschenken(max."ka"dm)
  325. 308 ifd=1theninput"[158]   ";bq:goto310
  326. 309 print"spieler verschenken(max."kb"dm)":input"[158]   ";bq:goto319
  327. 310 ifbs>kathenprint"[154]     dazu haben sie zu wenig geld !":goto317
  328. 311 ifbs<0thenprint"[154] sie sind mir vielleicht ein schurke !":goto317
  329. 312 print"      sind sie sich sicher (j/n) ?
  330. 313 [161]a$:[139]a$[178]""[167]313
  331. 314 [139]a$[178]"j"[167]ka[178]ka[171]bq:kb[178]kb[170]bq:[137]316
  332. 315 [137]293
  333. 316 [153]"cont    das geld geh:rt nun spieler 2 !
  334. 317 ifpeek(56320)=111then293
  335. 318 goto317
  336. 319 ifbq>kbthenprint"[154]     dazu haben sie zu wenig geld !":goto317
  337. 320 ifbq<0thenprint"[154] sie sind mir vielleicht ein schurke !":goto317
  338. 321 print"      sind sie sich sicher (j/n) ?
  339. 322 [161]a$:[139]a$[178]""[167]322
  340. 323 [139]a$[178]"j"[167]kb[178]kb[171]bq:ka[178]ka[170]bq:[137]325
  341. 324 [137]293
  342. 325 [153]"cont    das geld geh:rt nun spieler 1 !":[137]317
  343. 326 [141]16:[141]17:[153]"print  was f@r ein spiel soll es werden ?
  344. sys        "za$:[153]"        "zb$:[153]"        "zc$:[153]"        "zd$:[153]"        "ze$:[153]"        "zf$:[153]"        "zg$:[153]"        "zh$:[153]"        "zi$:[153]"        "zj$:[153]"        "zk$:[153]"        "zl$
  345. 327 [153]"":[141]35:ze[178]1
  346. 328 [139][194](56320)[178]125[167][141]36:[153]"on":[141]35:ze[178]ze[170]1
  347. 329 [139][194](56320)[178]126[167][141]36:[153]"ononon":[141]35:ze[178]ze[171]1
  348. 330 [139]ze[178]13[167][141]36:[137]327
  349. 331 [139]ze[178]0[167][141]36:[153]"":[141]35:ze[178]12
  350. 332 [139][194](56320)[178]111[167]334
  351. 333 [137]328
  352. 334 [139]ks$[178]sr$[167]bs[178]ze
  353. 335 [139]kt$[178]sr$[167]bt[178]ze
  354. 336 [139]ku$[178]sr$[167]bu[178]ze
  355. 337 [139]kv$[178]sr$[167]bv[178]ze
  356. 338 [139]kw$[178]sr$[167]bw[178]ze
  357. 339 [139]kx$[178]sr$[167]bx[178]ze
  358. 340 [137]55
  359. 341 [141]16:[141]17:[153]"print wieviel geld wollen sie sich leihen ?":[139]d[178]1[167]zf[178]750000[171]zb:[137]343
  360. 342 zf[178]750000[171]zc
  361. 343 [153]"(max."zf"dm) sys   0cmdcmdcmd";:[133]za:[139]za[177]zf[167][153]" soviel geld k:nnen sie nicht leihen !":[137]353
  362. 344 [139]d[178]1[167]zb[178]za[170]zb:zd[178]zb[172]14[173]100:[137]346
  363. 345 zc[178]za[170]zc:zd[178]zc[172]14[173]100
  364. 346 [153]"cont sie m@ssen dann bei einem zinssatz von
  365. 14% pro spielrunde"zd"dm zahlen.
  366.      sind sie einverstanden (j/n) ?
  367. 347 geta$:ifa$=""then347
  368. 348 ifa$="j"then351
  369. 349 ifd=1thenzb=zb-za:goto293
  370. 350 zc=zc-za:goto293
  371. 351 ifd=1thenka=ka+za:goto293
  372. 352 kb=kb+za:goto293
  373. 353 ifpeek(56320)=111then293
  374. 354 goto353
  375. 355 gosub16:gosub17:ifd=1thenprint"[153]   sie schulden der bank"zb"dm !":goto357
  376. 356 print"[153]    sie schulden der bank"zc"dm !
  377. 357 [153]" wieviel geld wollen sie zur@ckzahlen?":[139]d[178]1[167][153]"(max."ka"dm) sys   0cmdcmdcmd";:[133]za:[137]359
  378. 358 [153]"(max."kb"dm) sys   0cmdcmdcmd";:[133]za
  379. 359 [139]d[178]1[167][153]:[139]za[177]ka[167][153]"     soviel geld haben sie nicht...":[137]374
  380. 360 [139]d[178]2[167][153]:[139]za[177]kb[167][153]"     soviel geld haben sie nicht...":[137]374
  381. 361 [139]d[178]1[167][153]:[139]za[177]zb[167][153]"      sie sind aber grossz@gig !":[137]374
  382. 362 [139]d[178]2[167][153]:[139]za[177]zc[167][153]"      sie sind aber grossz@gig !":[137]374
  383. 363 [139]d[178]1[167]zb[178]zb[171]za:zd[178]zb[172]14[173]100:[137]365
  384. 364 zc[178]zc[171]za:zd[178]zc[172]14[173]100
  385. 365 [139]d[178]1[167][153]"contsie schulden der bank noch"zb"dm!":[137]367
  386. 366 [153]"contsie schulden der bank noch"zc"dm!
  387. 367 print" sie m@ssen dann bei einem zinssatz von
  388. 14% pro spielrunde"zd"dm zahlen.
  389.      sind sie einverstanden (j/n) ?
  390. 368 [161]a$:[139]a$[178]""[167]368
  391. 369 [139]a$[178]"j"[167]372
  392. 370 [139]d[178]1[167]zb[178]zb[170]za:[137]293
  393. 371 zc[178]zc[170]za:[137]293
  394. 372 [139]d[178]1[167]ka[178]ka[171]za:[137]293
  395. 373 kb[178]kb[171]za:[137]293
  396. 374 [139][194](56320)[178]111[167]293
  397. 375 [137]374
  398. 376 [141]16:[141]17:[141]390:[139]sy[178]1[167][153]"cont         sie spielen doch solo!":[137]414
  399. 377 [153]"printspieler"d"cmd,wieviel geld wollen sie sich":[139]d[178]1[167][153]"leihen (max."kb"dm) sys   0cmdcmdcmd";:[133]zg:[137]379
  400. 378 [153]"leihen (max."ka"dm) sys   0cmdcmdcmd";:[133]zn:[137]388
  401. 379 [153]"spieler 2,sind sie damit einverstanden ?":[141]380:[137]383
  402. 380 [161]a$:[139]a$[178]""[167]380
  403. 381 [139]a$[178]"j"[167][142]
  404. 382 [137]293
  405. 383 [153]"spieler 2,wieviel dm zinsen wollen sie ?":[133]" sys   0cmdcmdcmd";zh:[153]"spieler 2,wie lange soll der kredit":[133]"laufen sys   6cmdcmdcmd";zi:[153]"cont sind alle damit einverstanden (j/n) ?":[141]384:[137]387
  406. 384 [161]a$:[139]a$[178]""[167]384
  407. 385 [139]a$[178]"j"[167][142]
  408. 386 [137]293
  409. 387 zj[178]zj[170]zg[170]zh:ka[178]ka[170]zg:kb[178]kb[171]zg:[137]293
  410. 388 [153]"printspieler 1,sind sie damit einverstanden ?":[141]380:[153]"spieler 1,wieviel dm zinsen wollen sie ?":[133]" sys   0cmdcmdcmd";zk:[153]"printspieler 1,wie lange soll der kredit":[133]"laufen sys   6cmdcmdcmd";zl:[153]"cont sind alle damit einverstanden (j/n) ?":[141]384
  411. 389 zm[178]zm[170]zn[170]zk:ka[178]ka[171]zn:kb[178]kb[170]zn:[137]293
  412. 390 [139]d[178]1[167][153]:[139]zi[177][171]1[167][153]"print  sie haben sich schon geld geliehen !":[137]393
  413. 391 [139]d[178]2[167][153]:[139]zl[177][171]1[167][153]"print  sie haben sich schon geld geliehen !":[137]393
  414. 392 [142]
  415. 393 [139][194](56320)[178]111[167]293
  416. 394 [137]393
  417. 395 [139]zo[178]3[167]kv$[178]sr$:zo[178]1:lx[178]1:gp[178].:[137]255
  418. 396 [139]zo[178]1[167]kw$[178]sr$:zo[178]2:ly[178]1:gq[178].:[137]255
  419. 397 [139]zo[178]2[167]kx$[178]sr$:zo[178]3:lz[178]1:gr[178].:[137]255
  420. 398 [137]255
  421. 399 [139]zp[178]3[167]ks$[178]sr$:zp[178]1:lu[178]1:gm[178].:[137]255
  422. 400 [139]zp[178]1[167]kt$[178]sr$:zp[178]2:lv[178]1:gn[178].:[137]255
  423. 401 [139]zp[178]2[167]ku$[178]sr$:zp[178]3:lw[178]1:g[178].:[137]255
  424. 402 [137]255
  425. 403 [141]16:[141]17:[153]"printspieler"d"cmd,sie haben bei ihrem mit-":[139]d[178]1[167][153]:[153]"onspieler einen kredit von"zj"dm!":[141]405:[137]409
  426. 404 [153]"spieler einen kredit von"zm"dm!":[141]405:[137]416
  427. 405 [153]"wollen sie wirklich zur@ckzahlen (j/n)?
  428. 406 geta$:ifa$=""then406
  429. 407 ifa$="j"thenreturn
  430. 408 goto293
  431. 409 ifka<zjthen413
  432. 410 ifzj=0then412
  433. 411 zi=-1:ka=ka-zj:kb=kb+zj:zj=0:goto293
  434. 412 print"[154]sie schulden ihrem mitspieler kein geld!":goto414
  435. 413 print"[154] tja,ihr geldbeutel ist daf@r zu leer!
  436. 414 [139][194](56320)[178]111[167]293
  437. 415 [137]414
  438. 416 [139]ka[179]zj[167]413
  439. 417 [139]zj[178]0[167]412
  440. 418 zl[178][171]1:kb[178]kb[171]zm:ka[178]ka[170]zm:zm[178]0:[137]293
  441. 419 [137]531
  442. 420 [151]53280,5:[151]53281,5:[141]5:[153]"onopen           neues aus der welt           ":[137]461
  443. 421 [153]""fa$:zx[178][187]([171]ti)
  444. 422 [139]zx[179]9e[171]05[175]zx[177]8e[171]05[167][153]"printsie m@ssen 1002dm miete zahlen !":zr[178]1002:[141]465
  445. 423 [139]zx[179]8e[171]05[175]zx[177]7e[171]05[167][153]"printsie fallen hin und brechen sich ein
  446. 424 ifzx<8e-05andzx>7e-05thenprint"bein.krankenhauskosten 256dm !":zr=256:gosub465
  447. 425 ifzx<7e-05andzx>6e-05thenprint"[153]sie spenden einem heim 530dm !":zr=530:gosub465
  448. 426 ifzx<6e-05andzx>5e-05thenprint"[153]bei einer wette";:goto815
  449. 427 ifzx<5e-05andzx>4e-05thenprint"[153]sie feiern eine party fuer 333dm !":goto816
  450. 428 ifzx<4e-05andzx>3e-05thenprint"[153]sie kaufen sich einen neuen computer-
  451. 429 [139]zx[179]4e[171]05[175]zx[177]3e[171]05[167][153]"tisch fuer 498dm !":zr[178]498:[141]465
  452. 430 [139]zx[179]3e[171]05[175]zx[177]2e[171]05[167][153]"printsie verlieren beim roulette 59dm !":zr[178]59:[141]465
  453. 431 [139]zx[179]2e[171]05[175]zx[177]1e[171]05[167][153]"printcomputerreparatur.kosten=168dm !":zr[178]168:[141]465
  454. 432 [139]zx[179]1e[171]05[175]zx[177]9e[171]06[167][153]"printdie abbuchung f@r das abo der magic disk";
  455. 433 [139]zx[179]1e[171]05[175]zx[177]9e[171]06[167][153]"wird wieder f;llig.kosten 114dm!":zr[178]114:[141]465
  456. 434 [139]zx[179]9e[171]06[175]zx[177]8e[171]06[167][153]"printsie verwetten 500dm beim";:[137]817
  457. 435 [139]zx[179]8e[171]06[175]zx[177]7e[171]06[167][153]"printsie erben von ihrem onkel";:[137]818
  458. 436 [139]zx[179]7e[171]06[175]zx[177]6e[171]06[167][153]"printschenkung ihrer grossmutter";:[137]819
  459. 437 [139]zx[179]6e[171]06[175]zx[177]5e[171]06[167][153]"printsie finden einen 5-mark schein !":zr[178]5:[141]467
  460. 438 [139]zx[179]5e[171]06[175]zx[177]4e[171]06[167]820
  461. 439 [139]zx[179]5e[171]06[175]zx[177]4e[171]06[167][153]"der eines ihrer spiele kopiert hat.sie
  462. 440 ifzx<5e-06andzx>4e-06thenprint"erhalten 15.000dm schadensersatz!":zr=15000:gosub467
  463. 441 ifzx<4e-06andzx>3e-06thenprint"[153]sie finden eine brieftasche mit 678dm !":goto469
  464. 442 ifzx<3e-06andzx>2e-06thenprint"[153]wollen sie eine familie einheiraten ?":goto826
  465. 443 ifzx<2e-06andzx>1e-06then484
  466. 444 ifzx<1e-06orzx>9e-05then491
  467. 445 gosub446:print"[153]das war's auch schon f@r diese runde!":goto455
  468. 446 ifzy=2then452
  469. 447 goto449
  470. 448 ka=ka+(zm/2)+zm:zm=0:return
  471. 449 ifzi<0andzj>0thenprint"[153]sie haben nicht den kredit an":goto451
  472. 450 return
  473. 451 printfb$" zur@ckgezahlt."fb$" be-
  474. kommt jetzt sein geld von ihnen zur@ck. ausserdem zahlen sie"zj/2"[157]dm strafe!":ka=ka-(zj/2)-zj:kb=kb+(zj/2)+zj:zj=0:return
  475. 452 ifzl<0andzm>0thenprint"[153]sie haben nicht den kredit an":goto454
  476. 453 return
  477. 454 printfa$" zur@ckgezahlt."fa$" be-
  478. kommt jetzt sein geld von ihnen zur@ck.ausserdem zahlen sie"zm/2"[157]dm strafe!":kb=kb-(zm/2)-zm:goto448
  479. 455 zy=zy+1:ifzy=2andsy=2then457
  480. 456 zy=1:goto555
  481. 457 print""fb$:zx=rnd(-ti):goto422
  482. 458 ifkb<-10000000thenprint"das spiel ist f@r "fb$" gestoppt.":goto460
  483. 459 goto421
  484. 460 print"sie haben mehr als 10.000.000dm minus!":d=1:goto421
  485. 461 ifka<-10000000thenprint"das spiel ist f@r "fa$" gestoppt.":goto464
  486. 462 ifsy=2then458
  487. 463 goto421
  488. 464 print"sie haben mehr als 10.000.000 dm minus!":d=2:ifsy=2then458:goto421
  489. 465 ifzy=1thenka=ka-zr:return
  490. 466 kb=kb-zr:return
  491. 467 ifzy=1thenka=ka+zr:return
  492. 468 kb=kb+zr:return
  493. 469 print"[144]wollen sie die brieftasche abgeben(j/n)?
  494. 470 [161]a$:[139]a$[178]""[167]470
  495. 471 [139]a$[178]"j"[167][153]"sie erhalten 212dm finderlohn.":zr[178]212:[141]467:[137]442
  496. 472 [153]"sie behalten die 678dm!":zr[178]678:[141]467:[139]zy[178]1[167]zq[178]1:[137]442
  497. 473 zz[178]1:[137]445
  498. 474 [161]a$:[139]a$[178]""[167]474
  499. 475 [139]a$[178]"j"[167]zs[178][181](5[172][187](1))[170]1:[137]477
  500. 476 [153]"die hochzeit wird abgesagt !":[137]443
  501. 477 [139]zs[178]1[167]zr[178]4000
  502. 478 [139]zs[178]2[167]zr[178]8000
  503. 479 [139]zs[178]3[167]zr[178]12000
  504. 480 [139]zs[178]4[167]zr[178]16000
  505. 481 [139]zs[178]5[167]zr[178]20000
  506. 482 [153]"die mitgift betr;gt"zr"cmddm !":[139]zy[178]1[167]zt[178]1:[141]467:[137]443
  507. 483 zu[178]1:[141]467:[137]443
  508. 484 [141]488:[139]zq[178]1[167][153]"printdie polizei hat auf einen anonymen hin-":[137]486
  509. 485 [137]444
  510. 486 [153]"weis hin herausgefunden,da\ sie eine
  511. brieftasche gefunden und nicht abgege-
  512. ben haben.geldstrafe=2000dm !":zr[178]2000:[139]zy[178]1[167][141]465:zv[178]zv[171]0.1:zq[178]0:[137]444
  513. 487 [141]465:zw[178]zw[171]0.1:zz[178]0:[137]444
  514. 488 [139]zy[178]1[167][142]
  515. 489 [139]zz[178]1[167][153]"printdie polizei hat auf einen anonymen hin-":[137]486
  516. 490 [137]444
  517. 491 [139]zy[178]1[167]529
  518. 492 [139]pt[178]0[167]494
  519. 493 [137]445
  520. 494 [139]gp[178]0[175]hv[177]0[167]gy[178]hv[170]gv[170]sv:gm$[178]kv$:[137]500
  521. 495 [139]gq[178]0[175]hw[177]0[167]498
  522. 496 [139]gr[178]0[175]hx[177]0[167]499
  523. 497 [137]445
  524. 498 gy[178]hw[170]gw[170]sw:gm$[178]kw$:[137]500
  525. 499 gy[178]hx[170]gx[170]sx:gm$[178]kx$
  526. 500 [139]gy[179]150000[167][141]503:[137]504
  527. 501 [139]gy[177]300000[167][141]503:[137]508
  528. 502 [137]445
  529. 503 [153]"printdie game on hat ihr in diesem monat fer-tig gestelltes spiel sys"gm$"print":[142]
  530. 504 [153]"zum flop des monats ernannt !":[139]gm$[178]kv$[167]hq[178]1
  531. 505 [139]gm$[178]kw$[167]hr[178]1
  532. 506 [139]gm$[178]kx$[167]hy[178]1
  533. 507 zw[178]zw[171]0.25:[137]445
  534. 508 [153]"mit einem highlight-stern ausgezeichnet!":[139]gm$[178]kv$[167]ap[178]1
  535. 509 [139]gm$[178]kw$[167]aq[178]1
  536. 510 [139]gm$[178]kx$[167]ar[178]1
  537. 511 zw[178]zw[170]0.25:[137]445
  538. 512 [139]gm[178]0[175]hs[177]0[167]gy[178]hs[170]gs[170]ss:gm$[178]ks$:[137]518
  539. 513 [139]gq[178]0[175]ht[177]0[167]516
  540. 514 [139]gr[178]0[175]hu[177]0[167]517
  541. 515 [137]445
  542. 516 gy[178]ht[170]gt[170]sr:gm$[178]kt$:[137]518
  543. 517 gy[178]hu[170]gu[170]su:gm$[178]ku$
  544. 518 [139]gy[179]150000[167][141]503:[137]521
  545. 519 [139]gy[177]300000[167][141]503:[137]525
  546. 520 [137]445
  547. 521 [153]"zum flop des monats ernannt !":[139]gm$[178]ks$[167]hn[178]1
  548. 522 [139]gm$[178]kt$[167]ho[178]1
  549. 523 [139]gm$[178]ku$[167]hp[178]1
  550. 524 zv[178]zv[171]0.25:[137]445
  551. 525 [153]"mit einem highlight-stern ausgezeichnet!":[139]gm$[178]ks$[167]am[178]1
  552. 526 [139]gm$[178]kt$[167]an[178]1
  553. 527 [139]gm$[178]ku$[167]ao[178]1
  554. 528 zv[178]zv[170]0.25:[137]445
  555. 529 [139]ps[178]0[167]512
  556. 530 [137]445
  557. 531 [151]53280,2:[151]53281,2:[141]5:[153]"onsys            spielproduktion             
  558. print"fa$:zy[178]1
  559. 532 [139]zy[178]1[167]535
  560. 533 [139]pt[178]1[167]537
  561. 534 [137]538
  562. 535 [139]ps[178]1[167]537
  563. 536 [137]542
  564. 537 [153]"defihr neues spiel ist jetzt fertig !":[141]548:[137]545
  565. 538 [139]pt[177]0[167][153]"defdie produktion l;uft auf hochtouren !":[137]544
  566. 539 [153]"defsie produzieren zur zeit kein spiel.":[137]545
  567. 540 [139][194](56320)[178]111[167]420
  568. 541 [137]540
  569. 542 [139]ps[177]0[167][153]"defdie produktion l;uft auf hochtouren !":[137]547
  570. 543 [137]539
  571. 544 [153]"sie m@ssen noch"pt[171]1"monate warten.
  572. 545 ifzy=1andsy=2thenzy=zy+1:print"[153]"fb$:goto532
  573. 546 zy=1:ps=ps-1:pt=pt-1:goto540
  574. 547 print"sie m@ssen noch"ps-1"monate warten.":goto545
  575. 548 ifhs>0andgm=0thenlu=1
  576. 549 ifht>0andgn=0thenlv=1
  577. 550 ifhu>0andg=0thenlw=1
  578. 551 ifhv>0andgp=0thenlx=1
  579. 552 ifhw>0andgq=0thenly=1
  580. 553 ifhx>0andgr=0thenlz=1
  581. 554 return
  582. 555 ifpeek(56320)=111thenm=2:goto557
  583. 556 goto555
  584. 557 poke53280,10:poke53281,10:gosub5:print"[145][158]          spieleverkaufscharts          
  585. ":ifm=1then702
  586. 558 gosub659:forp=1to9:na(p)=na(p)-(int(200*rnd(1))+1):na(p)=na(p)+(int(200*rnd(1))+1):nextp:forp=1to6:nb(p)=nb(p)-(int(200*rnd(1))+1):nb(p)=nb(p)+(int(200*rnd(1))+1):nextp:ya=.
  587. 559 ya=ya+1:ifya=1then565
  588. 560 ifya=2then575
  589. 561 ifya=3then596
  590. 562 ifya=4then604
  591. 563 ifya=5then612
  592. 564 ifya=6then620
  593. 565 p=1:yb(1)=(hs+ss+gs+(2*ks)+(zv*11111))/50:gosub570:gosub573:ifas>22.5thenyb(1)=yb(1)-500
  594. 566 ifas>29.25thenyb(1)=yb(1)-500
  595. 567 ifas<15.75thenyb(1)=yb(1)+500
  596. 568 ifas<9thenyb(1)=yb(1)+500
  597. 569 b=bs:gosub583:gosub574:lt=lu:gosub628:goto559
  598. 570 ifhn=1thenyb(1)=yb(1)-1234
  599. 571 ifam=1thenyb(1)=yb(1)+987
  600. 572 return
  601. 573 yb(p)=yb(p)-(int(200*rnd(1))+1):return
  602. 574 yb(p)=int(yb(p)+.5):return
  603. 575 p=2:yb(2)=(ht+sr+gt+(2*kt)+(zv*11111))/50:gosub580:gosub573:ifat>22.5thenyb(2)=yb(2)-500
  604. 576 ifat>29.25thenyb(2)=yb(2)-500
  605. 577 ifat<15.75thenyb(2)=yb(2)+500
  606. 578 ifat<9thenyb(2)=yb(2)+500
  607. 579 b=bt:gosub583:gosub574:lt=lv:gosub628:goto559
  608. 580 ifho=1thenyb(2)=yb(2)-1234
  609. 581 ifan=1thenyb(2)=yb(2)+987
  610. 582 return
  611. 583 ifb=10thenyb(p)=yb(p)+100
  612. 584 ifb=5thenyb(p)=yb(p)+80
  613. 585 ifb=6thenyb(p)=yb(p)+60
  614. 586 ifb=1thenyb(p)=yb(p)+40
  615. 587 ifb=7thenyb(p)=yb(p)+20
  616. 588 ifb=8thenyb(p)=yb(p)+0
  617. 589 ifb=9thenyb(p)=yb(p)-20
  618. 590 ifb=2thenyb(p)=yb(p)-40
  619. 591 ifb=11thenyb(p)=yb(p)-60
  620. 592 ifb=4thenyb(p)=yb(p)-80
  621. 593 ifb=3thenyb(p)=yb(p)-90
  622. 594 ifb=12thenyb(p)=yb(p)-100
  623. 595 return
  624. 596 p=3:yb(3)=(hu+su+gu+(2*ku)+(zv*11111))/50:gosub601:gosub573:ifau>22.5thenyb(3)=yb(3)-500
  625. 597 ifau>29.25thenyb(3)=yb(3)-500
  626. 598 ifau<15.75thenyb(3)=yb(3)+500
  627. 599 ifau<9thenyb(3)=yb(3)+500
  628. 600 b=bu:gosub583:gosub574:lt=lw:gosub628:goto559
  629. 601 ifhp=1thenyb(3)=yb(3)-1234
  630. 602 ifao=1thenyb(3)=yb(3)+987
  631. 603 return
  632. 604 p=4:yb(4)=(hv+sv+gv+(2*kv)+(zw*11111))/50:gosub609:gosub573:ifav>22.5thenyb(4)=yb(4)-500
  633. 605 ifav>29.25thenyb(4)=yb(4)-500
  634. 606 ifav<15.75thenyb(4)=yb(4)+500
  635. 607 ifav<9thenyb(4)=yb(4)+500
  636. 608 b=bv:gosub583:gosub574:lt=lx:gosub628:goto559
  637. 609 ifhq=1thenyb(4)=yb(4)-1234
  638. 610 ifap=1thenyb(4)=yb(4)+987
  639. 611 return
  640. 612 p=5:yb(5)=(hw+sw+gw+(2*kw)+(zw*11111))/50:gosub617:gosub573:ifaw>22.5thenyb(5)=yb(5)-500
  641. 613 ifaw>29.25thenyb(5)=yb(5)-500
  642. 614 ifaw<15.75thenyb(5)=yb(5)+500
  643. 615 ifaw<9thenyb(5)=yb(5)+500
  644. 616 b=bw:gosub583:gosub574:lt=ly:gosub628:goto559
  645. 617 ifhr=1thenyb(5)=yb(5)-1234
  646. 618 ifaq=1thenyb(5)=yb(5)+987
  647. 619 return
  648. 620 p=6:yb(6)=(hx+sx+gx+(2*kx)+(zw*11111))/50:gosub625:gosub573:ifax>22.5thenyb(6)=yb(6)-500
  649. 621 ifax>29.25thenyb(6)=yb(6)-500
  650. 622 ifax<15.75thenyb(6)=yb(6)+500
  651. 623 ifax<9thenyb(6)=yb(6)+500
  652. 624 b=bx:gosub583:gosub574:lt=lz:gosub628:goto638
  653. 625 ifhy=1thenyb(6)=yb(6)-1234
  654. 626 ifar=1thenyb(6)=yb(6)+987
  655. 627 return
  656. 628 iflt=2thenyb(p)=yb(p)-1555
  657. 629 iflt=3thenyb(p)=yb(p)-3111
  658. 630 iflt=4thenyb(p)=yb(p)-7777
  659. 631 iflt=5thenyb(p)=yb(p)-9888
  660. 632 iflt=6thenyb(p)=yb(p)-11999
  661. 633 iflt=7thenyb(p)=yb(p)-14000
  662. 634 iflt=8thenyb(p)=yb(p)-16111
  663. 635 iflt=9thenyb(p)=yb(p)-19222
  664. 636 iflt>9thenyb(p)=0
  665. 637 return
  666. 638 gosub639:gosub641:goto660
  667. 639 forp=1to6:ifyb(p)<0thenyb(p)=0
  668. 640 nextp:return
  669. 641 ifgm=0andhs>0andps=0then644
  670. 642 ifgm>0andhs>0andlu>0then644
  671. 643 yb(1)=0
  672. 644 ifgn=0andht>0andps=0then647
  673. 645 ifgn>0andht>0andlv>0then647
  674. 646 yb(2)=0
  675. 647 ifg=0andhu>0andps=0then650
  676. 648 ifg>0andhu>0andlw>0then650
  677. 649 yb(3)=0
  678. 650 ifgp=0andhv>0andpt=0then653
  679. 651 ifgp>0andhv>0andlx>0then653
  680. 652 yb(4)=0
  681. 653 ifgq=0andhw>0andpt=0then656
  682. 654 ifgq>0andhw>0andly>0then656
  683. 655 yb(5)=0
  684. 656 ifgr=0andhx>0andpt=0thenreturn
  685. 657 ifgr>0andhx>0andlz>0thenreturn
  686. 658 yb(6)=0:return
  687. 659 na$=pa$:nb$=pb$:nc$=pc$:nd$=pd$:ne$=pe$:nf$=pf$:ng$=pg$:nh$=ph$:ni$=pi$:nj$=pj$:nk$=pk$:nl$=pl$:nm$=pm$:nn$=pn$:no$=po$:forp=1to9:na(p)=pa(p):nextp:forp=1to6:nb(p)=pb(p):nextp:return
  688. 660 gm=gm+(yb(1)*as):gn=gn+(yb(2)*at):g=g+(yb(3)*au):gp=gp+(yb(4)*av):gq=gq+(yb(5)*aw):gr=gr+(yb(6)*ax):forp=1to6:ifyb(p)=>na(1)then676
  689. 661 ifyb(p)=>na(2)andyb(p)<na(1)then685
  690. 662 ifyb(p)=>na(3)andyb(p)<na(2)then687
  691. 663 ifyb(p)=>na(4)andyb(p)<na(3)then689
  692. 664 ifyb(p)=>na(5)andyb(p)<na(4)then691
  693. 665 ifyb(p)=>na(6)andyb(p)<na(5)then692
  694. 666 ifyb(p)=>na(7)andyb(p)<na(6)then693
  695. 667 ifyb(p)=>na(8)andyb(p)<na(7)then694
  696. 668 ifyb(p)=>na(9)andyb(p)<na(8)then695
  697. 669 ifyb(p)=>nb(1)andyb(p)<na(9)then696
  698. 670 ifyb(p)=>nb(2)andyb(p)<nb(1)then697
  699. 671 ifyb(p)=>nb(3)andyb(p)<nb(2)then698
  700. 672 ifyb(p)=>nb(4)andyb(p)<nb(3)then699
  701. 673 ifyb(p)=>nb(5)andyb(p)<nb(4)then700
  702. 674 ifyb(p)=>nb(6)andyb(p)<nb(5)then701
  703. 675 nextp:goto702
  704. 676 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=na(8):na(8)=na(7):na(7)=na(6):na(6)=na(5):na(5)=na(4):na(4)=na(3):na(3)=na(2):na(2)=na(1):na(1)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$
  705. 677 nl$=nk$:nk$=nj$:nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=nd$:nd$=nc$:nc$=nb$:nb$=na$:na$=r$:nextp:goto702
  706. 678 ifp=1thenr$=ks$
  707. 679 ifp=2thenr$=kt$
  708. 680 ifp=3thenr$=ku$
  709. 681 ifp=4thenr$=kv$
  710. 682 ifp=5thenr$=kw$
  711. 683 ifp=6thenr$=kx$
  712. 684 return
  713. 685 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=na(8):na(8)=na(7):na(7)=na(6):na(6)=na(5):na(5)=na(4):na(4)=na(3):na(3)=na(2):na(2)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$
  714. 686 nl$=nk$:nk$=nj$:nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=nd$:nd$=nc$:nc$=nb$:nb$=r$:nextp:goto702
  715. 687 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=na(8):na(8)=na(7):na(7)=na(6):na(6)=na(5):na(5)=na(4):na(4)=na(3):na(3)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$
  716. 688 nl$=nk$:nk$=nj$:nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=nd$:nd$=nc$:nc$=r$:nextp:goto702
  717. 689 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=na(8):na(8)=na(7):na(7)=na(6):na(6)=na(5):na(5)=na(4):na(4)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$
  718. 690 nl$=nk$:nk$=nj$:nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=nd$:nd$=r$:nextp:goto702
  719. 691 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=na(8):na(8)=na(7):na(7)=na(6):na(6)=na(5):na(5)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$:nl$=nk$:nk$=nj$:nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=r$:nextp:goto702
  720. 692 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=na(8):na(8)=na(7):na(7)=na(6):na(6)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$:nl$=nk$:nk$=nj$:nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=r$:nextp:goto702
  721. 693 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=na(8):na(8)=na(7):na(7)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$:nl$=nk$:nk$=nj$:nj$=ni$:ni$=nh$:nh$=ng$:ng$=r$:nextp:goto702
  722. 694 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=na(8):na(8)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$:nl$=nk$:nk$=nj$:nj$=ni$:ni$=nh$:nh$=r$:nextp:goto702
  723. 695 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=na(9):na(9)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$:nl$=nk$:nk$=nj$:nj$=ni$:ni$=r$:nextp:goto702
  724. 696 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=nb(1):nb(1)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$:nl$=nk$:nk$=nj$:nj$=r$:nextp:goto702
  725. 697 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=nb(2):nb(2)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$:nl$=nk$:nk$=r$:nextp:goto702
  726. 698 nb(6)=nb(5):nb(5)=nb(4):nb(4)=nb(3):nb(3)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=nl$:nl$=r$:nextp:goto702
  727. 699 nb(6)=nb(5):nb(5)=nb(4):nb(4)=yb(p):gosub678:no$=nn$:nn$=nm$:nm$=r$:nextp:goto702
  728. 700 nb(6)=nb(5):nb(5)=yb(p):gosub678:no$=nn$:nn$=r$:nextp:goto702
  729. 701 nb(6)=yb(p):gosub678:no$=r$:nextp:goto702
  730. 702 print"[153]                 top-15
  731.  
  732. "na$:printnb$:printnc$:printnd$:printne$:printnf$:printng$:printnh$:printni$:printnj$:printnk$:printnl$:printnm$:printnn$:printno$:print"":forp=1to9:print""na(p):nextp:forp=1to6:print""nb(p):nextp
  733. 703 ifna$=ks$orna$=kt$orna$=ku$thenprint"[144]"na$:p=1:gosub736
  734. 704 ifna$=kv$orna$=kw$orna$=kx$thenprint""na$:p=1:gosub736
  735. 705 ifnb$=ks$ornb$=kt$ornb$=ku$thenprint"[144]"nb$:p=2:gosub736
  736. 706 ifnb$=kv$ornb$=kw$ornb$=kx$thenprint""nb$:p=2:gosub736
  737. 707 ifnc$=ks$ornc$=kt$ornc$=ku$thenprint"[144]"nc$:p=3:gosub736
  738. 708 ifnc$=kv$ornc$=kw$ornc$=kx$thenprint""nc$:p=3:gosub736
  739. 709 ifnd$=ks$ornd$=kt$ornd$=ku$thenprint"[144]"nd$:p=4:gosub736
  740. 710 ifnd$=kv$ornd$=kw$ornd$=kx$thenprint""nd$:p=4:gosub736
  741. 711 ifne$=ks$orne$=kt$orne$=ku$thenprint"[144]"ne$:p=5:gosub736
  742. 712 ifne$=kv$orne$=kw$orne$=kx$thenprint""ne$:p=5:gosub736
  743. 713 ifnf$=ks$ornf$=kt$ornf$=ku$thenprint"[144]"nf$:p=6:gosub736
  744. 714 ifnf$=kv$ornf$=kw$ornf$=kx$thenprint""nf$:p=6:gosub736
  745. 715 ifng$=ks$orng$=kt$orng$=ku$thenprint"[144]"ng$:p=7:gosub736
  746. 716 ifng$=kv$orng$=kw$orng$=kx$thenprint""ng$:p=7:gosub736
  747. 717 ifnh$=ks$ornh$=kt$ornh$=ku$thenprint"[144]"nh$:p=8:gosub736
  748. 718 ifnh$=kv$ornh$=kw$ornh$=kx$thenprint""nh$:p=8:gosub736
  749. 719 ifni$=ks$orni$=kt$orni$=ku$thenprint"[144]"ni$:p=9:gosub736
  750. 720 ifni$=kv$orni$=kw$orni$=kx$thenprint""ni$:p=9:gosub736
  751. 721 ifnj$=ks$ornj$=kt$ornj$=ku$thenprint"[144]"nj$:p=1:gosub737
  752. 722 ifnj$=kv$ornj$=kw$ornj$=kx$thenprint""nj$:p=1:gosub737
  753. 723 ifnk$=ks$ornk$=kt$ornk$=ku$thenprint"[144]"nk$:p=2:gosub737
  754. 724 ifnk$=kv$ornk$=kw$ornk$=kx$thenprint""nk$:p=2:gosub737
  755. 725 ifnl$=ks$ornl$=kt$ornl$=ku$thenprint"[144]"nl$:p=3:gosub737
  756. 726 ifnl$=kv$ornl$=kw$ornl$=kx$thenprint""nl$:p=3:gosub737
  757. 727 ifnm$=ks$ornm$=kt$ornm$=ku$thenprint"[144]"nm$:p=4:gosub737
  758. 728 ifnm$=kv$ornm$=kw$ornm$=kx$thenprint""nm$:p=4:gosub737
  759. 729 ifnn$=ks$ornn$=kt$ornn$=ku$thenprint"[144]"nn$:p=5:gosub737
  760. 730 ifnn$=kv$ornn$=kw$ornn$=kx$thenprint""nn$:p=5:gosub737
  761. 731 ifno$=ks$orno$=kt$orno$=ku$thenprint"[144]"no$:p=6:gosub737
  762. 732 ifno$=kv$orno$=kw$orno$=kx$thenprint""no$:p=6:gosub737
  763. 733 ifpeek(56320)=111andm=1then15
  764. 734 ifpeek(56320)=111andm=2then738
  765. 735 goto733
  766. 736 print"[145]"na(p):return
  767. 737 print"[145]"nb(p):return
  768. 738 ix=(yb(1)*as)+(yb(2)*at)+(yb(3)*au):ka=ka+ix:iy=(yb(4)*av)+(yb(5)*aw)+(yb(6)*ax):kb=kb+iy:ifda=12orda=24orda=36orda=48orda=60orda=72orda=84orda=96then741
  769. 739 ifda=108orda=120orda=132orda=144orda=156orda=168orda=180orda=192then741
  770. 740 goto753
  771. 741 poke53280,8:poke53281,8:gosub5:print"[145][144]      die besten spiele des jahres      
  772. [153] die game on zeichnet die besten spiele
  773.         des letzten jahres aus !
  774.    hier die gewinnerspiele von ihnen
  775. ":gy=hs+gs+ss:mx=9:mx$=ks$:lt=lu:p=gm:gosub746
  776. 742 gy=ht+gt+sr:mx=9:mx$=kt$:lt=lv:p=gn:gosub746:gy=hu+gu+su:mx=9:mx$=ku$:lt=lw:p=g:gosub746:gy=hv+gv+sv:mx=7:mx$=kv$:lt=lx:p=gp:gosub746:gy=hw+gw+sw:mx=7:mx$=kw$:lt=ly:p=gq:gosub746:gy=hx+gx+sx:mx=7:mx$=kx$:lt=lz:p=gr:gosub746:goto748
  777. 743 ifmx=9thenzv=zv+0.5
  778. 744 ifmx=7thenzw=zw+0.5
  779. 745 return
  780. 746 ifgy>375000andlt<13andp>0thenpoke646,mx:print"             "mx$:goto743
  781. 747 return
  782. 748 print"[155]             das waren sie !
  783. 749 [139][194](56320)[178]111[167]753
  784. 750 [137]749
  785. 751 [151]53280,.:[151]53281,.:[153]"loadsys          das spiel ist zuende.
  786.               loading...":[159]1,8,15,"s:game-manager/004":[159]2,8,2,"game-manager/004,s,w":[152]2,zv:[152]2,zw:[152]2,ka:[152]2,kb:[152]2,zb:[152]2,zc:[152]2,zj:[152]2,zm:[152]2,fa$:[152]2,fb$:[160]1:[160]2:[151]828,.:[153]"
  787. 752 print"[144]load"chr$(34)"game-manager/007"chr$(34)",8,1
  788. run":poke631,13:poke632,13:poke198,2:print"";:end:end
  789. 753 poke53280,4:poke53281,4:gosub5:print"[145][159]            gesamt@bersicht             
  790. [145][150]           nach der"da"[157].runde
  791. [155]========================================
  792. [144][145][145][145][145][145][145][145][145][145][145][145][145][145]":zd=zc*14/100:kb=kb-zd:zd=zb*14/100:ka=ka-zd:p=zi:goto831
  793. 754 ifp<0thenp=0
  794. 755 printfa$:print"[158]gewinn im letzten monat"ix:print"[158]kapital"ka:print"[145][158]beliebtheit"zv:print"[158]kredit"zb:print"[145][158]zinsen"zd:print"[158]kredit beim mitspieler"zj:print"[158]abzahlungstermin in"p"[158]monaten":ifsy=2then757
  795. 756 goto760
  796. 757 p=zl:ifp<0thenp=0
  797. 758 print"[144]"fb$:print"[158]gewinn im letzten monat"iy:print"[158]kapital"kb:print"[145][158]beliebtheit"zw:print"[158]kredit"zc:zd=zc*14/100:goto832
  798. 759 print"[145][158]zinsen"zd:print"[158]kredit beim mitspieler"zm:print"[158]abzahlungstermin in"p"[158]monaten
  799. 760 [139][194](56320)[178]111[167]762
  800. 761 [137]760
  801. 762 [139]da[178]200[167]751
  802. 763 da[178]da[170]1:d[178]1:zi[178]zi[171]1:zl[178]zl[171]1:lt[178]lu:[141]764:lu[178]lt:lt[178]lv:[141]764:lv[178]lt:lt[178]lw:[141]764:lw[178]lt:lt[178]lx:[141]764:lx[178]lt:lt[178]ly:[141]764:ly[178]lt:lt[178]lz:[141]764:lz[178]lt:zv[178]zv[170]0.01:zw[178]zw[170]0.01:[137]766
  803. 764 [139]lt[178]0[167][142]
  804. 765 lt[178]lt[170]1:[142]:lt[178]lt[170]1:[142]
  805. 766 [140]:[137]15
  806. 767 [141]16:[141]17:[153]"print     wie wollen sie werbung machen?
  807. sys   "wa$:[153]"on"wa:[153]"   "wb$:[153]"on"wb:[153]"   "wc$:[153]"on"wc:[153]"   keine werbung
  808. 768 print"":gosub37:ze=1
  809. 769 ifpeek(56320)=125thengosub38:print"[145]":gosub37:ze=ze+1
  810. 770 ifpeek(56320)=126thengosub38:print"[145][145][145]":gosub37:ze=ze-1
  811. 771 ifze=5thengosub38:goto768
  812. 772 ifze=0thengosub38:print"":gosub37:ze=4
  813. 773 ifpeek(56320)=111then775
  814. 774 goto769
  815. 775 ifze=1thenp=wa:goto779
  816. 776 ifze=2thenp=wb:goto779
  817. 777 ifze=3thenp=wc:goto779
  818. 778 ifze=4then15
  819. 779 ifd=2then784
  820. 780 ka=ka-p:ifp=wathenzv=zv+0.03
  821. 781 ifp=wbthenzv=zv+0.02
  822. 782 ifp=wcthenzv=zv+0.01
  823. 783 restore:goto15
  824. 784 kb=kb-p:ifp=wathenzw=zw+0.03
  825. 785 ifp=wbthenzw=zw+0.02
  826. 786 ifp=wcthenzw=zw+0.01
  827. 787 restore:goto15
  828. 788 gosub16:gosub17:print"[153]       welche spielstandnummer ?
  829. [158]   spielstand 1
  830.    spielstand 2
  831.    spielstand 3
  832.    spielstand 4
  833.    spielstand 5
  834.    hauptmen@
  835. 789 [153]"":[141]37:ze[178]1
  836. 790 [139][194](56320)[178]125[167][141]38:[153]"on":[141]37:ze[178]ze[170]1
  837. 791 [139][194](56320)[178]126[167][141]38:[153]"ononon":[141]37:ze[178]ze[171]1
  838. 792 [139]ze[178]7[167][141]38:[137]789
  839. 793 [139]ze[178]0[167][141]38:[153]"":[141]37:ze[178]6
  840. 794 [139][194](56320)[178]111[167]796
  841. 795 [137]790
  842. 796 [139]ze[178]1[167]g$[178]"game-manager/sp1":[137]802
  843. 797 [139]ze[178]2[167]g$[178]"game-manager/sp2":[137]802
  844. 798 [139]ze[178]3[167]g$[178]"game-manager/sp3":[137]802
  845. 799 [139]ze[178]4[167]g$[178]"game-manager/sp4":[137]802
  846. 800 [139]ze[178]5[167]g$[178]"game-manager/sp5":[137]802
  847. 801 [139]ze[178]6[167][140]:[137]15
  848. 802 [139]p[178]2[167]804
  849. 803 [137]807
  850. 804 [159]1,8,15,"s:"[170]g$:[159]2,8,2,g$[170]",s,w":[132]1,p,a$,zx,zs:[139]p[177]0[167][160]1:[160]2:[137]15
  851. 805 [139]fb$[178]""[167]fb$[178]"-
  852. 806 print#2,am:print#2,an:print#2,ao:print#2,ap:print#2,aq:print#2,ar:print#2,as:print#2,at:print#2,au:print#2,av:print#2,aw:print#2,ax:print#2,bs:print#2,bt:print#2,bu:print#2,bv:print#2,bw:print#2,bx:print#2,d:goto811
  853. 807 open1,8,15:open2,8,2,g$+",s,r":input#1,p,a$,zx,zs:ifp<>0thenclose1:close2:goto15
  854. 808 input#2,am,an,ao,ap,aq,ar,as,at,au,av,aw,ax,bs,bt,bu,bv,bw,bx,d,da,fa$,fb$:input#2,g,gm,gn,gp,gq,gr,gs,gt,gu,gv,gw,gx,hn,ho,hp,hq,hr,hs,ht,hu,hv,hw,hx:input#2,hy,ix,iy,k,ka,kb,kh,ki,kj,kl,km,kn,kp,kq,kr,ks$,kt$,ku$,kv$,kw$
  855. 809 input#2,kx$,ks,kt,ku,kv,kw,kx,kz,lu,lv,lw,lx,ly,lz,m,na$,nb$,nc$,nd$,ne$:input#2,nf$,ng$,nh$,ni$,nj$,nk$,nl$,nm$,nn$,no$:forp=1to9:input#2,na(p):nextp:forp=1to6:input#2,nb(p):nextp:input#2,ps,pt,ss,sr,su,sv,sw,sx,sy,ws,wt,wu,wv,ww,wx,ya,yb,za,zb,zc,zd,zf
  856. 810 input#2,zg,zh,zi,zj,zk,zl,zm,zn,zo,zp,zq,zr,zt,zu,zv,zw,zz:close1:close2:goto15
  857. 811 print#2,da:print#2,fa$:print#2,fb$:print#2,g:print#2,gm:print#2,gn:print#2,gp:print#2,gq:print#2,gr:print#2,gs:print#2,gt:print#2,gu:print#2,gv:print#2,gw:print#2,gx:print#2,hn:print#2,ho:print#2,hp:print#2,hq:print#2,hr:print#2,hs:print#2,ht:print#2,hu:print#2,hv:print#2,hw:print#2,hx:print#2,hy:print#2,ix:print#2,iy:print#2,k:print#2,ka:print#2,kb:print#2,kh:print#2,ki:print#2,kj:print#2,kl:print#2,km:print#2,kn:print#2,kp:print#2,kq
  858. 812 print#2,kr:print#2,ks$:print#2,kt$:print#2,ku$:print#2,kv$:print#2,kw$:print#2,kx$:print#2,ks:print#2,kt:print#2,ku:print#2,kv:print#2,kw:print#2,kx:print#2,kz:print#2,lu:print#2,lv:print#2,lw:print#2,lx:print#2,ly:print#2,lz:print#2,m:print#2,na$:print#2,nb$:print#2,nc$:print#2,nd$:print#2,ne$:print#2,nf$:print#2,ng$:print#2,nh$:print#2,ni$:print#2,nj$:print#2,nk$:print#2,nl$:print#2,nm$:print#2,nn$:print#2,no$
  859. 813 forp=1to9:print#2,na(p):nextp:forp=1to6:print#2,nb(p):nextp:print#2,ps:print#2,pt:print#2,ss:print#2,sr:print#2,su:print#2,sv:print#2,sw:print#2,sx:print#2,sy:print#2,ws:print#2,wt:print#2,wu:print#2,wv:print#2,ww:print#2,wx:print#2,ya:print#2,yb:print#2,za:print#2,zb:print#2,zc:print#2,zd:print#2,zf:print#2,zg:print#2,zh:print#2,zi:print#2,zj:print#2,zk:print#2,zl:print#2,zm:print#2,zn:print#2,zo:print#2,zp:print#2,zq
  860. 814 print#2,zr:print#2,zt:print#2,zu:print#2,zv:print#2,zw:print#2,zz:close1:close2:goto15
  861. 815 print" verlieren sie 100dm !":zr=100:gosub465:goto427
  862. 816 zr=333:gosub465:goto428
  863. 817 print" pferderennen!":zr=500:gosub467:goto435
  864. 818 print" 10.000dm !":zr=10000:gosub467:goto436
  865. 819 print"=1507dm !":zr=1507:gosub467:goto437
  866. 820 ifzy=1then823
  867. 821 ifgp>0orgq>0orgr>0then825
  868. 822 goto441
  869. 823 ifgm>0orgn>0org>0then825
  870. 824 goto441
  871. 825 print"[153]die polizei nimmt einen cracker fest,":goto439
  872. 826 ifzy=1andzt=1then829
  873. 827 ifzy=2andzu=1then829
  874. 828 goto474
  875. 829 print"[145][153]sie lassen sich scheiden und m@ssen nun
  876. 10.000dm an ihre frau zahlen !":zr=10000:gosub465:ifzy=1thenzt=0:goto443
  877. 830 zu=0:goto443
  878. 831 ix=int(ix*10^2+.5)/10^2:ka=int(ka*10^2+.5)/10^2:zv=int(zv*10^2+.5)/10^2:zd=int(zd*10^2+.5)/10^2:iy=int(iy*10^2+.5)/10^2:kb=int(kb*10^2+.5)/10^2:zw=int(zw*10^2+.5)/10^2:zc=int(zc*10^2+.5)/10^2:goto754
  879. 832 zd=int(zd*10^2+.5)/10^2:goto759
  880. 833 i$="":poke214,y:poke211,x-len(te$)-1:sys58732:printte$" ";:p=.
  881. 834 poke204,.:poke198,.:wait198,1:getx$:poke207,.:poke204,1:print" [157]";:ifp>0andasc(x$)=20theni$=left$(i$,len(i$)-1):print"[157] [157]";:p=p-1:goto834
  882. 835 ifasc(x$)=13then840
  883. 836 ifp=lethen834
  884. 837 ifby=.and(x$<"0"orx$>"9")then834
  885. 838 ifby=1and(x$<" "or(x$>"{$7f}"andx$<"[160]"))then834
  886. 839 printx$;:i$=i$+x$:p=p+1:goto834
  887. 840 return
  888.