C define(VAX) C location of system-wide "SYMBOLS." file C maximum field for integer strings C must be highest lu for standard files C echo - test program to echo command line passed by XEQ, MCR, or TERMINAL PROGRAM ECHO BYTE BUF(80) INTEGER SOURCE, LEN, I 2000 CONTINUE C This loop is executed once when the command C line is from XEQ or MCR, and until a or C ^Z is received when the command lines are from C the terminal. C The lun, 5 in this case, CALL GCMD(5, 'ECHO> ', BUF, LEN, 80, SOURCE) C need not be open, but C must be assigned to TI: IF (.NOT.(LEN .GT. 0)) GOTO 2030 I2050 = (SOURCE) GOTO 2050 2070 CONTINUE WRITE(5, 2080) (BUF(I), I = 1, LEN) 2080 FORMAT(' Source was MCR: '80A1) GOTO 2060 2090 CONTINUE WRITE(5, 2100) (BUF(I), I = 1, LEN) 2100 FORMAT(' Source was XEQ: '80A1) GOTO 2060 2110 CONTINUE WRITE(5, 2120) (BUF(I), I = 1, LEN) 2120 FORMAT(' Source was TERMINAL: '80A1) GOTO 2060 2130 CONTINUE WRITE(5, 2140) 2140 FORMAT(' Can''t happen!!!') GOTO 2060 2050 CONTINUE IF (I2050 .EQ. -2) GOTO 2070 IF (I2050 .EQ. -1) GOTO 2090 IF (I2050 .EQ. 0) GOTO 2110 GOTO 2130 2060 CONTINUE 2030 CONTINUE 2010 IF (.NOT.(LEN .LE. 0 .OR. SOURCE .NE. 0)) GOTO 2000 END