Content
Image 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
\n1000 IF INKEY$<>"" THEN RETURN
\n1010 GOTO 1000
\n2000 STOP
\n2010 SAVE "1016%3"
\n2020 RUN