2 PRINT CHR$(27)+"[H"+CHR$(27)+"[2J"
3 LINECMD$=CHR$(27)+"[H"+CHR$(27)+"[Z1;"
5 FOR I= 1 TO 15 : PRINT : NEXT I : PRINT "Plotting a SINE."
6 Y2=94
10 FOR X = 0 TO 360
20 X1=0+X*254/360
30 Y1=96-SIN(X/57.2958)*(191/2)
31 X1=INT(X1)
32 Y1=INT(Y1)
40 GOSUB 2000
50 NEXT X
999 END
1000 REM FORMAT NUMBERS TO STRINGS W/O SPACES
1001 X1$=MID$(STR$(X1),2)
1010 Y1$=MID$(STR$(Y1),2)
1020 X2$=MID$(STR$(X2),2)
1030 Y2$=MID$(STR$(Y2),2)
1050 RETURN
2000 REM PRINT LINES TO TERMINAL
2010 GOSUB 1000
2020 PRINT LINECMD$+X1$+";"+Y1$+";"+X2$+";"+Y2$+"Z"
2065 REM CONVERT DEST CORDS TO ORIG CORDS
2066 X2=X1 : Y2=Y1
2070 RETURN
5000 REM 8SINPLOT.BAS