home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 74 / 64er_Magazin_Sonderheft_74_19xx_Markt__Technik_de_Side_B.d64 / lc.main (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  17KB  |  599 lines
  1. 0 (NULL)$8100
  2. 1 dimx(12):dimy(12):dimm2(50):dimm3(50):dimi$(36):print"[147]":(NULL)0,0
  3. 2 print(NULL)12,12"tss praesentiert:"
  4. 3 forr=1to6:readc(r):next:forr=0to63:readq:poke49152+r,q:next:poke53240,0  :q=0
  5. 4 forr=1to12:readx(r):next:forr=1to12:ready(r):next:poke52216,11
  6. 5 forr=1to6:readk(r):next
  7. 6 forr=1to4:readc$(r):next:rem berufe
  8. 7 forr=1to7:readm(r):next:rem melodie1
  9. 8 forr=1to43:readm2(r):readm3(r):next:rem melodie2
  10. 9 ge=800:dimt$(79):tl=1
  11. 10 print(NULL) 9,12"[152]ein gemeinschaftsspiel "
  12. 11 (NULL)"0",8,$d800
  13. 12 print(NULL)8,12"    fuer 2-6 personen   "
  14. 13 forw=1to20:(NULL)mid$(str$(w),2,2),8,w:next
  15. 14 print(NULL)12,12"[152]joystick port ii "
  16. 15 gosub502:gosub506:t=0:(NULL)1,0
  17. 16 fore=1to6:t(e)=0:k3(e)=40:k5(e)=6:k6(e)=2.5:k8(e)=40:k7(e)=2.3:k9(e)=15
  18. 17 n$(e)="":
  19. 18 s$(e)="normal":next
  20. 19 v=53248:s=54272:pokes+24,15
  21. 20 (NULL)4,9,0,0,0,0,0
  22. 21 print"[147][144]"
  23. 22 (NULL)0,3,1,1,1,0,0: (NULL)10,23,0,0,0,1,0:(NULL)0,0,10:(NULL)17,24,1,1,1,1,0
  24. 23 (NULL)0,17,1:gosub158                  :w=0:r=0
  25. 24 data 15,5,2,14,4,7
  26. 25 x=1
  27. 26 ift=66thent=0:   forw=5to5+xstep2:t=t+1:print(NULL)15,w""n$(t) :next:t=1
  28. 27 gosub597
  29. 28 t=0:forr=5to16step2:t=t+1:(NULL) r, r,0,0,0,1,c(t):(NULL)r-1,r-1,0,0,0,1,0
  30. 29 ifr<14then:  print(NULL)0,r+1"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  31. 30 next:print(NULL)0,16"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  32. 31 t=2:print(NULL)8,16"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  33. 32 l$="@abcdefghijklmnopqrstuvwxyz":k=0
  34. 33 j=peek(56336):ifj=126andt<27thent=t+1
  35. 34 ifj=125andt>1thent=t-1
  36. 35 forw=1to 20:next
  37. 36 ifj=119andk<5thenk=k+1:forw=1too200:next
  38. 37 print(NULL)15+k,3+(x*2)"[144]";mid$(l$,t,1)
  39. 38 n(k)=t:ifj=111thengosub158:   goto40
  40. 39 goto33
  41. 40 ift=1thengoto44
  42. 41 forw=0tok:n$(x)=n$(x)+chr$(n(w)+63):next
  43. 42 k=0:t=2:  x=x+1:ifx=7thengoto45
  44. 43 goto33
  45. 44 ifx=<2then:print(NULL)8,16"mindestens zwei spieler[144]":forw=1to 800:next:goto31
  46. 45 print (NULL) 4,16"o.k. leute, lasst uns anfangen !":fort=1to1100:next
  47. 46 goto531
  48. 47 :
  49. 48 forw=1to6:p(w)=0:q(w)=0:  next :y=0
  50. 49 :
  51. 50 print"[147]"
  52. 51 :
  53. 52 (NULL)0,24,1,1,2,1,3
  54. 53 (NULL)0,0,0,0,0,1,0
  55. 54 (NULL)0,1,2:pokev+21,1
  56. 55 ify>0thengoto64
  57. 56 data 001,254,000,007,255,128,013,255,192,009,255,192,015,255,192,007,255
  58. 57 data 128,001,254,000,000,120,000,000,132,000,000,188,000,001,190,000,001
  59. 58 data 062,000,001,126,000,003,127,000,031,255,224,051,255,048,103,255,152
  60. 59 data 115,255,056,120,000,120,063,255,240,015,255,192,254
  61. 60 :
  62. 61 pokev+16,1: pokev+0,x(1):pokev+1,y(1):f=1:g=1:forw=1to6:f(w)=1 :next
  63. 62 y=0:
  64. 63 fory=1tox-1
  65. 64 f=f(y):iff>1thenpokev+16,0
  66. 65 ifu(y)=1thenu(y)=0:goto118
  67. 66 print(NULL)20,0"     ":print(NULL) 9,0"          ":iff=1thenpokev+16,1
  68. 67 print(NULL) 9,0""+n$(y)+":":print(NULL)20,0"";p(y):print(NULL)25,0"dollar"
  69. 68 pokev+0,x(f):pokev+1,y(f)
  70. 69 r=r+1:ifr     =4  then:(NULL)17,14,6:m=4:m1=129:gosub159
  71. 70 :ifr=1thenpokev+39,c(y)
  72. 71 wu =     int(6*rnd(1))+1
  73. 72 j=peek(56336):ifj=109thengoto585
  74. 73 ifj=111thengoto255
  75. 74 ifr>6thenr=0
  76. 75 ifr=2then:(NULL)17,14,7:m=5:m1=129:gosub159
  77. 76 ifr=3thenpokev+39,k(y)
  78. 77 goto69
  79. 78 fort=1to6:ifwu=tthen:(NULL)21,13,11+t
  80. 79 next
  81. 80 :iff   =1thenj1=123:j2=123
  82. 81 iff   =2orf   =3thenj1=123:j2=119
  83. 82 iff   =4thenj1=126:j2=119
  84. 83 iff   =5orf   =6thenj1=126:j2=125
  85. 84 iff   =7thenj1=119:j2=125
  86. 85 iff  =8orf   =9thenj1=119:j2=123
  87. 86 iff   =10thenj1=125:j2=123
  88. 87 iff   =11orf=12thenj1=125:j2=126
  89. 88 k1=0:j=peek(56336):i=i+1:ifi=9theni=0
  90. 89 ifj=j1thenk1=0:goto94
  91. 90 ifj=j2thenk1=1:goto94
  92. 91 ifi=3thenpokev+39,c(y)
  93. 92 ifi=6thenpokev+39,k(y)
  94. 93 goto88
  95. 94 pokev+39,c(y):forr=1towu:ifk1=0thenf=f+1
  96. 95 ifk1=1thenf=f-1
  97. 96 iff<1thenf=12:
  98. 97 iff=13thenf=1:
  99. 98 pokev+16,0
  100. 99 iff=1thenpokev+16,1
  101. 100 pokev+0,x(f):pokev+1,y(f)
  102. 101 iff=1andr<wuandq(y)>0thenc=q(y):k=1:print(NULL)0,0"lohn";c"[157]0$"  :gosub139
  103. 102 pokev+21,1
  104. 103 m=22:m1=33: gosub159:fort=1to20:next
  105. 104 next:goto259
  106. 105 iff=11thengosub133:rem zufall
  107. 106 iff=7thengosub403:rem beruf
  108. 107 iff=3thengosub422:rem frage
  109. 108 iff=1andq(y)>0theni=0:(NULL)21,13,19:gosub266:(NULL)0,1,2:pokev+21,1
  110. 109 iff=12then:(NULL)21,13,19:gosub130
  111. 110 iff=2thenc=2:i=0:k=1:(NULL)21,13,19:gosub139
  112. 111 iff=4thengosub170:rem risiko
  113. 112 iff=8thengosub218:rem frage
  114. 113 iff=10thengosub271:rem leiter
  115. 114 iff=6thengosub303:rem take
  116. 115 iff=5then  gosub322:remmr x
  117. 116 iff=9thengosub357:rem   geldw.
  118. 117 f(y)=f:ifwu=6andf<>12thengoto124
  119. 118 next:goto62
  120. 119 data  15,203,140,73,93,110,126,160,184,219,234,251 :rem x
  121. 120 data 181,181,181,181,138,101,69,69,69,69,99,139 :rem y
  122. 121 rem farben
  123. 122 data 11,1,10,6,0,13
  124. 123 data bankier,sheriff,kopfjaeger,totengraeber
  125. 124 : rem 6
  126. 125 m=100
  127. 126 forw=1to 3:(NULL)21,13,17:gosub251:fort=1to 70:next:(NULL) 21,13,19:
  128. 127 fort=1to30:next:next
  129. 128 goto70
  130. 129 goto139
  131. 130 :rem aussetzen
  132. 131 u(y)=1
  133. 132 return
  134. 133 fort=1to500:next
  135. 134 forr=1to10   :  z=int(12*rnd(1))+1
  136. 135 pokev+16,0:ifz=1thenpokev+16,1
  137. 136 pokev+0,x(z):pokev+1,y(z):gosub159
  138. 137 fort=1tok9(y):ifpeek(56336)=111thenf=z:fort=1to500:next:return
  139. 138 next:next:f=z:fort=1to500:next:f=z: return
  140. 139 :
  141. 140 n=0: ifc=0then:i=0: goto156
  142. 141 forn=1toc:ifi=2thenp(y)=p(y)-10:goto144
  143. 142 ifl=44thenp(q)=p(q)-10:ifp(q)=-10thenp(q)=0:goto153
  144. 143 p(y)=p(y)+10
  145. 144 ifp(y)=90then:print(NULL)23, 0" "
  146. 145 ifi=2andp(y)<0thenp(y)=0:k=0:i=0:goto153
  147. 146 print(NULL)20,0"";p(y)
  148. 147 ifl=44then:print(NULL)29,9"";p(q);"$ ":ifp(q)=90then:print(NULL)32,9" "
  149. 148 pokes+5,0*1 :pokes +6,15*16+0:pokes +1,  2:pokes , 2:pokes +4, 33
  150. 149 form1=1to 40:next
  151. 150 pokes +4,0:pokes +5,0:pokes +6,0:ifp(y)>ge+40thengoto153
  152. 151 form1=1to70:next:ifl=55theni=0:return
  153. 152 next
  154. 153 ifp(y)=ge thengoto461
  155. 154 ifp(q)=ge thengoto461
  156. 155 ifl=44thengoto164
  157. 156 i=0:c=0:l=0:ifk=0thengosub215
  158. 157 i=0:print(NULL)0,0"        "   :return
  159. 158 m=100:m1=33
  160. 159 rem musik
  161. 160 pokes+5,0*1 :pokes+6,15*16+0:pokes+1, m :pokes, m:pokes+4, m1
  162. 161 forwa=1to25:next
  163. 162 pokes+4,0:pokes+5,0:pokes+6,0
  164. 163 return
  165. 164 ifpeek(56336)=111thengoto156
  166. 165 goto164
  167. 166 rem musik
  168. 167 pokes+5,0*1 :pokes+6,15*16+0:pokes+1, b :pokes,b :pokes+4, 33
  169. 168 pokes+4,0:pokes+5,0:pokes+6,0
  170. 169 return
  171. 170 rem risikokarte
  172. 171 c=int(9*rnd(1))+1:d$=str$(c)+"0"
  173. 172 gosub416
  174. 173 print(NULL)14, 4 "risikokarte"
  175. 174 print"[159][169]":print(NULL)39,3"[223]"
  176. 175 print(NULL)0,9"[209]":print(NULL)39,9"[255]" :t=0
  177. 176 l=int(10*rnd(1))+1:t=t+1:ift=15thenforl=1to5:g(l)=0:next:t=0:goto176
  178. 177 ifg(l)=1thengoto176
  179. 178 g(l)=1:onlgoto179,195,197,199,201,204,206,209,211,213
  180. 179 a$="du hast jemanden erschossen,"+n$(y)
  181. 180 b$="einmal aussetzen oder"+d$+"$ strafe!":o=2:o1=3
  182. 181 print(NULL)1, 6"[144]"+a$
  183. 182 print(NULL)1, 8""+b$
  184. 183 j=peek(56336)
  185. 184 ifj=111ando=0theni=3:goto189
  186. 185 ifj=111ando=1theni=0:goto189
  187. 186 ifj=123ando>1theni=o:goto190
  188. 187 ifj=119ando>1theni=o1:goto190
  189. 188 goto183
  190. 189 ifi=0thenk=0:goto139:rem +
  191. 190 ifi=2thenu(y)=1:goto215:remaussetzen
  192. 191 ifi=3theni=2:k=0:goto139:rem -
  193. 192 ifi=4thenk=0:goto139:rem +
  194. 193 ifi=4thenk=0:goto215:rem nichts
  195. 194 ifi=5thena=y:goto215:rem
  196. 195 a$="du hast die bank ueberfallen,"+n$(y)
  197. 196 b$="    und kassierst dabei "+d$+"$ !":o=1:goto181
  198. 197 a$="fuer gewisse besuche hattest du"
  199. 198 b$=" "+d$+"$ ausgaben,"+n$(y):o=0:goto181
  200. 199 a$=n$(y)+",du bloedmann,hast im "
  201. 200 b$="glueckspiel "+d$+" $ verloren!":o=0:goto181
  202. 201 r=int((x-1)*rnd(1))+1:ifr=ythengoto201
  203. 202 a$="weil du deinen mitspieler "+n$(r)
  204. 203 b$="betrogen hast , regelbruch "+d$+"$":o=0:goto181
  205. 204 o=int(4*rnd(1))+1:a$="wenn du "+c$(o)+" bist,"+n$(y)+" kassiere"
  206. 205 b$=d$+"$ ansonsten pech gehabt":o=4:o1=5:goto181
  207. 206 r=int((x-1)*rnd(1))+1:ifr=ythen goto206
  208. 207 a$="sage mir den beruf von "+n$(r)+"
  209. 208 b$[178]"richtig 80 $ !   falsch nichts !":c[178]8:o[178]4:o1[178]5:[137]181
  210. 209 a$[178]"du hast den joystick vergewaltigt"
  211. 210 b$[178]"einmal aussetzen oder"[170]d$[170]"$ strafe!":o[178]2:o1[178]3:[137]181
  212. 211 a$[178]"dein taktisches handeln bei diesem"
  213. 212 b$[178]"spiel wird mit "[170]d$[170]"$ belohnt":o[178]1:[137]181
  214. 213 a$[178]"du hast die glueckskarte erwischt,"
  215. 214 b$[178]"deswegen bekommst du 100 $ !":c[178]10:o[178]1:[137]181
  216. 215 :
  217. 216 [129]l[178]3[164]9:[153][210]0,l"                                        on":[130]
  218. 217 [211]0,1,2:[208]3,9,1,1,1,1,3    :[151]v[170]21,1:[142]
  219. 218 [143] mathefrage
  220. 219 [151]v[170]34,7:[151]v[170]35,0
  221. 220 [141]416:o[178]k8(y)
  222. 221 :c[178]1 :[153][210] 9,3"rechenaufgabe:"
  223. 222 [153][210]0,6"wievel willst du setzen,"[170]n$(y)" ?"
  224. 223 [153][210]32,7"list(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)":[153][210]32,8"spc(thennot spc(thennot":[153][210]34,9"stop20 $":[137]490
  225. 224 [143] goto2405
  226. 225 l[178][181](3[172][187](1))[170]1:l1[178][181](15[172][187](1))[170]2:l2[178][181](20[172][187](1))[170]2
  227. 226 t[178]0: l3[178][181](20[172][187](1))[170]1:[139]l[178]1[167]e[178]l1[170]l2[170]l3:a$[178]"+":b$[178]a$
  228. 227 [139]l[178]2[167]e[178]l1[170]l2[171]l3:a$[178]"+":b$[178]"-"
  229. 228 [139]l[178]3[167]e[178]l1[172]l2[170]l3:a$[178]"*":b$[178]"+"
  230. 229 [153][210]31,3"zeit"
  231. 230 [153][210]1,6"                               "
  232. 231 [153][210]0,6"wieviel ist";l1;a$;l2;b$;l3;"="
  233. 232 [139]o[179]10[167]:[153][210]36,3"0":t[178]2
  234. 233 o1$[178][202]([196](o),2,1)
  235. 234 o$[178][202]([196](o),3,1):[153][210]35,3"":[153][210]36[170]t,3""o1$:[153][210]37,3":"o$
  236. 235 o[178]o[171]1: [139]o[179]0[167][137]239
  237. 237 [151]s[170]5,0[172]1 :[151]s[170]6,15[172]16[170]0:[151]s[170]4,17:[151]s[170]1,o:[151]s,o
  238. 238 [137]232
  239. 239 [141]251:
  240. 240 [153][210]25,6"";e
  241. 241 [153][210] 9,8"richtig ?":k[178]2
  242. 242 [211]19,14,3:[211]17,14,6:[129]t[178]1[164]600:[130]
  243. 243 j[178][194](56336)
  244. 244 [139]j[178]126[175]k[178]1[167]:m[178]6:[141]160: [211]19,14,3:k[178]2:[211]17,14,6
  245. 245 [139]j[178]125[175]k[178]2[167]:m[178]10:[141]160:[211]22,13,4:k[178]1:[211]17,14,6
  246. 246 [139]j[178]111[175]k[178]1[167] i[178]2:k[178]0:[137]139
  247. 247 [139]j[178]111[175]k[178]2[167]:i[178]0:[137]249
  248. 248 [137]243
  249. 249 k[178]0:[139]c[178]8[167][141]510
  250. 250 [137]139
  251. 251 [151]s[170]5,0[172]1 :[151]s[170]6,15[172]16[170]0:[151]s[170]4,33
  252. 252 [129]t[178]50 [164]00[169][171]2 :[151]s[170]1,t  :[151]s, t: [130]
  253. 253 [151]s[170]4,0:[151]s[170]5,0:[151]s[170]6,0
  254. 254 :[142]
  255. 255 [151]v[170]39,c(y):[211]17,14,7:[151]s[170]5,0:[151]s[170]6,15[172]16[170]0:[151]s[170]4,129
  256. 256 [211]17,15,8:[129]t[178]20 [164]00[169][171]2:[151]s[170]1,t  :[151]s, t: [130]
  257. 257 [151]s[170]4,0:[151]s[170]5,0:[151]s[170]6,0
  258. 258 [137]78
  259. 259 [139]f[178]1[167][151]v[170]16,1
  260. 260 t[178]x(f):w[178]y(f):[129]l[178]1[164]4:[151]v[170]0,t   :[151]v[170]1,w:t[178]t[170]1:w[178]w[170]1:[141]265:[130]
  261. 261 [129]l[178]1[164]4:[151]v[170]0,t   :[151]v[170]1,w:t[178]t[171]1:w[178]w[170]1:[141]265:[130]
  262. 262 [129]l[178]1[164]4:[151]v[170]0,t   :[151]v[170]1,w:t[178]t[171]1:w[178]w[171]1:[141]265:[130]
  263. 263 [129]l[178]1[164]4:[151]v[170]0,t   :[151]v[170]1,w:t[178]t[170]1:w[178]w[171]1:[141]265:[130]
  264. 264 [129]t[178]1[164]100:[130]:[137]105
  265. 265 [129]h[178]1[164] 10:[130]:[142]
  266. 266 c[178]q(y)[172]2:k[178]1:[151]v[170]21,0:[139]q(y)[178]4[167]:[211]23,15,9
  267. 267 [139]q(y)[178]3[167]:[211]27,15,20
  268. 268 [139]q(y)[178]2[167]:[211]27,14,18
  269. 269 [139]q(y)[178]1[167]:[211]28,14,11
  270. 270 k[178]1: [141]139:[129]t[178]1[164] 800:[130]:  [142]
  271. 271 :[143] leiter
  272. 272 [151]v[170]21,0:[208]3,9,0,1,0,1,14:[211]21,13,19
  273. 273 [153][210] 8,3" 160  d o l l a r   160":[151]v[170]34,7:[151]v[170]35,0
  274. 274 [153][210]10,4" 80              80
  275. 275 print(NULL)11,5" 40    [155][214][215][215][216]    40
  276. 276 [153][210]12,6" 20   listspc(thenthennot   20"
  277. 277 [153][210]13,7" 10 dollar 10"
  278. 278 [153][210] 8,9"stop how hirgh can you get":n[178]7:b[178]30 :o[178]k7(y)
  279. 279 :
  280. 280 [129]g[178]0[164]10:[141]166
  281. 281 [129]r[178]0[164]o
  282. 282 [208]n,n,0,1,0,1,14:[208]9,9,0,1,0,1,1
  283. 283 [139]i[178]1[167]i[178][181](200[172][187](1))[170]1:[129]t[178]1[164]i:[130]:i[178]0
  284. 284 j[178][194](56336):[139]j[178]111[167][137]300
  285. 285 [130] :[141]166
  286. 286 [129]r[178]0[164]o
  287. 287 [208]n,n,0,1,0,1,10[171]n:[208]9,9,0,1,0,1,14
  288. 288 j[178][194](56336):[139]j[178]111[167]n[178]n[171]1:o[178]o[171].3:b[178]b[170]10: [129]t[178]1[164]200:[130]:[137]290
  289. 289 [130]:[130]:[137]293
  290. 290 [139]n[178]2[167][137]297
  291. 291 [208]3,9,0,1,0,1,14:i[178]1
  292. 292 [137]279
  293. 293 [139]n[178]7[167][137]215
  294. 294 [208]n  ,n  ,0,1,0,1,14:[208]n[170]1,n[170]1,0,1,0,1, 9[171]n  : [139]n[178]6[167]c[178]1
  295. 295 [139]n[178]5[167]c[178]2
  296. 296 [139]n[178]4[167]c[178]4
  297. 297 [139]n[178]3[167]c[178]8
  298. 298 [139]n[178]2[167]c[178]16:[141]510
  299. 299 k[178]0:[137]139
  300. 300 :
  301. 301 [141]251
  302. 302 c[178]0:[137]215
  303. 303 [143] take give
  304. 304 [141]416:c[178]8:l[178]0:[153][210]21,6"stop0 $":[151]v[170]34,7:[151]v[170]35,0 :a[178]k6(y)
  305. 305 [153][210]13,4"list(NULL)(NULL)(NULL)  (NULL)(NULL)(NULL)  (NULL)(NULL)(NULL)
  306. 306 print(NULL)13,5"[155][166][167][168]  [166][167][168]  [166][167][168]
  307. 307 [153][210]11,6"list(NULL)(NULL)(NULL)       stop0 $list (NULL)(NULL)(NULL)
  308. 308 print(NULL)11,7"[155][166][167][168]           [166][167][168]
  309. 309 [153][210]13,8"list(NULL)(NULL)(NULL)  (NULL)(NULL)(NULL)  (NULL)(NULL)(NULL)
  310. 310 print(NULL)13,9"[155][166][167][168]  [166][167][168]  [166][167][168]
  311. 311 w[178][181](2[172][187](1))[170]1:[139]w[178]1[167][137]315
  312. 312 [153][210]15,6"stoptake":[153][210]19,6"stop";c     :b[178]120:[141]166
  313. 313 [129]q[178]1[164]a:[139][194](56336)[178]111[167]i[178]1:                :k[178]0:[137]320
  314. 314 [130]
  315. 315 [153][210]15,6"stopgive":[153][210]19,6"";c     :b[178]100:[141]166
  316. 316 [129]q[178]1[164]a:[139][194](56336)[178]111[167]:k[178]0:[141]251:[129]t[178]1[164]700:[130]:i[178]2:[137]139
  317. 317 [130]:l[178]l[170]1 :a[178]a[170].5:  [139]c[178]0[167][141]251: [137]215
  318. 318 [139]l[178]2[167]c[178]c[171]1:l[178]0
  319. 319 [137]312
  320. 320 [139]c[178][177]6 [167][141]510
  321. 321 [129]t[178]1[164]500:[130]:[137]139
  322. 322 [143] mrx
  323. 323 [151]v[170]34,7:[151]v[170]35,0
  324. 324 [141]416:[151]v[170]21,0:t[178]0
  325. 325 w[178][181](33[172][187](1))[170]1:c[178]8:o[178]0:i[178]1:e[178]1:[139]t[177]20[167][141]506:t[178]0
  326. 326 [139]i$(w)[178]""[167]t[178]t[170]1:[137]325
  327. 327 [153][210]32,4"list(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)":[129]t[178]1[164]3:[153][210]32,4[170]t"(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)":[130]
  328. 328 [153][210]32,8"spc(thennot spc(thennot"
  329. 329 [153][210]13,6"stop"i$(w)
  330. 330 [129]k[178]1[164]5:l[178][181](4[172][187](1))[170]1
  331. 331 a$[178][202](i$(w),k,1):[129]t[178]1[164]3
  332. 332 h(t)[178][181](26[172][187](1))[170]65:h$(t)[178][199](h(t)):[139]h$(t)[178]a$[167][137]332
  333. 333 [130]:[153][210]36,9"stop0 $"
  334. 334 [139]l[178]1[167]:[153][210]18,3a$:[153][210]18,9h$(1):[153][210]1,6h$(2):[153][210]30,6h$(3)
  335. 335 [139]l[178]2[167]:[153][210]18,9a$:[153][210]18,3h$(1):[153][210]1,6h$(2):[153][210]30,6h$(3)
  336. 336 [139]l[178]3[167]:[153][210] 1,6a$:[153][210]18,3h$(1):[153][210]30,6h$(2):[153][210]18,9h$(3)
  337. 337 [139]l[178]4[167]:[153][210]30,6a$:[153][210]18,3h$(1):[153][210]18,9h$(2):[153][210]1,6h$(3)
  338. 338 [151]s[170]4,0:[151]s[170]5,0:[151]s[170]6,0:j[178][194](56336):[153][210]34,9"stop";c
  339. 339 [139]j[178]123[175]l[178]3[167][137]346
  340. 340 [139]j[178]119[175]l[178]4[167][137]346
  341. 341 [139]j[178]125[175]l[178]2[167][137]346
  342. 342 [139]j[178]126[175]l[178]1[167][137]346
  343. 343 [139]j[178]123[175]l[179][177]3[176]j[178]119[175]l[179][177]4[176]j[178]125[175]l[179][177]2[176]j[178]126[175]l[179][177]1[167]m[178]5:[137]350
  344. 344 o[178]o[170]1:[139]o[177]k5(y)[167]c[178]c[171]1:o[178]0:e[178]e[170]1:[137]351
  345. 345 [137]338
  346. 346 [153][210]12[170]k,6""a$:m[178]30:m1[178]33:[141]159
  347. 347 [130]:[139]c[178][177]6[167][141]510
  348. 348 :
  349. 349 k[178]0:l[178]0:i$(w)[178]"":[137]139
  350. 350 i$(w)[178]"":[141]251:[137]215
  351. 351 [139]c[178]0[167][141]251:i$(w)[178]"":k[178]0:l[178]0:[137]215
  352. 352 [151]s[170]5,0[172]1 :[151]s[170]6,15[172]16[170]0:[151]s[170]1,40 :[151]s,40:[151]s[170]4,129
  353. 353 [139]c[177]4[167]:[153][210]36,2[170]e"   ":[153][210]36,3[170]e"list(NULL)(NULL)(NULL)":[137]338
  354. 354 [139]c[178]4[167]:[153][210]36,2[170]e"   ":[153][210]36,3[170]e"   ":e[178]1:[137]338
  355. 355 [139]c[178]0[167]:[153][210]32,2[170]e"   ":[153][210]32,3[170]e"   ":e[178]1:[137]350
  356. 356 [139]c[179]4[167]:[153][210]32,2[170]e"   ":[153][210]32,3[170]e"list(NULL)(NULL)(NULL)":[137]338
  357. 357 [151]v[170]21,0:[208]4,9,0,1,0,1, 1:[153][210]0,4"openstep":[153][210]39,4"(NULL)":[141]419
  358. 358 [129]w[178]1[164]x[171]1:[153][210]15,3[170]w"";n$(w);p(w);"$":[208]3[170]w,3[170]w,0,0,0,1,c(w)
  359. 359 [139]w[178]1[176]w[178]3[176]w[178]5[167][153]"stop":[137]361
  360. 360 [153]""
  361. 361 [130]
  362. 362 [153][210]2,3[170]y"stopwelches opfer waehlst du ,"[170]n$(y)"?"
  363. 363 :w[178]1:[137]367
  364. 364 [139][194](56336)[178]111[167]m[178]20:m1[178]17:[141]159:[141]215:q[178]w[171]1:[137]373
  365. 365 [139][194](56336)[178]125[167][129]t[178]1[164]99:[130]:[137]367
  366. 366 [137]364
  367. 367 [153][210]14,2[170]w" ":[153][210]27,2[170]w" "
  368. 368 [139]w[178]y[167]w[178]w[170]1:
  369. 369 [139]w[178]x  [167]w[178]1:[137]367
  370. 370 [153][210]14,3[170]w">":[153][210]27,3[170]w"<"
  371. 371 w[178]w[170]1:
  372. 372 [137]364
  373. 373 [151]v[170]21,0:[139]p(q)[178]0[167]w[178]0:[137]215
  374. 374 :[208]3,9,0,1,0,1,14
  375. 375 [151]v[170]34,7:[151]v[170]35,0
  376. 376 [129]e[178]10[164]1[169][171]1
  377. 377 l[178][181](5[172][187](1))
  378. 378 b[178] [181](5 [172][187](1))
  379. 379 z[178] [181](5 [172][187](1))
  380. 380 c[178] l[170]b[170]z
  381. 381 [139]c[177]100[167][137]377
  382. 382 [153][210]19,3""e"list"
  383. 383 [139]l[178]0[167][137]386
  384. 384 [153][210] 3,8"spc(thennot":[139]l[178]1[167]:[153][210] 3,7"(NULL)(NULL)(NULL)":[137] 386
  385. 385 [139]l[177]1[167]i[178]7:[129]w[178]2[164]l:[153][210] 3,i"(NULL)(NULL)(NULL)":i[178]i[171]1:[130]:[153][210] 3,i"(NULL)(NULL)(NULL)"
  386. 386 [139]b[178]0[167][137]389
  387. 387 [153][210]18,8"spc(thennot":[139]b[178]1[167]:[153][210]18,7"(NULL)(NULL)(NULL)":[137] 389
  388. 388 [139]b[177]1[167]i[178]7:[129]w[178]2[164]b:[153][210]18,i"(NULL)(NULL)(NULL)":i[178]i[171]1:[130]:[153][210]18,i"(NULL)(NULL)(NULL)"
  389. 389 [139]z[178]0[167][137]392
  390. 390 [153][210]34,8"spc(thennot":[139]z[178]1[167]:[153][210]34,7"(NULL)(NULL)(NULL)":[137] 392
  391. 391 [139]z[177]1[167]i[178]7:[129]w[178]2[164]z:[153][210]34,i"(NULL)(NULL)(NULL)":i[178]i[171]1:[130]:[153][210]34,i"(NULL)(NULL)(NULL)"
  392. 392 m[178]40:m1[178]129: [141]159:   [129]w[178]1[164]24:[139][194](56336)[178]111[167][137]398
  393. 393 [130]
  394. 394 l[178]2:[129]w[178]3[164]8:l[178]l[170]1:[153][210]2,l"                                      ":[130]
  395. 395 [153][210]10,8"list                       "
  396. 396 [130]
  397. 397 [139]e[178]0[167][141]251:k[178]0:l[178]0:c[178]0:[137]139
  398. 398 m[178]20:m1[178]33:n[178]0: [141]159
  399. 399 [143] p$(q)=str$(p(q))
  400. 400 [153][210]0,9"dein gewinn ";c;"cmd0 $ von "[170]n$(q)
  401. 401 [139]c[177]7[167][141]510
  402. 402 l[178]44:k[178]0:[137]139
  403. 403 [143]
  404. 404 [151]v[170]21,0:[211]21,13,19
  405. 405 k[178][181](4[172][187](1))[170]1:                      [139]k[178]1[167]:[211]12,5,9    :q(y)[178]4
  406. 406 [139]k[178]2[167]:[211]14,5,11   :q(y)[178]1
  407. 407 [139]k[178]3[167]:[211]14,5,18   :q(y)[178]2
  408. 408 [139]k[178]4[167]:[211]15,5,20   :q(y)[178]3
  409. 409 [151]s[170]5,0[172]1 :[151]s[170]6,15[172]16[170]0:[151]s[170]4, 17:[129]t[178]1[164]7
  410. 410 [151]s[170]1, m(t):[151]s, m(t)
  411. 411 [129]w[178]1[164]70:[130]
  412. 412 [130]
  413. 413 [151]s[170]4,0:[151]s[170]5,0:[151]s[170]6,0
  414. 414 [139][194](56336)[178]111[167]:[211]0,1,2:[151]v[170]21,1:[142]
  415. 415 [137]414
  416. 416 :[143] blase
  417. 417 [208] 3, 9,0,1,0,1,1:[151]v[170]21,0
  418. 418 [153][210]0,3"openstep":[153][210]39,3"(NULL)"
  419. 419 [153][210]0,9"(NULL)":[153][210]39,9"(NULL)"
  420. 420 :[211]22,10,5:[211]21,13,19:[142]
  421. 421 :
  422. 422 :[143] frage1
  423. 423 [151]v[170]34,7:[151]v[170]35,0:[153]"list":t[178]0
  424. 424 [141]416:
  425. 425 r[178][181](79[172][187](1))[170]1
  426. 426 [139]t[177]10[167][141]502:t[178]0
  427. 427 [139]t$(r)[178]""[167]t[178]t[170]1:[137]425
  428. 428 [153][210]3,5"stopnenne mir ...."
  429. 429 [153][210]3,7"stop4 "[170]t$(r):k[178]k3(y)
  430. 430 :
  431. 431 [139]k[179]10[167]:t[178]2:[153][210]36,3"0"
  432. 432 k1$[178][202]([196](k),2,1)
  433. 433 k$[178][202]([196](k),3,1):[153][210]31,3"zeit":[153][210]36[170]t,3""k1$:[153][210]37,3":"k$
  434. 434 k[178]k[171]1:[139]k[179]0[167][137]437
  435. 435 :   [151]s[170]5,0[172]1 :[151]s[170]6,15[172]16[170]0:[151]s[170]4,17 :[151]s[170]1,k:[151]s ,k
  436. 436 [137]430
  437. 437 [141]251
  438. 438 :c[178]1 :
  439. 439 :
  440. 440 [153][210]32,7"list(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)"
  441. 441 [153][210]32,8"spc(thennot spc(thennot"
  442. 442 [153][210]33,9"stop";c[172]2"cmd0 $":[139]c[178]0[167]:[153][210]18,7"en":[153][210]9,7"0 " :[137]445
  443. 443 [153][210]3,5"stopdein gewinn             ":t$(r)[178]""
  444. 444 [153][210]3,7"                            close":[153][210]4,7"fuer"c"antwort"
  445. 445 j[178][194](56336)
  446. 446 [139]j[178]111[167][137]457
  447. 447 [139]j[178]126[167]:c[178]c[170]1:m[178]40:m1[178]129:[141]159:[137]449
  448. 448 [137]445
  449. 449 [153][210]18,7"en"
  450. 450 [139]c[177]4[167]:[129]w[178]1[164]c:[153][210]32,3[170]w"       ":[130]:c[178]0:[137]442
  451. 451 [139]c[178]1[167]:[153][210]18,7"  ":[137]440
  452. 452 :[153][210]8,7""c: [129]w[178]1[164]c:[139]c[177]0[167]:[153][210]32, 9[171]c"list(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)"
  453. 453 [153][210]32,8[171]c"list(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)":[130]
  454. 454 [153][210]33,9"stop";c[172]2"cmd0 $"
  455. 455 [137]445
  456. 456 k[178]0:c[178]0:[141]251:[137]139
  457. 457 [139]c[178]4[167][141]510
  458. 458 k[178]0:c[178]c[172]2:[137]139
  459. 459 :
  460. 460 [131]17,21,26,21,26,29,34:[143] m1
  461. 461 :
  462. 462 [208]10,15,1,1,1,1,3
  463. 463 [129]l[178]3[164]9:[153][210]0,l"                                        on":[130]
  464. 464 [151]v[170]21,0:[208]0,9,0,1,0,1,1:[151]v[170]34,7:[151]v[170]35,0:[211]22,10,5
  465. 465 [153][210]0,0"stopstep":[153][210]39,0"(NULL)"
  466. 466 [153][210]0,9"open(NULL)":[153][210]39,9"(NULL)"
  467. 467 [153][210] 1, 0"list(NULL)(NULL)(NULL)(NULL)(NULL)stop  wir haben einen gewinner: list(NULL)(NULL)(NULL)(NULL)(NULL)"
  468. 468 e$[178][196](ge):f$[178][202](e$,2,3)
  469. 469 [153][210] 1, 1"(NULL)sys"f$"waitlist(NULL)                            (NULL)sys"f$"waitlist(NULL)"
  470. 470 [153][210] 1,2"listspc(thenthenthennot ";n$(y)
  471. 471 [153][210]15,2"stopist der sieger     listspc(thenthenthennotstop"
  472. 472 [153][210]0,3"dieser runde !! herzlichen glueckwunsch!":w[178]0:t[178]0
  473. 473 [129]w[178]1[164]x[171]1:[139]w[178]y[167][137]477
  474. 474 t[178]t[170]1:[208]4[170]t,4[170]t,0,1,0,1,c(w):[153][210]15,4[170]t"";n$(w);p(w);"$"
  475. 475 [139]w[178]1[176]w[178]3[176]w[178]5[167][153]"stop":[137]477
  476. 476 [153]""
  477. 477 [130]:[211]19,14,3:[211]17,14,6
  478. 478 [137]517
  479. 479 [208] 5, 9,0,1,0,1,1
  480. 480 [129]w[178]1[164]5:[153][210]10,4[170]w"                    ":[130]
  481. 481 [153][210]13,5"stopneues spiel"
  482. 482 [153][210]2,7"neue namen               alte namen"
  483. 483 [129]w[178]1[164]6:u(w)[178]0:[130]
  484. 484 [129]w[178]1[164]50:[151]53280,w:[130]:[151]53280,0:
  485. 485 j[178][194](56336) :[139]j[178]119[167][137]47
  486. 486 [139]j[178]123[167]y[178]0:[137]16
  487. 487 [137]485
  488. 488 [129]l[178]1[164]9:[153][210]0,l"                                        on":[130]
  489. 489 [208]0,5,1,1,2,1,3:[211]0,1,2:[208]6,9,0,0,0,1,1          :[211]22,10,5
  490. 490 :
  491. 491 j[178][194](56336)
  492. 492 [139]j[178]111[167]k[178]0:c[178]c[172]2:m[178]20:m1[178]17:[141]159:[137]225
  493. 493 [139]j[178]126[167]:c[178]c[170]1:m[178]40:m1[178]129: [141]159:[137]495
  494. 494 [137]490
  495. 495 [139]c[177]4[167]   :[129]w[178]1[164]c:[153][210]32,3[170]w"       ":[130]:c[178]1:[137]223
  496. 496 [129]w[178]1[164]c:[139]c[177]0[167]:[153][210]32, 9[171]c"list(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)"
  497. 497 [153][210]32,8[171]c"list(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)":[130]
  498. 498 [153][210]33,9"stop";c[172]2"cmd0 $"
  499. 499 [137]491
  500. 502 w[178]1:[159]2,8,2,"21,s,r"
  501. 503 [132]2,t$(w)
  502. 504 [139]w[178]79[167][160]2:[142]
  503. 505 w[178]w[170]1: [137]503
  504. 506 w[178]1:[159]2,8,2,"22,s,r":[143] mr.x
  505. 507 [132]2, i$(w)
  506. 508 [139]w[178]33[167][160]2:[142]
  507. 509 w[178]w[170]1: [137]507
  508. 510 :
  509. 511 [151]54296,15:[151]54277,9
  510. 512 [151] 54291,18:[151] 54292,170
  511. 513 [129]w[178]20[164]26:[151] 54276,16:[151]54290,16
  512. 514 :[151] 54273,m2(w):[151] 54276,17
  513. 515 :[151] 54287,m3(w):[151] 54290,17:
  514. 516 [129]t[178]1[164]100:[130]:[130]:[151]54290,0:[142]
  515. 517 :
  516. 518 [151] 54296,15
  517. 519 [151] 54277,9
  518. 520 [151] 54291,118:[151] 54292,170
  519. 521 [129]w[178]1[164]43:[151] 54276,16:[151] 54290,32:[151]53280,w
  520. 522 :[151]54273,m2(w):[151] 54276,33
  521. 523 :[151]54287,m3(w):[151] 54290,17:
  522. 524 [129]t[178]1[164] 80:[130]:[130]
  523. 525 [151]54290,0:[137]479
  524. 526 [131]51,0,43,0,34,8,34,0,34,6,38,0,43,0,45,0,51,8,51,0,51,9,43,10,57
  525. 527 [131] 11,57,0
  526. 528 [131]57,8,0,0,51,0,57,11,0,0,51,0,57,10,64,0,68,9,76,0,86,8,0,0,0,6,68
  527. 529 [131] 0,51,0
  528. 530 [131]68,8,0,0,0,8,51,7,43,0,51,6,0,0,0,9,38,0,43,0,34,8,0,6,0,4,0,0
  529. 531 [208]4,16,0,1,0,1,0:[153][210] 5,16"                             closeclose"
  530. 532 [141]590
  531. 533 [153][210] 6,8"  spielerstaerken aendern":t[178]12
  532. 534 :[153][210]12,12"weiter  spielen":[153][210]10,10" gewinnsumme:";ge"$"
  533. 535 j[178][194](56336):[139]j[178]111[175]t[179][177]10[167][141]158:[137]570
  534. 536 [139]j[178]126[167]:[208]t,t,0,1,0,1,0:  t[178]t[171]2
  535. 537 [139]j[178]125[167]:[208]t,t,0,1,0,1,0:  t[178]t[170]2
  536. 538 [139]t[177]12[167]t[178]8
  537. 539 [139]t[179] 8[167]t[178]12
  538. 540 [208]t,t,0,1,0,1,2
  539. 541 [139]j[178]123[175]t[178]10[175]ge[179]900[167]ge[178]ge[170]100:l[178]55:[141]148
  540. 542 [139]j[178]119[175]t[178]10[175]ge[177]200[167]ge[178]ge[171]100:l[178]55:[141]148:
  541. 543 [139]ge[177]900[167]ge[178]900
  542. 544 [139]ge[179]200[167]ge[178]200
  543. 545 [153][210]23,10"";ge
  544. 546 [137]535
  545. 547 [141]590
  546. 548 [129]w[178]1[164]x[171]1
  547. 549 [141]597
  548. 550 [208]3[170]2[172]w,3[170]2[172]w,0,0,0,1,c(w):[153][210]10,3[170]2[172]w"stop";n$(w)
  549. 551 [139]w[179]5[167]:  [208]6[170]w[172]2,6[170]w[172]2,0,0,0,1,0
  550. 552 [153][210]0,4[170]w[172]2"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  551. 553 [153][210]34,3[170]2[172]w"stop";s$(w):[130]
  552. 554 [153][210]0,2[170]2[172]w"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  553. 555 e[178]1:t[178]2
  554. 556 j[178][194](56336)
  555. 557 [139]j[178]111[167][141]158:   [129]t[178]1[164]500:[130]:t[178]0:[137]531
  556. 558 [139]j[178]126[167]:[208]3[170]2[172]e,3[170]2[172]e,0,1,0,1,c(e  ):     :e[178]e[171]1:
  557. 559 [139]j[178]125[167]:[208]3[170]2[172]e,3[170]2[172]e,0,1,0,1,c(e  ):     :e[178]e[170]1:       
  558. 560 [139]e[177]x[171]1[167]e[178]1
  559. 561 [139]e[179]1[167]e[178]x[171]1
  560. 562 [208]3[170]2[172]e,3[170]2[172]e ,0,1,0,1,1
  561. 563 [139]j[178]123[176]j[178]119[167]t(e)[178]t(e)[170]1
  562. 564 [139]t(e)[178]4[167]t(e)[178]1
  563. 565 [139]t(e)[178]1[167]s$(e)[178]"leicht":[141]598
  564. 566 [139]t(e)[178]2[167]s$(e)[178]"normal":[141]599
  565. 567 [139]t(e)[178]3[167]s$(e)[178]"schwer":[141]600
  566. 568 [153][210]34,3[170]2[172]e"stop";s$(e)
  567. 569 [137]556
  568. 570 [208]t,t,0,1,0,1,0
  569. 571 [139]t[178] 8[167]:[137]547
  570. 572 [139]t[178]12[175]y[178]0[167][141]590:[137]47
  571. 573 [139]t[178]12[175]y[177]0[167][141]590:[137]51
  572. 574 [141]591:[208]11,16,0,1,0,1,0 :w[178]3  :[141]578:        :  [137]576
  573. 575 [153][210]35,w[172]2"";t$"  "
  574. 576 [208]w[172]2,w[172]2,0,1,0,1,2
  575. 577 [143]  goto5810
  576. 578 [208]4,16,0,1,0,1,0
  577. 579 [129]w[178]4[164]16     :[153][210]1,w"                                       stop" :[130]
  578. 580 :[137]47
  579. 581 [139]t[178]5[167]:t[178]66:         :            [137]578
  580. 582 :
  581. 583 [141]590:[141]594
  582. 584 :
  583. 585 [151]v[170]21,0: [208]0,24,1,1,2,1,0:[208]4,16,0,0,0,1,0:[211]0,0,10:[211]0,17,1
  584. 586 [137]531
  585. 587 :
  586. 588 :
  587. 589 "
  588. 590 :
  589. 591 forw=4to16:print(NULL)0,w"                                        "
  590. 592 :next
  591. 593 return
  592. 594 t=0:forr=1tox*2-2step2:t=t+1:(NULL) 4+r,4+r,0,0,0,1,c(t)
  593. 595 print(NULL)15,4+r"[144]";n$(t):next
  594. 596 return
  595. 597 print(NULL)0,4"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":return
  596. 598 k3(e)=45:k5(e)=7:k6(e)=3.5:k8(e)=50:k7(e)=3:k9(e)=23:return
  597. 599 k3(e)=40:k5(e)=6:k6(e)=2.5:k8(e)=40:k7(e)=2.3:k9(e)=15:return
  598. 600 k3(e)=20:k5(e)=3:k6(e)=1:k8(e)=20:k7(e)=1.7:k9(e)=9:return
  599.