10 PRINT"[147]"
20 POKE 53281,1:POKE53280,4
30 PRINT" "
40 PRINT
50 PRINT"  [209][209]     [209]   [209][209][209][209][209][209]       "
60 PRINT"  [209] [209]        [209]"
70 PRINT"  [209]  [209]   [209]   [209]"
80 PRINT"  [209]  [209]   [209]   [209][209][209]"
90 PRINT"  [209] [209]    [209]   [209]"
91 PRINT"  [209][209]     [209]   [209]"
92 PRINT"             [209][209][209][209][209][209]"
100 PRINT" "
110 PRINT"  AKTUELLE"
120 PRINT
130 PRINT"         SCHLEICHWERBUNG"
140 PRINT
150 PRINT
160 PRINT
170 PRINT
180 PRINT
190 INPUT" WOLLEN SIE SCHLEICHWERBUNGEN SEHEN ";QW$
200 IF QW$="JA"THEN GOTO 220
210 IF QW$="NEIN" THEN END
220 PRINT"[147]"
230 PRINT"     "
240 PRINT
250 PRINT"       [194][194][194][194]"
260 PRINT"       [194][194][194][194]"
270 PRINT"      [213][213][201][213][201][201] SAUFEN"
280 PRINT"      [202][202][203][202][203][203]    "
290 PRINT"      [213][213]  [201][201]     SIE"
300 PRINT"      [194][194]  [194][194]"
310 PRINT"      [202][202][178][178][203][203]       FLENS!"
320 PRINT"       [213][179][171][201]"
330 PRINT"       [194][202][203][194]"
340 PRINT"       [202][195][195][203]"
350 PRINT"           "
360 PRINT"                     [162][162][162]"
370 PRINT"  DR.WERNER W. STELL-[194] [194]"
380 PRINT"                     [194] [194]"
390 PRINT"  TE FEST :SAUFEN  [213][195][203] [202][195][201]"
400 PRINT"                   [194]     [194]"
410 PRINT"  IST GESUND!!!!!  [194]FLENS[194]"
420 PRINT"                   [194]     [194]"
430 PRINT"   MOIN!!          [202][195][195][195][195][195][203]"
440 FOR X=1TO9000:NEXT X
450 PRINT"[147]"
460 PRINT"[147]"
470 PRINT"  "
480 PRINT"  NIX FUEA ERWACHSENE!!!  "
490 PRINT"       [209][209][209]                "
500 PRINT" [215]  [215] [209]. .[209] [215]  [215] [215]   [215]    "
510 PRINT" [215]  [215] [209] . [209] [215]  [215] [215][215] [215][215]    "
520 PRINT" [215][215][215][215] [209] [215] [209] [215][215][215][215] [215] [215] [215]    "
530 PRINT" [215]  [215] [215][202][195][203]  [215]  [215] [215]   [215]    "
540 PRINT" [215]  [215] [213][203] [202][201] [215]  [215] [215]   [215]    "
550 PRINT"      [194] [194] [194]               "
560 PRINT"      [202][178][177][178][203] KOMMEN SIE IN "
570 PRINT"       [194].[194]                "
580 PRINT"       [194] [194]  DEN NEUEN     "
590 PRINT"       [194][211][194]                "
600 PRINT"       [194][194][194]  FILM HM.HM!!! "
610 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
620 PRINT" DER NEUSTE FILM VON "
630 PRINT"[160]"
640 PRINT"      PORNOJOE[211][211][211]"
650 FOR G=1TO9000:NEXT G
660 PRINT"[147]"
670 PRINT
680 PRINT
690 PRINT
700 PRINT"     [207][183][183][183][183]   [207][183][183][183][183][183]   [207][183][183][183][183][183]"
710 PRINT"     [180]       [180]        [180]"
720 PRINT"     [204][175]      [180]        [180]"
730 PRINT"     [180]       [180]        [180]"
740 PRINT"     [180]       [180]        [180]"
750 PRINT"     [204][175][175][175][175] . [204][175][175][175][175][175] . [204][175][175][175][175][175] ."
760 PRINT" "
770 PRINT
780 PRINT"   UND SIE WERDEN SICH NICHT MEHR "
790 PRINT"   "
800 PRINT"   BERUHIGEN KOENNEN!!!!!!!!!!!!!"
810 PRINT"  "
820 PRINT" "
830 PRINT"   (STOEHN.KEUCH.SCHNAUF.AECHS.O)"
840 FOR Q=1TO9000:NEXT Q
850 PRINT"[147]"
860 PRINT
870 PRINT
880 PRINT
890 PRINT"   [213][195][195][201][213][195][195][201] [213][195][195][201]  "
900 PRINT"   [194][213][201][194][194][213][201][194] [194][215] [194]  "
910 PRINT"   [194][194][194][202][203][194][194][194] [171][195][195][203]  "
920 PRINT"   [194][194][202][195][195][203][194][194] [171][195][195][201]  "
930 PRINT"   [194][194]    [194][194] [194][213][201][194][213][201]"
940 PRINT"   [202][203]    [202][203] [202][203][202][203][202][203] JOKER"
950 PRINT" "
960 PRINT"     ROEBS/AECHS/WUERG/KEUCH
970 [153]
980 [153]
990 [153]
1000 [153]
1100 [129]D[178]1[164]9000:[130]
1110 [153]"LOAD"
1120 [151] 53280,89
1130 [151] 53281,9
1140 [153]" "
1150 [153]
1160 [153]
1170 [153]"     ORLENLENLENLENLENLENLENLENLEN^"
1180 [153]"     PEEK         PEEK"
1190 [153]"     PEEK         PEEK"
1200 [153]"     PEEK         PEEK"
1210 [153]"     PEEK         PEEK DER NEUSTE"
1220 [153]"     PEEK         PEEK"
1230 [153]"     PEEKBUBUFIRMAPEEK VON BUBUFI"
1240 [153]"     MID$LENLENLEN=LEN=LENLENLEN(null)"
1250 [153]" SO EIN  PEEK PEEK     RMA (MORD)"
1260 [153]"         PEEK PEEK"
1270 [153]" SCHEISS PEEK PEEK"
1280 [153]"         MID$LEN(null)"
1290 [153]
1300 [153]"     KAUFEN SIE DIESEN SCHLAEGER."
1310 [153]
1320 [153]"     DENN WENN SIE AM VERLIEREN"
1330 [153]"     "
1340 [153]"     SIND HAUEN SIE IHREN GAEGNER"
1350 [153]"     "
1360 [153]"     MIT DEN SCHLAEGER INS GENICK"
1370 [129] K[178]1[164]12000:[130] K
1380 [153]"LOAD"
1390 [151] 53280,45
1400 [151] 53281,13
1410 [153]
1420 [153]
1430 [153]
1440 [153]"                          "
1450 [153]"                        "
1460 [153]"       KOMMEN SIE NACH   "
1470 [153]"                          "
1480 [153]"       ROEBS-             "
1490 [153]" "
1500 [153]"       STEDT!"
1510 [153]" "
1520 [153]"    "
1530 [153]"    DENN SIE BRAUCHEN MAL WIEDER"
1540 [153]" "
1550 [153]"    MUNDGERUCH!!!!!!!!!!!!!!!!!!"
1560 [153]"  "
1570 [153]"  (null)=======RIGHT$ "
1580 [153]"  PEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEK  DAS IST DER "
1590 [153]"  PEEK       PEEK "
1600 [153]"  PEEK (null)RIGHT$ (null)(null) PEEK  BUERGERMEI-"
1610 [153]"  PEEK  PEEK PEEK  PEEK"
1620 [153]"  PEEK  MID$LEN(null)  PEEK  STER MARCEL"
1630 [153]"  PEEK MID$=LEN=(null) PEEK"
1640 [153]"  MID$LENRIGHT$MID$LEN(null)(null)LEN(null)    (ROEBS) "
1650 [153]"    MID$LENLENLEN(null)"
1660 [153]"                   "
1670 [153]" "
1680 [153]"    DENN SIE BRAUCHEN MAL WIEDER"
1690 [153]"    MUNDGERUCH":[129] Q[178]1[164]9000:[130] Q
1700 [153]"LOAD"
1710 [153]" "
1720 [153]
1730 [153]
1740 [153]"      =>>>>>="
1750 [153]"      <<<----"
1760 [153]"      <<<<<<-"
1770 [153]"      <<-<-<-"
1780 [153]"      <<<<-<-"
1790 [153]"   ORLENLEN>>>>>>>LENLENLEN^"
1800 [153]"   -LENLENLENLENLENLENLENLENLENLENLENLEN<"
1810 [153]"   PEEK            PEEK"
1820 [153]"   PEEK            PEEK"
1840 [153]"   /LEN=LENLENLENLENLENLENLENLEN=LENEXP"
1850 [153]"     /LENLENLENLENLENLENLENLENEXP "
1860 [153]" "
1870 [153]"   SCHLUSS JETZT MIT EIBRUECHEN!!"
1880 [153]"  "
1890 [153]"   DER NEUE KAKTUS VON STACHEL&CO"
1900 [153]" "
1910 [153]"   HAELT JEDEN VERBRECHER AUF IN-"
1920 [153]"   DEM ER IHN IN SEINEN ALLERWER-"
1930 [153]
1940 [153]"   TESTEN STICHT!!!!!!!!!!!!!!!!!"
1950 [129] H[178]1[164] 11000:[130] H
1960 [153]"LOAD"
1970 [153]"  "
1980 [153]
1990 [153]
2000 [153]"     ANDANDANDANDANDANDANDANDANDANDAND"
2010 [153]"    (null)          (null)SGN"
2020 [153]"   +USRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)RIGHT$SGN(null)RIGHT$ (null)RIGHT$"
2030 [153]"   + GIFTILETT+(null)SGNMID$(null) MID$(null)"
2040 [153]"   +USRUSRUSRUSRUSR(null)(null)(null)(null)(null)+RIGHT$SGN (null)RIGHT$(null)RIGHT$"
2050 [153]"   +ETZIE+(null)(null)(null)(null)+(null)SGN MID$(null)MID$(null)"
2060 [153]"   +ANDANDANDANDANDSQRANDANDANDANDSQR(null)
2070 PRINT" "
2080 PRINT"    GIFTILETT'S
2090 [153]
2100 [153]
2110 [153]"    DENN WOLLEN SIE SICH,"
2120 [153]
2130 [153]"    DEN TAG VERSAUEN,"
2140 [153]
2150 [153]"    MUESSEN SIE GIFTILETTS"
2160 [153]
2170 [153]"    KLAUEN!!!!!!!!!!!!!!!!"
2180 [129] F[178]1[164]11000:[130] F
2190 [153]"LOAD"
2200 [153]"      "
2210 [153]"                                "
2220 [153]
2230 [153]
2240 [153]"(null)RIGHT$ (null)RIGHT$  (null)RIGHT$ (null)LENLENRIGHT$ (null)LENLENRIGHT$ (null)LENLENRIGHT$(null)LENLENRIGHT$(null)LENLENRIGHT$"
2250 [153]"MID$(null)CLOSEPEEKPEEK  MID$(null) PEEK(null)LEN(null) PEEK(null)RIGHT$PEEK MID$^OR(null)PEEK(null)RIGHT$PEEKPEEK(null)RIGHT$PEEK"
2270 [153]"(null)RIGHT$ PEEKPEEK  (null)RIGHT$ PEEKPEEK(null)RIGHT$ PEEKMID$(null)PEEK  PEEKPEEK PEEKPEEKPEEKPEEKPEEKMID$(null)MID$RIGHT$"
2280 [153]"PEEKPEEK PEEKMID$LENRIGHT$PEEKPEEKCLOSEPEEKMID$(null)PEEK PEEK(null)RIGHT$PEEK  PEEKPEEK PEEKMID$(null)PEEKPEEK(null)LENRIGHT$PEEK "
2290 [153]"MID$(null) MID$LENLEN(null)MID$(null) MID$LENLEN(null) MID$(null)MID$(null)CLOSE MID$(null) MID$LENLEN(null)MID$(null) MID$(null)"
2300 [153]
2310 [153]
2320 [153]"             PRESENT'S"
2330 [153]" "
2340 [153]" "
2350 [153]"      SCHLEICHI    "
2360 [153]"      CC          BY M.J. AND"
2370 [153]"      H H"
2380 [153]"      L  L        E.C.C.
2390 PRINT"      E   E"
2400 PRINT"      I    I"
2410 PRINT"      C     C   (TOGETHER=ILIGATOR)"
2420 PRINT"      H      H"
2430 PRINT"      I       I"
2440 POKE 53281,9:POKE53280,0:POKE53280,1:POKE53280,2:POKE53280,3
2450 POKE53280,4:POKE53280,5:POKE53280,6:POKE53280,7:POKE53280,8
2460 POKE53280,9:POKE53280,10:POKE53280,11:POKE53280,12
2470 GOTO 2440