Return to cfor.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/cfor.p, revision 1.1

1.1     ! root        1: {$t- No runtime tests}
        !             2: 
        !             3: program cfor(input,output);
        !             4: 
        !             5: type
        !             6: chrint=-120..120;
        !             7: sint=-1000..1000;
        !             8: base=array[1..2] of record
        !             9:        i :chrint;
        !            10:        j :sint;
        !            11:        k :integer;
        !            12:        l :real;
        !            13:        end;
        !            14: 
        !            15: var
        !            16: i :chrint;
        !            17: j :sint;
        !            18: k :integer;
        !            19: rec :base;
        !            20: 
        !            21: begin
        !            22: writeln('Enter -> 10, 1000, 100000, 1.0e+10');
        !            23: with rec[1] do begin
        !            24:        read(i,j,k,l);
        !            25:        writeln('Data echo ->',i,j,k,l);
        !            26:        end;
        !            27: for i:=-1 to 1 do
        !            28:        case i of
        !            29:        0: write(' loop');
        !            30:        1: writeln(' works');
        !            31:        -1: write('This');
        !            32:        end;
        !            33: for j:=500 to 501 do
        !            34:        case j of
        !            35:        500: write('Case');
        !            36:        501: writeln(' checks');
        !            37:        end;
        !            38: for k:=54000 to 54002 do
        !            39:        case k of
        !            40:        54000: write('Success');
        !            41:        54002: writeln(' assurred');
        !            42:        54001:write(' is');
        !            43:        end;
        !            44: write('i = ');
        !            45: for i:=5 downto 3 do
        !            46:        write(i);
        !            47: writeln;
        !            48: write('j = ');
        !            49: for j:=1000 downto 998 do
        !            50:        write(j);
        !            51: writeln;
        !            52: write('k = ');
        !            53: for k:=100001 downto 99999 do
        !            54:        write(k);
        !            55: writeln;
        !            56: writeln('case and for work':20,'!':2,'!');
        !            57: write('Enter a character here ->',input^,'<- there it is');
        !            58: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.