Return to size.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/size.p, revision 1.1.1.1

1.1       root        1: program size(input,output);
                      2: 
                      3: type
                      4: str = array[1..20] of char;
                      5: bigary = array[1..10000] of integer;
                      6: {huge = array[1..20000] of integer;}
                      7: color = (black, purple, violet, red, pink, green,
                      8:         blue, orange, yellow, white, none);
                      9: 
                     10: var
                     11: nums :bigary;
                     12: {mnums :huge;}
                     13: paint :color;
                     14: 
                     15: function bar( value :integer) :str;
                     16: begin
                     17: write(value:1);
                     18: bar := ' is the value';
                     19: end;
                     20: 
                     21: function foo :str;
                     22: begin
                     23: foo := 'this is a test';
                     24: end;
                     25: 
                     26: begin
                     27: writeln('Enter an integer');
                     28: read(nums[5]);
                     29: writeln(bar(nums[5]));
                     30: writeln(foo);
                     31: writeln('enter a color');
                     32: read(paint);
                     33: writeln('The next color is ',succ(paint));
                     34: end.

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