Rate oder hänge!

0 color0,1:color4,1
1 print"{clr}{yel}"
2 poke51,0:poke52,60:poke55,0:poke56,60
3 fora=15360to16191
4 reada$
5 pokea,dec(a$)
6 next
7 poke65298,8:poke65299,60
8 char1,4,11,"lQTU{CBM--} sXU {CBM--}{CBM-I}{CBM--} TQ{$a0} hQ{CBM-I}~{CBM-K}~{CBM-*}{SHIFT--}V{CBM-*}Q{SHIFT-+}{SHIFT-+}!
9 new
10 data00,00,00,00,00,00,7e,00
11 data18,24,24,7e,62,62,62,00
12 data78,24,24,3c,32,32,7c,00
13 data3c,42,40,60,60,62,3c,00
14 data7c,22,22,32,32,32,7c,00
15 data7e,22,20,38,20,22,7e,00
16 data7e,22,20,38,20,20,70,00
17 data3c,42,40,6e,6a,62,3c,00
18 data42,42,42,7e,62,62,62,00
19 data3c,10,10,18,18,18,3c,00
20 data0e,04,04,0c,0c,4c,38,00
21 data44,48,50,7c,62,62,62,00
22 data40,40,40,60,60,62,7e,00
23 data24,5a,42,62,62,62,62,00
24 data32,4a,4a,6a,6a,6a,64,00
25 data3c,42,42,62,62,62,3c,00
26 data7c,22,22,3c,30,30,30,00
27 data3c,42,42,62,62,6a,3c,06
28 data78,24,24,38,34,32,32,00
29 data3c,42,40,3c,06,46,3c,00
30 data7e,08,08,18,18,18,18,00
31 data42,42,42,62,62,62,3c,00
32 data42,42,42,34,34,34,18,00
33 data46,46,46,46,42,5a,24,00
34 data42,42,24,18,34,62,62,00
35 data42,42,24,18,18,18,18,00
36 data7e,42,04,18,30,62,7e,00
37 data00,18,3c,24,24,24,24,7e
38 data7e,62,62,62,62,62,62,00
39 data00,7e,7e,22,22,20,20,3c
40 data3c,30,30,32,32,7e,7e,00
41 data00,3c,7e,42,42,40,40,6e
42 data00,00,00,00,00,00,00,00
43 data06,06,06,06,00,06,06,00
44 data6e,6a,6a,62,62,7e,3c,00
45 data00,40,40,40,40,40,40,60
46 data60,60,60,62,62,7e,7e,00
47 data00,32,7a,4a,4a,4a,4a,6a
48 data6a,6a,6a,6a,6a,6e,64,00
49 data00,78,7c,44,44,44,44,78
50 data78,64,62,62,62,62,62,00
51 data00,7e,10,10,10,10,10,18
52 data18,18,18,18,18,18,18,00
53 data01,03,07,0f,1f,3f,7f,ff
54 data00,00,00,00,00,06,06,0c
55 dataff,ff,ff,ff,ff,ff,ff,ff
56 data00,00,00,00,00,06,06,00
57 data80,c0,e0,f0,f8,fc,fe,ff
58 data3c,42,46,6a,72,62,3c,00
59 data08,18,08,18,18,18,7e,00
60 data3c,42,02,0c,30,60,7e,00
61 data3c,42,02,1c,06,46,3c,00
62 data40,40,48,48,7e,18,18,00
63 data7e,40,7c,06,06,46,3c,00
64 data3c,42,40,7c,46,46,3c,00
65 data7e,42,04,18,18,18,18,00
66 data3c,42,42,3c,46,46,3c,00
67 data3c,42,42,3e,06,46,3c,00
68 data00,06,06,00,06,06,00,00
69 datae0,70,38,1c,0e,07,03,01
70 data01,01,01,01,01,01,01,01
71 data80,80,80,80,80,80,80,80
72 data07,1f,3f,78,70,e4,e0,e0
73 data3c,42,02,0c,18,00,18,00
74 datae0,f8,fc,9e,0e,27,07,07
75 datae1,c0,80,43,44,20,1c,07
76 data87,03,01,c2,22,04,38,e0
77 data07,02,1c,78,fc,fe,ff,ff
78 datae0,40,38,1e,3f,7f,ff,ff
79 data7f,ff,ff,ff,7f,ff,ff,ff
80 data00,00,00,00,01,07,1f,3f
81 data00,00,00,00,80,e0,f8,fc
82 data3f,7f,7f,7f,7e,7e,7e,7e
83 datafc,fe,fe,fe,7e,7e,7e,7e
84 data7e,7e,7e,7e,7e,7e,7e,7e
85 data7e,24,24,42,42,24,18,00
86 data80,ff,ff,ff,ff,ff,ff,ff
87 data01,ff,ff,ff,ff,ff,ff,ff
88 datafe,fe,fe,fe,fe,fe,fe,fe
89 data7f,7f,7f,7f,7f,7f,7f,7f
90 data24,66,7e,7e,7e,7e,3c,18
91 data00,00,38,04,3c,4c,3c,00
92 data40,40,78,64,64,64,78,00
93 data00,00,3c,60,60,60,3c,00
94 data04,04,3c,64,64,64,3c,00
95 data00,00,38,64,7c,60,3c,00
96 data00,00,3c,64,64,3c,04,78
97 data40,40,78,64,64,64,64,00
98 data00,20,00,30,30,30,78,00
99 data40,40,48,50,70,68,64,00
100 data30,10,10,30,30,30,78,00
101 data00,00,34,6a,6a,6a,6a,00
102 data00,00,38,64,64,64,64,00
103 data00,00,38,64,64,64,38,00
104 data00,00,58,64,64,58,40,40
105 data00,00,38,64,60,60,60,00
106 data00,00,38,40,38,0c,78,00
107 data10,7c,10,18,18,18,18,00
108 data00,00,64,64,64,64,38,00
109 data00,00,62,62,6a,6a,34,00
110 data00,00,64,64,64,3c,04,78
111 data00,00,7c,04,38,60,7c,00
112 data28,00,38,64,64,64,38,00
113 data28,00,64,64,64,64,38,00

