home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / drachen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  555b  |  25 lines
  1. 100 rem drachen
  2. 110 if flag=0 then flag=1:load "graphtool.obj",8,1
  3. 120 input "wie oft zerteilen : ";tm
  4. 130 sys49152:sys49158,1,0:rem graphik initialisieren
  5. 140 x1=0:y1=100
  6. 150 l=300:gr=0
  7. 160 gosub 190
  8. 170 geta$:ifa$=""then170
  9. 180 sys49155:goto120
  10. 190 l(i)=l:gr(i)=gr:tm(i)=tm:i=i+1
  11. 200 tm=tm-1: if tm < 1 then 290
  12. 210 l=l/4:gosub 190
  13. 220 gr=gr+90:gosub 190
  14. 230 gr=gr-90:gosub 190
  15. 240 l=l+l:gr=gr-90:gosub190
  16. 250 l=l/2:gr=gr+90:gosub190
  17. 260 gr=gr+90:gosub 190
  18. 270 gr=gr-90:gosub 190
  19. 280 goto320
  20. 290 x0=x1:y0=y1:bo=gr*2*(NULL)/360
  21. 300 x1=x0+cos(bo)*l:y1=y0+sin(bo)*l
  22. 310 sys49173,x0,y0,x1,y1
  23. 320 i=i-1:l=l(i):gr=gr(i):tm=tm(i)
  24. 330 return
  25.