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
/
ENTERPRS
/
CPM
/
UTILS
/
S
/
TPTUTOR2.ARC
/
PROG13A.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-06-28
|
408b
|
28 lines
PROGRAM PROG13A;
{$U+ Copyright (C), 1985 by Lyle Faurot. All rights reserved.
New Topics: Referencing specific characters in strings
}
CONST
S_Test = 'TURBO';
VAR
S8 : String[8];
I : Integer;
BEGIN
REPEAT
S8 := S_Test;
WriteLn(S8);
Write('Enter position number: ');
ReadLn(I);
WriteLn(S8[I]);
WriteLn;
UNTIL I < 0;
END.