home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / demo 4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  559 b   |  32 lines
  1. 10 ' demo four - duopoly
  2. 20 ***error***3,3: pi= 3.14159265
  3. 25 def fn deg(deg)=deg*pi/180
  4. 26 '
  5. 30 ***error*** duopoly(s1,a1,s2,a2,loop)
  6. 40 ***error*** c: c=0
  7. 50 for a=1 to loop
  8. 60 ***error*** vector(c*a1,s1)
  9. 70 ***error*** vector(c*a2,s2)
  10. 80 c=c+1
  11. 90 next a
  12. 100 ***error***
  13. 101 '
  14. 102 ***error*** vector(dir,size)
  15. 103 ***error*** fn deg(dir): ***error***
  16.  size
  17. 105 ***error***
  18. 110 '
  19. 120 ***error***: ***error*** 1,0
  20. 130 ***error*** 1: ***error******error***: ***error***
  21. 131 ' goto 144
  22. 140 ***error*** duopoly(15,90,15,320,36)
  23. 141 ***error***:***error***
  24. 142 ***error*** duopoly(30,90,30,300,20)
  25. 143 ***error*** 160,70: ***error***
  26. 144 ***error*** duopoly(5 ,5,5 ,-9,362)
  27. 145 ***error***: ***error***
  28. 146 ***error*** duopoly(9,20,9,-19,356)
  29. 147 ***error*** 160,10: ***error***
  30. 148 ***error*** duopoly(10,32,5,4,90)
  31. 150 ***error***: end
  32.