home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / hires-spiralen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  39 lines
  1. 1 rem**********************************
  2. 2 rem*                                *
  3. 3 rem*     verschlungene spiralen     *
  4. 4 rem*   version fuer h i r e s - 3   *
  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 rem**** init ****
  14. 23 sys37498:hfl,6,12
  15. 25 rem**** start ****
  16. 26 trs,0,320,0,200
  17. 30 rem**** mitte ****
  18. 32 trs,-160,160,-100,100
  19. 35 gosub100:tkr,0,0,r,r,2*(NULL)
  20. 40 a$="verschlungene spiralen"
  21. 42 rem**** text ****
  22. 45 tex,a$,yt,xt
  23. 50 rem**** show (hier unnoetig)****
  24. 55 poke198,0:wait198,1
  25. 60 rem**** normal ****
  26. 62 hof
  27. 65 rem**** greset ****
  28. 67 loe:aus
  29. 70 end
  30. 100 rem****** unterprogramm zeichnen ***
  31. 102 nn=n*100:ra=r/nn:dimt(nn):a=a1
  32. 105 forj=1ton:a=a+2*(NULL)/n
  33. 110 t=a:th=2*(NULL)/100:t(0)=t
  34. 115 fori=1tonn:t(i)=t(i-1)+th:rr=ra*i
  35. 120 tln,(rr-ra)*cos(t(i-1)),(rr-ra)*sin(t(i-1)),rr*cos(t(i)),rr*sin(t(i))
  36. 125 nexti
  37. 130 nextj
  38. 135 return
  39.