' *** DIGITAL.LST *** 2nd GFA-Manual, page 20-32 FUNCTION digital$(number$) ' ' *** Return number with LCD-digits (ASCII-codes 16-25) ' *** Use TEXT to put the LCD-digits on the screen ' LOCAL dig$,i CLR dig$ FOR i=1 TO LEN(number$) dig$=dig$+CHR$(BCLR(ASC(MID$(number$,i,1)),5)) NEXT i RETURN dig$ ENDFUNC ' ***** '