SUBROUTINE CBALIN(FILEO,FILEI) C C This subroutine gets an MCR command line and extracts C input and output file names from it. The filenames C are terminated with an ASCII null so that they can C be used in OPEN statements. C BYTE IPRM(7) !Define prompt as CBA>. DATA IPRM /"15,"12,'C','B','A','>',' '/ BYTE FILEO(40,1),FILEI(40,1) !Filename storage. C 1 CALL FCSI(IPRM,7,IER,0,1,NO,LENFO,FILEO, 1,,,,1,NI,LENFI,FILEI,,,,) !Get command line. IF((IER .EQ. 0) .AND. (LENFO .EQ. -1) .AND. (LENFI .EQ. 0) 1 .AND. (NO .EQ. 1) .AND. (NI .EQ. 0))GO TO 1 !Check for empty line. C CALL CLERR(IER,LENFO,LENFI,NO,NI) !Check for command line errors. RETURN END