SUBSTRIN.I

[Table of Contents]

The SUBSTRIN.I include file resides on the Kyan Pascal 2.x Disk 2. It includes one procedure:

• procedure SubString

Source Code

PROCEDURE SubString(VAR a1: String;

                  VAR Dest: String;

                       i,j: Integer);

VAR    k: Integer;

BEGIN

  FOR k:=1 TO MaxString DO

    Dest[k]:=' ';

  i:= i-1;

  FOR k:=1 TO j DO

   Dest[k]:= a1[i+k]

END;