0 dataschlittschuh
1 dataregenwurm
2 dataphysikbuch
3 datahausmannskost
4 dataobservatorium
5 datamaskottchen
6 dataknochenbruch
7 dataferienjob
8 datataucherbrille
9 datadarmverstopfung
10 dataharemsdame
11 dataautowaschanlage
12 datadirndlkleid
13 datatrachtenanzug
14 datatiefschlag
15 datakannibalismus
16 dataquizsendung
17 dataplastikbeutel
18 dataportemonai
19 datapreiselbeere
20 datagroschenroman
21 datataschenrechner
22 datakarnickelstall
23 datacomputerfreak
24 dataarzneimittel
25 datamedikament
26 datajongleur
27 datainstallateur
28 datachampignon
29 datainformation
30 datatischtennis
31 dataradiorecorder
32 dataliebespaar
33 dataantialkoholiker
34 databundeskanzler
35 datababyschnuller
36 dataspiegelbild
37 datacellophan
38 datawasserklosett
39 datazoologie
40 datahaifischflosse
41 datavokabelheft
42 datafreundschaft
43 datagesellschaft
44 datahaarwuchsmittel
45 datakirchturmuhr
46 datahonigmelone
47 datagasthaus
48 datadurchschnitt
49 dataschnurrbart
50 datakindergarten
51 dataorientteppich
52 datatemperament
53 datastuhlgang
54 datamiezekatze
55 databimmelbahn
56 dataquarzuhr
57 datakompliment
58 datakondensmilch
59 datakombination
60 dataregenmantel
61 datakrankenwagen
62 datakatastrophe
63 datatolpatsch
64 datatalismann
65 datahagebutte
66 datahaschisch
67 datahaschee
68 dataingenieur
69 datajournalist
70 datakassette
71 datateenager
72 datatachometer
73 datagrillparty
74 dataschmalzlocke
75 datamittelscheitel
76 datastricknadel
77 dataexporteur
78 datauntergang
79 dataameisenhaufen
80 dataplumbsklo
81 datazahnpasta
82 datapicknickkorb
83 datazinnober
84 datazentimeter
85 datatornister
86 dataseifenschaum
87 datathunfisch
88 databrillengestell
89 datazyankali
90 datatopflappen
91 datablaubeertorte
92 datasprinterhose
93 datahundeknochen
94 databrieftaube
95 datatintenpatrone
96 dataquellwasser
97 datakassenbon
98 datapetroleum
99 datapetersilie
100 dataregenschauer
101 datapullover
102 dataplanschbecken
103 datagirokonto
104 dataexperiment
105 datavollmilch
106 datapolterabend
107 datastandesamt
108 datasprichwort
109 datatuberkulose
110 datareklamesendung
111 datareagenzglas
112 dataorchidee
113 datapampelmuse
114 datazitrusfrucht
115 datapantoffel
116 datajustizirrtum
117 datacowboyfilm
118 datacurrysauce
119 datavolleyball
120 datadschunke
121 datadschungeltier
122 datagastronomie
123 dataeidechse
124 databimsstein
125 databisamratte
126 databasketball
127 datapurzelbaum
128 datarangierbahnhof
129 dataquasselei
130 dataquacksalber
131 dataquadratmeter
132 datarauchverbot
133 datareproduktion
134 datasaboteur
135 datarodelbahn
136 datasalmiakgeist
137 datasamariter
138 datasanatorium
139 datasandwich
140 dataschlafittchen
141 dataschaschlik
142 dataschabernack
143 datasaxophon
144 datahinrichtung
145 dataschimpanse
146 dataschlamperei
147 datavegetarier
148 datautensilie
149 dataakkordarbeit
150 dataallheilmittel
151 dataanalphabet
152 dataangorakatze
153 dataappartment
154 dataaquarium
155 dataastronaut
156 dataausrufezeichen
157 databagatelle
158 databarikade
159 databazillus
160 datacharakter
161 datachrysantheme
162 datacontainer
163 datafarbfernseher
164 databranntwein
165 databunsenbrenner
166 databumerang
167 databuchstabe
168 databuddhismus
169 databritannien
170 databeglaubigung
171 datagarderobe
172 datatraubenzucker
173 dataeinschreiben
174 databriefdrucksache
175 dataelektriker
176 dataschnellbahn
177 dataschlamassel
178 dataschlaraffenland
179 dataschneeball
180 dataschokolade
181 dataschmetterling
182 datatraubensaft
183 dataozeandampfer
184 dataorganisator
185 datanachwuchs
186 datamurmeltier
187 datanachmittag
188 datamagnetband
189 datamandarine
190 datamansarde
191 datamanuskript
192 datamarathonlauf
193 datamarionette
194 datamarmelade
195 datamakkaroni
196 datameerrettich
197 datamettwurst
198 datarechenschaft
199 datarandalierer
200 dataredakteur
201 datasadismus
202 dataverabredung
203 dataresidenz
204 datarestaurator
205 datarevanche
206 datarevolution
207 datarhytmus
208 datarizinusoel
209 datarollbraten
210 datazuckerrohr
211 datasabotage
212 datawildschwein
213 dataschablone
214 dataschauspieler
215 dataschiedsrichter
216 dataschlamperei
217 dataschornstein
218 datalebensmittel
219 dataschrebergarten
220 dataschulbus
221 dataschwiegereltern
222 dataselterswasser
223 datamilchshake
224 datasensation
225 dataskandinavien
226 datasmaragd
227 datasphinx
228 datasteward
229 dataverabredung
230 dataaluminiumfolie
231 datasymphonie
232 datakreppapier
233 dataschicksalsschlag
234 dataumlaufbahn
235 dataureinwohner
236 datawahrzeichen
237 datawegerich
238 dataweizenbrot
239 dataweinbrand
240 databranntwein
241 dataschucreme
242 dataseefahrervolk
243 datazapfenstreich
244 datazitadelle
245 datazeppelin
246 datazervelatwurst
247 datastundenplan
248 databilderbuch
249 dataessenszeit
250 datatomatensalat
251 datahauskatze
252 datakanarienvogel
253 dataflaschenkorken
254 dataholzgestell
255 datataschendieb
256 data704,32,704,16,685,16,643,32,571,32,596,32,643,32,1020,14,643,16,571,24
257 data596,8,685,32,643,32,704,32,739,32,1020,14,704,16,685,16,704,16,739,16
258 data704,16,685,32,1020,14,685,16,704,16,685,16,643,32,571,32,596,32,643,32
259 data1020,14,643,16,571,24,596,8,685,32,643,32,704,32,739,32,1020,14,739,16
260 data704,16,685,16,643,32,596,32,685,16,704,32,739,16,704,48,1020,64,-1
261 data1020,10,881,5,881,15,881,5,917,20,917,20,929,20,929,20,953,30,939,10
262 data917,10,953,5,939,15,917,5,897,20,944,40,929,15,911,5,917,40,1020,64,-1,
263 fora=1to7
264 keya,""
265 next
266 key8,"_"
267 poke51,0:poke52,60:poke55,0:poke56,60:poke216,0:poke217,0:poke1344,1
268 poke65286,11:poke65298,8:poke65299,60
269 color4,1:color0,1
270 print"{home}{home}{clr}{dish}{swlc}"
271 color1,16,5
272 char1,14,0,"_[#_]%'[)]%"
273 char1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
274 color1,3,5
275 char1,0,6,"bX{CBM-K}{CBM-K}U T{CBM-*}{CBM-M}SYU{CBM--} sXU:"
276 char1,3,8,"z{CBM-I}{CBM-*} c{SHIFT--}{SHIFT-+}~{CBM-I}{CBM-K}U{CBM-*}Q{CBM-I}{$a0}{CBM-T}QWZ TU{$a0} {CBM-G}{CBM-I} U{CBM-*}{CBM-*}Q{CBM-K}U{CBM--}TU{CBM--}"
277 char1,3,9,"w{SHIFT--}{CBM-*}{CBM-K}U{$a0}!"
278 char1,3,11,"z{CBM-I}{CBM-*} eX{CBM--}VQRU TU{$a0} {CBM-G}{CBM-I} U{CBM-*}{CBM-*}Q{CBM-K}U{CBM--}TU{CBM--} w{SHIFT--}{CBM-*}{CBM-K}U{$a0}"
279 char1,3,12,"T{CBM-I}{CBM-*}SW UX{CBM--}U Q{CBM--}TU{CBM-*}U pU{CBM-*}{$a0}{SHIFT--}{CBM--}!"
280 color1,2,4
281 char1,0,8,"{rvon}f1"
282 char1,0,11,"{rvon}f2{rvof}"
283 color1,2,1
284 char1,22,24,"mQTU R{CBM-@} s{CBM-T}U{CBM--} j{CBM-I}{CBM--}V"
285 poke65286,27
286 ifpeek(198)=4then359
287 ifpeek(198)=5then289
288 goto286
289 color1,2,4
290 char1,0,11,"{rvon}{flon}f2{rvof}"
291 fora=1023to0step-8
292 vola/128
293 sound1,a,1
294 next
295 poke65286,11
296 print"{home}{home}{clr}{dish}{swlc}"
297 color1,16,5
298 char1,14,0,"_[#_]%'[)]%"
299 char1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
300 color1,3,5
301 char1,0,6,"bX{CBM-K}{CBM-K}U ZQ{$a0}{$a0}U{CBM--} sXU {$a0}XSW UX{CBM--} w{SHIFT--}{CBM-*}{CBM-K} UX{CBM--}VURU{CBM--}!"
302 char1,0,8,"wU{CBM--}{CBM--} sXU UX{CBM--}U{CBM--} fUWZU{CBM-*} WQRU{CBM--}, TQ{CBM--}{CBM--} {SHIFT-+}{CBM-M}{$a0}{$a0}U{CBM--}"
303 char1,0,9,"sXU TXU tQ{$a0}{CBM-K}U      T{CBM-*}{CBM-M}SYU{CBM--}!"
304 char1,0,11,"wU{CBM--}{CBM--} TQ{$a0} w{SHIFT--}{CBM-*}{CBM-K} UXVUVURU{CBM--} X{$a0}{CBM-K}, TQ{CBM--}{CBM--} {SHIFT-+}{CBM-M}{$a0}{$a0}U{CBM--}"
305 char1,0,12,"sXU TXU tQ{$a0}{CBM-K}U        T{CBM-*}{CBM-M}SYU{CBM--}!"
306 color1,2,4
307 char1,14,9,"{rvon}help"
308 char1,14,12,"{rvon}return{rvof}"
309 color1,2,1
310 char1,22,24,"mQTU R{CBM-@} s{CBM-T}U{CBM--} j{CBM-I}{CBM--}V"
311 poke65286,27
312 color1,8,6
313 char1,12,16,"{flon}@{flof}@@@@@@@@@@@@@@"
314 clr
315 vol6
316 poke239,0
317 geta$
318 ifa$="_"andlen(b$)>0then329
319 ifa$=chr$(13)anda>4then335
320 ifasc(a$)>90orasc(a$)<65then317
321 sound1,836,4
322 a=a+1
323 ifa=16then312
324 char1,11+a,16,a$
325 b$=b$+a$
326 ifa=15then316
327 char1,12+a,16,"{flon}@{flof}"
328 goto316
329 b$=left$(b$,len(b$)-1)
330 a=a-1
331 char1,12+a,16,"{flon}@{flof}"
332 ifa<14thenprint"@"
333 sound1,836,4
334 goto316
335 poke65286,11
336 print"{home}{home}{clr}{dish}{swlc}"
337 color1,16,5
338 char1,14,0,"_[#_]%'[)]%"
339 char1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
340 color1,3,5
341 char1,0,6,"bX{CBM-K}{CBM-K}U T{CBM-*}{CBM-M}SYU{CBM--} sXU:"
342 char1,3,8,"wU{CBM--}{CBM--} TQ{$a0} w{SHIFT--}{CBM-*}{CBM-K} {CBM-*}XSW{CBM-K}XV"
343 char1,3,9,"VU{$a0}SW{CBM-*}XURU{CBM--} X{$a0}{CBM-K}!"
344 char1,3,11,"wU{CBM--}{CBM--} TQ{$a0} w{SHIFT--}{CBM-*}{CBM-K} {CBM--}XSW{CBM-K} {CBM-*}XSW{CBM-K}XV"
345 char1,3,12,"VU{$a0}SW{CBM-*}XURU{CBM--} X{$a0}{CBM-K}!"
346 color1,2,4
347 char1,0,8,"{rvon}f1"
348 char1,0,11,"{rvon}f2{rvof}"
349 color1,8,6
350 char1,12,16,"@@@@@@@@@@@@@@@"
351 char1,12,16,b$
352 color1,2,1
353 char1,22,24,"mQTU R{CBM-@} s{CBM-T}U{CBM--} j{CBM-I}{CBM--}V"
354 poke65286,27
355 poke239,0
356 ifpeek(198)=5then291
357 ifpeek(198)<>4then356
358 goto363
359 color1,2,4
360 char1,0,8,"{rvon}{flon}f1{rvof}"
361 restoreint(rnd(1)*314159265)and255
362 readb$
363 fora=1023to0step-8
364 vola/128
365 sound1,a,1
366 next
367 poke65286,11
368 print"{home}{home}{clr}{dish}{swlc}"
369 color1,16,5
370 char1,14,0,"_[#_]%'[)]%"
371 char1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
372 color1,3,5
373 char1,1,4,"bX{CBM-K}{CBM-K}U VURU{CBM--} sXU iW{CBM-*}U b{CBM-I}SW{$a0}{CBM-K}QRU{CBM--} UX{CBM--}!"
374 color1,8,6
375 forb=0tolen(b$)-1
376 char1,(28-len(b$))/2+b,10,"@"
377 next
378 color1,2,1
379 char1,22,24,"mQTU R{CBM-@} s{CBM-T}U{CBM--} j{CBM-I}{CBM--}V"
380 poke65286,27
381 c$=b$
382 a=1
383 vol6
384 do
385 poke239,0
386 getkeya$
387 ifasc(a$)>90orasc(a$)<65orinstr(d$,a$)>0thenloop
388 sound1,836,5
389 d$=d$+a$
390 ifinstr(b$,a$)=0thenonagoto400,409,417,425,432,439,447,455
391 color1,8,6
392 char1,(28-len(b$))/2-1+instr(c$,a$),10,a$
393 mid$(c$,instr(c$,a$),1)=" "
394 c=c+1
395 ifinstr(c$,a$)>0then392
396 ifc<len(b$)thenloop
397 restore261
398 poke217,(peek(217)+1)and255
399 goto465
400 color1,8,6
401 char1,0,16,"fQZ{$a0}SWU b{CBM-I}SW{$a0}{CBM-K}QRU{CBM--}:"
402 color1,3,3
403 char1,20,16,a$
404 color1,6,1
405 char1,27,19,"+---------/"
406 char1,26,20,"+-----------/"
407 a=2
408 loop
409 color1,3,3
410 char1,21,16,a$
411 color1,10,1
412 fora=7to18
413 char1,35,a,"-"
414 next
415 a=3
416 loop
417 color1,3,3
418 char1,22,16,a$
419 color1,10,1
420 char1,29,7,"------{down}{left};"
421 color1,8,3
422 char1,29,8,"<="
423 a=4
424 loop
425 color1,3,3
426 char1,23,16,a$
427 color1,9,4
428 char1,29,9,">{SHIFT-*}"
429 char1,29,10,"AB"
430 a=5
431 loop
432 color1,3,3
433 char1,24,16,a$
434 char1,29,11,"CD"
435 char1,29,12,"-E"
436 char1,29,13,"-E"
437 a=6
438 loop
439 color1,3,3
440 char1,25,16,a$
441 char1,28,11,"F"
442 char1,28,12,"H"
443 char1,28,13,"J"
444 char1,28,14,"K"
445 a=7
446 loop
447 color1,3,3
448 char1,26,16,a$
449 char1,31,11,"G"
450 char1,31,12,"I"
451 char1,31,13,"J"
452 char1,31,14,"K"
453 a=8
454 loop
455 color1,7,1
456 char1,29,14,"LM"
457 char1,29,15,"NO"
458 char1,29,16,"NO"
459 color1,10,0
460 char1,29,17,"PP"
461 color1,8,6
462 char1,(28-len(b$))/2,10,"{flon}"+b$
463 vol8
464 restore256
465 do
466 reada,b
467 ifa=-1thenexit
468 sound1,a,b
469 sound1,1020,2
470 loop
471 poke65286,11
472 poke216,(peek(216)+1)and255
473 print"{home}{home}{clr}{dish}{swlc}"
474 color1,16,5
475 char1,14,0,"_[#_]%'[)]%"
476 char1,14,1,chr$(34)+"\$"+chr$(34)+"^&(\*^&"
477 color1,3,5
478 char1,2,6,"bX{$a0}WU{CBM-*} {CBM-T}Q{CBM-*}U{CBM--}"+str$(peek(216))+" w{CBM-+}{CBM-*}{CBM-K}U{CBM-*} {CBM-G}{CBM-I} U{CBM-*}{CBM-*}Q{CBM-K}U{CBM--}."
479 char1,2,8,"e{$a0} {CBM-T}{CBM-I}{CBM-*}TU{CBM--}"+str$(peek(217))+" w{CBM-+}{CBM-*}{CBM-K}U{CBM-*} U{CBM-*}{CBM-*}Q{CBM-K}U{CBM--}."
480 char1,6,13,"m{CBM-+}SW{CBM-K}U{CBM--} sXU {CBM-T}UX{CBM-K}U{CBM-*} {$a0}~XUZU{CBM--} ?"
481 char1,12,15,"jQ {SHIFT--}TU{CBM-*} nUX{CBM--} ?"
482 poke65286,27
483 poke239,0
484 getkeya$
485 ifa$<>"n"thenrun268
486 sys65529