home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / pg64-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  420b  |  22 lines
  1. 1 (NULL)0
  2. 2 (NULL):gosub19:gosub21
  3. 3 gosub20:gosub21:end
  4. 4 fors=0to1
  5. 5 forx=0toxm:y=199*x/(2*xm)
  6. 6 (NULL) xm,0,xm+x,100-y
  7. 7 (NULL) xm,0,xm-x,100-y
  8. 8 (NULL) xm,199,xm+x,100+y
  9. 9 (NULL) xm,199,xm-x,100+y
  10. 10 (NULL) 0,100,xm-x,100-y
  11. 11 (NULL) 0,100,xm-x,100+y
  12. 12 (NULL) 2*xm,100,xm+x,100-y
  13. 13 (NULL) 2*xm,100,xm+x,100+y
  14. 14 next:(NULL) 2
  15. 15 forx=0toxmstepxm/16:y=199*x/(2*xm)
  16. 16 (NULL) x,y,2*xm-x,199-y
  17. 17 next:next:forx=0to3000:next
  18. 18 return
  19. 19 (NULL)6,14:(NULL):xm=160:return
  20. 20 (NULL)7,2,14:(NULL):(NULL)1:xm=80:return
  21. 21 (NULL)0:gosub4:(NULL):goto4
  22.