Compucolor.org – Virtual Media

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