Listing of file='SINWVE.BAS;01' on disk='vmedia/games-sector.ccvf'
10 PLOT 12 30 INPUT "HOW MANY CYCLES WOULD YOU LIKE : ";N 40 PLOT 12 50 A= 2* 3.1415926535* N/ 127 80 PLOT 6,1 90 PLOT 2 91 PLOT 6,64,242,127,64 92 PLOT 127,64,242,6,64 93 PLOT 6,0,242,6,127 94 PLOT 255 95 A$(0)= "1":A$(1)= "0":A$(2)= "-1" 96 PLOT 3,2,0:PRINT A$(0) 97 PLOT 3,2,15.5:PRINT A$(1) 98 PLOT 3,1,31:PRINT A$(2) 100 PLOT 2 105 FOR X= 8TO 127 110 PLOT X,63* (1+ SIN (A* X)) 120 NEXT X:PLOT 255 130 D= D+ 1 140 IF D= 120GOTO 10 150 GOTO 130