home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / fensterrose (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  782b  |  33 lines
  1. 1 rem ********************************
  2. 2 rem *                              *
  3. 3 rem *         fensterrose          *
  4. 4 rem * version m. allgem. befehlen  *
  5. 5 rem *                              *
  6. 6 rem *  heimo ponnath hamburg 1985  *
  7. 7 rem *                              *
  8. 8 rem ********************************
  9. 9 rem **** eingaben *****
  10. 10 poke53280,0:poke53281,0:poke646,5:printchr$(147)
  11. 15 input"anzahl stuetzpunkte";n
  12. 20 input"radius";r:input"textort xt,yt";xt,yt
  13. 25 init
  14. 35 start
  15. 45 mitte
  16. 60 d=2*(NULL)/n:dimx(n),y(n)
  17. 65 kreis(0,0,r,r)
  18. 80 gosub200
  19. 90 a$="fensterrose"
  20. 100 text(a$,xt,yt)
  21. 105 show
  22. 120 poke198,0:wait198,1
  23. 125 normal
  24. 135 greset
  25. 160 end
  26. 200 rem ****** up zeichnen **********
  27. 210 fori=1ton:t=t+d:x(i)=r*cos(t):y(i)=r*sin(t):nexti
  28. 220 s=n-1
  29. 230 fori=1tos:z=i+1
  30. 240 forj=zton
  31. 245 linie(x(i),y(i),x(j),y(j))
  32. 250 nextj:nexti:return
  33.