global st$,rFloat#Function floatToString(value#) floatBank=CreateBank(4) PokeFloat floatBank,0,value st$=Chr$(PeekByte(floatBank,0)) + Chr$(PeekByte(floatBank,1)) + Chr$(PeekByte(floatBank,2)) + Chr$(PeekByte(floatBank,3)) FreeBank floatBankEnd FunctionFunction stringToFloat(st$) floatBank=CreateBank(4) PokeByte floatBank,0,Asc(Mid(st,1)) PokeByte floatBank,1,Asc(Mid(st,2)) PokeByte floatBank,2,Asc(Mid(st,3)) PokeByte floatBank,3,Asc(Mid(st,4)) rFloat#=PeekFloat(floatBank,0) FreeBank floatBankEnd FunctionFunction intToString(value) intBank=CreateBank(4) PokeInt intBank,0,value st$=Chr$(PeekByte(intBank,0)) + Chr$(PeekByte(intBank,1)) + Chr$(PeekByte(intBank,2)) + Chr$(PeekByte(intBank,3)) FreeBank intBank End FunctionFunction stringToInt(st$) intBank=CreateBank(4) PokeByte intBank,0,Asc(Mid(st,1)) PokeByte intBank,1,Asc(Mid(st,2)) PokeByte intBank,2,Asc(Mid(st,3)) PokeByte intBank,3,Asc(Mid(st,4)) value=PeekInt(intBank,0) FreeBank intBank Return valueEnd Function