' *****************
' *** DEFFN.LST ***
' *****************
'
DEFWRD "a-z"
'
DEFFN digit(number,place)=VAL(MID$(STR$(number),place,1))
DEFFN div(number,divisor)=(MOD(number,divisor)=0)
'
DEFFN center$(text$)=SPACE$((scrn.col.max-LEN(text$))/2)+text$
DEFFN flush.r$(text$)=SPACE$(scrn.col.max-LEN(text$))+text$
DEFFN clear$(line)=CHR$(27)+"Y"+CHR$(33)+CHR$(32+line)+CHR$(27)+"l"
'
DEFFN rev$(txt$)=CHR$(27)+"p"+txt$+CHR$(27)+"q"
DEFFN txt.color$(txt$,letter.col,back.col)=CHR$(27)+"b"+CHR$(color.index(letter.col))+CHR$(27)+"c"+CHR$(color.index(back.col))+" "+txt$+" "
DEFFN ink$(color)=CHR$(27)+"b"+CHR$(color.index(color))
DEFFN paper$(color)=CHR$(27)+"c"+CHR$(color.index(color))
'
DEFFN last.record(buffer,field.len)=LOF(#buffer)/field.len
'
DEFFN fun.key$(n)=CHR$(0)+CHR$(n+58)
DEFFN s.fun.key$(n)=CHR$(0)+CHR$(n+83)
'
DEFFN log(grondgetal,x#)=LOG(x#)/LOG(grondgetal)
'
DEFFN arccot(x#)=ATN(-x#)+PI/2
DEFFN sinh(x#)=(EXP(x#)-EXP(-x#))/2
DEFFN cosh(x#)=(EXP(x#)+EXP(-x#))/2
DEFFN tanh(x#)=(EXP(x#)-EXP(-x#))/(EXP(x#)+EXP(-x#))
DEFFN coth(x#)=1/FN tanh(x#)
DEFFN arsinh(x#)=LOG(x#+SQR(x#*x#+1))
DEFFN arcosh(x#)=LOG(x#+SQR(x#*x#-1))
DEFFN artanh(x#)=LOG((1+x#)/(1-x#))/2
DEFFN arcoth(x#)=LOG((x#+1)/(x#-1))/2
'
DEFFN word(adr%)=ADD(BYTE{SUCC(adr%)},MUL(256,BYTE{adr%}))