11 lines
197 B
Text
11 lines
197 B
Text
10 LET n=7.125
|
|
20 LET width=9
|
|
30 GO SUB 1000
|
|
40 PRINT AT 10,10;n$
|
|
50 STOP
|
|
1000 REM Formatted fixed-length
|
|
1010 LET n$=STR$ n
|
|
1020 FOR i=1 TO width-LEN n$
|
|
1030 LET n$="0"+n$
|
|
1040 NEXT i
|
|
1050 RETURN
|