Return to gencard.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/gencard.p, revision 1.1

1.1     ! root        1: program gencard(output);
        !             2: var
        !             3: cvt :record
        !             4:        case boolean of
        !             5:        true:(int :0..255);
        !             6:        false:(st :set of 0..15);
        !             7:        end;
        !             8: i :integer;
        !             9: 
        !            10: begin
        !            11: for i:=0 to 255 do begin
        !            12:        cvt.int:=i;
        !            13:        write((card(cvt.st)):1,', ');
        !            14:        if (i+1) mod 16 = 0 then
        !            15:                writeln;
        !            16:        end;
        !            17: end.

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