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     ! 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.