mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 13:13:46 +02:00
20 lines
332 B
ObjectPascal
20 lines
332 B
ObjectPascal
{ Old file: tbs0266.pp }
|
|
{ linux crt write cuts 256 char OK 0.99.13 (PFV) }
|
|
|
|
PROGRAM t10;
|
|
|
|
USES CRT;
|
|
|
|
VAR S: STRING;
|
|
X: BYTE;
|
|
|
|
|
|
BEGIN
|
|
S := '';
|
|
FOR X := 1 TO 253 DO S:=S+'-';
|
|
S := S+'_!';
|
|
WRITE(S);
|
|
WRITE('*',S);
|
|
END.
|
|
|