%EXTERNALROUTINE FORMAT(%STRING(63) PAR) %EXTERNALROUTINESPEC DEFINE(%STRING(63) S) %STRING(63) S1,S2 %INTEGER I,J %UNLESS PAR->S1.(',').S2 %THEN S1=PAR %AND S2='' %IF S1='' %THEN S1='.TT' %IF S2='' %THEN S2='SS#IMCS' DEFINE('STREAM01,'.S1) SELECT INPUT(1) DEFINE('STREAM02,'.S2) SELECT OUTPUT(2) %CYCLE READ CH(I) %IF I=25 %THEN %STOP %IF I#NL %THEN %START PRINT SYMBOL(I) %IF I=' ' %OR 'A'<=I<='Z' %THEN %START J=0 %IF I#' ' %THEN %START READ SYMBOL(I) %AND PRINT SYMBOL(I) %AND J=J+1 %UNTIL I=' ' %OR I=NL %FINISH %IF I#NL %THEN %START SPACES(7-J) READ SYMBOL(I) %UNTIL I#' ' PRINT SYMBOL(I) J=0 READ SYMBOL(I) %AND PRINT SYMBOL(I) %AND J=J+1 %UNTIL I=' ' %OR I=NL %IF I#NL %THEN %START SPACES(6-J) READ SYMBOL(I) %UNTIL I#' ' PRINT SYMBOL(I) J=0 READ SYMBOL(I) %AND PRINT SYMBOL(I) %AND J=J+1 %UNTIL I=' '%OR I=NL %IF I#NL %THEN %START SPACES(16-J) READ SYMBOL(I) %UNTIL I#' ' PRINT SYMBOL(I) %IF I#NL %THEN %START READ SYMBOL(I) %AND PRINT SYMBOL(I) %UNTIL I=NL %FINISH %FINISH %FINISH %FINISH %FINISH %ELSE %START READ SYMBOL(I) %AND PRINT SYMBOL(I) %UNTIL I=NL %FINISH %FINISH %REPEAT %END %ENDOFFILE