sin.bas

smallbasic for linux

#!/usr/local/bin/sbrun -g
rem sin,cos

cls
print "sin(x), cos(x)"

line 0,80,159,80
for i=0 to 159
	pset i,80+sin(i*2*pi/160)*60
	pset i,80+cos(i*2*pi/160)*60
next