home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-01_1998_CSW_Side_B.d64 / intr.wiz (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  22KB  |  537 lines
  1. 0 sys4117:sys4099:p=peek(49154)
  2. 1 d$="":poke832,.:gosub29:deffna(x)=x+pn:deffnp(x)=peek(x+pn):sys4180:goto56
  3. 2 printmid$("[150][154]",p+1,1)"ef[157][157]gh[146] [145][159]stufe"fnp(50767)+1"":return
  4. 3 sys4369:return
  5. 4 sys4372:return:sys4189:sys4138:return
  6. 5 x=peek(49313):y=peek(49453):gosub28:sys4375:return
  7. 6 sys4378:return
  8. 7 sys4381:return
  9. 8 sys4384:return
  10. 9 printmid$(str$(a),2);:return
  11. 10 sys4387:return
  12. 11 sys4390:return
  13. 12 print"[155]m"mid$("[150][154]",p+1,1)"n[157][157][129]op[146] [145][159]stufe"fnp(50787)+1"":return
  14. 13 g=peek(896):gosub5:ifg<>p+1goto6
  15. 14 return
  16. 15 sys4393:return
  17. 16 sys4396:return
  18. 17 sys4399:return
  19. 18 printright$("0"+mid$(str$(a),2),2);:return
  20. 19 sys4402:return
  21. 20 sys4405:return
  22. 21 sys4408:return
  23. 22 print""mid$("[129][149]",p+1,1)"qr[157][157]st[146] [145][159]stufe"fnp(50807)+1"":return
  24. 23 print""mid$("[150][154]",p+1,1)"uv[157][157][156]wx":return
  25. 24 x=peek(49152):y=peek(49153):return
  26. 25 poke850,x:poke851,y:return
  27. 26 gosub24:goto25
  28. 27 poke852,x:poke853,y:return
  29. 28 poke49152,x:poke49153,y:return
  30. 29 sys4252:kp=peek(50303+p+p)+256*peek(50304+p+p):return
  31. 30 printspc(25)"(";:a=peek(49152):gosub18:print"/";:b=peek(49153)
  32. 31 a=band127:gosub18:ifb<128thenprint"/unten)
  33. 32 [139]b[177]127[167][153]"/oben) "
  34. 33 [142]
  35. 34 [153][166]25);:[139][194](49153)[177]b[167][153]"n\rd";
  36. 35 [139][194](49153)[179]b[167][153]"s]d";
  37. 36 [139][194](49152)[177]a[167][153]"west";
  38. 37 [139][194](49152)[179]a[167][153]"\st";
  39. 38 [153]"lich eine":[142]
  40. 39 i[178][181](kp[173]256):[151]50303[170]p[170]p,kp[171]256[172]i:[151]50304[170]p[170]p,i:[142]
  41. 40 a[178]b[175]127:[141]18:[139]b[179]128[167][153]"/u)
  42. 41 ifb>127thenprint"/o)
  43. 42 [142]
  44. 43 [153][166]25)"gehen,"[181](([194](856)[170]4)[173]5)"rd#":[142]
  45. 44 [153][200](d$,17)[166]27)"entlassen!":[142]
  46. 45 [151]49152,k:[151]49153,l:[141]27:[151]849,.:[158]4225:[142]
  47. 46 [153][166]25)"printankunft in":[153][166]25)"ca"[181](([194](856)[170]4)[173]5)"runden":[142]
  48. 47 j[178]kp:[153][166]24);:[141]48:i[178]51599[170]p[172]4:a[178][194](i)[170]256[172][194](i[170]1):[137]50
  49. 48 u$[178][196](j):i[178][195](u$):[139]i[179]5[167][153]"sys"[200]("     ",7[171]i)u$;:[142]
  50. 49 [153]"sys"[200]("  ",6[171]i)[200](u$,i[171]3)"."[201](u$,3);:[142]
  51. 50 b[178][194](i[170]2)[170]256[172][194](i[170]3):[153]" goldlist("[202]("-sys=+",1[171]2[172](a[178]b)[171]4[172](a[177]b),2)"list)":[142]
  52. 51 k[178][194](52993):[139]k[177]99[137]54
  53. 52 [139]1[170](k[171]20[172][181](k[173]20)[179]10)[178]p[167]k[178].:[142]
  54. 53 k[178]1:[142]
  55. 54 [139](p[178].[175]k[179]120)[176](p[178]1[175]k[177]119)[137]53
  56. 55 [142]
  57. 56 [158]4123:[158]4177:[158]4138:[153]""[166]25)"' sysmagic  of '"[166]27)"syse n d o r i a":[158]4150:[153][166]24)"zwerge   :";:a[178][194](850):[141]18:[153]"/";:a[178][194](856):[141]18:[153]:[153][166]24)"handwerk.:";:a[178][194](851):[141]18:[153]"/";:a[178][194](857):[141]18:[153]:[153][166]24)"transpor.:";:a[178][194](852):[141]18:[153]"/";:a[178][194](858):[141]18:[153]
  58. 57 [153][166]24)"forscher :";:a[178][194](853):[141]18:[153]"/";:a[178][194](859):[141]18:[153]:[153][166]24)"urcs     :";:a[178][194](854):[141]18:[153]"/";:a[178][194](860):[141]18:[153]:[153][166]24)"kampfmon.:";:a[178][194](855):[141]18:[153]"/";:a[178]20[171]a:[141]9:[153]:[141]30:[153]:[141]47:[153][166]26)"open"[194](51138)[172]256[170][194](51137)[170]1"cmd. runde
  59. 58 printspc(27)"#";:fori=0to7:printchr$(peek(49157+8*p+i));:next:print"#":sys4168:poke51611,peek(849):onpeek(849)+1goto533,533,533,374,260,117,59
  60. 59 sys4123:sys4177:print""spc(25)"spezialmenue:":gosub30:sys4207:onpeek(849)+1goto530,85,84,71,60,70,56
  61. 60 sys4165:sys4099:sys4180:goto59
  62. 61 sys4414:poke198,0:i=peek(49155)*2
  63. 62 sys4180:sys4195:x=peek(49152):y=peek(49153):printleft$(d$,z):gosub30:j=peek(56320):getu$:ifu$=" "theny=(y+128)and255
  64. 63 if(jand16)=.goto69
  65. 64 if(jand1)=.thenif(yand63)>12-itheny=y-1
  66. 65 if(jand2)=.thenif(yand63)<37+itheny=y+1
  67. 66 if(jand4)=.thenifx>12-ithenx=x-1
  68. 67 if(jand8)=.thenifx<27+ithenx=x+1
  69. 68 poke49152,x:poke49153,y:goto62
  70. 69 sys4123:return
  71. 70 z=4:gosub61:goto59
  72. 71 n=.:sys4195
  73. 72 sys4177:print""spc(28)"[159]statik:":gosub30:print"[154]"spc(28)"modus:":printspc(25)mid$("originalkarte[158]pseudowandweg [150]pseudo-raum ",1+n*14,14):sys4144:sys4627:poke2,n:sys4213:sys4147:sys4141:ifngoto74
  74. 73 sys4411:goto76
  75. 74 sys4144:sys4627:poke2,n:sys4213:sys4153:ifpeek(896)=.goto73
  76. 75 gosub4:goto71
  77. 76 sys4210:onpeek(849)+1goto83,82,78,77,71,81
  78. 77 n=1:goto72
  79. 78 ifpeek(2041)=1orpeek(2042)=1orpeek(2041)=21orpeek(2042)=21goto80
  80. 79 n=2:goto72
  81. 80 sys4390:goto72:n=2:goto72
  82. 81 sys4180:goto59
  83. 82 sys4204:goto72
  84. 83 sys4201:goto72
  85. 84 poke51598,.:print"[147][144]l[207]"chr$(34)"wiz.uebs";:goto532
  86. 85 sys4177:print"[150]"spc(24)"disketten-menue":sys4216:onpeek(849)+1goto534,98,95,86,101,59
  87. 86 sys4351:gosub115:ifa>.anda<>73thensys4360:goto94
  88. 87 gosub91:ifa>.thensys4357:goto94
  89. 88 r=1:gosub108:sys4345:gosub116:ifa>.anda<>73thensys4360:goto94
  90. 89 gosub116:ifa>.anda<>73thensys4360
  91. 90 goto94
  92. 91 u$="save":goto93
  93. 92 u$="test
  94. 93 [151]768,61:[159]1,8,0,"wiz."[170]u$[170]",p,r":[160]1:[151]68,139:[137]116
  95. 94 [158]4354:[141]105:[138]
  96. 95 [158]4351:[141]115:[139]a[177].[175]a[179][177]73[167][158]4360:[137]94
  97. 96 [141]91:[139]a[177].[167][158]4357:[137]94
  98. 97 r[178].:[141]108:[158]4348:[158]4180:[137]89
  99. 98 [158]4363:[151]768,61:[159]1,8,1,"wiz.save,p,w":[152]1,[199](83):[160]1
  100. 99 [141]116:[151]768,99:[139]a[177].[175]a[179][177]73[167][158]4360
  101. 100 [137]94
  102. 101 [158]4468:[153]"sysloaddirectory:":[151]53272,21:[151]768,61:[159]3,8,0,"$0":[161]#3,u$,u$
  103. 102 [161]#3,u$,u$,a$,b$:[139]u$[178]""[167][160]3:[137]104
  104. 103 a$[178]a$[170][199](0):b$[178]b$[170][199](0):[153]256[172][198](b$)[170][198](a$);:[158]4465:[137]102
  105. 104 [153]"def(taste)":[151]198,0:[146]198,1:[161]u$:a$[178]"":b$[178]"":[151]768,139:[138]
  106. 105 [141]115:[139]a[177].[175]a[179][177]73[167][158]4360:[137]94
  107. 106 [141]92:[139]a[177].[175]a[179][177]73[167][158]4357:[158]4354:[137]105
  108. 107 [142]
  109. 108 [158]4138:[153][200](d$,20)[166]25)"defspiel laden";:[139]r[167][153]"cmdcmdcmdcmdcmdsichern";
  110. 109 r[178].:[153]:[153][166]24)"sysspielstand nr.?
  111. 110 printleft$(d$,23)spc(27)">>>"r"[158]<<<":j=peek(56320):if(jand16)=.goto114
  112. 111 if(jand5)<5thenr=r+9
  113. 112 if(jand10)<9thenr=r+1
  114. 113 forj=.to99:next:r=r-10*int(r/10):goto110
  115. 114 u$="s:wiz.sav"+mid$(str$(r),2):fori=1to10:poke831+i,asc(mid$(u$,i)):next:return
  116. 115 poke768,61:open1,8,15,"i":close1
  117. 116 poke768,61:open1,8,15:input#1,a:close1:poke768,99:return
  118. 117 sys4504:print""spc(25)"[153]zwergenmenue":sys4150:ifpeek(850)=0goto140
  119. 118 pn=10*p+zn:i=fnp(49173):ifi>.andi<9goto120
  120. 119 zn=zn+1+10*(zn=9):goto118
  121. 120 x=fnp(49313):y=fnp(49453):gosub28:sys4180:sys4195:sys4258:print""spc(25)"zwerg nr."zn+1"[157] ":gosub30:print:printspc(25);:gosub2:printspc(28)"[145]auftrag:[158]":printspc(25);:j=fnp(49743):ifi=2thensys4333:goto136
  122. 121 ifi=4thensys4444:printleft$(d$,13)spc(25)"("fnp(50307)"runden )":goto136
  123. 122 ifj=.thensys4330
  124. 123 ifj<>1goto125
  125. 124 sys4339:c=fnp(49883):a=c:gosub18:print"/";:b=fnp(50023):gosub31:poke852,c:poke853,b:sys4225:gosub43
  126. 125 ifj=13thensys4621:printleft$(d$,14)spc(25)"("fnp(50307)"runden )":goto136
  127. 126 ifj<>2andj<11goto129
  128. 127 print"#ich entferne":a=fnp(49883):b=fnp(50023):gosub34:printspc(25)"wand,";:ifj>2thenprint"[157][157][157][157][157]t]r,";:ifj=12thenprint"[157][157][157][157]falle,";
  129. 128 printfnp(50307)"rd#":goto136
  130. 129 ifj<3orj>5goto131
  131. 130 print"ich errichte":a=fnp(49883):b=fnp(50023):gosub34:printspc(25)mid$("steinstahlmag.",(j-3)*5+1,5)"wand (";:printmid$(str$(fnp(50307)),2)")
  132. 131 [139]j[179]6[176]j[177]8[137]133
  133. 132 [153]"   ich lege":[153][166]27)[202]("steinernst[hlernmagisch",(j[171]6)[172]8[170]1,8)"en":[153][166]27)"boden ("[202]([196]([165]p(50307)),2)")
  134. 133 ifj<9goto136
  135. 134 sys4342:print"ob";:ifj=10thenprint"[157][157]unt";
  136. 135 print"en ("mid$(str$(fnp(50307)),2)" rd)
  137. 136 [158]4171:[145][194](849)[170]1[137]137,140,161,154,119,56
  138. 137 [153][200](d$,15)[166]25)"defzwerg wirklich":[153][166]25)"entlassen?":[158]4192:[139][194](849)[137]117
  139. 138 [141]44:[139][165]p(49173)[178]2[167][141]165
  140. 139 [151]49173[170]pn,128:[151]50307[170]pn,10:[158]4180:[158]4189:[137]117
  141. 140 [158]4123:[158]4177:[158]4138:[153]""[166]24)"zwerg anwerben:":l[178]1:[141]149:[139]h[178].[137]142
  142. 141 [145]z[137]117,56
  143. 142 zn[178].:x[178][194](832):y[178][194](833)
  144. 143 j[178][165]p(49173):[139]j[167]zn[178]zn[170]1[170]10[172](zn[178]9):pn[178]10[172]p[170]zn:[137]143
  145. 144 [153][200](d$,6)[166]28);:[141]2:[153][166]25)"zwerg nr."zn[170]1"cmd ":[153][166]25)"meldet sich.":pn[178]10[172]p[170]zn:[158]4174:[145][194](849)[170]1[137]148,147,145
  146. 145 [158]4150:[139][194](850)[178].[137]56
  147. 146 [137]117
  148. 147 zn[178]zn[170]1[170]10[172](zn[178]9):pn[178]10[172]p[170]zn:[137]143
  149. 148 [158]4138:[151]49173[170]pn,1:[151]49313[170]pn,x:[151]49453[170]pn,y:[151]850,x:[151]851,y:[158]4198:[153][200](d$,16)[166]24)"syszwerg erscheint":[151]49743[170]pn,.:[158]4180:[158]4189:[137]117
  150. 149 [158]4183:[158]4180:h[178].:z[178]1:[158]4150:[139][194](849[170]l)[178].[167]z[178]2
  151. 150 [139][194](855[170]l)[178].[167][158]4420:h[178]1:[142]
  152. 151 [139][194](49152)[178]19[175][194](49153)[178]24[167][158]4417:h[178]1:[142]
  153. 152 [158]4186:[139][194](832)[178].[167][158]4423:h[178]1
  154. 153 [142]
  155. 154 i[178][165]p(49173):[139]i[178]4[167][158]4384:[137]117
  156. 155 [139][165]p(49743)[177].[176]i[178]2[167][141]7:[139][194](849)[137]117
  157. 156 [139]i[178]2[167][141]165
  158. 157 [151]49743[170]pn,.:[151]49173[170]pn,1:[141]160:[139]k[178]x[175]l[178]y[137]117
  159. 158 [141]45:[139][194](854)[167][158]4366:[137]117
  160. 159 [141]46:[151]49883[170]pn,x:[151]50023[170]pn,y:[151]49743[170]pn,1:[158]4189:[137]117
  161. 160 [158]4258:[153][200](d$,13)[166]27)"opengehe nach":[158]4180:z[178]13:k[178][194](49152):l[178][194](49153):[137]61
  162. 161 [139][165]p(49173)[178]4[167][158]4384:[137]117
  163. 162 [158]4195:i[178][165]p(49173):[139][165]p(49743)[177].[176]i[178]2[167][141]7:[139][194](849)[137]117
  164. 163 [139]i[178]2[167][141]165
  165. 164 [151]49173[170]pn,1:[158]4180:[151]49743[170]pn,.:[158]4258:[158]4240:[145][194](849)[170]1[137]226,218,207,196,186,233,175,117
  166. 165 [158]4315:r[178][194](896):[139]r[178]20[167][142]
  167. 166 [141]24:[141]27:[158]4234:[139][194](52992)[178].[137]169
  168. 167 [141]51:[139]k[178].[137]169
  169. 168 [158]4255:[158]4402:[138]
  170. 169 j[178]50467[170]r:[139]([194](j)[175]16)[178].[137]174
  171. 170 [141]24:[129]i[178].[164]9:k[178]10[172]p[170]i:[139][194](49193[170]k)[179][177]2[137]173
  172. 171 [139][194](49333[170]k)[179][177]x[176][194](49473[170]k)[179][177]y[137]173
  173. 172 [151]49193[170]k,1:[151]49763[170]k,.
  174. 173 [130]
  175. 174 [151]j,[194](j)[175]207:[142]
  176. 175 [153][200](d$,12)[166]25)"openwand entfernen":[141]249:[139]r[178]0[137]117
  177. 176 j[178][194](49155)[172]2:l[178]y[175]127:[141]25:[139]x[178]12[171]j[176]l[178]12[171]j[176]x[178]27[170]j[176]l[178]37[170]j[167][141]11:[137]117
  178. 177 [158]4246:[139]([194](852)[175]224)[178].[167][141]16:[137]117
  179. 178 r[178][194](853):[139]r[177].[175](r[175]112)[179][177]32[175](r[175]112)[179][177]48[167][141]17:[137]117
  180. 179 [141]28:[158]4144:[158]4627:[151]2,1:[158]4213:[158]4153:[139][194](896)[167][141]4:[137]117
  181. 180 [141]27:[158]4237:[139][194](896)[167][141]13:[137]117
  182. 181 [141]25:[158]4246:l[178]([194](852)[175]224)[173]32:[151]832,l[172]5[170]5:[141]29:[139][194](832)[167][141]3:[137]117
  183. 182 a[178]49743[170]pn:[151]a,2:[151]49883[170]pn,x:[151]50023[170]pn,y:[139]r[167][151]a,11[171]((r[175]240)[178]48)
  184. 183 l[178]l[170](l[177]3)[171]1:c[178][165]p(50767):b[178]5[170]l[170]l[171]c[171]c[172]l[173]5:[141]25:[158]4246:[139][194](a)[178]11[167]k[178][194](853)[175]3:b[178](k[170]3)[172]2[171]c[171]c[172]k[173]5[171]1
  185. 184 [139][194](a)[178]12[167]k[178][194](853)[175]15:b[178]7[170]2[172]k[171]c[171]c[172]k[173]4
  186. 185 [137]195
  187. 186 [153][200](d$,12)[166]25)"openwand errichten":[141]249:[139]r[178].[137]117
  188. 187 [141]25:[158]4246:[139]([194](852)[175]224)[178].[167][141]16:[137]117
  189. 188 [139][194](853)[179][177]16[167][141]17:[137]117
  190. 189 [141]27:[158]4237:[139][194](896)[167][141]13:[137]117
  191. 190 [158]4243:[139][194](849)[178]3[137]117
  192. 191 k[178]5[172](6[171][194](849)):l[178][165]p(50767):[139]([194](849)[178].[175]l[179]3)[176]([194](849)[178]1[175]l[178].)[167][158]4435:[137]117
  193. 192 [151]832,k:[141]29:[139][194](832)[167][141]3:[137]117
  194. 193 a[178]5[171][194](849):l[178]4[171][194](849)
  195. 194 k[178][165]p(50767):b[178]5[170]l[170]l[171]k[171]k[172]l[173]5:[151]49743[170]pn,a:[151]49883[170]pn,x:[151]50023[170]pn,y
  196. 195 [151]50307[170]pn,b:[137]117
  197. 196 [153][200](d$,12)[166]26)"openbodenplatte":x[178][194](49152):y[178][194](49153):[141]25:[158]4246:[139]([194](852)[175]224)[178].[167][141]16:[137]117
  198. 197 r[178][194](853):j[178]r[175]112:[139]j[178].[176]j[178]32[167][141]17:[137]117
  199. 198 [141]27:[158]4237:[139][194](896)[167][141]13:[137]117
  200. 199 [139]r[179]207[137]201
  201. 200 [153][200](d$,15)[166]26)"sysden raum":[153][166]26)"zerst\ren?":[158]4192:[158]4255:[139][194](849)[167][158]4258:[137]117
  202. 201 [158]4243:a[178][194](849):[139]a[178]3[137]117
  203. 202 [141]25:[158]4246:[139]([194](853)[175]112)[179][177]16[137]204
  204. 203 [139]([194](852)[175]224)[173]32[178]6[171]a[167][158]4258:[137]117
  205. 204 l[178][165]p(50767):[139]([194](849)[178].[175]l[179]3)[176]([194](849)[178]1[175]l[178].)[167][158]4435:[137]117
  206. 205 [151]832,5[172](6[171][194](849)):[141]29:[139][194](832)[167][141]3:[137]117
  207. 206 a[178][194](849):l[178]3[171]a:a[178]8[171]a:[137]194
  208. 207 [153][200](d$,12)[166]25)"opentreppe runter":[141]26:[158]4246:[139]([194](852)[175]224)[178].[167][141]16:[137]117
  209. 208 [139]([194](853)[175]240)[179][177]16[167][141]17:[137]117
  210. 209 [141]27:[158]4237:[139][194](896)[167][141]13:[137]117
  211. 210 [139]y[179]80[137]214
  212. 211 y[178]y[175]127:[151]851,y:[158]4246:[139]([194](852)[175]224)[178].[167][141]8:[137]117
  213. 212 r[178][194](853)[175]240:[139]r[179][177]16[175]r[179][177].[175]r[179][177]32[175]r[179][177]48[167][141]8:[137]117
  214. 213 [137]215
  215. 214 [141]25:[158]4270:[139][194](896)[167][141]8:[137]117
  216. 215 [151]49153,y[175]127:[158]4144:[158]4627:[151]2,1:[158]4213:[158]4153:[141]28:[139][194](896)[167][141]4:[137]117
  217. 216 [151]832,50:[141]29:[139][194](832)[167][141]3:[137]117
  218. 217 [151]49743[170]pn,10:[151]49883[170]pn,x:[151]50023[170]pn,y[175]127:b[178]10[171]2[172][165]p(50767):[137]195
  219. 218 [153][200](d$,12)[166]26)"opentreppe hoch":[141]24:[141]25:[158]4246:[139]([194](852)[175]224)[178].[167][141]16:[137]117
  220. 219 [139]([194](853)[175]240)[179][177]16[176]y[177]99[167][141]17:[137]117
  221. 220 [141]27:[158]4237:[139][194](896)[167][141]13:[137]117
  222. 221 [151]851,y[170]128:[158]4246:[139]([194](852)[175]224)[178].[167][141]8:[137]117
  223. 222 r[178][194](853)[175]240:[139]r[179][177]16[175]r[179][177].[175]r[179][177]32[175]r[179][177]48[167][141]8:[137]117
  224. 223 [151]49153,y[176]128:[158]4144:[158]4627:[151]2,1:[158]4213:[158]4153:[141]28:[139][194](896)[167][141]4:[137]117
  225. 224 [151]832,50:[141]29:[139][194](832)[167][141]3:[137]117
  226. 225 a[178]9:b[178]10[171]2[172][165]p(50767):[137]194
  227. 226 [153][200](d$,12)[166]26)"openminenarbeit":[158]4315:r[178][194](896):[139]r[178]20[167][158]4399:[137]117
  228. 227 [139][181](r[173]10)[178]p[137]231
  229. 228 j[178][194](50467[170]r):[139]j[175]48[167][141]19:[137]117
  230. 229 [129]i[178].[164]9:[139][194](50467[170]10[172]p[170]i)[175]192[167][130]:[141]15:[137]117
  231. 230 [151]50467[170]r,.:a[178]50467[170]10[172]p[170]i:[151]a,j:[151]a[171]20,[194](50447[170]r):[141]24:[151]a[170]20,x:[151]a[170]40,y:[137]232
  232. 231 a[178]50467[170]r:[139][194](a)[175]32[167][141]10:[137]117
  233. 232 [151]a,[194](a)[176]32:[151]49173[170]pn,2:[137]117
  234. 233 [153][200](d$,12)[166]25)"openraum ausheben":j[178][194](49155)[172]2:l[178]y[175]127:[139]x[178]12[171]j[176]l[178]12[171]j[176]x[178]27[170]j[176]l[178]37[170]j[167][141]11:[137]117
  235. 234 [141]28:[158]4144:[158]4627:[151]2,2:[158]4213:[158]4153:[139][194](896)[167][141]4:[137]117
  236. 235 n[178].:g[178].:k[178].
  237. 236 a[178]x:b[178]y:[139]n[179]3[167]b[178]y[171]1
  238. 237 [139]n[177]5[167]b[178]y[170]1
  239. 238 [139]n[178].[176]n[178]3[176]n[178]6[167]a[178]x[171]1
  240. 239 [139]n[178]2[176]n[178]5[176]n[178]8[167]a[178]x[170]1
  241. 240 [151]850,a:[151]851,b:[158]4246:z[178][194](852)[175]224:[139]z[178].[167][141]16:[137]117
  242. 241 c[178][194](853):[139]c[178]16[137]245
  243. 242 [139]c[167][158]4615:[158]4189:[137]117
  244. 243 [151]852,a:[151]853,b:[158]4237:[139][194](896)[167][141]13:[137]117
  245. 244 c[178]z[173]32:c[178]c[170](c[177]3)[171]1:b[178][165]p(50767):g[178]g[170]5[170]c[170]c[171]b[171]b[172]c[173]5:k[178]k[170]c[172]5[170]5
  246. 245 n[178]n[170]1:[139]n[179]9[137]236
  247. 246 [139]g[178].[167][158]4618:[158]4189:[137]117
  248. 247 [151]832,k:[141]29:[139][194](832)[167][141]3:[137]117
  249. 248 [151]49743[170]pn,13:[151]50307[170]pn,g:[137]117
  250. 249 r[178].:z[178]0:[158]4138:[153][200](d$,21)[166]30)"wo?
  251. 250 j=peek(56320):if(jand16)=.thenreturn
  252. 251 if(jand1)=.thenr=3:ifz=4thenr=0
  253. 252 if(jand2)=.thenr=4:ifz=3thenr=0
  254. 253 if(jand4)=.thenr=1:ifz=2thenr=0
  255. 254 if(jand8)=.thenr=2:ifz=1thenr=0
  256. 255 gosub24:ifr=1thenx=x-1
  257. 256 ifr=2thenx=x+1
  258. 257 ifr=3theny=y-1
  259. 258 ifr=4theny=y+1
  260. 259 z=r:gosub25:sys4198:goto250
  261. 260 sys4504:print""spc(25)"[153]handwerker:":sys4150:ifpeek(851)=0goto289
  262. 261 pn=10*p+hn:i=fnp(49193):ifi>.andi<9goto263
  263. 262 hn=hn+1+10*(hn=9):goto261
  264. 263 x=fnp(49333):y=fnp(49473):gosub28:sys4180:sys4195:sys4258:print""spc(25)"handwerker"hn+1"[157] ":gosub30:print:printspc(25);:gosub12:printspc(28)"[145]auftrag:[158]":printspc(25);:j=fnp(49763):ifi=2thensys4333:goto284
  265. 264 ifi=3thensys4336:goto284
  266. 265 ifi=4thensys4444:printleft$(d$,13)spc(25)"("fnp(50327)"runden )":goto284
  267. 266 ifj=.thensys4330
  268. 267 ifj<>1goto269
  269. 268 sys4339:c=fnp(49903):a=c:gosub18:print"/";:b=fnp(50043):gosub31:poke852,c:poke853,b:sys4225:gosub43
  270. 269 ifj<2orj>4goto271
  271. 270 print"ich setze eine":printspc(25)mid$("holz[146]stahlmag.",(j-2)*5+1,5)"t]r (";:printmid$(str$(fnp(50327)),2)")
  272. 271 [139]j[179]19[176]j[177]21[137]273
  273. 272 [153]"ich lege eine":[153][166]27)[202](" goldwaitmetallumium-",(j[171]19)[172]6[170]1,6);:[153]"mine":[153][166]25)"an ("[202]([196]([165]p(50327)),2)" runden)
  274. 273 ifj<>18goto276
  275. 274 print"[157]ich grabe einen":printspc(24)"energiebrunnen
  276. 275 [153][166]26)"("[202]([196]([165]p(50327)),2)" runden)
  277. 276 ifj<>17goto278
  278. 277 print"[157]ich richte":printspc(24)"eine schmiede":printspc(24)"ein ("mid$(str$(fnp(50327)),2)" runden)
  279. 278 [139]j[179][177]16[137]280
  280. 279 [153]"cmdich baue einen":[153][166]24)"forschungsraum":j[178]1:[137]275
  281. 280 [139]j[179][177]15[137]282
  282. 281 [153]"cmdich baue einen":[153][166]25)"wissensraum":j[178]1:[137]275
  283. 282 [139]j[179]5[176]j[177]13[137]284
  284. 283 [153]"cmdich stelle eine":[153][166]24)"falle typ"j[171]4:j[178]1:[137]275
  285. 284 [158]4285:[145][194](849)[170]1[137]285,289,305,298,262,56
  286. 285 [153][200](d$,15)[166]27)"defhandwerker":[153][166]27)"entlassen?":[158]4192:[139][194](849)[137]260
  287. 286 j[178][165]p(49193):[139]j[178]2[167][141]310
  288. 287 [139]j[178]3[167][141]315
  289. 288 [141]44:[151]49193[170]pn,128:[151]50327[170]pn,10:[158]4180:[158]4189:[137]260
  290. 289 [158]4123:[158]4177:[158]4138:[153]""[166]26)"handwerker":[153][166]26)"anwerben?":l[178]2:[141]149:[139]h[178].[137]291
  291. 290 [145]z[137]260,56
  292. 291 hn[178].:x[178][194](832):y[178][194](833)
  293. 292 j[178][165]p(49193):[139]j[167]hn[178]hn[170]1[170]10[172](hn[178]9):pn[178]10[172]p[170]hn:[137]292
  294. 293 [153][200](d$,6)[166]28);:[141]12:[153][166]25)"handwerker"hn[170]1"cmd ":[153][166]25)"meldet sich.":pn[178]10[172]p[170]hn:[158]4288:[145][194](849)[170]1[137]297,296,294
  295. 294 [158]4150:[139][194](851)[178].[137]56
  296. 295 [137]260
  297. 296 hn[178]hn[170]1[170]10[172](hn[178]9):pn[178]10[172]p[170]hn:[137]292
  298. 297 [158]4138:[151]49193[170]pn,1:[151]49333[170]pn,x:[151]49473[170]pn,y:[141]25:[158]4198:[153][200](d$,16)[166]24)"syshandw.erscheint":[151]49763[170]pn,.:[158]4180:[158]4189:[137]260
  299. 298 i[178][165]p(49193):[139]i[178]4[167][158]4384:[137]260
  300. 299 [139][165]p(49763)[177].[176]i[177]1[167][141]7:[139][194](849)[137]260
  301. 300 [139]i[178]2[167][141]310
  302. 301 [139]i[178]3[167][141]315
  303. 302 [151]49763[170]pn,.:[151]49193[170]pn,1:[141]160:[139]k[178]x[175]l[178]y[137]260
  304. 303 [141]45:[139][194](854)[167][158]4366:[137]260
  305. 304 [141]46:[151]49903[170]pn,x:[151]50043[170]pn,y:[151]49763[170]pn,1:[158]4189:[137]260
  306. 305 [139][165]p(49193)[178]4[167][158]4384:[137]260
  307. 306 [158]4195:i[178][165]p(49193):[139][165]p(49763)[177].[176]i[177]1[167][141]7:[139][194](849)[137]260
  308. 307 [139]i[178]2[167][141]310
  309. 308 [139]i[178]3[167][141]315
  310. 309 [151]49193[170]pn,1:[158]4180:[151]49763[170]pn,.:[158]4258:[158]4294:[145][194](849)[170]1[137]350,358,365,320,326,260
  311. 310 [158]4315:r[178][194](896):[139]r[178]20[167][142]
  312. 311 [141]24:[141]27:[158]4234:[139][194](52992)[178].[137]314
  313. 312 [141]51:[139]k[178].[137]314
  314. 313 [137]168
  315. 314 j[178]50467[170]r:[151]j,[194](j)[175]227:[142]
  316. 315 [158]4318:r[178][194](896):[139]r[177]9[167][142]
  317. 316 [141]24:[141]27:[158]4234:[139][194](52992)[178].[137]319
  318. 317 [141]51:[139]k[178].[137]319
  319. 318 [158]4255:[158]4405:[138]
  320. 319 j[178]50527[170]r:[151]j,[194](j)[175]127:[142]
  321. 320 [153][200](d$,12)[166]25)"opent]r einsetzen":[141]26:[158]4246:r[178][194](853)[175]240:[139]r[179][177]16[176]([194](852)[175]224)[178].[167][158]4399:[137]260
  322. 321 [141]27:[158]4237:[139][194](896)[167][141]13:[137]260
  323. 322 [158]4297:[139][194](849)[178]3[137]260
  324. 323 a[178][194](849):b[178]2[171]a:l[178][165]p(50787):b[178]6[170]4[172]b[171]l[173]2[171]l[172]b[173]3.5:a[178]4[171]a:[139](a[178]3[175]l[179]3)[176]a[178]4[175]l[179]6[167][158]4435:[137]260
  325. 324 [151]832,10[172](3[171][194](849)):[141]29:[139][194](832)[167][141]3:[137]260
  326. 325 [151]49763[170]pn,a:[151]50327[170]pn,b:[151]49903[170]pn,x:[151]50043[170]pn,y:[137]260
  327. 326 [153][200](d$,12)[166]25)"openraum erstellen":[158]4300:[145][194](849)[170]1[137]332,346,342,338,327
  328. 327 n[178].:[158]4258:[153][200](d$,12)[166]25)"openmine anlegen":[141]26:[158]4246:[139][194](853)[179][177]193[176]([194](852)[175]224)[178].[176]y[177]80[167][141]17:[137]260
  329. 328 [129]i[178].[164]9:[139][194](50467[170]10[172]p[170]i)[175]192[167][130]:[141]15:[137]260
  330. 329 [158]4261:r[178][194](849):[139]r[178]3[137]260
  331. 330 [151]832,50[171]10[172]r:[141]29:[139][194](832)[167][141]3:[137]260
  332. 331 a[178]21[171]r:b[178]12[171]2[172](r[178].)[171][165]p(50787):[137]325
  333. 332 n[178]0:[158]4258:[153][200](d$,12)[166]27)"openwissensraum":[141]26:[158]4270:[139][194](896)[167][141]17:[137]260
  334. 333 j[178][194](49155)[172]2:l[178]y[175]127:[139][194](49154)[178].[175]l[179][177]35[170]j[167][158]4441:[137]260
  335. 334 [139][194](49154)[178]1[175]l[179][177]14[171]j[167][158]4441:[137]260
  336. 335 [129]i[178]0[164]1:[139][194](49734[170]5[172]p[170]i)[167][130]:[141]15:[137]260
  337. 336 [151]832,100:[141]29:[139][194](832)[167][141]3:[137]260
  338. 337 a[178]15:b[178]20[171]1.5[172][165]p(50787):[137]325
  339. 338 n[178]0:[158]4258:[153][200](d$,12)[166]25)"openenergiebrunnen":[141]26:[158]4270:[139][194](896)[167][141]17:[137]260
  340. 339 [129]i[178]0[164]9:[139][194](50627[170]10[172]p[170]i)[167][130]:[141]15:[137]260
  341. 340 [151]832,50:[141]29:[139][194](832)[167][141]3:[137]260
  342. 341 a[178]18:b[178]15[171][165]p(50787):[137]325
  343. 342 n[178].:[158]4258:[153][200](d$,12)[166]28)"openschmiede":[141]26:[158]4270:[139][194](896)[167][141]17:[137]260
  344. 343 [129]i[178]0[164]4:[139][194](50527[170]10[172]p[170]i)[167][130]:[141]15:[137]260
  345. 344 [151]832,40:[141]29:[139][194](832)[167][141]3:[137]260
  346. 345 a[178]17:b[178]18[171]1.5[172][165]p(50787):[137]325
  347. 346 n[178]0:[158]4258:[153][200](d$,12)[166]25)"openforschungsraum":[141]26:[158]4270:[139][194](896)[167][141]17:[137]260
  348. 347 [129]i[178].[164]9:[139][194](50687[170]10[172]p[170]i)[167][130]:[141]15:[137]260
  349. 348 [151]832,35:[141]29:[139][194](832)[167][141]3:[137]260
  350. 349 a[178]16:b[178]13[171][165]p(50787):[137]325
  351. 350 [153][200](d$,12)[166]26)"openminenarbeit":[158]4315:r[178][194](896):[139]r[178]20[167][141]17:[137]260
  352. 351 b[178][194](49154):j[178][181](r[173]10):[139]j[178]b[137]355
  353. 352 j[178][194](50467[170]r):[139]j[175]48[167][141]19:[137]260
  354. 353 [129]i[178].[164]9:[139][194](50467[170]10[172]p[170]i)[175]192[167][130]:[141]15:[137]260
  355. 354 [151]50467[170]r,.:a[178]50467[170]10[172]p[170]i:[137]356
  356. 355 a[178]50467[170]r:[139][194](a)[175]16[167][141]10:[137]260
  357. 356 [139]([194](a)[175]32)[178].[167][158]4432:[137]260
  358. 357 [151]a,[194](a)[176]16:[151]49193[170]pn,2:[137]260
  359. 358 [153][200](d$,12)[166]25)"openschmiederbeit":[158]4318:r[178][194](896):[139]r[178]10[167][141]17:[137]260
  360. 359 b[178][194](49154):j[178][181](r[173]5):[139]j[178]b[137]363
  361. 360 j[178][194](50527[170]r):[139]j[175]128[167][141]20:[137]260
  362. 361 [129]i[178].[164]4:a[178]5[172]p[170]i:[139][194](50527[170]a)[167][130]:[141]15:[137]260
  363. 362 [129]j[178].[164]10:c[178]50527[170]10[172]j:[151]c[170]a,[194](c[170]r):[151]c[170]r,.:[130]:a[178]c[170]a:[137]364
  364. 363 a[178]50527[170]r:[139][194](a)[175]128[167][141]21:[137]260
  365. 364 [151]a,[194](a)[176]128:[151]49193[170]pn,3:[137]260
  366. 365 [153][200](d$,12)[166]25)"openfalle stellen":[141]26:[158]4246:l[178].:r[178][194](853)[175]240:[139]r[179][177]16[176]([194](852)[175]224)[178].[167][158]4399:[137]260
  367. 366 [141]27:[158]4237:[139][194](896)[167][141]13:[137]260
  368. 367 u$[178]"fallgrube  messerfallespeergrube speerfalle steinfalle giftfalle":u$[178]u$[170]"  netzfalle  bombenfallegasfalle   ":k[178][194](51091[170]p):b[178][165]p(50787)
  369. 368 [153][200](d$,13)[166]25)"cont"[202](u$,l[172]11[170]1,11):[153][166]25)"nr"l[170]1"von"k[170]1"(9)
  370. 369 j=peek(56320):if(jand6)<6theniflthenl=l-1:goto368
  371. 370 if(jand9)<9thenifl<kandl<b+1thenl=l+1:goto368
  372. 371 ifjand16goto369
  373. 372 poke832,20+5*l:gosub29:ifpeek(832)thengosub3:goto260
  374. 373 a=5+l:b=10+l-b:goto325
  375. 374 sys4504:print""spc(25)"[153]transporter":sys4150:ifpeek(852)=0goto395
  376. 375 pn=10*p+tn:i=fnp(49213):ifi>.andi<9goto377
  377. 376 tn=tn+1+10*(tn=9):goto375
  378. 377 x=fnp(49353):y=fnp(49493):gosub28:sys4180:sys4195:sys4258:print""spc(25)"transp.nr."tn+1"[157] ":gosub30:print:printspc(25);:gosub22:printspc(28);:gosub392:printspc(25);:j=fnp(49783):ifi=4thensys4444:printleft$(d$,13)spc(25)"("fnp(50347)"runden )":goto388
  379. 378 ifj=.thensys4330:goto388
  380. 379 ifj>1goto381
  381. 380 sys4339:c=fnp(49923):a=c:gosub18:print"/";:b=fnp(50063):gosub31:poke852,c:poke853,b:sys4225:gosub43:goto388
  382. 381 print"patrouille:":c=fnp(50927):a=c:printspc(25)"[153](";:gosub18:print"/";:b=fnp(51007):gosub40:c=fnp(49923):a=c:printspc(25)"(";:gosub18:print"/";:b=fnp(50063):gosub40:poke850,fnp(50927):poke851,fnp(51007):printleft$(d$,13)spc(34);:gosub382:printleft$(d$,14)spc(36)"_[145][157][153]^";:poke850,fnp(49923):poke851,fnp(50063):gosub382:goto388
  383. 382 sys4246:b=peek(853):ifb=208thenprint"[158][174][175][157][157][176][177]
  384. 383 [139]b[178]209[167][153]"print#^andcmdcmdor>
  385. 384 ifb=210thenprint"[159][174][175][157][157][176][177]
  386. 385 [139]b[178]224[167][153][202]("listprint#",p[170]1,1)"sqrrndcmdcmdlogexp
  387. 386 ifb=242thenprintmid$("[150][154]",p+1,1)"[166][167][157][157][168][169]
  388. 387 [142]
  389. 388 [158]4321:[145][194](849)[170]1[137]389,395,410,404,376,56
  390. 389 [139][165]p(50727)[178]4[167][158]4384:[137]374
  391. 390 [153][200](d$,15)[166]27)"deftransporter":[153][166]27)"entlassen?":[158]4192:[139][194](849)[137]374
  392. 391 [141]44:[151]49213[170]pn,128:[151]50347[170]pn,10:[158]4180:[158]4189:[137]374
  393. 392 l[178][165]p(50727):h[178][165]p(50747):[153][200](d$,10)[166]28)"           ":[153][200](d$,10)[166]28);:[139]l[178].[167][153]"print(leer)sys":[142]
  394. 393 [139]l[178]4[167][153]"((("[202]("sysopen",[194](49154)[170]1,1)"newtab(cmdcmd(NULL)(NULL)on)))":[142]
  395. 394 [153][202]("sysprint#cont",l,1)"("[202]([196](h),2)" ";:[153][202]("goldwaitmet.waitumium",l[172]5[171]4,5)")sys":[142]
  396. 395 [158]4123:[158]4177:[158]4138:[153]""[166]26)"transporter":[153][166]26)"anwerben?":l[178]3:[141]149:[139]h[178].[137]397
  397. 396 [145]z[137]374,56
  398. 397 tn[178].:x[178][194](832):y[178][194](833)
  399. 398 j[178][165]p(49213):[139]j[167]tn[178]tn[170]1[170]10[172](tn[178]9):pn[178]10[172]p[170]tn:[137]398
  400. 399 [153][200](d$,6)[166]28);:[141]22:[153][166]25)"transp.nr."tn[170]1"cmd ":[153][166]25)"meldet sich.":pn[178]10[172]p[170]tn:[158]4324:[145][194](849)[170]1[137]403,402,400
  401. 400 [158]4150:[139][194](852)[178].[137]56
  402. 401 [137]374
  403. 402 tn[178]tn[170]1[170]10[172](tn[178]9):pn[178]10[172]p[170]tn:[137]398
  404. 403 [158]4138:[151][165]a(49213),1:[151][165]a(49353),x:[151][165]a(49493),y:[141]25:[158]4198:[153][200](d$,16)[166]24)"systranspor. kommt":[151]49783[170]pn,.:[151]50727[170]pn,.:[151]50747[170]pn,.:[158]4180:[158]4189:[137]374
  405. 404 i[178][165]p(49213):[139]i[178]4[167][158]4384:[137]374
  406. 405 [139][165]p(49783)[177].[176]i[177]1[167][141]7:[139][194](849)[137]374
  407. 406 [151]49783[170]pn,.:[151]49213[170]pn,1:[141]160:[139]k[178]x[175]l[178]y[137]374
  408. 407 [151]49152,k:[151]49153,l:[141]27:[151]849,.:[139][194](51588[170]p)[167][139][165]p(50727)[178]4[167][151]849,2
  409. 408 [158]4225:[139][194](854)[167][158]4366:[137]374
  410. 409 [141]46:[151]49923[170]pn,x:[151]50063[170]pn,y:[151]49783[170]pn,1:[158]4189:[137]374
  411. 410 [139][165]p(49213)[178]4[167][158]4384:[137]374
  412. 411 [158]4195:i[178][165]p(49213):[139][165]p(49783)[177].[176]i[177]1[167][141]7:[139][194](849)[137]374
  413. 412 [158]4180:[151]49783[170]pn,.:[158]4258:[141]24:[158]4327:[145][194](849)[170]1[137]450,427,413,374
  414. 413 [141]25:[158]4246:n[178][194](853):[139]n[179][177]208[175]n[179][177]209[175]n[179][177]210[175]n[179][177]224[175]n[179][177]242[167][158]4399:[137]374
  415. 414 [139]([194](852)[175]1)[179][177]p[167][158]4384:[137]374
  416. 415 [141]160:[139]k[178]x[175]l[178]y[137]374
  417. 416 [151]49152,k:[151]49153,l:[141]27:[151]849,.:[158]4225:[139][194](854)[167][158]4366:[137]374
  418. 417 [141]25:[158]4246:b[178][194](853):[139]b[179][177]208[175]b[179][177]209[175]b[179][177]210[175]b[179][177]224[175]b[179][177]242[167][158]4399:[137]374
  419. 418 [139]([194](852)[175]1)[179][177]p[167][158]4384:[137]374
  420. 419 [139]n[178]b[137]426
  421. 420 [139]n[178]208[167][139]b[178]209[176]b[178]210[137]426
  422. 421 [139]n[178]209[167][139]b[178]208[176]b[178]210[176]b[178]224[137]426
  423. 422 [139]n[178]210[167][139]b[178]208[176]b[178]209[137]426
  424. 423 [139]n[178]224[167][139]b[178]209[176]b[178]242[137]426
  425. 424 [139]n[178]242[175]b[178]224[137]426
  426. 425 [153][166]25)"printeine strecke":[153][166]25)"ca"[181](([194](856)[170]4)[173]5)"runden":[151]49923[170]pn,x:[151]50063[170]pn,y:[151]49783[170]pn,2:[151]50927[170]pn,k:[151]51007[170]pn,l:[158]4189:[137]374
  427. 426 [158]4384:[137]374
  428. 427 [153][200](d$,12)[166]25)"opentrnsp.entladen":[141]25:[158]4246:a[178][194](853):l[178][165]p(50727):k[178][165]p(50747):[139]l[178].[176]l[178]4[167][158]4384:[137]374
  429. 428 [139]a[178]208[175]l[179][177]1[137]448
  430. 429 [139]a[178]209[175]l[179][177]2[137]448
  431. 430 [139]a[178]210[175]l[179][177]3[137]448
  432. 431 [139]a[178]224[175]l[178]2[137]448
  433. 432 [139]a[179][177]208[175]a[179][177]209[175]a[179][177]210[175]a[179][177]224[175]a[179][177]242[137]448
  434. 433 [139]a[177]210[137]438
  435. 434 [158]4315:r[178][194](896):j[178][194](50447[170]r):b[178][194](50467[170]r):[139](b[175]32)[178].[167][158]4432:[137]448
  436. 435 [139]a[178]208[167]kp[178]kp[170]k:[141]39:[137]449
  437. 436 l[178]256[172](b[175]3)[170]j[170]k:[139]l[177]999[167]l[178]999
  438. 437 j[178][181](l[173]256):[151]50467[170]r,(b[175]252)[170]j:[151]50447[170]r,l[171]256[172]j:[137]449
  439. 438 [139]a[177]224[137]444
  440. 439 [158]4426:r[178][194](896):[139]r[178]20[137]374
  441. 440 i[178][194](50667[170]r)[170]256[172][194](50163[170]r):j[178]999[171]i:a[178]k:[139]a[179]j[167]a[178]j
  442. 441 b[178]a:[139]l[178]1[167]a[178][181](k[173]10):b[178]10[172]a
  443. 442 z[178]i[170]j:g[178][181](i[173]256):[151]50163[170]r,g:[151]50667[170]r,z[171]256[172]g:a[178]k[171]b:[151]50747[170]pn,a:[139]a[178].[137]449
  444. 443 [137]374
  445. 444 [158]4318:r[178][194](896):[139]r[177]9[137]374
  446. 445 a[178]50537[170]10[172]l[170]r:b[178][194](a):i[178]250[171]b:[139]k[179]i[167]i[178]k
  447. 446 [151]a,b[170]i:k[178]k[171]i:[151]50747[170]pn,k:[139]k[178].[137]449
  448. 447 [137]374
  449. 448 [158]4429:[139][194](849)[137]374
  450. 449 [151]50727[170]pn,.:[151]50747[170]pn,.:[137]374
  451. 450 [153][200](d$,12)[166]25)"openwissenskugel!":[141]25:l[178][165]p(50727):k[178][165]p(50747):[139]l[178]4[137]455
  452. 451 [139]l[167][158]4384:[137]374
  453. 452 a[178][194](49733[170]p[172]5):[139]a[178].[167][158]4384:[137]374
  454. 453 k[178][194](49733[170]p[172]5[170]a):l[178][194](49735[170]p[172]5[170]a):[139]x[179][177]k[176]l[179][177]y[167][158]4399:[137]374
  455. 454 [151]49733[170]p[172]5,.:[151]50727[170]pn,4:[158]4312:[137]374
  456. 455 i[178].
  457. 456 j[178]p[172]5[170]i:[139]x[178][194](49734[170]j)[175]y[178][194](49736[170]j)[137]459
  458. 457 [139]i[178].[167]i[178]1:[137]456
  459. 458 [158]4399:[137]374
  460. 459 [151]49733[170]p[172]5,i[170]1:[158]4438:[137]449
  461. 460 [158]4504:[153]""[166]25)"printforscher-menue":[158]4150:[139][194](853)[178]0[137]489
  462. 461 pn[178]10[172]p[170]fo:i[178][165]p(49233):[139]i[177].[175]i[179]9[137]463
  463. 462 fo[178]fo[170]1[170]10[172](fo[178]9):[137]461
  464. 463 x[178][165]p(49373):y[178][165]p(49513):[141]28:[158]4180:[158]4195:[158]4258:[153]""[166]25)"forscher"fo[170]1"cmd ":[141]30:[153]:[153][166]30);:[141]23:[153][166]28)"onauftrag:sys":[153][166]25);:j[178][165]p(49803):[139]i[178]4[167][158]4444:[153][200](d$,13)[166]25)"("[165]p(50367)"runden )":[137]480
  465. 464 [139]j[178].[167][158]4330:[137]480
  466. 465 [139]j[177]1[137]467
  467. 466 [158]4339:c[178][165]p(49943):a[178]c:[141]18:[153]"/";:b[178][165]p(50083):[141]31:[151]852,c:[151]853,b:[158]4225:[141]43:[137]480
  468. 467 [153]"clrich erforsche":[153][166]25);:[139]j[178]2[167][153]"werkzeuge
  469. 468 ifj=3thenprint"fallenkunde
  470. 469 [139]j[178]4[167][153]"baukunst
  471. 470 ifj=5thenprint"waffen
  472. 471 [139]j[178]6[167][153]"zauberspr]che
  473. 472 ifj=7thenprint"monsterrassen
  474. 473 [139]j[177]7[167][153]"monsterstufen":[153][166]25)"f]r ";
  475. 474 [139]j[178]8[167][153]"kriecher
  476. 475 ifj=9thenprint"schleimer
  477. 476 [139]j[178]10[167][153]"geher
  478. 477 ifj=11thenprint"h]pfer
  479. 478 [139]j[178]12[167][153]"flieger
  480. 479 ifj=13thenprint"nebler
  481. 480 [158]4447:[145][194](849)[170]1[137]481,489,504,498,462,56
  482. 481 [153][200](d$,15)[166]27)"defforscher":[153][166]27)"entlassen?":[158]4192:[139][194](849)[137]460
  483. 482 [141]483:[141]44:[151]49233[170]pn,128:[151]50367[170]pn,30:[158]4180:[158]4189:[137]460
  484. 483 [141]26:[139][165]p(49233)[179][177]2[167][142]
  485. 484 [141]24:[141]27:[158]4234:[139][194](52992)[178].[137]487
  486. 485 [141]51:[139]k[178].[137]487
  487. 486 [158]4255:[158]4507:[138]
  488. 487 [158]4453:r[178][194](896):[139]r[179]20[167]j[178]50687[170]r:[151]j,[194](j)[175]63
  489. 488 [151]49233[170]pn,1:[151]49803[170]pn,.:[158]4180:[142]
  490. 489 [158]4123:[158]4177:[158]4138:[153]""[166]26)"forscher":[153][166]26)"anwerben?":l[178]4:[141]149:[139]h[178].[137]491
  491. 490 [145]z[137]460,56
  492. 491 fo[178].:x[178][194](832):y[178][194](833)
  493. 492 j[178][165]p(49233):[139]j[167]fo[178]fo[170]1[170]10[172](fo[178]9):pn[178]10[172]p[170]fo:[137]492
  494. 493 [153][200](d$,6)[166]30);:[141]23:[153][166]25)"forscher"fo[170]1"cmd ":[153][166]25)"meldet sich.":pn[178]10[172]p[170]fo:[158]4450:[145][194](849)[170]1[137]497,496,494
  495. 494 [158]4150:[139][194](853)[178].[137]56
  496. 495 [137]460
  497. 496 fo[178]fo[170]1[170]10[172](fo[178]9):pn[178]10[172]p[170]fo:[137]492
  498. 497 [158]4138:[151]49233[170]pn,1:[151]49373[170]pn,x:[151]49513[170]pn,y:[141]25:[158]4198:[153][200](d$,16)[166]25)"sysforscher kommt":[151]49803[170]pn,.:[158]4180:[158]4189:[137]460
  499. 498 i[178][165]p(49233):[139]i[178]4[167][158]4384:[137]460
  500. 499 [139][165]p(49803)[177].[176]i[177]1[167][141]7:[139][194](849)[137]460
  501. 500 [139]i[178]2[167][141]483
  502. 501 [151]49803[170]pn,.:[151]49233[170]pn,1:[141]160:[139]k[178]x[175]l[178]y[137]460
  503. 502 [141]45:[139][194](854)[167][158]4366:[137]460
  504. 503 [141]46:[151]49943[170]pn,x:[151]50083[170]pn,y:[151]49803[170]pn,1:[158]4189:[137]460
  505. 504 [139][165]p(49193)[178]4[167][158]4384:[137]460
  506. 505 [158]4195:i[178][165]p(49233):[139][165]p(49803)[177].[176]i[177]1[167][141]7:[139][194](849)[137]460
  507. 506 [141]483:[158]4258:[141]25:[158]4246:[139]([194](852)[175]1)[179][177]p[176][194](853)[179][177]243[167][158]4399:[137]460
  508. 507 [158]4453:r[178][194](896):[139]r[178]20[167][158]4399:[137]460
  509. 508 [139][181](r[173]10)[179][177]p[137]527
  510. 509 [139][194](50687[170]r)[177]99[167][158]4459:[137]460
  511. 510 [158]4456:[145][194](849)[170]1[137]519,518,517,516,515,514,511
  512. 511 k[178]2:b[178]9:a[178]1:u$[178]"werkzeuge
  513. 512 printleft$(d$,11)spc(25)"[159]"u$":":i=peek(51085+p+k*2)+a:printspc(25)"stufe"i"von"b:ifi=bthenprintspc(24)"[150]maximale stufe!":sys4189:gosub483:goto460
  514. 513 l=k:poke50687+r,x+128:printspc(25)"ich forsche!":poke49233+pn,2:poke49803+pn,l:sys4189:goto460
  515. 514 k=3:b=9:a=1:u$="fallenkunde":goto512
  516. 515 k=4:b=6:a=1:u$="baukunst":goto512
  517. 516 k=5:b=5:a=.:u$="waffen":goto512
  518. 517 k=6:b=5:a=.:u$="zauberspr]che":goto512
  519. 518 k=7:b=6:a=.:u$="monsterrassen":goto512
  520. 519 printleft$(d$,11)spc(25)"[159]monsterstufen:":sys4462:onpeek(849)+1goto460,520,522,523,524,525,526
  521. 520 k=8:u$="kriech
  522. 521 b[178]6:a[178].:u$[178]"f]r "[170]u$[170]"er":[137]512
  523. 522 k[178]9:u$[178]"schleim":[137]521
  524. 523 k[178]10:u$[178]"geh":[137]521
  525. 524 k[178]11:u$[178]"h]pf":[137]521
  526. 525 k[178]12:u$[178]"flieg":[137]521
  527. 526 k[178]13:u$[178]"nebl":[137]521
  528. 527 [139][194](50687[170]r)[177]99[167][158]4507:[137]460
  529. 528 [129]i[178].[164]9:[139][194](50687[170]10[172]p[170]i)[167][130]:[141]15:[137]117
  530. 529 [151]50687[170]r,.:r[178]i[170]10[172]pn:[141]24:[151]50687[170]r,x:[151]50707[170]r,y:[137]510
  531. 530 [153][200](d$,15)[166]25)"defzug wirklich":[153][166]25)"beenden?":[158]4192:[139][194](849)[137]59
  532. 531 [151]51611,5:[153]"stoploadl(NULL)"[199](34)"wiz.zwex";:[151]768,99:[151]68,2
  533. 532 [153][199](34)",8":[129]i[178].[164]9:[153]"r(NULL)":[130]:[151]631,19:[151]632,13:[151]633,13:[151]198,3:[128]
  534. 533 [153]"stoploadl(NULL)"[199](34)"wiz.kmau";:[151]768,99:[151]68,0:[137]532
  535. 534 [153][200](d$,15)[166]27)"defdas spiel":[153][166]27)"abbrechen?":[158]4192:[139][194](849)[137]85
  536. 535 [153]"stoploadl(NULL)"[199](34)"wiz.bote";:[151]768,99:[151]68,0:[137]532
  537.