13 lines
247 B
Text
13 lines
247 B
Text
10 REM Formatted numeric output
|
|
20 CLS
|
|
30 LET N=7.125
|
|
40 LET W=9
|
|
50 GOSUB 1000
|
|
60 SCREEN 10,9:PRINT N$
|
|
70 END
|
|
1000 REM Formatted fixed-length
|
|
1010 N$=STR$(N):N$=RIGHT$(N$,LEN(N$)-1)
|
|
1020 FOR I=1 TO W-LEN(N$)
|
|
1030 N$="0"+N$
|
|
1040 NEXT I
|
|
1050 RETURN
|