100 PRINT"[147]"
101 POKE53280,1:POKE53281,1
102 PRINT:PRINT:PRINT"HEEEE! KARL!!! - ES GIBT FUSSBALL !!!!!"
103 PRINT:PRINT"SCHIEB DOCH MAL DEN FERNSEHER HIER HER!"
104 FORT=1TO2000:NEXTT
110 POKE2040,11
120 POKE53269,1
125 POKE53277,1:POKE53271,1
130 POKE53287,0
140 FORN=0TO62:READQ:POKE704+N,Q:NEXT
150 FORX=0TO200STEP.5
160 POKE53248,X:POKE53249,100
165 NEXTX
166 FORT=1TO2000:NEXTT
170 GOSUB2000:FORT=1TO2000:NEXTT
180 FORX=100TO190STEP.5
190 POKE53248,200:POKE53249,X
200 NEXTX
205 FORT=1TO2000:NEXTT
210 GOSUB2100:FORT=1TO2000:NEXTT
220 FORX=0TO170STEP.5
230 POKE53248,200-X:POKE53249,190
240 NEXTX
245 FORT=1TO2000:NEXTT
250 GOSUB2200:FORT=1TO2000:NEXTT
260 FORX=0TO190STEP.5
270 POKE53248,30:POKE53249,190-X
280 NEXTX
285 FORT=1TO2000:NEXTT
290 GOSUB2300:FORT=1TO2000:NEXTT
300 FORX=0TO255STEP3
310 POKE53248,30:POKE53249,X
320 NEXTX
330 FORT=1TO200:NEXTT
340 GOTO1010
400 DATA127,255,254,127,255,254,96,0,6,97,255,134
410 DATA98,24,70,98,0,70,98,0,70,98,0,70,99,120,198
420 DATA98,4,70,98,2,70,98,1,70,98,24,70,97,255,134
430 DATA96,0,6,127,255,254,115,189,206,127,255,254
440 DATA127,255,254,7,0,112,7,0,112
1010 S=54272
1020 FORL=0TO24:POKES+L,O:NEXT:POKES+0,240:POKES+1,6:POKES+5,2*16+13
1030 POKES+22,100:POKES+23,15*16+3:POKES+24,3*16+15:POKES+4,0:POKES+4,129
1040 PRINT"[147]"
1050 FORI=1TO15:FORJ=0TO16
1060 POKE53280,J:POKE53281,J
1070 NEXTJ:NEXTI
1080 END
2000 PRINT:PRINT"SCHEISSE, DU BIST EIN"
2005 PRINT"I D I O T !"
2010 PRINT"DORT SEHEN WIR"
2015 PRINT"DOCH NICHTS !"
2016 FORT=1TO2000:NEXTT
2020 RETURN
2100 PRINT:PRINT"AUCH NICHT BESSER!"
2110 PRINT"HIERHER MIT DEM KASTEN!"
2120 FORT=1TO2000:NEXTT
2130 RETURN
2200 PRINT"               HIERHER!!!"
2210 PRINT"               H I E E E R H E E E R !!"
2220 RETURN
2300 PRINT:PRINT"ALSO WIRKLICH ! - SO EIN SCHEISS-SPIEL!"
2310 PRINT:PRINT"            SCHMEISS DEN BLOEDEN KASTEN"
2320 PRINT:PRINT"          DOCH ENDLICH AUS DEM FENSTER!"
2330 RETURN