Return to basic.p CVS log

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

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

1.1     ! root        1: program test(input,output);
        !             2: 
        !             3: var
        !             4: i, j :integer;
        !             5: 
        !             6: procedure print(
        !             7: {value}        num1 :integer;
        !             8:  var   num2 :integer);
        !             9: 
        !            10: begin
        !            11: writeln(num1,num2:1);
        !            12: end;
        !            13: 
        !            14: 
        !            15: begin
        !            16: read(i,j);
        !            17: print(i,j);
        !            18: end.

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