home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
TURBOPAS
/
TTUTOR2.LBR
/
PROG13.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
2000-06-30
|
512b
|
29 lines
PROGRAM PROG13;
{$U+ Copyright (C), 1985 by Lyle Faurot. All rights reserved.
New Topics: Strings
String Operations
String Functions
}
CONST
S_Test = 'Test String';
VAR
S3 : String[3];
S5 : String[5];
S8 : String[8];
S14 : String[14];
BEGIN
S3 := S_Test;
WriteLn(S3);
S8 := S_Test;
WriteLn(S8);
S14 := S_Test;
WriteLn(S14);
END.