Return to realout.p CVS log

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

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

1.1     ! root        1: program testio(input, output);
        !             2: 
        !             3: var
        !             4: work :array[1..20] of char;
        !             5: doesit :boolean;
        !             6: i, j :integer;
        !             7: r :real;
        !             8: 
        !             9: begin
        !            10: work := 'This program works? ';
        !            11: doesit := true;
        !            12: r := 31.4159;
        !            13: i := 10;
        !            14: j := 25;
        !            15: writeln('i = ',i,' ':3,'j = ':1,j:1);
        !            16: writeln('r = ',r,'   2 * r = ',2*r);
        !            17: write('also r = ',r:1,'   and r = ',r:10);
        !            18: writeln('   finally r = ',r:7:3);
        !            19: writeln('and r = ',r:j:i);
        !            20: writeln(work,doesit);
        !            21: writeln(work:i,doesit:i);
        !            22: writeln(work:j,doesit:1);
        !            23: j:=2;
        !            24: writeln(work:5,doesit:j);
        !            25: end.

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