home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-10_2002_CSW_Side_A.d64 / hires-demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  39 lines
  1. 2 p=p+1:ifp=2then22
  2. 4 f=peek(53280):poke56576,peek(56576)and254:poke53272,peek(53272)or128
  3. 6 poke53265,peek(53265)or32:b=16384:c=25600
  4. 8 gosub30:fori=0to7999:pokeb+i,180:next
  5. 10 f=255-f:poke53280,f:poke53270,peek(53270)or16:x=int(rnd(0)*255):fori=0to999
  6. 12 poke55296+i,x:getk$:ifk$<>""then18
  7. 14 ifint(i/200)=i/200thenpoke53281,int(rnd(0)*256)
  8. 16 next:poke53270,peek(53270)and239:f=255-f:poke53280,f:gosub30:goto10
  9. 18 poke53270,peek(53270)and239:f=255-f:poke53280,f
  10. 20 load"bmp.demo",8,1
  11. 22 fori=0to999:pokec+i,27:next:fori=0to1000:next:fori=0to7999:pokeb+i,0:next
  12. 24 gosub32:fori=0to5000:next
  13. 26 poke53265,peek(53265)and223:poke53270,peek(53270)and239
  14. 28 poke53272,peek(53272)and127:poke56576,peek(56576)or1:sys42115
  15. 30 x=int(rnd(0)*256):fori=0to999:pokec+i,x:next:return
  16. 32 :rem * quadrat *
  17. 34 xa=40:ya=10:xe=120:ye=10:gosub60:xa=120:ya=10:xe=120:ye=90:gosub60
  18. 36 xa=120:ya=90:xe=40:ye=90:gosub60:xa=40:ya=90:xe=40:ye=10:gosub60
  19. 38 :rem * raute *
  20. 40 xa=240:ya=10:xe=280:ye=50:gosub60:xa=280:ya=50:xe=240:ye=90:gosub60
  21. 42 xa=240:ya=90:xe=200:ye=50:gosub60:xa=200:ya=50:xe=240:ye=10:gosub60
  22. 44 :rem * kreis *
  23. 46 xm=80:ym=150:xr=40:yr=40:forw=0to360
  24. 48 xa=xm+int(xr*cos(w*(NULL)/180)):ya=ym+int(yr*sin(w*(NULL)/180)):gosub74:next
  25. 50 :rem * sinus *
  26. 52 xa=170:ya=150:xe=310:ye=150:gosub60:xa=240:ya=110:xe=240:ye=190:gosub60
  27. 54 xa=180:ya=150:y=ya:forx=0to360step3
  28. 56 ya=y+int(30*sin(x*(NULL)/180)):gosub74:xa=xa+1:next
  29. 58 return
  30. 60 ifxa=xeandya=yethenreturn
  31. 62 gosub74:rem * plot *
  32. 64 ifxa<xethenxa=xa+1
  33. 66 ifya<yethenya=ya+1
  34. 68 ifxa>xethenxa=xa-1
  35. 70 ifya>yethenya=ya-1
  36. 72 goto60
  37. 74 z=2^(7+int(xa/8)*8-xa):po=b+int(ya/8)*320+ya-int(ya/8)*8+int(xa/8)*8
  38. 76 pokepo,peek(po)orz:return
  39.