home *** CD-ROM | disk | FTP | other *** search
/ Atari Gold / Atari Gold.iso / om_basic / vollver3.03 / spriteed / spr_demo.bas < prev    next >
Encoding:
BASIC Source File  |  1988-10-01  |  1.1 KB  |  27 lines
  1. 90 'die Zeilen 100-260 werden direkt vom Sprite-Editor so abgespeichert.
  2. 91 'Ab Zeile 1000 finden Sie ein kurzes Demo, das den Rahmen bewegt.
  3. 92 '(Maus bewegen!)
  4. 93 'Achtung! Das Demo laeuft nur in s/w.
  5. 100 Rahmen%L= MEMORY(256): FOR I%L=Rahmen%L TO Rahmen%L+252 STEP 4: READ A%L: LPOKE I%L,A%L: NEXT
  6. 110 DATA -1,0,-1,0
  7. 120 DATA -1,1073741820,-1,1073741820
  8. 130 DATA -1,805306380,-1,805306380
  9. 140 DATA -67108801,805306380,-67108801,805306380
  10. 150 DATA -67108801,805306380,-67108801,805306380
  11. 160 DATA -67108801,805306380,-67108801,805306380
  12. 170 DATA -67108801,805306380,-67108801,805306380
  13. 180 DATA -67108801,805306380,-67108801,805306380
  14. 190 DATA -67108801,805306380,-67108801,805306380
  15. 200 DATA -67108801,805306380,-67108801,805306380
  16. 210 DATA -67108801,805306380,-67108801,805306380
  17. 220 DATA -67108801,805306380,-67108801,805306380
  18. 230 DATA -67108801,805306380,-67108801,805306380
  19. 240 DATA -1,805306380,-1,805306380
  20. 250 DATA -1,1073741820,-1,1073741820
  21. 260 DATA -1,0,-1,0
  22. 1000 PRINT CHR$(27);"f";: DEF SPRITE 1, PEEK($44C)*2+2, MEMORY(1024)
  23. 1010 REPEAT
  24. 1020    SPRITE 1, MOUSEX , MOUSEY ,Rahmen%L,0,1
  25. 1030 UNTIL MOUSEBUT
  26. 1040 DEF SPRITE 1,0: WVBL
  27. ə