Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50150/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)