ok, here is what I have, however, it doesn't appear to work. The code is incredibly untidy, sorry. This was meant to be quick and easy!
set display mode 800,600,16
start:
input "enter angle",ang$
ang=val(ang$)
drawhand(400,300,ang,200)
wait key
goto start
function handx(x,ang,leng)
if ang=<180
opp=sin(ang)*leng
x2#=opp+x
endif
if ang=>181 and ang<=360
opp=sin(ang)*leng
x2#=x-opp
endif
endfunction x2#
function handy(y,ang,leng)
if ang=<90
adj=cos(ang)*leng
y2#=y-adj
endif
if ang=<270 and ang=>91
adj=cos(ang)*leng
y2#=y+adj
endif
if ang>=271 and ang<=360
adj=cos(ang)*leng
y2#=y-adj
endif
endfunction y2#
function drawhand(x,y,ang,leng)
ang=wrapvalue(ang)
line x,y,handx(x,ang,leng),handy(y,ang,leng)
endfunction
Also, if you have suggestions, please don't just post code, I would prefer a helpful hint to point me in the right direction. Cheers.
REM get a signature off the user
INPUT "Type your sig here",sig$
PRINT sig$