home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh75b.d64 / spriteraster (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  515b  |  20 lines
  1. 1 SYS58692
  2. 10 IFA=0THENA=1:LOAD"GRAPHICCLR",8,8
  3. 20 IFA=1THENA=2:LOAD"BITMAPON",8,8
  4. 25 IFA=2THENA=3:LOAD"BITMAPOFF",8,8
  5. 30 IFA=3THENA=4:LOAD"COLORS",8,8
  6. 40 IFA=4THENA=5:LOAD"PLOT",8,8
  7. 42 SYS28700:REM BITMAP LOESCHEN
  8. 45 SYS28726:REM HIRES-MODUS EIN
  9. 46 FORI=1024TO2023:POKEI,1:NEXT:REM FARBRAM (HINTERGR=WEISS, VORDERGR=SCHWARZ)
  10. 50 FORY=0TO189STEP9:FORX=0TO216:GOSUB60:NEXTX,Y:REM HORIZONTALE LINIEN
  11. 55 FORY=0TO189:FORX=0TO216STEP9:GOSUB60:NEXTX,Y:REM VERTIKALE LINIEN
  12. 56 POKE198,0:WAIT198,1
  13. 57 SYS28743:END
  14. 60 XH=INT(X/256):XL=X-XH*256
  15. 70 POKE966,XL:POKE967,XH
  16. 90 POKE968,Y
  17. 100 POKE964,1
  18. 110 SYS28892:SYS28759
  19. 130 RETURN
  20.