home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / spiralen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  883b  |  33 lines
  1. 1 rem**********************************
  2. 2 rem*                                *
  3. 3 rem*     verschlungene spiralen     *
  4. 4 rem* version m. allgemeinen 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 spiralen";n:input"textstart xt,yt";xt,yt
  12. 20 input"radius,startwinkel";r,a1
  13. 22 init
  14. 25 start
  15. 30 mitte
  16. 35 gosub100:kreis(0,0,r,r)
  17. 40 a$="verschlungene spiralen"
  18. 45 text(a$,xt,yt)
  19. 50 show
  20. 55 poke198,0:wait198,1
  21. 60 normal
  22. 65 greset
  23. 70 end
  24. 100 rem****** unterprogramm zeichnen ***
  25. 102 nn=n*100:ra=r/nn:dimt(nn):a=a1
  26. 105 forj=1ton:a=a+2*(NULL)/n
  27. 110 t=a:th=2*(NULL)/100:t(0)=t
  28. 115 fori=1tonn:t(i)=t(i-1)+th:rr=ra*i
  29. 120 linie((rr-ra)*cos(t(i-1)),(rr-ra)*sin(t(i-1)),rr*cos(t(i)),rr*sin(t(i)))
  30. 125 nexti
  31. 130 nextj
  32. 135 return
  33.