home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
snobol
/
vsnobol
/
length.sno
< prev
next >
Wrap
Text File
|
1991-02-14
|
140b
|
8 lines
* LENGTH.SNO
*
* Sample program from Chapter 5 of the Tutorial
*
LOOP S = TRIM(INPUT) :F(END)
OUTPUT = SIZE(S) ' ' S :(LOOP)
END