home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_6_93
/
bonus
/
winer
/
chap6-11.bas
< prev
next >
Wrap
BASIC Source File
|
1992-05-12
|
388b
|
16 lines
'*********** CHAP6-11.BAS
'Copyright (c) 1992 Ethan Winer
Value# = 123.45678#
OPEN "\DEV\NUL" FOR RANDOM AS #1 LEN = 15
FIELD #1, 15 AS Format$
LSET Format$ = "" 'clear any old remnants
PRINT #1, USING "###.##"; Value#; 'let USING do the work
Fmt$ = RTRIM$(Format$) 'trim trailing blanks
PRINT " Value:"; Value#
PRINT "Formatted: "; Fmt$