C PROGRAM TO CRUDELY FIDDLE WITH UNRECOGNIZED KMON COMMAND LINES. C FILED--2-NOV-84, G. BEVER. C INTEGER*2 INPUT(67) DATA INPUT/'@S','Y:',65*0/ ICNT=IPEEK("510) ! GET LENGTH OF COMMAND LINE. C MOVE STRING INTO 'INPUT' OFFSET BY 4 CHARACTERS. IWDCNT=(ICNT+1)/2 ! BYTE CNT TO WORD CNT. DO 10 I=1,IWDCNT 10 INPUT(IWDCNT-I+1+2)=IPEEK("510+2*(IWDCNT-I+1)) INPUT(IWDCNT+3)=0 ! TERMINATE STRING. C EXECUTE COMMAND. CALL SETCMD(INPUT) CALL EXIT END