10 REM SINE 
20 REM JOHN A COLL 
30 REM VERSION 2 / 16 NOV 81 
40 REM MODEL A 
50 MODE4 
60 VDU5 
70 GCOL 0,1 
80 VDU19,1,1,0,0,0 
90 MOVE 16,400 
100 
110 FOR X=0 TO 320 
120 IF X<150 THEN MOVE 4*X+16,400 
130 PLOT 21,4*X+16,300*SIN(X/48)+ 400 
140 NEXT 
160 GCOL 0,1 
170 A$="SINE WAVES ARE FAR MORE INTERESTING . . . . ." 
180 
190 FOR X=1 TO 39 
200 MOVE X*1280/40,300*SIN(X/6)+512 
210 PRINT MID$(A$,X,1) 
220 NEXT 
230 
240 VDU4 
250 END