Return to scaltst.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/scaltst.p, revision 1.1.1.1

1.1       root        1: {$s+}
                      2: program test(output);
                      3: 
                      4: var
                      5: e :(red, pink, green, orange);
                      6: i :integer;
                      7: j :boolean;
                      8: 
                      9: begin
                     10: i := 1;
                     11: writeln(i:6:2);
                     12: e := pink;
                     13: writeln(e);
                     14: writeln(orange);
                     15: j := TRUE;
                     16: writeln(false);
                     17: writeln(j);
                     18: end.

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