home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 63 / 64er_Magazin_Sonderheft_63_19xx_Markt__Technik_de_Side_A.d64 / ecr-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  51 lines
  1. 10 if a=0 then a=1:load"ecr - plot",8,1
  2. 100 rem ------------------------------
  3. 110 rem -- ecr-mode example         --
  4. 120 rem ------------------------------
  5. 130 rem -- das programm e.c.r.-plot --
  6. 140 rem -- ist nicht fuer den       --
  7. 150 rem -- basic-einsatz gedacht,   --
  8. 160 rem -- da die rechenintensive   --
  9. 170 rem -- routine die zeropage ver---
  10. 180 rem -- aendert.                 --
  11. 190 rem -- daher ist dieses beispiel--
  12. 200 rem -- programm nach einem 'run'--
  13. 210 rem -- nicht mehr listbar.. .   --
  14. 220 rem -- ausserdem sollte der     --
  15. 230 rem -- e.c.r graphikbildschirm  --
  16. 240 rem -- (von $4000 bis $7fff)    --
  17. 250 rem -- 'von hand' geloescht     --
  18. 260 rem -- werden (z.b. mit einem   --
  19. 270 rem -- maschinensprache-monitor)--
  20. 280 rem -- in basic haette dies zu  --
  21. 290 rem -- lange gedauert.. .       --
  22. 300 rem -- ich schaetze mal 15-20min--
  23. 310 rem --                          --
  24. 320 rem -- uebrigens! der e.c.r.    --
  25. 330 rem -- mode 'frisst' wahnsinnig --
  26. 340 rem -- viel rechenzeit (ca 70%) --
  27. 350 rem -- - lassen sie das prg mal --
  28. 360 rem -- bei ausgeschaltetem      --
  29. 370 rem -- ecr-mode laufen.. .      --
  30. 380 rem --                          --
  31. 390 rem --                servus..  --
  32. 400 rem ------------------------------
  33. 410 readf
  34. 420 pnt=49152
  35. 430 poke 53280,0:poke 53281,0
  36. 440 sys 49155
  37. 450 forr=10to50step.5
  38. 460 xk=50:yk=100
  39. 470 for x=-rto0
  40. 480 y1=2*sqr(r*r-x*x)
  41. 490 y2=-y1
  42. 500 zx=xk+x:x2=xk-x
  43. 510 z1=yk+y1
  44. 520 z2=yk+y2
  45. 530 sys pnt,zx,z1,f:sys pnt,x2,z1,f
  46. 540 sys pnt,zx,z2,f:sys pnt,x2,z2,f
  47. 550 nextx
  48. 560 readf:iff=-1then restore:goto560
  49. 570 nextr
  50. 580 data 9,11,8,12,15,1,1,13,3,14,4,6,-1
  51.