home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-11_1985_Verlag_Heinz_Weise_de.d64 / super-memory (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  11KB  |  315 lines
  1. 5 print"[147]"chr$(142)chr$(8)
  2. 10 a=0:fori=0to9:a=a+peek(50240+i):next
  3. 20 ifa=1194andpeek(50240)=169thenpoke50257,16
  4. 30 fori=0to24:poke54272+i,0:next
  5. 100 s=54272:pokes+24,15:pokes+5,17:pokes+6,232:pokes+4,8
  6. 105 dim f(16),g(16):zu=0:pu%=10:hy%=10
  7. 106 poke53280,0:poke53281,6:v=53265
  8. 110 pokev,11:gosub8000:pokev,11:poke53281,0
  9. 111 print"[147][159]"chr$(14);:pu%=10:tx=0
  10. 115 printtab(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  11. 120 printtab(10)"[211][213][208][197][210] - [205][197][205][207][210][217] [201][201]"chr$(13)tab(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  12. 130 print:print" [194]ei diesem [211]piel muessen [211]ie alle [218]ah-"
  13. 140 print:print" len  im  [197]ingabefeld auf den [215]ert neun"
  14. 150 print:print" bekommen. [202]e  schneller [211]ie das schaf-"
  15. 160 print:print" fen, desto  mehr  [208]unkte erhalten [211]ie."
  16. 170 print:print" [201]m  linken [198]eld ist die [212]astatur-[194]ele-"
  17. 180 print:print" gung zu sehen. [215]enn [211]ie nun eine [212]aste"
  18. 190 print:print" druecken, die  in  diesem  [198]eld liegt,"
  19. 200 print:print" erhoehen sich die [215]erte der [200]orizonta-"
  20. 201 print:print" len und [214]ertikalen um eins."
  21. 205 pokev,27:gosub7000:pokev,11
  22. 206 print"[147][159]"tab(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  23. 207 printtab(10)"[211][213][208][197][210] - [205][197][205][207][210][217] [201][201]"chr$(13)tab(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  24. 215 print" [193]m  [193]nfang  des  [211]pieles  haben [211]ie 10"
  25. 220 print" [208]unkte, die  alle  fuenf  [211]ekunden  um"
  26. 225 print" eins  verringert  werden. [214]orher  aber"
  27. 230 print" muessen  [211]ie die [193]nzahl der [218]uege ein-"
  28. 235 print" geben. [196]ie [218]ahlen werden dann der [218]ug-"
  29. 240 print" anzahl   entsprechend  oft  geaendert."
  30. 245 print" [202]etzt  heisst es, innerhalb der gesetz-";
  31. 250 print" ten [218]uganzahl das [211]piel zu gewinnen."
  32. 256 pokev,27:gosub7000:pokev,11
  33. 257 print"[147]":print:print"";chr$(14)
  34. 260 print:print"[211]pielen [211]ie:"
  35. 262 print:print:print"    [205]it [218]eit.............1 "
  36. 264 print:print:print"    [207]hne [218]eit............0"
  37. 266 print"   [194]itte waehlen:"
  38. 268 pokev,27
  39. 270 getx$:ifx$=""then270
  40. 272 ifx$="0"thenfl=1:goto299
  41. 274 ifx$="1"thenfl=0:goto299
  42. 276 goto270
  43. 299 pokev,11
  44. 300 gosub1000:x$=""
  45. 305 print"":fori=1to16:printchr$(17);:next
  46. 310 print"wieviel zuege:[146]":print"              [145][145]";
  47. 315 pokev,27:poke198,0
  48. 316 cu=0:x$="":a1$=" "
  49. 320 geta$:iflen(x$)=3thena$=chr$(20)
  50. 330 ifa$=chr$(20)andlen(x$)>0thenx$=left$(x$,len(x$)-1):print"[157] [157]";:gosub7100
  51. 340 ifa$=chr$(13)andval(x$)>1thengosub380:goto385
  52. 342 ifa$=chr$(13)andval(x$)=1thenprint"[157]  [157][157]";:x$=""
  53. 344 forw=1to250:next
  54. 345 ifcu=0andlen(x$)=2thenprint"[157]"right$(x$,1);:cu=1:goto360
  55. 346 ifcu=0thenprint" [157]";:cu=1:goto360
  56. 347 ifcu=1andlen(x$)=2thenprint"[157]";right$(x$,1);"[146]";:cu=0
  57. 348 ifcu=1thenprint" [146][157]";:cu=0
  58. 360 ifa$=""ora$=chr$(20)then320
  59. 365 ifa$<"0"ora$>"9"thengosub7070:goto320
  60. 370 gosub7100:x$=x$+a$:printa$;:goto320
  61. 380 pokes,73:pokes+1,193:pokes+4,33
  62. 381 fori=1to200:next:pokes+4,65:return
  63. 385 print:print"bitte warten !!!"
  64. 390 pokev,11:goto2000
  65. 1000 ::
  66. 1002 print"[147][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"chr$(142);
  67. 1003 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  68. 1004 print"[166][166] [176][192][178][192][178][192][178][192][174] [166][166] [176][192][178][192][178][192][178][192][174]";
  69. 1005 print" [166][166]          [166][166][166][166] [221]5[221]6[221]7[221]";
  70. 1006 print"8[221] [166][166] [221] [221] [221] [221] [221] [166][166] [f1]  ";
  71. 1007 print"   [166][166][166][166] [171][192][219][192][219][192][219][192][179] [166][166] [171][192][219][192]";
  72. 1008 print"[219][192][219][192][179] [166][166]          [166][166][166][166] [221]t";
  73. 1009 print"[221]y[221]u[221]i[221] [166][166] [221] [221] [221] [221] [221] [166][166]  ";
  74. 1010 print"auf-    [166][166][166][166] [171][192][219][192][209][192][219][192][179] [166][166]";
  75. 1011 print" [171][192][219][192][209][192][219][192][179] [166][166]  geben   [166][166]";
  76. 1012 print"[166][166] [221]g[221]h[221]j[221]k[221] [166][166] [221] [221] [221] [221] [221]";
  77. 1013 print" [166][166]          [166][166][166][166][160][171][192][219][192][219][192][219]";
  78. 1014 print"[192][179] [166][166] [171][192][219][192][219][192][219][192][179] [166][166]       ";
  79. 1015 print"   [166][166][166][166] [221]v[221]b[221]n[221]m[221] [166][166] [221] [221] ";
  80. 1016 print"[221] [221] [221] [166][166] [f7]     [166][166][166][166] [173][192]";
  81. 1017 print"[177][192][177][192][177][192][189] [166][166] [173][192][177][192][177][192][177][192][189] [166][166]  ";
  82. 1018 print"        [166][166][166][166] tastatur  [166][166]";
  83. 1019 print" spielfeld [166][166]  zuege   [166][166]";
  84. 1020 print"[166][166] belegung  [166][166]          ";
  85. 1021 print" [166][166]  zurueck [166][166][166][166]        ";
  86. 1022 print"   [166][166]           [166][166]       ";
  87. 1023 print"   [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  88. 1024 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  89. 1025 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  90. 1026 print"[166][166][166][166][166][166][166][166][166][166][166][166][207][183][183][183][183][183][183][183][183][183][183][183][183]";
  91. 1027 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][166][166]";
  92. 1028 print"[166][166][180][205]       space=pause   ";
  93. 1029 print"           [206][170][166][166][166][166][180] [207][183][183][183][183][183]";
  94. 1030 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  95. 1031 print"[208] [170][166][166][166][166][180] [180] zuege :       ";
  96. 1032 print"  gesamt.      [170] [170][166][166][166][166][180] [180]";
  97. 1033 print"                         ";
  98. 1034 print"     [170] [170][166][166][166][166][180] [180] zeit  :  ";
  99. 1035 print"       punkte:      [170] [170][166][166]";
  100. 1036 print"[166][166][180] [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  101. 1037 print"[175][175][175][175][175][175][175][175][175][175][186] [170][166][166][166][166][180][206]      ";
  102. 1038 print"                        [160]";
  103. 1039 print" [205][170][166][166][166][166][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  104. 1040 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][166][166][166][166][166][166][166]";
  105. 1041 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  106. 1042 print"[166][166][166][166][166][166][166][166][166]";
  107. 1043 print"[157]"chr$(148)"[166]"
  108. 1044 return
  109. 2000 x=val(x$):j=-1:zu=0
  110. 2010 fori=1to16:f(i)=9:next
  111. 2020 forb=1tox
  112. 2030 f%=rnd(1)*16+1
  113. 2040 iff%>8thenf%=f%-8:goto2070
  114. 2050 onf%gosub3010,3020,3030,3040,3050,3060,3070,3080
  115. 2060 goto2080
  116. 2070 onf%gosub3090,3100,3110,3120,3130,3140,3150,3160
  117. 2080 fora=1to16:iff(a)=0thenf(a)=9
  118. 2090 next:next:fori=1to16:g(i)=f(i):next:gosub1000
  119. 2091 print"",,,"[157]"x
  120. 2092 l=0:fori=1to16:iff(i)=9thenl=l+1
  121. 2093 next:ifl=16then6000
  122. 2095 ty=int((x/3)^2*30)
  123. 3000 gosub4000:goto5000
  124. 3010 fori=1to4:f(i)=f(i)+j:next
  125. 3011 f(5)=f(5)+j:f(9)=f(9)+j:f(13)=f(13)+j:return
  126. 3020 fori=1to4:f(i)=f(i)+j:next
  127. 3021 f(6)=f(6)+j:f(10)=f(10)+j:f(14)=f(14)+j:return
  128. 3030 fori=1to4:f(i)=f(i)+j:next
  129. 3031 f(7)=f(7)+j:f(11)=f(11)+j:f(15)=f(15)+j:return
  130. 3040 fori=1to4:f(i)=f(i)+j:next
  131. 3041 f(8)=f(8)+j:f(12)=f(12)+j:f(16)=f(16)+j:return
  132. 3050 fori=5to8:f(i)=f(i)+j:next
  133. 3051 f(1)=f(1)+j:f(9)=f(9)+j:f(13)=f(13)+j:return
  134. 3060 fori=5to8:f(i)=f(i)+j:next
  135. 3061 f(2)=f(2)+j:f(10)=f(10)+j:f(14)=f(14)+j:return
  136. 3070 fori=5to8:f(i)=f(i)+j:next
  137. 3071 f(3)=f(3)+j:f(11)=f(11)+j:f(15)=f(15)+j:return
  138. 3080 fori=5to8:f(i)=f(i)+j:next
  139. 3081 f(4)=f(4)+j:f(12)=f(12)+j:f(16)=f(16)+j:return
  140. 3090 fori=9to12:f(i)=f(i)+j:next
  141. 3091 f(1)=f(1)+j:f(5)=f(5)+j:f(13)=f(13)+j:return
  142. 3100 fori=9to12:f(i)=f(i)+j:next
  143. 3101 f(2)=f(2)+j:f(6)=f(6)+j:f(14)=f(14)+j:return
  144. 3110 fori=9to12:f(i)=f(i)+j:next
  145. 3111 f(3)=f(3)+j:f(7)=f(7)+j:f(15)=f(15)+j:return
  146. 3120 fori=9to12:f(i)=f(i)+j:next
  147. 3121 f(4)=f(4)+j:f(8)=f(8)+j:f(16)=f(16)+j:return
  148. 3130 fori=13to16:f(i)=f(i)+j:next
  149. 3131 f(1)=f(1)+j:f(5)=f(5)+j:f(9)=f(9)+j:return
  150. 3140 fori=13to16:f(i)=f(i)+j:next
  151. 3141 f(2)=f(2)+j:f(6)=f(6)+j:f(10)=f(10)+j:return
  152. 3150 fori=13to16:f(i)=f(i)+j:next
  153. 3151 f(3)=f(3)+j:f(7)=f(7)+j:f(11)=f(11)+j:return
  154. 3160 fori=13to16:f(i)=f(i)+j:next
  155. 3161 f(4)=f(4)+j:f(8)=f(8)+j:f(12)=f(12)+j:return
  156. 4000 fori=97to103step2:poke1024+i,f(12+(i-95)/2)+48:next
  157. 4005 fori=177to183step2:poke1024+i,f(8+(i-175)/2)+48:next
  158. 4010 fori=257to263step2:poke1024+i,f(4+(i-255)/2)+48:next
  159. 4015 fori=337to343step2:poke1024+i,f(0+(i-335)/2)+48:next
  160. 4020 return
  161. 5000 pokev,27:poke198,0:su=1
  162. 5001 geta$:su=1:iffl=1thensu=0:goto5006
  163. 5002 iftx>50thensu=2
  164. 5005 iftx>100thensu=5
  165. 5006 iftm>=5thenpu%=pu%-su:tm=0
  166. 5007 ifpu%<=0thenpu%=0:goto6300
  167. 5008 print""tab(14)zu
  168. 5009 printtab(14)tx"[157] ",,"[157]"pu%"[157] "
  169. 5010 iffl=0thenifti$>t$thentx=tx+1:t$=ti$:tm=tm+1
  170. 5011 ifpu%<0then6200
  171. 5012 ifa$=" "thengosub380:goto7400
  172. 5014 ifa$=""then5001
  173. 5016 ifa$="[133]"thenpu%=0:gosub380:goto6300
  174. 5018 ifa$="_"andj<>-1thenj=-1:zu=zu-1:goto5110
  175. 5020 ifa$="[136]"thenfori=1to16:f(i)=g(i):next:zu=0:gosub380:gosub4000:goto5000
  176. 5030 b$="vbnmghjktyui5678"
  177. 5040 forf=1to16:ifa$=mid$(b$,f,1)then5100
  178. 5050 next
  179. 5060 gosub7070:goto5001
  180. 5100 zu=zu+1:tm=0:j=1
  181. 5110 pokes,138:pokes+1,58:pokes+4,17
  182. 5112 iffl=1thenpu%=pu%-1
  183. 5115 iff>8thengoto5140
  184. 5120 onfgosub3010,3020,3030,3040,3050,3060,3070,3080
  185. 5130 goto5150
  186. 5140 onf-8gosub3090,3100,3110,3120,3130,3140,3150,3160
  187. 5150 fora=1to16:iff(a)>9thenf(a)=0
  188. 5155 iff(a)<0thenf(a)=9
  189. 5160 next:pokes+4,32
  190. 5170 l=0:fori=1to16:iff(i)=9thenl=l+1
  191. 5180 next:pokev,27:ifl=16thengosub4000:goto6000
  192. 5190 gosub4000:goto5000
  193. 6000 print"[145][145][145][145]"tab(14)zu
  194. 6001 print,"[145][145][145][145]                "
  195. 6002 print,"[145][145] weiter mit space"
  196. 6003 getx$:ifx$<>" "then6003
  197. 6009 print"[147]"chr$(14)
  198. 6012 iffl=1then6020
  199. 6015 pu%=pu%+zu*100/tx*((tx>ty)+1.5)*((zu>x)+1.75)/((zu<=x)+1.5)
  200. 6020 print"  [199]ratuliere, [211]ie haben es geschafft !!!"
  201. 6030 print"  [214]ersuchen [211]ie es doch noch einmal."
  202. 6040 iffl=1thenprint:print:print"  [211]ie haben";pu%;"[208]unkte erreicht!"
  203. 6045 iffl=1thenprint:print:print:print:print"  [215]eiter mit [212]aste ":wait198,1:goto257
  204. 6050 print:print:print"  [202]etzt mit"x+1"[214]ersuchen."
  205. 6051 ifzu<xthengosub7200
  206. 6052 ifzu=xthengosub7300
  207. 6053 pokes,138:fori=0to100step3
  208. 6054 pokes+1,i:pokes+4,17:fora=1to30:next:pokes+4,16:next
  209. 6055 print:print"  [211]ie haben bis jetzt"pu%"[208]unkte"
  210. 6060 x=x+1:j=-1
  211. 6070 zu=0:tx=0
  212. 6080 gosub7000:pokev,11:goto2010
  213. 6200 ifx=1then6300:rem                  ---- punkte kleiner null ---------------
  214. 6210 print"[147]"chr$(14)
  215. 6220 print"  [204]eider haben [211]ie das [211]piel verloren."
  216. 6230 print:print"  ihre [204]eistung nicht zufrieden-"
  217. 6240 print:print"  stellend ist. [211]ie muessen schneller"
  218. 6250 print:print"  ueberlegen. [203]onzentrieren [211]ie sich"
  219. 6260 print:print"  etwas mehr auf das [211]piel und lassen"
  220. 6270 print:print"  [211]ie sich nicht ablenken."
  221. 6280 pu%=5:j=-1:poke198,0:gosub7000:goto2010
  222. 6300 print"[147][154]"chr$(14)
  223. 6310 print"  [199][193][205][197][160][207][214][197][210]"
  224. 6320 print:print"  [211]ie haben"pu%"[208]unkte."
  225. 6340 ifpu%<hy%thenprint"  [203]ein neuer [210]ekord."
  226. 6350 ifpu%>=hy%thenhy%=pu%:print"  [197]in neuer [210]ekord."
  227. 6360 ifpu%=hy%thenprint:print"  [196]as will was heissen !!!"
  228. 6370 gosub7000:goto106
  229. 7000 print"[156]";
  230. 7010 poke198,0:fori=1to75:geta$
  231. 7020 ifi<50thenprint"                '[215]'[197][201][212][197][210]           [145]"
  232. 7030 ifi>50thenprint"                                   [145]"
  233. 7040 ifa$=""thennext:goto7000
  234. 7050 ifa$="w"then7100
  235. 7060 gosub7070:goto7000
  236. 7070 pokes,1 :pokes+1, 22:pokes+4,33
  237. 7080 fori=1to200:next:pokes+4,32
  238. 7090 return
  239. 7100 pokes,138:pokes+1,58:pokes+4,17
  240. 7110 fori=1to100:next:pokes+4,32
  241. 7120 poke198,0:return
  242. 7200 print:print:print"  [211][213][208][197][210] !!!!"chr$(13)"  [192][192][192][192][192][192][192][192][192][192][192]"
  243. 7210 print:print"  [196]as sieht man selten, dass jemand das"
  244. 7220 print:print"  [211]piel mit weniger [218]uegen als angege-"
  245. 7230 print:print"  ben gewinnt.  [194]onus:   ";:i=50*x:pu%=pu%+i
  246. 7250 pokes,138:pokes+1,58:pokes+4,33
  247. 7260 fora=1to100:next:pokes+4,64
  248. 7270 print"[157][157][157] "i"[157] [145]":return
  249. 7300 print:print:print"  [211][208][201][212][218][197] !!!"chr$(13)"  [192][192][192][192][192][192][192][192][192][192]"
  250. 7310 print:print"  [200]erzlichen [199]lueckwunsch ! [211]ie haben"
  251. 7320 print:print"  die angegebene [211]chrittzahl nicht"
  252. 7330 print:print"  ueberschritten  [194]onus:   ";
  253. 7340 i=10*x:pu%=pu%+i
  254. 7360 goto7250
  255. 7400 poke198,0:gosub7500
  256. 7405 print"";
  257. 7410 fori=1to50
  258. 7420 ifi>30thenprint,"                [145]"
  259. 7430 ifi<30thenprint," spiel in pause [145]"
  260. 7440 geta$:ifa$=" "then7470
  261. 7450 next
  262. 7465 goto7410
  263. 7470 print,"                   "
  264. 7472 print,"[145][145] space=pause"
  265. 7480 gosub7110:gosub4000:goto5000
  266. 7500 fori=97to103step2:poke1024+i,160:gosub7520:next
  267. 7505 fori=177to183step2:poke1024+i,160:gosub7520:next
  268. 7510 fori=257to263step2:poke1024+i,160:gosub7520:next
  269. 7515 fori=337to343step2:poke1024+i,160:gosub7520:next:return
  270. 7520 pokes,133:pokes+1,6:pokes+4,33
  271. 7530 fora=1to50:next:pokes+4,65
  272. 7540 return
  273. 7550 pokev,11:poke198,0:wait198,1:poke198,0:gosub7070:gosub4000:goto5000
  274. 8000 printchr$(142)"[147]*******                                ";
  275. 8001 print"[146]****[149] [144]     [154][146] [144] [154][146]   [144] [154][146] [144]     [154][146] [144]  ";
  276. 8005 print"   [154][146] [144]     [154][146] [159]     *****[144] [146]**[154]  ";
  277. 8010 print" [144] [154][146]   [144] [154][146] [144] [154][146]   [144] [154][146] [144] [154][146]   [209][209][144] [146][209][154]  [144] [154][146] ";
  278. 8015 print"[159] [209][209][159]  ***[154]  [144][160][160][160][160][160][154][146] [144][160][154][146]   [144][160][154][146] [144][160][160][160]";
  279. 8020 print"[160][160][154][146] [144][160][160][160][160][146] [209][144][160][160][160][160][146][209][209][209][209][209][209][159] **[154] *[154] ";
  280. 8025 print"    [144][160][154][146] [144][160][154][146]   [144][160][160][160][154][146]     [144][160][146] [209][209][209][209][144][160]";
  281. 8030 print"[146][209][209][209][144][160][146][209][209][209][209][209][159]  *[154]  *[144][160][160][160][160][160][154][146] [144][160][160][160][160]";
  282. 8035 print"[160][154][146] [144][160][154][146]     [144][160][160][160][160][160][146][209][144][160][146][209][209][209][144][160][146][209][209][209][209][209][159] ";
  283. 8040 print"[154] *[154] [149] [154][146] *[154]                [154][206] [154][206]";
  284. 8045 print"[209][209][209][209][209][209][209][209][209][209][209][209][209][154]  [159] *[144][160][154][146] [159] [154] [144][160][154][146] [144][160][160]";
  285. 8050 print"[160][160][160][154][146] [144][160][154][146]   [144][160][154][146] [144][160][160][160][160][160][154][146][206][144][160][160][160][160][160][154][146] [144][160][146][209][209]";
  286. 8055 print"[209][144][160][146][221][159]   *[144][160][160][154][146] [144][160][160][154][146] [144][160][154][146]     [144][160][160][154][146] [144][160][160][154][146][206]";
  287. 8060 print"[144][160][154][146] [206] [144][160][154][146] [144][160][154][146] [206] [144][160][154][146][206] [144][160][154][146] [144][160][154][146]   [159]   [144][160][159][146] [144][160]";
  288. 8065 print"[154][146] [144][160][154][146] [144][160][160][160][160][154][146]  [144][160][154][146] [144][160][154][146] [144][160][154][146] [144][160][154][146]   [144][160][154][146][206][144][160][160][160][160]";
  289. 8070 print"[154][146]   [206][144][160][154][146] [206]   [159]  [144][160][159][146] [154]  [144][160][154][146] [144][160][154][146]     [144][160]";
  290. 8075 print"[154][146]   [144][160][154][146][206][144][160][154][146] [206] [144][160][154][146] [144][160][154][146]  [154][206][144][160][154][146][206]  [144][160][154][146]    [159] ";
  291. 8080 print"  [144][160][159][146] [154]  [144][160][154][146] [144][160][160][160][160][160][154][146] [144][160][154][146]   [144][160][154][146] [144][160][160][160][160][160]";
  292. 8085 print"[154][146][206][144][160][154][146][206]  [144][160][154][146] [206] [144][160][154][146][206][159]  [154] [159] [154]  [156]        ";
  293. 8090 print"                         ";
  294. 8095 print"  [154][146]  [156] [154] [156][160][154][146] [144]     [154][146]  [144]     [154][146]  [159]   ";
  295. 8100 print"  [149][146]  [144]     [154][146][206] [144]     [154][146] [156][160][159][146] [156] [154] [156][160][159][146] [156][160][144] ";
  296. 8105 print"[154][146] [144] [152][146]    [144] [154][146] [144] [154][146] [206]  [159] [154][146][206][159][160][154][146]  [206] [144] [154][146][206][144] [154][146]  ";
  297. 8110 print"  [144] [154][146][206][144] [156] [154][146] [156][160][159][146] [156] [159] [154] [156][160][154][146] [144] [154][146] [144] [152][146]    [144] [154][146] [144] [154][146] ";
  298. 8115 print" [206] [159] [154][146] [159][160][154][146]    [144] [154][146] [144] [154][146] [206]  [144] [154][146] [144] [154][146] [156][160][154][146] [159] [156] ";
  299. 8120 print"[159] [154]   [144] [154][146] [144] [152][146]    [144] [154][146] [144] [154][146]    [159] [154][146] [159] [154][146] [206]  ";
  300. 8125 print"[144] [154][146][206][144] [154][146]   [206][144] [154][146] [144] [154][146]    [159]  [154]   [144] [154][146] [144] [152][146]   ";
  301. 8130 print" [144] [154][146] [144] [154][146] [206] [206][159][160][154][146] [159] [154][146]  [206] [144] [154][146] [144] [154][146] [206]  [144] [154][146] [144] ";
  302. 8135 print"[154][146]    [159]  [154]  [144]     [154][146]  [144]     [154][146]  [159]   ";
  303. 8140 print"  [154][146]  [144]     [154][146]  [144]     [154][146]    [154][146]     ";
  304. 8145 print"          [154][146]       [154][146]        ";
  305. 8150 print"[154][146]      [154][146]       [176][192][192][192][192][192][192][192][178][192][192][192]";
  306. 8155 print"[192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][174]    ";
  307. 8160 print"   [221]      [160][221]       [221]     ";
  308. 8165 print"  [221]       [221]       [221]  von ";
  309. 8170 print" [221]andreas[221] sand- [221] april ";
  310. 8175 print"[221]       [221]  [192][192][192]  [221][160]      [221]";
  311. 8180 print"kuehler[221] 1985 [160][221]       [221] ";
  312. 8185 print"      [221]       [221]       [221]  ";
  313. 8190 print"     [221]   [157][157]";chr$(148)chr$(148)"  [146]";
  314. 8200 poke198,0:pokev,27:wait198,1:gosub7100:return
  315.