10 MT$="                                      "
20 PRINT"[147]":POKE53280,12:POKE53281,12
30 PRINT"    [195][210][193][195][203][206][197][215][211]! [201][211][211][213][197] [198][197][194][210][213][193][210][217] 1989
40 [153]"STOP  ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
50 PRINT"  [221] [204][193][199][197] [196][197][210] [206][193][212][201][207][206] [208][193][210][212] [201][201]        [144][221]"
60 PRINT"  [221] [215]AS IST IN [196]EUTSCHLAND LOS?    [144][221]
120 [153]"  /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
130 GOSUB720
140 PRINT"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
150 [153]"  (null)PRINT (null)OR EINIGEN (null)OCHEN, WURDEN AN  STOP(null)
160 PRINT"  [221][153] EINIGEN [211]CHULEN [194]AYERNS,       [144][221]
170 [153]"  (null)PRINT RIGHT$NFORMATIONSZETTEL AN DIE      STOP(null)
171 PRINT"  [221][153] [211]CHUELER AUSGEGEBEN, MIT DER   [144][221]
172 [153]"  (null)PRINT BITTE,DIESE (VON DEN VALLTERN)   STOP(null)
173 PRINT"  [221][153] UNTERSCHREIBEN ZU LASSEN.      [144][221]
230 [153]"  /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";
240 [141]720
250 [153]"  ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
260 PRINT"  [221] [201]N DIESEM [218]ETTEL WURDE DARAUF  [144][221]
270 [153]"  (null) AUFMERKSAM GEMACHT, DASS       STOP(null)
271 PRINT"  [221] [210]AUPKOPIEN, STRAFBAR SEIEN.    [144][221]
272 [153]"  (null) (null)RIGINAL ATNUSZUG: 'STR$ASS KOPIERENSTOP(null)
273 PRINT"  [221] VON [195]OMPUTER/[214]IDEOSPIELEN IST  [144][221]
274 [153]"  (null) STRAFBAR, UND KANN GERICHTLICH STOP(null)
275 PRINT"  [221] VEFOLGT WERDEN.........'       [144][221]
276 [153]"  (null) (null)AS NUETZEN SOLCHE (null)ETTEL,     STOP(null)
277 PRINT"  [221] WENN IM [201]NFORMATIKRAUM, EINE   [144][221]
278 [153]"  (null) GECRACKTE (null)ERSION VON 'CHR$VAL(null)(null)'   STOP(null)
279 PRINT"  [221] RUMLUNGERT?                    [144][221]
320 [153]"  /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
321 [153]"                                       ";
330 [141]720
340 [153]"  ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
350 PRINT"  [221] [199]ANZ DAVON ABGESEHEN, DASS     [144][221]
360 [153]"  (null) VIELE (null)EHRER/VALLTERN KEINE      STOP(null)
370 PRINT"  [221] [193]HNUNG HABEN, WAS IHR [211]CHULER/ [144][221]
375 [153]"  (null) (null)OHN MIT DEM LENOMPUTER MACHT!   STOP(null)
380 PRINT"  [221] [198]RAGE: [215]IE SOLLEN [197]LTERN EINE  [144][221]
385 [153]"  (null) (null)AUBKOPIE ERKENNEN??           STOP(null)
390 PRINT"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
400 GOSUB720
410 PRINT"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
420 [153]"  (null) CHR$ENAUSO IST ES MIT DER RIGHT$(null)STR$RIGHT$-   STOP(null)
430 PRINT"  [221] [218][201][197][210][213][206][199][211][204][201][211][212][197][210] DER [194][213][206][196][197][211][208][210][213][197][198]-[144][221]
440 [153]"  (null) (null)(null)VAL(null)(null)VAL(PEEK(null)(null)).                   STOP(null)
441 PRINT"  [221] [211]EIT GERAUMER [218]EIT, DUERFEN    [144][221]
442 [153]"  (null) DIE NAMEN DER VERBOTEN(!)      STOP(null)
443 PRINT"  [221] [211]PIELE NICHT MEHR GENANNT      [144][221]
444 [153]"  (null) WERDEN.                        STOP(null)
450 PRINT"  [221] [215]AS SOLL MAN VON EINEM [193][205][212]     [144][221]
460 [153]"  (null) HALTEN, DASS EIN (null)PIEL INDI-   STOP(null)
461 PRINT"  [221] ZIERT, 2 WOCHEN FREIGIBT, UND  [144][221]
462 [153]"  (null) WIDER INDIZIERT?(Z.B. (null)RIGHT$(null)VAL(null)(null)   STOP(null)
463 PRINT"  [221] [211][197][210][214][201][195][197]!)                      [144][221]
500 [153]"  /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[141]720
510 [153]"   ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
515 PRINT"   [221]                                [221]
520 [153]"   (null)PRINT(null)EINER MEINUNG NACH, GEHOERT DIESTOP(null)
530 PRINT"   [221][153][194][208][211] WEGEN [214]OLKSVERDUMMMUNG UND  [144][221]
531 [153]"   (null)PRINTBEVORMUNDUNG VERBOTEN.          STOP(null)
532 PRINT"   [221][153]([193][206][196][217]/[208]7)                       [144][221]
535 [153]"   (null)                                (null)
560 PRINT"   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB720
670 PRINT"[147]"
680 S$="L[207]"+CHR$(34)+"[192]0,S,R"+CHR$(34)+",8:"+CHR$(131)
690 FORI=1TOLEN(S$):POKE630+I,ASC(MID$(S$,I)):NEXT:POKE198,I
700 POKE53281,15:POKE53280,15
710 PRINTCHR$(142)"[145]          RELOADING THE MENU[155]":END
720 FORW=1TO2000:GETA$:IFA$=""THENNEXTW
730 GOSUB910:RETURN
740 FORW=1TO2000:GETA$:IFA$=""THENNEXTW
750 RETURN
900 RETURN
910 PRINT"":FORI=1TO10:PRINT MT$:NEXT:PRINTMT$"":RETURN