home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
LANGUAGES
/
OB68_116.LZH
/
pu3.b
< prev
next >
Wrap
Text File
|
1996-05-09
|
376b
|
16 lines
* this one shows:
* 1) a centered title
* 2) right justified floating point args
dim a$:string[100]
dim a:real
print using("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^","Centered Title")
a$=" >>>>>>>>>>>>"
a=4.5
print using(a$,a)
a=456.66
print using(a$,a)
print " ____________"
a=4.5+456.66
print using(a$,a)