Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
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-*-*