home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / VSNBL220.ZIP / FCOUNTS.SNO < prev    next >
Encoding:
Text File  |  1991-02-14  |  245 b   |  12 lines
  1. *    FCOUNTS.SNO
  2. *
  3. *    Sample program from Chapter 5 of the Tutorial
  4. *
  5.     &TRIM  = 1
  6.     CHARS  = 0
  7. NEXTL    CHARS  = CHARS + SIZE(INPUT)    :F(DONE)
  8.     LINES  = LINES + 1            :(NEXTL)
  9. DONE    OUTPUT = CHARS ' characters'
  10.     OUTPUT = +LINES ' lines read'
  11. END
  12.