0 REM HALLO FREUNDE! GREENHORN HAT MIR
1 REM DIESES ANTI-NAZI DEMO AM 31.8.93
2 REM FUER DIE ROCKFORD-FD SERIE ZUGE-
3 REM SANDT... ADDYS: GREENHORN, SCHL-
4 REM OSSPLATZ 8, 95185 GATTENDORF;
5 REM UND MEINE: ROCKFORD-FD SERIE,
6 REM ALEX ZOP, AMSELWEG 1, D-85293
7 REM REICHERTSHAUSEN. PS: FREUNDSCHAFT
8 REM IST VIEL SCHOENER ALS HASS! ALEX
9 REM ---------------------------------
10 REM*****************************
20 REM*  THIS DEMO WAS DONE       *
30 REM*     BY GREENHORN          *
40 REM*   OF TIGER - CREW         *
50 REM*****************************
55 IF L=0 THEN L=1:LOAD"ANTI-DEMO",8,1
60 POKE 53280,8:POKE 53281,8:POKE 646,9
70 V=53248:POKE 2040,136:POKE 2041,170
71 POKE V+37,7:POKE V+38,0:POKE V+39,12
73 POKE V+28,3
75 POKE V+21,1
80 PRINT"[147]"
85 PRINT"       DEUTSCHLAND DEN DEUTSCHEN"
86 FOR I=1TO 5000:NEXT I
90 POKE V,50:POKE V+1,150
95 POKE 2040,136
100 FOR I=1TO 100:NEXT I
110 POKE 2040,138
120 FOR I=1TO 200:NEXT I
130 POKE 2040,137
140 FOR I=1 TO 100:NEXT I
150 POKE 2040,138
160 FOR I=1 TO 50:NEXT I
165 Z=Z+1
166 IF Z=30 THEN 200
170 GOTO 95
200 PRINT"[147]"
205 POKE 646,0
210 PRINT"   NOCH KOENNEN WIR ETWAS DAGEGEN TUN"
215 FOR I=1 TO 3000:NEXT I
220 POKE V+21,3
230 POKE 2041,140:POKE V+2,50
240 FOR Y=70TO 150
250 POKE V+3,Y
260 FOR I=1TO 10:NEXT I
261 IF Y=133 THEN POKE 2040,143
262 IF Y=137 THEN POKE 2040,144
263 IF Y=140 THEN POKE 2040,145
264 IF Y=147 THEN POKE 2040,146
270 NEXT Y
280 POKE 2041,141
285 FOR I=1TO 300:NEXT I
290 POKE 2041,142
295 FOR I=1TO 300:NEXT I
300 POKE 2041,141
310 FOR I=1TO150:NEXT I
320 POKE 2041,140
330 FOR I=1TO 300:NEXT I
340 POKE 2041,141
350 FOR I=1TO220:NEXT I
360 POKE 2041,140
370 FOR I=1TO 200:NEXT I
380 POKE 2041,141
385 FOR I=1TO 300:NEXT I
390 POKE 2041,142
395 FOR I=1TO 300:NEXT I
400 POKE 2041,140
410 FOR I=1TO150:NEXT I
420 FOR I=1TO 5000:NEXT I
430 PRINT"          ABER WIE LANGE NOCH ?"
440 FOR I=1 TO 7000:NEXT I
445 POKE V+21,0
450 PRINT"[147]":POKE 53280,0:POKE 53281,0:POKE 646,3
460 PRINT" UND VERGESST NICHT :"
470 FOR I=1 TO 5000:NEXT I
480 PRINT"    SCHWEIGEN IST ZUSTIMMUNG"
490 PRINT"   [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
500 SYS 42107