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

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.