tests/tbs/tb0227.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ Old file: tbs0266.pp }
{ linux crt write cuts 256 char                        OK 0.99.13 (PFV) }

{ %skiptarget=wince }

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.