home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / demo 6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  476 b   |  29 lines
  1. 10 ' demo six - nested triangles
  2. 20 pi=3.14159265
  3. 25 def fn deg(deg)=deg*pi/180
  4. 26 '
  5. 30 ***error*** nest(size,level)
  6. 40 if level=0 then ***error***
  7. 50 ***error***
  8.  size/2
  9. 60 ***error*** ***error***nest(size,level)
  10. 70 ***error***
  11.  size/2: ***error*** fn deg(120)
  12. 80 ***error***
  13.  size: ***error*** fn deg(120)
  14. 90 ***error***
  15.  size: ***error*** fn deg(120)
  16. 100 ***error***
  17. 110 '
  18. 120 ***error*** ***error***nest(size,level)
  19. 130 ***error*** fn deg(60)
  20. 140 ***error*** nest(size/2,level-1)
  21. 150 ***error*** fn deg(60)
  22. 160 ***error***
  23. 170 '
  24. 180 ***error*** 0,1: ***error*** 100,30: ***error***
  25. 190 ***error*** 1: ***error******error***: ***error*** fn deg(90)
  26. 200 ***error*** nest(150,5)
  27. 210 for a=1 to 1000: next a
  28. 220 ***error***: end
  29.