PDP-10 Archive: decus/20-0028/common.sno from decuslib20-02

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0028/common.sno

There are 2 other files named common.sno in the archive. Click here to see a list.

* COMMON DEFINITIONS FOR USE BY OTHER SNOBOL PROGRAMS
*
	&TRIM = 1
        TAB = ' '
        BLANK = ' '
        DIGITS = '0123456789'
        ALPHABET = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
        ALPHA.NUM = DIGITS ALPHABET
        SYMBOL = SPAN(ALPHA.NUM)
        NUMBER = SPAN(DIGITS)
        FILLER = NULL ! SPAN(BLANK TAB)

        OUTPUT('TYPE',2,'(1X,16A5)')
        INPUT('ACCEPT',2,72)