home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 60 / 64er_Magazin_Sonderheft_60_19xx_Markt__Technik_de_Side_B.d64 / titelbild (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-01-01  |  4.4 KB  |  153 lines
  1. 1 poke53269,0:fori=8192to8230:pokei,0:next
  2. 2 poke8206,100:goto20
  3. 10 fori=12800to12800+655
  4. 11 reada
  5. 12 pokei,a
  6. 13 next
  7. 15 goto200
  8. 20 printchr$(147)
  9. 21 print"      das boese staendig lacht,"
  10. 22 print"      doch das gute hat die macht."
  11. 23 print"      um mitternacht, so solls sein,"
  12. 24 print"      die ewigkeit ist heute dein!"
  13. 25 fori=1to2000:next
  14. 26 goto10
  15. 101 data 0,0,0,0,0,0,15,255
  16. 102 data 0,0,0,0,0,31,255,255
  17. 103 data 0,0,0,0,31,255,255,255
  18. 104 data 0,0,0,63,255,255,255,255
  19. 105 data 3,3,255,255,255,255,255,255
  20. 106 data 112,152,224,248,251,254,254,255
  21. 107 data 31,11,12,7,7,7,7,3
  22. 108 data 255,255,127,159,231,249,254,255
  23. 109 data 224,224,224,240,240,240,240,112
  24. 110 data 7,7,3,1,0,0,0,0
  25. 111 data 127,127,127,191,255,63,63,31
  26. 112 data 128,128,192,192,192,192,224,224
  27. 113 data 255,127,127,63,31,15,15,7
  28. 114 data 247,239,239,223,223,191,191,127
  29. 115 data 224,240,248,248,252,254,255,255
  30. 116 data 7,7,7,3,3,3,1,1
  31. 117 data 255,255,254,253,253,251,251,247
  32. 118 data 128,128,0,0,128,192,192,224
  33. 119 data 1,1,7,7,7,15,15,15
  34. 120 data 254,252,252,248,240,224,192,192
  35. 121 data 0,0,0,0,0,1,3,3
  36. 122 data 15,31,63,127,255,255,255,255
  37. 123 data 255,255,255,255,255,255,254,254
  38. 124 data 252,248,240,192,128,0,0,0
  39. 125 data 0,0,0,0,1,3,3,7
  40. 126 data 31,63,127,255,255,255,255,255
  41. 127 data 0,0,0,0,0,0,1,3
  42. 128 data 255,254,248,240,224,128,0,0
  43. 129 data 0,0,0,1,3,7,7,15
  44. 130 data 63,127,255,255,255,255,255,255
  45. 131 data 255,255,255,255,255,252,224,128
  46. 132 data 252,248,224,128,0,0,0,0
  47. 133 data 0,0,0,0,1,3,15,31
  48. 134 data 15,63,127,255,255,255,255,255
  49. 135 data 0,0,0,0,1,3,7,15
  50. 136 data 31,63,127,255,255,255,255,255
  51. 137 data 239,247,247,251,251,253,254,254
  52. 138 data 0,0,0,0,0,1,7,15
  53. 139 data 0,0,3,31,255,255,255,255
  54. 140 data 96,184,190,223,223,223,239,239
  55. 141 data 0,0,0,0,128,192,224,240
  56. 142 data 248,252,254,255,255,255,255,255
  57. 143 data 0,0,0,0,128,192,224,240
  58. 144 data 127,127,191,191,255,63,15,3
  59. 145 data 15,7,1,0,0,0,0,0
  60. 146 data 0,0,0,128,224,248,254,255
  61. 147 data 255,127,31,15,7,1,0,0
  62. 148 data 255,255,255,255,255,255,127,63
  63. 149 data 128,224,240,240,248,248,254,255
  64. 150 data 15,7,3,1,0,0,0,0
  65. 151 data 255,255,255,255,255,127,63,15
  66. 152 data 128,224,248,254,255,255,255,255
  67. 153 data 0,0,0,0,0,128,224,240
  68. 154 data 7,3,1,0,0,0,0,0
  69. 155 data 255,255,255,255,127,31,7,1
  70. 156 data 248,252,254,255,255,255,255,255
  71. 157 data 0,0,0,0,128,192,224,240
  72. 158 data 255,127,31,15,7,3,3,1
  73. 159 data 248,252,254,255,255,255,255,255
  74. 160 data 0,0,0,0,128,224,240,248
  75. 161 data 255,127,63,31,15,23,27,59
  76. 162 data 253,254,255,255,255,255,255,255
  77. 163 data 0,0,0,128,192,192,192,192
  78. 164 data 61,61,126,126,126,255,255,255
  79. 165 data 0,0,0,0,0,0,0,0
  80. 166 data 192,128,128,128,0,0,0,0
  81. 167 data 1,1,3,3,7,7,15,15
  82. 168 data 176,176,160,224,192,192,128,128
  83. 169 data 15,15,15,31,31,31,31,63
  84. 170 data 255,254,253,248,232,216,184,124
  85. 171 data 62,61,59,59,55,111,95,127
  86. 172 data 253,253,254,255,255,255,255,255
  87. 173 data 0,0,0,192,253,255,255,255
  88. 174 data 0,0,0,0,0,128,248,255
  89. 175 data 255,255,255,255,255,126,120,176
  90. 176 data 0,0,0,0,3,15,63,255
  91. 177 data 0,0,0,0,255,255,255,255
  92. 178 data 0,0,0,0,192,240,252,255
  93. 179 data 255,63,15,3,0,0,0,0
  94. 180 data 255,255,255,255,0,0,0,0
  95. 181 data 255,252,240,192,0,0,0,0
  96. 182 data 255,255,255,0,0,0,0,0
  97. 200 printchr$(147)
  98. 201 print"                [165][166][167][168]           "
  99. 202 print"               [162][163]@[164][169][170]          "
  100. 203 print"              [160][161]@@[214][171][169][173]         "
  101. 204 print"             [220][221]@@[255][223] [174][175][176]        "
  102. 205 print"            [216][217]@@[219]    [177][178][179][180]      "
  103. 206 print"           [212][213]@[214][215]      [181][182][183][184]     "
  104. 207 print"           [210]@@[211] klm[146] klm[146] [185][186][187]    "
  105. 208 print"           [207]@[208][209] nop[146] nop[146]  [188][189][190]   "
  106. 209 print"            [204][205][206]          [191]ja[146] "
  107. 210 print"            [201][202]@[203]        b[146]@c[146]"
  108. 211 print"             [198][199][200]        de[146]   "
  109. 212 print"         [192][193][194][195][196]@[197]        fghi[146] "
  110. 215 print"[152]  qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq[146]"
  111. 216 print"  das geheimnis der  druiden"
  112. 217 print"  von  wolfgang ring"
  113. 218 print"[159]  information"
  114. 219 print"  auf gehts":goto225
  115. 220 geta$
  116. 221 ifa$=chr$(17)thengoto230
  117. 222 ifa$=chr$(145)thengoto240
  118. 223 ifa$=chr$(133)thengoto250
  119. 224 goto220
  120. 225 poke2040,48:poke53287,2
  121. 226 poke53248,20:poke53249,213
  122. 227 poke53269,1
  123. 228 goto220
  124. 230 d=peek(53249)
  125. 231 ifd=213thenpoke53249,221
  126. 232 goto220
  127. 240 d=peek(53249)
  128. 241 ifd=221thenpoke53249,213
  129. 242 goto220
  130. 250 d=peek(53249)
  131. 251 ifd=213thengoto1000
  132. 252 ifd=221thengoto1100
  133. 253 goto220
  134. 1000 poke53269,0:printchr$(147)
  135. 1001 print" mit der cursor taste  auf ab  kann"
  136. 1002 print" der pfeil auf und ab bewegt werden."
  137. 1003 print" durch die  taste f1  kann man den"
  138. 1004 print" befehl ausfuehren."
  139. 1005 print" der status zeigt den aktuellen"
  140. 1006 print" spielstand an."
  141. 1007 print" die gestellte aufgabe besteht darin"
  142. 1008 print" einen trank zubrauen, der die ewige     jugend wiedergibt."
  143. 1009 print" zu diesem zweck muessen drei zutaten"
  144. 1010 print" gefunden und in den kessel geworfen     werden."
  145. 1011 print"                 space"
  146. 1015 geta$
  147. 1016 ifa$=chr$(32)thengoto200
  148. 1017 goto1015
  149. 1100 poke53269,0:printchr$(147)"[144]"
  150. 1101 print"load"chr$(34)"teil1"chr$(34)",8"
  151. 1102 print"run[145][145][145][145][145][145][145][145]"
  152. 1103 poke631,13:poke632,13:poke198,2:new
  153.