home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / graph (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  424b  |  21 lines
  1. 0 REM    GRAPH
  2. 10 (null)1:(null)1:(null)1
  3. 20 (null):(null)1:(null)7,0
  4. 30 (null):POKE53280,0
  5. 40 :
  6. 50 DEF FNA(X)=COS(X)-COS(2*X)+COS(4*X)-COS(8*X)
  7. 60 MX=160:MY=100
  8. 70 (null)MY:(null)MX
  9. 80 FORI=0TOMYSTEP20:(null)MX,MY-I:(null)MX,MY+I:NEXT
  10. 90 FORI=0TOMXSTEP20:(null)MX-I,MY:(null)MX+I,MY:NEXT
  11. 100 PA=0:YA=MY-(20*FNA(-MX/20))
  12. 110 FORP=1TO319
  13. 120 X=(P-MX)/20:Y=FNA(X)
  14. 130 YY=MY-(Y*20)
  15. 140 IFYY<0ORYY>199THEN160
  16. 150 (null)PA,YA,P,YY
  17. 160 PA=P:YA=YY
  18. 170 NEXT
  19. 180 (null)0,190:PRINT""SPC(255)SPC(255)SPC(255)"   PLEASE PRESS 'SHIFT'!";
  20. 190 WAIT653,1:(null)
  21.