Platform

x64, Win32

Purpose

To compress a string by using tabs.

Syntax

SUBROUTINE COMPRESS@(LINE,L)
CHARACTER (LEN=*) LINE
INTEGER (KIND=2) L

Description

COMPRESS@ replaces multiple blanks where possible in a line with tabs to column positions which are multiples of eight. The new length of the line is returned in L. The tabbing scheme is that used by DOS, so the resulting line can be written to a DOS file.