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 >
Commodore BASIC  |  2023-02-26  |  2KB  |  79 lines
  1. 0 rem hallo freunde! greenhorn hat mir
  2. 1 rem dieses anti-nazi demo am 31.8.93
  3. 2 rem fuer die rockford-fd serie zuge-
  4. 3 rem sandt... addys: greenhorn, schl-
  5. 4 rem ossplatz 8, 95185 gattendorf;
  6. 5 rem und meine: rockford-fd serie,
  7. 6 rem alex zop, amselweg 1, d-85293
  8. 7 rem reichertshausen. ps: freundschaft
  9. 8 rem ist viel schoener als hass! alex
  10. 9 rem ---------------------------------
  11. 10 rem*****************************
  12. 20 rem*  this demo was done       *
  13. 30 rem*     by greenhorn          *
  14. 40 rem*   of tiger - crew         *
  15. 50 rem*****************************
  16. 55 if l=0 then l=1:load"anti-demo",8,1
  17. 60 poke 53280,8:poke 53281,8:poke 646,9
  18. 70 v=53248:poke 2040,136:poke 2041,170
  19. 71 poke v+37,7:poke v+38,0:poke v+39,12
  20. 73 poke v+28,3
  21. 75 poke v+21,1
  22. 80 print"[147]"
  23. 85 print"       deutschland den deutschen"
  24. 86 for i=1to 5000:next i
  25. 90 poke v,50:poke v+1,150
  26. 95 poke 2040,136
  27. 100 for i=1to 100:next i
  28. 110 poke 2040,138
  29. 120 for i=1to 200:next i
  30. 130 poke 2040,137
  31. 140 for i=1 to 100:next i
  32. 150 poke 2040,138
  33. 160 for i=1 to 50:next i
  34. 165 z=z+1
  35. 166 if z=30 then 200
  36. 170 goto 95
  37. 200 print"[147]"
  38. 205 poke 646,0
  39. 210 print"   noch koennen wir etwas dagegen tun"
  40. 215 for i=1 to 3000:next i
  41. 220 poke v+21,3
  42. 230 poke 2041,140:poke v+2,50
  43. 240 for y=70to 150
  44. 250 poke v+3,y
  45. 260 for i=1to 10:next i
  46. 261 if y=133 then poke 2040,143
  47. 262 if y=137 then poke 2040,144
  48. 263 if y=140 then poke 2040,145
  49. 264 if y=147 then poke 2040,146
  50. 270 next y
  51. 280 poke 2041,141
  52. 285 for i=1to 300:next i
  53. 290 poke 2041,142
  54. 295 for i=1to 300:next i
  55. 300 poke 2041,141
  56. 310 for i=1to150:next i
  57. 320 poke 2041,140
  58. 330 for i=1to 300:next i
  59. 340 poke 2041,141
  60. 350 for i=1to220:next i
  61. 360 poke 2041,140
  62. 370 for i=1to 200:next i
  63. 380 poke 2041,141
  64. 385 for i=1to 300:next i
  65. 390 poke 2041,142
  66. 395 for i=1to 300:next i
  67. 400 poke 2041,140
  68. 410 for i=1to150:next i
  69. 420 for i=1to 5000:next i
  70. 430 print"          aber wie lange noch ?"
  71. 440 for i=1 to 7000:next i
  72. 445 poke v+21,0
  73. 450 print"[147]":poke 53280,0:poke 53281,0:poke 646,3
  74. 460 print" und vergesst nicht :"
  75. 470 for i=1 to 5000:next i
  76. 480 print"    schweigen ist zustimmung"
  77. 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]"
  78. 500 sys 42107
  79.