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

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.