here quick example:
GLOBAL a AS DOUBLE FLOAT
a$="11111111.11"
b# = 2 //Multiply
//Grab Answer
carry=0
answer$=""
for i=1 to len(a$)
character$ = Mid$(a$,i)
if character$ = "."
answer$=answer$+character$
else
tempval=val(character$)*b#
answer$=answer$+str$(val(character$)*b#)
endif
next i
//For drawing
Angle=0
//refresh rate
SYNC ON
SYNC RATE 60
DO
//Do funky drawing
ink rgb(255,155,155),rgb(0,0,0)
inc Angle,1
dot 0-1+SCREEN WIDTH()/2+sin(Angle)*100,0-1+SCREEN HEIGHT()/2+cos(Angle)*100
dot 0-1+SCREEN WIDTH()/2+sin(Angle)*100,1+SCREEN HEIGHT()/2+cos(Angle)*100
dot 1+SCREEN WIDTH()/2+sin(Angle)*100,0-1+SCREEN HEIGHT()/2+cos(Angle)*100
dot 1+SCREEN WIDTH()/2+sin(Angle)*100,1+SCREEN HEIGHT()/2+cos(Angle)*100
ink rgb(155,155,255),rgb(0,0,0)
set cursor SCREEN WIDTH()/2-(Len(a$)*5),SCREEN HEIGHT()/2-5
PRINT answer$
SYNC
LOOP
I didn't include the carry on purpose, to allow you to do it properly
TIP: If you go to do this properly, you'll have to take apart the b# to check for "." then you'll have to multiply accordingly. Next you'll have to add the carry and only reset it if the next character is not a ".".
