home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / vogel (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  921b  |  24 lines
  1. 10 v=53248:rem basisadresse des vic $d000
  2. 20 pokev+28,1:pokev+37,2:pokev+38,3
  3. 30 poke v,255: rem x-koordinate=255
  4. 40 poke v+1,100: rem y-koordinate=100
  5. 50 fori=8192 to 8384:reada:pokei,a:next
  6. 60 a=128
  7. 70 poke2040,128:rem block128 erste sequenz
  8. 80 poke v+21,1:rem sprite 0 einschalten
  9. 90 fori=0 to 255
  10. 100 a=a+1:ifa=131thena=128
  11. 110 forp=0to100:next:rem pause
  12. 120 poke2040,a:pokev,i
  13. 130 next
  14. 140 s=1-s:pokev+16,s:rem linke & rechte seite wechseln
  15. 150 goto90
  16. 32000 data0,0,1,80,0,20,100,0,100,29,1,224,11,71,144,6,223,128,2,222,128,1,158
  17. 32001 data64,5,105,64,19,234,144,95,123,224,21,31,100,0,5,20,0,0,4,0,0,0,0,0
  18. 32002 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,5,0,85,26,65,164
  19. 32003 data102,198,144,81,158,64,5,105,64,19,234,144,95,123,228,21,31,105,0,5
  20. 32004 data1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0
  21. 32005 data0,0,0,0,0,0,0,0,0,5,0,9,158,64,37,105,64,19,234,144,95,119,228,5,25
  22. 32006 data169,16,6,96,0,0,16,0,0,4,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  23. 32007 data0,0,0,10,0
  24.