3d.bas

smallbasic for linux

#!/usr/local/bin/sbrun -g
' 3d.bas
' 07/06/2000

d=100:t=.7:p=1.3
redraw
repeat
	k=inkey$
	if k="1":t=t+.1:redraw
	elif k="2":t=t-.1:redraw
	elif k="3":p=p+.1:redraw
	elif k="4":p=p-.1:redraw
	elif k="5":d=d+10:redraw
	elif k="6":d=d-10:redraw
	endif
until k="q"
end

'
'	sxediasmos olvn v
'
sub redraw
cls
? "1/2=+-