home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
v
/
vsnbl220.zip
/
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