Variable

10 REM > BLib.Variable v1.01

20 REM Variable assignment functions

30 REM =============================

40 REM!Keep FNVar_S(), FNVar_I(), FNVar_B(), FNVar_F(), FNVar_R()

50 |!Keep FNVar_S(); FNVar_I(); FNVar_B(); FNVar_F(); FNVar_R()

60 :

70 REM Var_Assign(Var$,Val$)

80 REM Sets the variable in 'Var$' to the value in 'Val$'

90 REM --------------------------------------------------

100 :

110 DEFPROCVar_Assign(Var$,Val$)

120 IFRIGHT$(Var$,1)="$":IFEVAL("FNVar_S("+Var$+","+Val$+")"):ENDPROC

130 IFRIGHT$(Var$,1)="%":IFEVAL("FNVar_I("+Var$+","+Val$+")"):ENDPROC

140 IFRIGHT$(Var$,1)="&":IFEVAL("FNVar_B("+Var$+","+Val$+")"):ENDPROC

150 IFRIGHT$(Var$,1)="#":IFEVAL("FNVar_F("+Var$+","+Val$+")"):ENDPROC

160 IFEVAL("FNVar_R("+Var$+","+Val$+")"):ENDPROC

170 ENDPROC

180 :

190 DEFFNVar_S(RETURN a$,b$):a$=b$:=1

200 DEFFNVar_I(RETURN a%,b%):a%=b%:=1

210 DEFFNVar_B(RETURN a&,b&):a&=b&:=1

220 DEFFNVar_F(RETURN a#,b#):a#=b#:=1

230 DEFFNVar_R(RETURN a, b ):a =b :=1

240 :