home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64 / spriteraster (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.