C PROGRAM: SCAN.SUB FUNCTION SCAN C INTEGER FUNCTION SCAN(CMDLINE,CMDPTR,CMDLEN) BYTE CMDLINE(81) INTEGER CMDPTR,CMDLEN C C THIS ROUTINE RETURNS THE LENGTH OF AN OPTION. THE SCAN IS C TERMINATED BY A "/", "=", OR END-OF-LINE C I1=0 SCAN = 0 IF(CMDPTR.GT.CMDLEN) RETURN I2 = INDEX(CMDLINE(CMDPTR),'/',1,1) I1 = INDEX(CMDLINE(CMDPTR),'=',1,1) SCAN=MIN0(I1,I2) IF(I1*I2 .EQ. 0)SCAN=MAX0(I1,I2) IF(SCAN .EQ. 0)GOTO 120 SCAN = SCAN - 1 RETURN 120 SCAN = CMDLEN - CMDPTR + 1 RETURN END