Listing of file='TEST.FOR;06' on disk='vmedia/strings_fortran_2-sector.ccvf'
BYTE EOS,SPACE,TAB,TEMP(257) BYTE STR1(81),STR2(81),STR3(81),EXCLAM LOGICAL EOF COMMON /DATSTR/MAXLEN COMMON /CHRSTR/EOS,SPACE,TAB COMMON /TMPSTR/TEMP DATA EOS,SPACE,TAB/0,' ',9/ DATA MAXLEN/80/ DATA EXCLAM/'!'/ CALL GETSTR(3,STR1,EOF) LENGTH = LENSTR(STR1) WRITE(3,20)(STR1(K),K=1,LENGTH),EXCLAM 20 FORMAT(1X,100A1) CALL TMHSTR(STR1) LENGTH = LENSTR(STR1) WRITE(3,20)(STR1(K),K=1,LENGTH) CALL SUBSTR(STR1,2,10,STR2) LENGTH = LENSTR(STR2) WRITE(3,20)(STR2(K),K=1,LENGTH) CALL FILSTR(STR3,EXCLAM) WRITE(3,20)(STR3(K),K=1,30) END