Email/URL is: rsmith9198@yahoo.com SUBJECT: NEWBIE TO QBASIC DATE: 12-19-02 3:46pm Written by: yochatwitme@yahoo.com DECIMALS PROGRAM CLS DIM Percent(10) AS STRING DIM Decimal AS SINGLE DEF FnTrim$(z) = MID$(STR$(z), 2+(z<0)) FOR Numbers = 1 TO 10 Percent(Numbers) = FnTrim$(Numbers) NEXT FOR Values = 1 TO 10 Decimal = Values / 100 PRINT Percent(Values); CHR$(37); "="; Decimal NEXT