home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / d.2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  25KB  |  564 lines
  1. 0 poke808,225:poke657,128:iffl=9then11536
  2. 1 print"[147]":poke53272,23:poke53280,0:poke53281,0:dimna$(55):poke50002,0:en=10
  3. 2 print"[145] [211]pion [201][201][201] ( [196] 2 [205]ission ) [214]ersion 1.0":dimxx$(35):dimbe$(32)
  4. 3 printtab(7)"[158][196]esigner: [211]teffen [199]oebbels":poke54272+24,10:poke56549,30
  5. 4 printtab(7)"(c) [211].[202].[199].-[211]oft [215]eeze 1985":ze=180:gosub60000
  6. 5 data120,169,13,141,20,3,169,195,141,21,3,88,96,174,252,3,232,142,252,3,224
  7. 6 data40,208,5,162,0,142,252,3,169,06,157,0,216,169,1,157,1,216,76,0,196
  8. 7 fori=49920to49961:readq:pokei,q:next:sys49920
  9. 8 dimb(55):dimc(55):data6,10,10,14,10,10,12,7,10,10,11,10,12,5,7,10
  10. 9 data14,10,10,9,5,5,2,11,14,10,14,9,3,10,10,11,10,9:fori=0to33:readb(i):next
  11. 10 rem **** daten der landschaft ****
  12. 11 data85,247,247,85,223,223,85,247,247,85,223,223,85,247,247,85,223,223,85,247
  13. 12 data247,85,223,223,60,125,60,60,60,60,60,60,60,60,60,60,60,60,125,60
  14. 13 data195,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215
  15. 14 data215,215,215,215,215,20,85,85,85,84,84,84,84,80,80,80,80,64,64,64,64,64
  16. 15 data85,85,85,21,21,21,21,5,5,5,5,1,1,1,1,1,85,106,106,111,111,111,111,111
  17. 16 data85,170,170,255,255,255,255,255,85,169,169,249,249,249,249,249,111,111,111
  18. 17 data111,109,109,111,111,255,255,255,255,127,255,255,255,249,249,249,249,249,249
  19. 18 data249,249,111,111,111,111,111,111,111,111,255,255,255,255,255,255,255,255
  20. 19 data170,170,191,191,191,191,170,170,170,170,190,190,190,190,170,170,170,170
  21. 20 data254,254,254,254,170,170,191,191,191,191,170,255,85,85,190,190,190,190
  22. 21 data170,255,85,85,254,254,254,254,170,255,85,85,170,170,191,191,191,191,191
  23. 22 data191,170,170,255,255,255,255,255,255,170,170,254,254,254,254,254,254
  24. 23 data191,191,191,191,191,191,191,191,254,254,254,254,254,254,254,254
  25. 24 data191,191,191,189,181,149,170,170,255,255,255,85,85,85,170,170,0,0,0,0,0,0
  26. 25 data0,0,254,254,254,126,94,86,170,170,85,85,85,85,85,85,85,85
  27. 26 data255,85,85,85,255,255,255,85,87,87,93,93,117,117,213,213,213,213,117,117
  28. 27 data93,93,87,87,85,85,85,86,90,106,85,85,85,85,170,170,170,170,85,85,85,85
  29. 28 data170,169,165,149,85,85,85,85,170,106,90,86,85,85,85,85,85,149,165,169,85
  30. 29 data85,85,85,85,85,87,93,117,213,87,93,117,213,85,85,85,85
  31. 30 data85,85,85,85,213,117,93,87,213,117,93,87,85,85,85,85
  32. 31 data24,24,24,126,126,24,24,24,0,0,1,5,5,21,21,21,0,85,85,85,85,85,85,85,0
  33. 32 data192,112,92,95,87,87,87,21,21,21,21,21,21,21,21,87,87,87,87,87,87,87,87
  34. 33 data0,3,5,21,21,85,85,85,0,192,112,92,95,87,87,87,87,87,87,87,87,87,87,84
  35. 34 data0,0,1,255,254,63,31,15,0,0,216,240,99,247,255,222,15,127,30,56,16,128
  36. 35 data128,0,0,0,7,13,36,33,55,15,0,0,128,255,255,255,255,255,15,31,31,27,11,11
  37. 36 data3,1,206,252,248,240,176,0,0,192,31,50,12,63,127,127,255,255,143,191,31
  38. 37 data30,254,231,243,249,64,62,31,63,63,31,31,15,0,0,128,192,240,248,248,240
  39. 38 data127,31,3,3,3,1,1,1,252,254,254,252,252,248,248,248,7,7,7,7,3,3,3,2,224
  40. 39 data224,192,128,128,0,0,0,240,240,224,96,0,0,0,0
  41. 40 data127,159,167,169,170,170,170,170,255,255,255,255,127,159,167,169,255,255
  42. 41 data255,255,253,246,218,106,253,246,218,106,170,170,170,170,253,253,246,246
  43. 42 data218,218,106,106,127,127,159,159,167,167,169,169,170,170,170,170,169,167
  44. 43 data159,127,169,167,159,127,255,255,255,255,106,218,246,253,255,255,255,255
  45. 44 data170,170,170,170,106,218,246,253,106,106,218,218,246,246,253,253,169,169
  46. 45 data167,167,159,159,127,127,170,170,170,170,170,170,170,170
  47. 46 data170,42,2,0,0,0,0,0,170,170,170,170,10,2,0,0,170,170,170,170,170,170,234
  48. 47 data250,170,170,170,170,170,170,171,175,170,170,170,170,160,128,0,0,170,171
  49. 48 data128,0,0,0,0,0,0,0,0,0,3,3,15,63,5,53,245,245,245,245,245,245,80,85,85
  50. 49 data85,85,84,84,84,63,255,255,51,3,0,0,0,245,250,234,162,162,160,128,0,84
  51. 50 data160,160,128,0,0,0,0,170,170,186,187,171,167,173,191,170,170,174,238,234
  52. 51 data250,250,254,170,170,253,247,223,223,223,117,191,157,183,189,189,189,183
  53. 52 data149,127,253,247,227,119,247,253,247,126,222,246,254,222,118,254,254
  54. 60 rem **** sprites ****
  55. 61 data0,0,0,0,2,170,0,10,170,0,42,170,2,170,170,10,170,170,170,170,170,255
  56. 62 data255,255,255,255,255,234,213,83,234,213,67,255,213,3,234,212,3,234,212,3
  57. 63 data255,208,3,255,192,3,234,0,0,212,0,0,212,0,0,208,0,0,192,0,0,0:rem sp.0
  58. 64 data0,0,0,170,160,0,170,160,0,170,144,0,170,144,0,170,80,0,170,80,0,255,80,0
  59. 65 data255,80,0,171,80,0,171,80,0,255,80,0,171,80,0,171,80,0,255,80,0,255,64,0
  60. 66 data3,64,0,3,64,0,3,64,0,3,64,0,3,0,0,0:remsp.1
  61. 67 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,84,0,5,85,0,26,165,64
  62. 68 data42,169,80,170,170,80,170,170,80,170,170,80,170,170,80,170,171,80,170,170
  63. 69 data80,170,170,80,170,170,80,170,170,80,0:remsp.2
  64. 70 data170,170,80,170,170,80,170,170,80,175,170,80,175,170,80,191,234,80,186
  65. 71 data234,80,186,234,80,191,234,80,175,170,80,175,170,80,170,170,80,170,170,80
  66. 72 data170,170,80,170,171,80,170,170,80,170,170,80,170,170,80,170,170,64,42,169
  67. 73 data64,10,165,0,0:remsp.3
  68. 74 data0,0,0,0,0,0,0,0,0,149,80,0,169,85,0,171,149,80,171,169,85,171,171,255
  69. 75 data171,171,255,171,171,255,171,171,255,171,171,255,171,171,255,43,171,255
  70. 76 data11,171,255,3,171,255,3,171,255,0,171,255,0,43,255,0,11,255,0,3,255,0
  71. 77 data0,0,0,0,8,0,0,42,0,0,46,0,0,46,0,0,42,0,0,8,0,0,42,0,0,42,0,0,170,0,0
  72. 78 data166,0,0,166,0,1,86,0,1,86,0,0,170,0,0,170,0,0,170,0,0,170,0,0,42,0,0,12,0
  73. 79 data0,12,0,0:remsp5
  74. 80 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,170,0,90,170,0,90,170
  75. 81 data2,154,170,10,170,170,42,170,170,171,234,170,255,239,255,3,255,255,0,0,0
  76. 82 data0,0,0,0,0,0,0,0,0,0,0,0,0:remsp6
  77. 83 data0,40,0,0,40,0,0,168,0,0,168,0,2,160,0,2,160,0,10,160,0,170,172,0,170,188
  78. 84 data0,170,172,0,170,160,0,170,128,0,170,140,0,170,188,0,234,140,0,255,0,0
  79. 85 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:remsp.7
  80. 99 rem ****************************
  81. 100 fori=2048to2303:readq:pokei,q:next:fori=2304to2311:pokei,0:next
  82. 101 fori=2312to2887:readq:pokei,q:next
  83. 110 poke53270,peek(53270)or16:poke53282,12:poke53283,1
  84. 120 fori=0to511:readq:pokei+3072,q:next:vi=53248:v=vi:gosub9000
  85. 130 poke2040,48:poke2041,49:pokevi,120:pokevi+2,144:pokevi+1,110:pokevi+3,110
  86. 131 pokevi+28,255:pokevi+37,6:pokevi+38,11:pokevi+39,6:pokevi+40,6
  87. 132 poke2042,50:poke2043,51:pokevi+4,160:pokevi+6,160:pokevi+5,80:pokevi+7,101
  88. 133 pokevi+41,14:pokevi+42,14:poke2044,52:pokevi+8,238:pokevi+9,97:pokevi+43,3
  89. 134 poke2045,53:pokevi+10,150:pokevi+11,110:pokevi+44,6:poke2046,54
  90. 135 poke2047,55:pokevi+45,1:pokevi+46,1:goto146
  91. 136 pokevi+13,110:pokevi+15,110:pokevi+21,192:i=370
  92. 137 i=i-1:f=int(i/256):g=i-(256*f):h=i-23:j=int(h/256)
  93. 138 k=h-(256*j):pokevi+12,k:pokevi+14,g
  94. 139 ifj=1thenpokevi+16,192
  95. 140 ifj=0andf=1thenpokevi+16,128
  96. 141 ifj=0andf=0thenpokevi+16,0
  97. 142 ifi<24thenf=0:g=0:h=0:j=0:k=0:goto144
  98. 143 goto137
  99. 144 rem
  100. 145 fori=23to0step-1:pokevi+14,i:fore=0to20:nexte,i:return
  101. 146 pokevi+21,0:pokevi+12,36:pokevi+14,60:pokevi+13,152:pokevi+15,152
  102. 147 pokevi+16,192
  103. 148 rem
  104. 200 a$="[150]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@":pokevi+37,11:pokevi+38,12
  105. 210 b$="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
  106. 220 c$="bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb":a$=a$+b$+c$+a$+b$+c$
  107. 230 b$="[149]cccc[129]@@[149]cccc[129]@@[149]cccc[129]@@[149]cccc[129]@@[149]cccc[129]@@[149]cccc[129]@@[149]cccc"
  108. 240 c$="dddd[129]aa[149]dddd[129]aa[149]dddd[129]aa[149]dddd[129]aa[149]dddd[129]aa[149]dddd[129]aa[149]dddd":b$=b$+c$
  109. 250 c$="[155]eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
  110. 260 d$="ffffffffffffffffffffffffffffffffffffffff"
  111. 270 e$="gggggggggggggggggggggggggggggggggggggggg":c$=c$+d$+d$+d$+d$+e$
  112. 280 d$="lmn[157][157][157]opq[157][157][157]rsq"
  113. 290 e$="[129]tuv[157][157][157]wxy"
  114. 300 f$="[129]z[[[[[[[[[\[157][157][157][157][157][157][157][157][157][157][157]]sssssssss^[157][157][157][157][157][157][157][157][157][157][157]_!!!!!!!!!#"
  115. 310 g$="[129]z[[[[[\[157][157][157][157][157][157][157]]sssss^[157][157][157][157][157][157][157]_!!!!!#"
  116. 320 h$="[129]z[[\[157][157][157][157]]ss^[157][157][157][157]]ss^"
  117. 330 i$="[145]"+e$+"[145]"+e$+"[145]"+e$+"[145]"+e$+"[145]"+e$+"[145]"+e$+"[145]"+e$
  118. 340 j$="[151]$s[157][157]$s[157][157]$s[157][157]$s[157][157]h [157][157]i ":k$="[151]s$[157][157]s$[157][157]s$[157][157]s$[157][157] j[157][157] k"
  119. 350 l$="[129]$-.$$-.$$-.$$-.$$-.$$0/$$0/$$0/$$0/$$0/$"
  120. 360 m$="%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
  121. 370 n$="$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  122. 371 o$="$$$())))*$$$())))*$$$+)))),$$$+)))),$$$+"
  123. 380 l$=l$+m$+n$+n$+o$
  124. 390 m$="ssssssssssssssssssssssssssssssssssssssss":l$=l$+"[129]"+m$
  125. 400 n$="$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$"
  126. 401 o$="$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$"
  127. 402 p$="[157][157][157]$$$[157]$":o$=o$+p$
  128. 403 w$="                                        "
  129. 404 t1$="[149][215][216][217][157][157][157]  s[157][157][157]  s[157][157][157]   [157][157][157] "
  130. 405 t2$="[149][218][219][220][157][157][157]s  [157][157][157]s  [157][157][157]   [157][157][157]   "
  131. 406 t3$="[153]z[[\[157][157][157][157]]  ^"
  132. 407 t4$="[129][221][255][223][157][157][157][160][161][162]"
  133. 408 t5$="[129][163][165][164][157][157][157][166][167][168]"
  134. 410 rem *** nachrichten : ***
  135. 411 na$(0)="[206]ordwall...keine [194]esonderheiten."
  136. 412 na$(1)="[211]tadtpark.[197]in [208]laetzchen zum [214]erweilen.":na$(2)=na$(1):na$(8)=na$(1)
  137. 413 na$(9)=na$(1):na$(3)=na$(0):na$(4)="[196]er [198]riedhof...wie gruselig."
  138. 414 na$(5)=na$(0):na$(6)="[197]nde des [206]ordwalls.[193]nfang einer [208]assage":c(6)=8
  139. 415 na$(7)="[196]er [215]estwall-die [200]auptstrasse der [211]tadt":na$(14)=na$(7)
  140. 416 na$(21)=na$(7):na$(10)="[196]ie [210]ingstrasse...frei fuer [193]nlieger."
  141. 417 na$(12)=na$(10):na$(13)="[197]ine [198]ussgaengerpassage..."
  142. 418 na$(15)=na$(10):na$(16)="[212]orweg zur [208]arallelstrasse.":c(34)=16
  143. 419 na$(17)=na$(10):na$(18)=na$(10):na$(19)=na$(10):na$(20)=na$(13)
  144. 420 na$(22)="[196]as [197]nde der [211]chillerstrasse."
  145. 421 na$(23)=na$(16):na$(24)="[196]ie [211]chillerstrasse..."
  146. 422 na$(25)=na$(24):na$(26)=na$(24):na$(27)="[193]nfang einer [198]ussgaengerpassage"
  147. 423 na$(28)="westliche [201]ndustriestrasse":na$(29)="[201]ndustriestrasse"
  148. 424 na$(31)=na$(29):na$(32)="oestliche [201]ndustriestrasse."
  149. 425 na$(33)="[196]as [197]nde der [201]ndustriestrasse."
  150. 426 na$(34)="[198]riedhof...[199]rabsteine mit [201]nschriften."
  151. 427 na$(0)="[197]in [204]ebensmittelgeschaeft([204]aden)":na$(35)="[201]m [204]ebensmittelgeschaeft"
  152. 428 c(35)=4:na$(11)="[205]eine [215]ohnung.":na$(36)="[201]m [201]nneren..."
  153. 429 na$(30)="[212]or [194] der [195]hemiewerke ([198]abrik)":c(36)=96
  154. 430 na$(37)="[197]ine leere [204]agerhalle.":b(37)=6:c(38)=2
  155. 431 na$(38)=na$(37):na$(43)=na$(38):na$(44)=na$(38):na$(45)=na$(38):c(43)=128
  156. 432 b(38)=8:b(43)=2:b(44)=11:b(45)=8
  157. 433 na$(37)="[193]usgang : [212]or [193] ([211]afe.)":na$(38)="[193]usgang : [212]or [194]"
  158. 434 na$(42)="[197]in feuchter,dunkler [212]unnel.":b(42)=36
  159. 435 na$(39)="[197]in [194]ogengang...":na$(40)=na$(39):na$(41)=na$(39):na$(46)=na$(39)
  160. 436 na$(47)="[196]as [203]ontrollzentrum.([211]chaltpult,[203]nopf)"
  161. 437 na$(48)=na$(39):na$(53)=na$(39):na$(55)=na$(39)
  162. 438 na$(54)="[197]ine geheimnissvolle [212]uer...":b(39)=6:b(40)=10:b(41)=12:b(46)=5
  163. 439 b(47)=4:b(48)=5:b(53)=3:b(54)=10:b(55)=9:na$(39)=na$(39)+" (blauer [203]nopf)"
  164. 440 tn$="[129]ssssssssss[157][157][157][157][157][157][157][157][157][157][150]ssssssssss[157][157][157][157][157][157][157][157][157][157][155]ssssssssss"
  165. 441 tp$=""
  166. 442 tq$="[149]s[157]s[157]s[157]s[157]s[157]s[157]s[157]s[157]s[157]s[157]s":tn$=tn$+tq$+tp$:tq$=""
  167. 450 printtab(30)"return...":poke198,0:wait198,1:poke198,0
  168. 460 print"[147][205]oechten [211]ie ein [159]a[146]ltes [211]piel fort-"
  169. 461 print"setzen, oder ein [159]n[146]eues beginnen ?":a=0
  170. 462 getx$:ifx$<>"a"andx$<>"n"then462
  171. 463 ifx$="a"thengoto11535
  172. 500 print"[147]":poke631,13:poke198,1
  173. 510 sys49152:poke50000,b(a):poke50001,c(a):gosub1000:print"":goto10000
  174. 1000 rem bild1
  175. 1001 print""a$
  176. 1002 print""i$:print"[152]"d$"[145][145]"e$"[145]"f$"[145][145]"h$"[145][145]"g$;l$
  177. 1003 return
  178. 1004 rem bild2
  179. 1005 print""a$;""i$;""i$:print"[145][145][153][145]"d$"[145][145][154]"d$;l$
  180. 1006 return
  181. 1007 rem bild3
  182. 1008 print""a$"":printtab(10)"[145][145][145]"j$:print""e$""d$
  183. 1009 printtab(15)"[145][145][145]"f$"[145][145]"f$"[145][145]z[157]][157]_"
  184. 1010 printl$:poke828,15
  185. 1011 return
  186. 1012 rem bild4
  187. 1013 print"[151]";m$;m$;m$;w$;""b$;l$:poke828,13
  188. 1015 return:rem bild5:
  189. 1016 print"[154]";c$;l$:print"[153]"h$:poke828,0:return
  190. 1017 rem bild 6
  191. 1018 print""a$;l$;n$
  192. 1019 print"[145]"e$"[145]"e$"[145]"e$"[145]"e$
  193. 1020 print"[155]"d$"[145][145]"e$"[145][153]"d$"[145][145]"e$:return
  194. 1021 rem bild 7
  195. 1022 print""a$;l$;o$;""i$;""i$:return
  196. 1023 rem bild 8
  197. 1024 print"[154]"c$;l$;"[154]@@@@@[157][157][157][157][157]aaaaa[157][157][157][157][157]bbbbb[157][157][157][157][157]@@@@@[157][157][157][157][157]aaaaa";
  198. 1025 print"[157][157][157][157][157]bbbbb";n$:return
  199. 1026 rem bild 9
  200. 1027 print""a$;l$:print""k$
  201. 1028 print"[155]"d$"[145][145]"e$"[145]"g$"[145][145]"h$:return:
  202. 1029 rem bild 10
  203. 1030 print""a$;"[153]";
  204. 1040 print"[149]$$$$$$-.$$$$$$&$$$$$$$$$$'$$$$$$0/$$$$$$";
  205. 1050 print"$$$$-.$$$$$$$&$$$$$$$$$$$$'$$$$$$$0/$$$$";
  206. 1060 print"$$-.$$$$$$$$&$$$$$$$$$$$$$$'$$$$$$$$0/$$";
  207. 1070 print"-.$$$$$$$$$&$$$$$$$$$$$$$$$$'$$$$$$$$$0/";
  208. 1080 print"$$$$$$$$$$&$$$$$$$$$$$$$$$$$$'$$$$$$$$$$":return
  209. 1081 rem bild11 (friedhof)
  210. 1090 gosub1013:print"":printtab(17)"1    1[157][157][157][157][157]    [157][157][157][157]    ":return
  211. 1100 rem bild 12
  212. 1110 print"[151]"m$;m$;m$;w$;w$;w$;w$;w$;w$;w$;w$:ww$="[129]234[157][157][157]5$6[157][157][157]5$9"
  213. 1120 wx$="[129]78[157][157]$9":print""wx$""ww$"[145]"ww$"[145][145]"wx$"[145][145]"ww$"[145]"ww$;
  214. 1130 print"[145][145]"ww$"[145][145][145][145]"wx$""ww$"[145][157][157][157][157][157][157][145][145]"wx$"[145][157][145][145][157]"ww$
  215. 1135 ifpeek(50000)and16thenprintt4$
  216. 1140 poke828,13:return
  217. 1200 rembild12
  218. 1210 print"[149][202][203]ssssssssssssssssssssssssssssssssssss[204][205]";
  219. 1220 print"[214][214][202][203]ssssssssssssssssssssssssssssssss[204][205][214][214]";
  220. 1230 print"[214][214][214][214][202][203]ssssssssssssssssssssssssssss[204][205][214][214][214][214]";
  221. 1240 print"[214][214][214][214][214][214][202][203]ssssssss[206][159] :;<=>[149][207]ssssssss[204][205][214][214][214][214][214][214]";
  222. 1250 print"[214][214][214][214][214][214][214][214][150]@@@@@@@@[214][159] ?[192] [193][194][150][214]@@@@@@@@[214][214][214][214][214][214][214][214]";
  223. 1260 print"[214][214][214][214][214][214][214][214]aaaaaaaa[214][159]  [195][196][197][198][150][214]aaaaaaaa[214][214][214][214][214][214][214][214]";
  224. 1270 print"[214][214][214][214][214][214][214][214]bbbbbbbb[214][159]  [199][200] [201][150][214]bbbbbbbb[214][214][214][214][214][214][214][214]";
  225. 1280 print"[214][214][214][214][214][214][153][208][209]ssssssss[212][159]      [153][213]ssssssss[210][211][214][214][214][214][214][214]";
  226. 1290 print"[214][214][214][214][208][209]ssssssssssssssssssssssssssss[210][211][214][214][214][214]";
  227. 1291 print"[214][214][208][209]ssssssssssssssssssssssssssssssss[210][211][214][214]";
  228. 1292 print"[208][209]ssssssssssssssssssssssssssssssssssss[210][211]";:poke828,6:poke53283,15
  229. 1295 pokevi+21,195:return
  230. 1300 rem bild 13
  231. 1310 print"[129]sssss[149][202][203]ssssssssssssssssssssssssss[204][205][129]sssss";
  232. 1320 print"[129]sssss[149][214][214][202][203]ssssssssssssssssssssss[204][205][214][214][129]sssss";
  233. 1330 print"[129]sssss[149][214][214][214][214][202][203]ssssssssssssssssss[204][205][214][214][214][214][129]sssss";
  234. 1340 print"[129]sssss[149][214][214][214][214][214][214][202][203]ssssssssssssss[204][205][214][214][214][214][214][214][129]sssss";
  235. 1350 print"sssss[214][214][214][214][214][214][214][214]$$$$$$$$$$$$$$[214][214][214][214][214][214][214][214]sssss";
  236. 1360 print"sssss[214][214][214][214][214][214][214][214]$$$$$$$$$$$$$$[214][214][214][214][214][214][214][214]sssss";
  237. 1370 print"sssss[214][214][214][214][214][214][214][214]$$$$$$$$$$$$$$[214][214][214][214][214][214][214][214]sssss";
  238. 1380 print"sssss[214][214][214][214][214][214][153][208][209]ssssssssssssss[210][211][214][214][214][214][214][214][129]sssss";
  239. 1390 print"sssss[153][214][214][214][214][208][209]ssssssssssssssssss[210][211][214][214][214][214][129]sssss";
  240. 1391 print"sssss[153][214][214][208][209]ssssssssssssssssssssss[210][211][214][214][129]sssss";
  241. 1392 print"sssss[153][208][209]ssssssssssssssssssssssssss[210][211][129]sssss";:poke828,5:poke53283,15
  242. 1394 if(peek(50000)and1)ora=54thenprintt3$
  243. 1395 ifpeek(50000)and2thenprintt2$
  244. 1396 ifpeek(50000)and8thenprintt1$
  245. 1397 ifa=35thenprintt1$:pokevi+21,208
  246. 1398 ifa=36thenprintt1$:pokevi+21,211
  247. 1400 ifa=39thenprintt5$
  248. 1401 ifa=45thenpokevi+21,195
  249. 1402 ifa=37thenpokevi+21,204
  250. 1403 ifa=38thenpokevi+21,208
  251. 1404 ifa=46thenpokevi+21,224
  252. 1410 return
  253. 1500 print"";:fori=0to10:print"[129]$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";:next
  254. 1510 poke53282,11:return
  255. 9000 data120,169,31,141,20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169
  256. 9010 data186,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208,48,7,173
  257. 9020 data13,220,88,76,0,196,173,84,195,201,6,240,24:rem_laenge 1.unterprg.52
  258. 9040 data169,6,141,32,208,141,33,208,141,84,195,169,1,141,18,208
  259. 9041 data169,23,141,24,208,76,188,254
  260. 9090 data169,0,141,32,208,141,84,195,169,145,141,18,208
  261. 9091 data169,19,141,24,208,173,60,3,141,33,208,76,188,254
  262. 9210 data120,169,49,141,20,3,169,234,141,21,3,169,240,141,26,208,88,96
  263. 9220 data162,0,189,208,6,157,168,6,232,224,240,208,245,169,21,133,214,169,0
  264. 9230 data133,211,162,0,169,32,157,112,7,232,224,40,208,248,96
  265. 9300 fori=49152to49273:readq:pokei,q:next
  266. 9310 fori=49408to49441:readq:pokei,q:next
  267. 9400 data"[211]chluessel","[211]prengsatz","[204]ebensmittel","[218]eitung","[211]chaufel"
  268. 9410 data"[199]eld","[212]aschenlampe","[194]atterie"
  269. 9420 fori=0to7:ob(i)=2^i:next
  270. 9500 fori=0to7:readob$(i):next
  271. 9600 data"nimm ","verliere ","inv ","[201]nventur ","grabe ","bete ","betritt "
  272. 9610 data"verlasse ","iss ","oeffne ","sprenge ","druecke ","lies ","n ","o "
  273. 9620 data"s ","w ","h ","r ","schliesse ","d 2","d2","[196]2","[196] 2","1968","1970"
  274. 9630 data"warte ","[208]unkte ","[218]eit ","[215]ohnung","[204]aden","[198]abrik","[198]riedhof"
  275. 9640 fori=0to32:readbe$(i):next:return
  276. 10000 x$="":y$="":z$="":sys49408:gosub51000
  277. 10010 sys49408:l=len(x$):i=0:fl=0
  278. 10020 i=i+1:ifmid$(x$,i,1)=" "theny$=left$(x$,i):z$=mid$(x$,i+1,l):goto10032
  279. 10030 ifi<=len(x$)then10020
  280. 10031 y$=x$+" "
  281. 10032 l=len(z$):i=0
  282. 10033 i=i+1:ifmid$(z$,i,1)=" "thenprint"** [206]ur 2 [215]orte benutzen **":y$="":fl=3
  283. 10034 ifi<=len(z$)andfl=0then10033
  284. 10035 ifxx$(0)=chr$(13)thenfl=3
  285. 10040 ify$=be$(13)and(peek(50000)and1)thena=a-7:fl=1
  286. 10041 ify$=be$(14)and(peek(50000)and2)thena=a+1:fl=1
  287. 10042 ify$=be$(15)and(peek(50000)and4)thena=a+7:fl=1
  288. 10043 ify$=be$(16)and(peek(50000)and8)thena=a-1:fl=1
  289. 10044 ify$=be$(18)and(peek(50000)and16)thena=42:fl=1
  290. 10045 ify$=be$(17)and(peek(50000)and32)thena=34:fl=1
  291. 10046 if(x$="n"orx$="s"orx$="w"orx$="o")andfl=0thenprint"[215]eg ist versperrt":fl=3
  292. 10047 if(x$="h"orx$="r")andfl=0thenprint"[215]eg ist versperrt":fl=3
  293. 10048 ifa=49thena=39:sys49408:print"[200]inter mir faellt der [212]unnel ein...":sys49408
  294. 10050 rem
  295. 10060 ify$<>be$(2)andy$<>be$(3)then10100
  296. 10061 print"[198]olgende [196]inge fuehre [201]ch mit mir:":sys49408
  297. 10062 fori=0to7:ifpeek(50002)andob(i)thenprintob$(i):sys49408:gosub10080
  298. 10063 next
  299. 10064 if(peek(50002))=0thenprint"[201]ch bin arm wie eine [203]irchenmaus."
  300. 10065 fl=3
  301. 10071 goto10090
  302. 10080 poke198,0:wait198,1:poke198,0:return
  303. 10090 fl=3
  304. 10100 ify$="toete "ory$="zerstoere "thenfl=9
  305. 10101 ify$=be$(5)thenprint"[214]ielleicht wird dadurch das [215]etter":fl=9
  306. 10102 iffl=9thenfl=3:sys49408:print"besser. [193]ber ich glaubs' kaum.":we=1
  307. 10103 rem
  308. 10104 iffl=9thenprint"[196]enken [211]ie an das [211]trafgesetzbuch.":fl=3
  309. 10110 ify$<>be$(6)then10200
  310. 10111 ifz$=be$(32)anda=4thena=34:fl=1:
  311. 10112 ifz$=be$(32)andfl<>1thenprint"[215]o soll hier ein "be$(32)" sein print":fl=1
  312. 10120 ifz$=be$(30)anda=0thena=35:fl=1
  313. 10121 ifz$=be$(30)andfl<>1thenprint"[196]as ist hier nicht.":fl=3
  314. 10130 ifz$=be$(29)anda=11thena=36:fl=1
  315. 10131 ifz$=be$(29)andfl<>1thenprint"[196]as ist hier nicht.":fl=1
  316. 10140 ifz$=be$(31)and(a=29ora=30)thena=37:fl=1
  317. 10141 ifz$=be$(31)andfl=0thenprint"[200]ier ist kein [197]ingang...":fl=3
  318. 10199 iffl=0thenprint"[196]as kann ich nicht betreten !":fl=3
  319. 10200 rem
  320. 10210 ify$<>be$(7)then10300
  321. 10211 ifz$=be$(32)anda=34thena=4:fl=1:
  322. 10212 ifz$=be$(32)andfl<>1thenprint"[215]o soll hier ein "be$(32)" sein ?":fl=1
  323. 10220 ifz$=be$(30)anda=35thena=0:fl=1
  324. 10221 ifz$=be$(30)andfl=0thenprint"[201]ch bin nicht darin.":fl=3
  325. 10230 ifz$=be$(29)anda=36thena=11:fl=1
  326. 10231 ifz$=be$(29)andfl=0thenprint"[201]ch bin nicht darin.":fl=3
  327. 10240 ifz$=be$(31)and(a=37ora=38)thena=29:fl=1
  328. 10241 ifz$=be$(31)andfl=0thenprint"[215]ie soll ich das verlassen ?":fl=3
  329. 10299 iffl=0thenprint"[196]as kann ich nicht verlassen!":fl=3
  330. 10300 ify$<>be$(12)then10400
  331. 10310 if(z$="[201]nschrift"orz$="[201]nschriften")anda=34thenfl=9
  332. 10320 iffl=9thenprint"[208][207][210][212][193] [197][211][212] [193][204][201][197][206][193] [212][197][210][210][193]...":
  333. 10330 iffl=9thensys49408:print"[193]ndre' [205]oll":sys49408:print"* "be$(24)" +..":fl=3
  334. 10400 i=0:ify$<>be$(0)andy$<>"nehme "then10500
  335. 10401 ifz$=ob$(2)andpeek(50001)and4andge=0thenprint"[203]ein [199]eld...":fl=3:goto10500
  336. 10402 ifz$=ob$(i)then10450
  337. 10410 i=i+1:ifi<8then10401
  338. 10420 fl=4:goto10470
  339. 10450 ifpeek(50001)andob(i)thenc(a)=c(a)-ob(i):poke50002,peek(50002)+ob(i):fl=1
  340. 10460 iffl=0thenprint"[201]ch sehe das hier nirgends.":fl=3
  341. 10470 ifz$="alles"anda<>35thenpoke50002,peek(50002)+c(a):c(a)=0:fl=1
  342. 10480 ifz$="alles"anda=35thenprint"[194]itte genauere [197]ingabe !":fl=3
  343. 10500 ify$<>be$(1)andy$<>"lege "then10600
  344. 10501 i=0
  345. 10502 ifz$=ob$(5)thenge=0
  346. 10510 ifob$(i)=z$then10540
  347. 10520 i=i+1:ifi<8then10510
  348. 10530 fl=4:goto10590
  349. 10540 ifpeek(50002)andob(i)thenpoke50002,peek(50002)-ob(i):c(a)=c(a)+ob(i):fl=1
  350. 10550 iffl=0thenprint"[196]as besitze ich nicht...":fl=3
  351. 10590 ifz$="alles"thenc(a)=c(a)+peek(50002):poke50002,0:fl=1
  352. 10600 ify$=be$(4)anda<>34thenprint"[199]raben [211]ie an einem anderen [207]rt!?":fl=3
  353. 10601 ify$=be$(4)andfl=0andpeek(50002)and16thenprint"[201]ch grabe ein [204]och.":fl=9
  354. 10602 ify$=be$(4)andfl=0thenprint"[203]eine [211]chaufel vorhanden.":fl=3
  355. 10603 iffl<>9then10700
  356. 10604 b(34)=16:fl=3
  357. 10700 ify$=be$(28)thenprint"[206]och "ze" min. bis zum [211]tart.":fl=3
  358. 10701 ify$=be$(27)thenprint"[201]hre [208]unktzahl : "sc:fl=3
  359. 10702 ify$=be$(8)and(peek(50002)and4)thenfl=1:poke50002,peek(50002)-4:hu=1
  360. 10703 ify$=be$(8)andfl=0thenprint"[215]as soll ich essen ?":fl=3
  361. 10704 ify$="stirb "thenpoke50000,0:sys50000
  362. 10705 ify$=be$(8)andfl=1anda=35thenprint"[201]ch verschmutze den [204]aden":fl=9
  363. 10706 iffl=9thensys49408:print"[201]ch erwarte ein [196]isziplinarverfahren..":goto60110
  364. 10710 ify$<>"schalte "then10800
  365. 10720 ifz$<>ob$(6)thenprint"[196]as kann ich nicht anschalten...":fl=3:goto10800
  366. 10730 if(peek(50002)and64)then10740
  367. 10731 print"[201]ch habe keine "ob$(6):fl=3:goto10800
  368. 10740 if(peek(50002)and128)then10750
  369. 10741 print"[201]ch brauche eine "ob$(7):fl=3:goto10800
  370. 10750 fl=1:la=1
  371. 10800 ifa=42andla=0then10810
  372. 10801 goto10890
  373. 10810 sys49408:print"[201]ch betrete einen [212]unnel...":fori=0to1000:next
  374. 10820 sys49408:print"[201]ch kann leider wegen der [196]unkelheit":sys49408
  375. 10830 print"nichts sehen....[201]ch stosse mich und ":sys49408
  376. 10840 print"verblute...[193][199][200][210][207][207][200][202][193][193][200]":goto60110
  377. 10890 ifhu=1orze>150then10900
  378. 10891 sys49408:print"[201]ch habe schon seit [212]agen nichts mehr ":sys49408
  379. 10892 print"gegessen oder getrunken. [201]ch habe":sys49408
  380. 10893 print"keine [204]ust mit leerem [194]auch zu arbeiten":goto60110
  381. 10900 ify$=be$(26)thenze=ze-10:fl=1
  382. 10910 ify$=be$(11)anda<>47anda<>39thenprint"[201]ch sehe hier keinen [203]nopf":fl=3
  383. 10920 ify$=be$(11)anda=47then10930
  384. 10925 ify$=be$(11)anda=39then10960
  385. 10926 goto10990
  386. 10930 sys49408:print"[201]ch selbst habe den [218]uendmechanismus":sys49408
  387. 10940 print"im [211]pace [211]huttle aktiviert([215]oher wissen":sys49408
  388. 10950 print"[211]ie,dass ich ein [196]oppelagent bin ?":goto60110
  389. 10960 sys49408:print"[201]ch hoere in der [198]erne eine [197]xplosion":sys49408:
  390. 10961 print"[197]in dumpfes [199]rollen...[197]s wird immer":sys49408
  391. 10962 print"lauter. [197]s scheint so, als haette ich":sys49408
  392. 10963 print"den [211]taudamm gespraengt.....[199][204][213][195][203][194][204][213][194][194]":goto60110
  393. 10990 ify$="lies "and(peek(50002)and8)andfl=0then11000
  394. 10991 ify$=be$(12)andfl=0thenprint"[215]as soll ich lesen ?":fl=3:goto11010
  395. 10992 goto11010
  396. 11000 print"[201]ch lese die [218]eitung :":sys49408:print"[196]er [198]lug des [211]pace [211]huttles ist"
  397. 11001 sys49408:print"voellig (!) problemlos und erfolgreich":fl=3:poke198,0
  398. 11002 wait198,1:sys49408:printtab(17)"------":sys49408:print"[200]oroskope :"
  399. 11003 sys49408:print"[...] und nehmen [211]ie sich vor [203]noepfen":sys49408:sc=sc+10
  400. 11004 print"in [193]cht ! [...]":poke198,0
  401. 11010 ify$<>be$(19)then11100
  402. 11011 ifa<>54thenprint"[198]unktioniert hier nicht":fl=3:goto11100
  403. 11020 ifpeek(50002)and1then11030
  404. 11025 print"[201]ch habe keinen [211]chluessel...":fl=3:goto11100
  405. 11030 b(54)=11:fl=1:sc=sc+50
  406. 11100 ify$<>be$(10)then11200
  407. 11110 ifpeek(50002)and2then11130
  408. 11120 print"[201]ch habe keinen [211]prengsatz.":fl=3:goto11200
  409. 11130 ifa<>47then11170
  410. 11131 ifpeek(50002)and8thenprint"[196]ie [218]eitung entzuendet sich...":fl=10
  411. 11132 iffl=10thensys49408:print"[201]ch verbrenne.[211]chade,schon tot...":goto60110
  412. 11140 print"[201]ch habe den [195]ountdown stoppen koennen":sys49408:sc=sc+200
  413. 11150 print"[205]eine [205]ission ist erfuellt.":sys49408
  414. 11160 print"[201]hre [208]unkte :";sc:sys49408:print"[159]([212]astendruck)"
  415. 11161 poke198,0:wait198,1:gosub50000:poke50000,0:sys50000
  416. 11170 print"[201]ch sprenge mich selbst...[194][207][213][207][207][213][205][205][205][205]..":goto60110
  417. 11200 ifze<1thensys49408:print"[218]u spaet...":goto60110
  418. 11210 ify$<>be$(9)then11300
  419. 11220 ifa=37then11230
  420. 11225 print"[201]ch kann hier nichts oeffnen.":fl=3:goto11300
  421. 11230 print"[201]ch versuche den [211]afe zu oeffnen.":fl=1:c(37)=1
  422. 11240 sys49408:print"[201]ch benoetige jedoch eine [218]ahlen -":sys49408:x$=""
  423. 11250 print"kombination : ";:gosub51001
  424. 11251 ifx1$=be$(24)thensys49408:sc=sc+60:goto11300
  425. 11252 sys49408:print"[196]ie [203]ombination ist leider falsch.":sys49408
  426. 11260 print"[197]ine [193]larmanlage wird aktiviert.":sys49408
  427. 11270 print"[201]ch werde verhaftet....":goto60110
  428. 11300 ifa=46andhh=1thensys49408:print"[196]er [210]oboter toetet mich.[207][210][199][200]...":goto60110
  429. 11310 ifa=46andhh=0thensys49408:print"[197]in gefaehrlicher [210]oboter..":sys49408:hh=1
  430. 11315 ifa=36thent=t+1
  431. 11320 ifa=36andt=2then11340
  432. 11330 goto11400
  433. 11340 sys49408:print"[196]as [212]elefon klingelt.":sys49408
  434. 11350 print"[205]ein [195]hef ist am [193]pparat.":sys49408
  435. 11351 print"[197]r fragt nach dem [206]amen meiner [205]ission":sys49408
  436. 11352 print"->";:gosub51001:i=19
  437. 11353 i=i+1:ifx1$=be$(i)thensys49408:sc=sc+110:goto11400
  438. 11354 ifi<24then11353
  439. 11355 sys49408:print"[201]ch habe meinen [195]hef belogen !":sys49408
  440. 11356 print"[201]ch werde bestraft. [196]as sind ja mittel-":sys49408
  441. 11357 print"alterliche [211]itten [193][213][213][213][213][213][193]...":goto60110
  442. 11400 ify$="verdammt "ory$="scheisse "ory$="mist "thenfl=9
  443. 11401 iffl=9thenprint"[198]luchen hilft nichts...":fl=3
  444. 11402 ifx$="[200]ilfe"thenprint"[202]eder ist sich selbst der [206]aechste.":fl=3
  445. 11403 ifwe=0andze<100thensys49408:fl=9:print"[205]eine [211]achen werden durch den sehr"
  446. 11404 iffl=9thensys49408:print"starken [215]ind in alle [210]ichtungen geweht"
  447. 11405 iffl<>9then11500
  448. 11410 fori=0to7
  449. 11411 : r=int(32*rnd(1))+1
  450. 11412 : ifpeek(50002)and2^ithenc(r)=c(r)+2^i
  451. 11413 nexti:sys49408:we=1:poke50002,0:la=0
  452. 11500 ifla=1thenen=en-1:ifen=1thenla=0:sys49408:print"[194]atterieen sind leer":fm=9
  453. 11501 iffm=9thensys49408:fm=0:poke50002,peek(50002)-128
  454. 11502 ifsc>255thensc=255
  455. 11503 ifsc<1thensc=0
  456. 11504 ifpeek(50002)and192then11510
  457. 11505 la=0
  458. 11510 ify$<>"save "then11600
  459. 11520 input"[198]ile-[206]amen ";x$
  460. 11521 fori=0to55:poke50003+i,c(i):next:ba=50059:pokeba,ze:pokeba+1,sc
  461. 11522 pokeba+2,la:pokeba+3,b(34):pokeba+4,b(54):pokeba+5,t:pokeba+6,we
  462. 11523 pokeba+7,hu:pokeba+8,hh:pokeba+9,en:pokeba+10,a:pokeba+11,ge
  463. 11524 rem daten im bereich 50002-50070
  464. 11530 sys49408:print"[194]itte [196]isk einschalten (return...).":poke198,0
  465. 11531 wait198,1:poke198,0:fori=0to4:sys49408:next:print""
  466. 11532 gosub11550:open1,8,1,x$:print#1,chr$(82);chr$(195);
  467. 11533 fori=50002to50070:w=peek(i):print#1,chr$(w);:next:sys49408:fl=3:poke198,0
  468. 11534 close1:print"":sys49408:goto11600
  469. 11535 input"[198]ile-[206]amen ";x$:fl=9:gosub11580:loadx$,8,1
  470. 11536 fori=0to55:c(i)=peek(50003+i):next:ba=50059:ze=peek(ba):sc=peek(ba+1)
  471. 11538 la=peek(ba+2):b(34)=peek(ba+3):b(54)=peek(ba+4):t=peek(ba+5):we=peek(ba+6)
  472. 11540 hu=peek(ba+7):hh=peek(ba+8):en=peek(ba+9):a=peek(ba+10):fl=0
  473. 11541 ge=peek(ba+11):goto500
  474. 11550 poke631,71:poke632,79:poke633,84:poke634,79:poke635,49:poke636,49
  475. 11551 poke637,53:poke638,54:poke639,48:poke640,13:poke198,10:return
  476. 11560 close1:fori=0to3:sys49408:next:print"[198]ile konnte nicht ge-saved werden."
  477. 11570 sys49408:goto11520
  478. 11580 poke631,71:poke632,79:poke633,84:poke634,79:poke635,49:poke636,49
  479. 11581 poke637,53:poke638,56:poke639,50:poke640,13:poke198,10:return
  480. 11582 print"[147][198]ile konnte nicht geladen werden.":poke198,0:wait198,1:poke198,0
  481. 11583 goto460
  482. 11600 rem
  483. 19000 poke50000,b(a):rem richtungen
  484. 19010 poke50001,c(a):rem gegenstaende
  485. 19020 poke53282,12:pokevi+21,192
  486. 19030 ifpeek(50002)and32thenge=1
  487. 19997 ze=ze-1:sc=sc-2:iffl=4thenprint"[196]ieses [207]bjekt kenne ich nicht."
  488. 19998 iffl=1thenprint"o.k."
  489. 19999 iffl=0thenprint"[200]ugh?":ze=ze-1
  490. 20000 ifa>12then20003
  491. 20001 ona+1gosub1000,1012,1012,1004,1090,1000,1004,1004,1012,1012,1000,1004,1004
  492. 20002 goto20008
  493. 20003 ifa>24then20006
  494. 20004 ona-13+1gosub1030,1018,1000,1007,1004,1004,1022,1030,1000,1000,1027,1004
  495. 20005 goto20008
  496. 20006 ifa>36then20009
  497. 20007 ona-25+1gosub1000,1004,1022,1024,1016,1016,1000,1004,1022,1100,1300,1300
  498. 20008 goto20030
  499. 20009 ona-37+1gosub1300,1300,1300,1300,1300,1500,1300,1300,1300,1300,1200,1300
  500. 20010 ifa<49then20030
  501. 20020 ona-49+1gosub1500,1500,1500,1500,1300,1300,1300
  502. 20030 rem
  503. 29009 print"[159][210]ichtungen:            [157][157][157][157][157][157][157][157][157][157][157][157]";
  504. 29010 ifpeek(50000)and32thenprint"h ,";
  505. 29011 ifpeek(50000)and16thenprint"r ,";
  506. 29012 ifpeek(50000)and1thenprint"n ,";
  507. 29013 ifpeek(50000)and2thenprint"o ,";
  508. 29014 ifpeek(50000)and4thenprint"s ,";
  509. 29015 ifpeek(50000)and8thenprint"w ,";
  510. 29016 print"";w$;
  511. 29017 printw$;w$
  512. 29018 print"[145][145][145][145][159][194]esonderheiten: ";
  513. 29019 fori=0to1:ifpeek(50001)andob(i)thenprintob$(i)",";
  514. 29020 next:print
  515. 29021 fori=2to4:ifpeek(50001)andob(i)thenprintob$(i)",";
  516. 29022 next:print"";
  517. 29023 fori=5to7:ifpeek(50001)andob(i)thenprintob$(i)",";
  518. 29024 next
  519. 29092 print""w$:print"[145][145][159]"na$(a)""
  520. 29093 printtp$
  521. 30000 goto10000
  522. 50000 print"[147]":sys49256:poke53280,0:poke53281,0:poke53272,21:pokevi+21,0
  523. 50001 sys50452:fori=0to30
  524. 50002 : r=int(999*rnd(1))
  525. 50003 : poke1024+r,46
  526. 50004 next
  527. 50005 gosub136:poke198,0:print"tschuess..."
  528. 50006 fori=0to3000:next:return
  529. 51000 print">";
  530. 51001 poke204,0:i=0:rem input routine:
  531. 51002 getxx$(i):ifxx$(i)=""then51002
  532. 51003 if(asc(xx$(i))>31)and(asc(xx$(i))<128)then51100
  533. 51004 if(asc(xx$(i))>193)and(asc(xx$(i))<219)then51100
  534. 51005 if(asc(xx$(i))=157)or(asc(xx$(i))=20)then52000
  535. 51006 ifasc(xx$(i))=13then53000
  536. 51007 ifasc(xx$(i))=255thenrem
  537. 51008 goto51002
  538. 51100 printxx$(i);:i=i+1:ifi>34theni=34:print"[157] [157]";:
  539. 51101 goto51002
  540. 52000 ifi>-1thenprint" [157][157] [157]";:i=i-1:ifi<0thenprint">";:i=0
  541. 52001 goto51002
  542. 53000 x1$="":poke207,0:poke204,1:foraa=0toi-1:x1$=x1$+xx$(aa):next:print" "
  543. 53002 x$=x1$:return
  544. 60000 print"[194]itte warten [211]ie...":print"[159][196]ie [194]efehlsliste :"
  545. 60001 print"inv ([201]nventur),betritt,verlasse,lies    ";
  546. 60002 print"n,o,s,w,h,r,nimm (nehme),verliere (lege)";
  547. 60003 print"grabe,[218]eit,[208]unkte,iss,stirb,schalte,bete";
  548. 60004 print"warte,druecke,schliesse,sprenge,oeffne  ";
  549. 60005 print"save...und einige mehr..."
  550. 60006 print"[205]usik: [206]un ruhen alle [215]aelder ([202].[211].[194]ach)"
  551. 60007 print"[212]hanks to [208]eanuts [211]oft....              ";
  552. 60008 print"[199]ruesse an alle [211]childkroeten & [211]tuemper";
  553. 60100 print"[214]iel [199]lueck....";:return
  554. 60110 gosub1100:pokevi+21,0:printtn$:sys49408:print"[206]och ein [214]ersuch (j/n) ";
  555. 60115 poke204,0:poke207,0:getx$:ifx$=""then60115
  556. 60120 ifx$<>"j"andx$<>"n"then60110
  557. 60130 ifx$="j"thenpoke204,1:poke207,0:sys49256:run
  558. 60140 sys49408:print"[212]hanks for playing.":fori=0to2000:next:poke50000,0:sys50000
  559. 60150 rem spion iii
  560. 60151 rem von steffen goebbels
  561. 60152 rem alte heerstr.25
  562. 60153 rem 4179 weeze 1
  563. 60154 rem (c) 1985 s.j.g.-soft
  564.