Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0066/io.sno
There are 2 other files named io.sno in the archive. Click here to see a list.
00010		OUTPUT('TTYOUT','TTY:','T') ; INPUT('TTYIN','TTY:')
00020	RESTART
00050		TTYOUT = '*'
00060		INFILE = REPLACE(TRIM(TTYIN),'abcdefghijklmnopqrstuvwxyz',
00070	.				    'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
00080		IDENT(INFILE)				:S(RESTART)
00081		TAB = '	' ; CRLF = ASCII(15) ASCII(12) ; FF = ASCII(14)
00082		&STLIMIT = 9999999
00085	DO..SW	INFILE '/' BREAK(':') $ T1 ':' (BREAK('/') ! REM) $ *($('SW.' T1)) =	:S(DO..SW)
00090		DETACH(.OUTPUT)
00100		INFILE ',' BREAK('_=') . OUTFILE = OUTPUT(.OUTPUT,OUTFILE)
00110		INFILE BREAK('_=') . PUNFILE LEN(1) =	:S(DO..PUN)
00120		INFILE (BREAK('.,') ! REM) . PUNFILE
00130		PUNFILE = DIFFER(PUNFILE) PUNFILE '.LST'
00140	DO..PUN	( DIFFER(PUNFILE) OUTPUT(.PUNCH,PUNFILE) )
00160	DO..IN	TTYOUT = \FILE(INFILE) 'ERROR - FILE NOT FOUND' CRLF	:S(RESTART)
00170		INPUT(.INPUT,INFILE)
00180	*-*-END-OF-IO-*-*