Sine Wave

Gallery

Source Code

   1 REM "SIN CURV"
  10 DIM C(64)
  20 FOR V=1 TO 64
  30 LET C(V)=22+20*(SIN ((V-1)/32*PI))
  40 NEXT V
 100 FOR G=1 TO 64
 110 PLOT G-1,C(G)
 115 NEXT G
 117 GOSUB 1000
 125 GOSUB 1000
 135 FOR H=1 TO 6
 140 PRINT 
 145 NEXT H
1000 IF INKEY$<>"" THEN RETURN 
1010 GOTO 1000
2000 STOP 
2010 SAVE "1016%3"
2020 RUN