home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64 / sinus (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  539b  |  23 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,16*0+9:next:rem farbram
  10. 50 forx=1to319step.33
  11. 51 y=int(90+80*sin(x/10))
  12. 52 gosub60:next
  13. 55 fory=0to199step100:forx=0to319:gosub60:nextx,y:rem horizontale linien
  14. 57 fory=0to199:forx=0to319step159:gosub60:nextx,y:rem vertikale linien
  15. 58 poke198,0:wait198,1
  16. 59 sys28743:end
  17. 60 xh=int(x/256):xl=x-xh*256
  18. 70 poke966,xl:poke967,xh
  19. 90 poke968,y
  20. 100 poke964,1
  21. 110 sys28892:sys28759
  22. 130 return
  23.