home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
snobol
/
vsnobol
/
fcounts.sno
< prev
next >
Wrap
Text File
|
1991-02-14
|
245b
|
12 lines
* FCOUNTS.SNO
*
* Sample program from Chapter 5 of the Tutorial
*
&TRIM = 1
CHARS = 0
NEXTL CHARS = CHARS + SIZE(INPUT) :F(DONE)
LINES = LINES + 1 :(NEXTL)
DONE OUTPUT = CHARS ' characters'
OUTPUT = +LINES ' lines read'
END