REM Var_Assign(Var$,Val$)
REM Sets the variable in 'Var$' to the value in 'Val$'
REM --------------------------------------------------
:
DEFPROCVar_Assign(Var$,Val$)
IF RIGHT$(Var$,1)="$":A%=EVAL("FNVar_S("+Var$+","+Val$+")"):ENDPROC
IF RIGHT$(Var$,1)="%":A%=EVAL("FNVar_I("+Var$+","+Val$+")"):ENDPROC
IF RIGHT$(Var$,1)="&":A%=EVAL("FNVar_B("+Var$+","+Val$+")"):ENDPROC
IF RIGHT$(Var$,1)="#":A%=EVAL("FNVar_F("+Var$+","+Val$+")"):ENDPROC
A%=EVAL("FNVar_R("+Var$+","+Val$+")"):ENDPROC
ENDPROC
:
DEFFNVar_S(RETURN a$,b$):a$=b$:=0
DEFFNVar_I(RETURN a%,b%):a%=b%:=0
DEFFNVar_B(RETURN a&,b&):a&=b&:=0
DEFFNVar_F(RETURN a#,b#):a#=b#:=0
DEFFNVar_R(RETURN a, b ):a =b :=0