home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
LANGUAGES
/
OB68_116.LZH
/
pu1.b
< prev
next >
Wrap
Text File
|
1996-05-09
|
615b
|
20 lines
* this one shows:
* 1) literal fields
* 2) left justified field with argument less than arg size
* 3) right justified field with argument less than arg size
* 4) centered field with argument less than arg size
* 5) left justified field with no arg
* 6) right justified field with no arg
* 7) centered field with no arg
dim a$:string[100]
dim b$:string[10]
dim c$:string[10]
dim d$:string[10]
print ".'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'"
a$="This is a test |<<<<<| |>>>>>|^^^^^^^^| <<<<<>>>>>^^^^^^^end of line"
b$="arg2"
c$="arg3"
d$="arg4"
print using(a$,b$,c$,d$)