40 480 GOTO 310 490 FOR K=1 TO 39 500 PRINT D$, 510 NEXT K 520 PRINT 530 PRINT B$ 540 DATA 0,6.4,0.2,-1,1,20 >RUN NUMBER OF CYCLES e.g. 1 to 5 ?3 BACKGROUND SYMBOL e.g. +?. MOTIF( TEXT AFTER DESIGN?That's all folks SINE This program draws a sine wave on the screen. The computer can draw dotted lines and the feature is used to fill in one part of the sine wave (line 130). The computer can also print letters anywhere on the screen not just on a 40 by 25 grid. Lines 190 to 220 print a message in the shape of another sine curve.
10 REM SINE 20 REM JOHN A COLL 30 REM VERSION 2 / 16 NOV 81 50 MODE 4 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 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)+500 210 PRINT MID$(A$,X,1) 220 NEXT 230 240 VDU4 250 END