home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / snobol4 / vsnobol4.arc / LENGTH.SNO < prev    next >
Encoding:
Text File  |  1987-12-04  |  140 b   |  8 lines
  1. *    LENGTH.SNO
  2. *
  3. *    Sample program from Chapter 5 of the Tutorial
  4. *
  5. LOOP    S = TRIM(INPUT)            :F(END)
  6.     OUTPUT = SIZE(S) ' ' S        :(LOOP)
  7. END
  8.