home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_006_19xx_-_de_Disk_2_of_2_Side_A.d64
/
a-rechtsdemo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
79 lines
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