home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107a.d64 / vogel (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  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.