home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
LANGUAGES
/
OB68_116.LZH
/
pu5.b
< prev
next >
Wrap
Text File
|
1996-05-09
|
252b
|
13 lines
* this one shows:
* 1) literal fields
* 2) left justified hexadecimal numbers
* 3) left justified decimal numbers
dim a:short
dim a$:string[50]
dim i:byte
a$="Count=>>>>=>>>> hexidecimal, decimal"
for i=1 to 20
print using(a$,hex$(i),i)
next i