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

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.