Return to procs.p CVS log

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

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

1.1     ! root        1: program procs(output,input,file3);
        !             2: 
        !             3: type
        !             4: aray = array[1..20] of char;
        !             5: 
        !             6: var
        !             7: a, d :alfa;
        !             8: c :aray;
        !             9: b :char;
        !            10: i :integer;
        !            11: file3 :file of char;
        !            12: 
        !            13: begin
        !            14: writeln('Enter two lines');
        !            15: while not eoln(input) do begin
        !            16:        write(input^);
        !            17:        get(input);
        !            18:        end;
        !            19: if input^ = ' ' then
        !            20:        writeln;
        !            21: readln(b);
        !            22: if not eoln(input) then 
        !            23:        halt
        !            24: else
        !            25:        writeln(b);
        !            26: for i:=0 to argc-1 do begin
        !            27:        argv(i,a);
        !            28:        writeln('i = ',i:1,'   arg = ',a);
        !            29:        end;
        !            30: write('Jan ''70 plus ',wallclock:1,' seconds');
        !            31: flush(output);
        !            32: rewrite(file3);
        !            33: write(file3,'test');
        !            34: page(file3);
        !            35: reset(file3);
        !            36: linelimit(file3,20);
        !            37: stlimit(5000);
        !            38: date(a);   unpack(a,c,1);
        !            39: time(a);   unpack(a,c,11);
        !            40: pack(c,11,d);
        !            41: pack(c,1,a);
        !            42: writeln('Today is ',a,' at ',d);
        !            43: assert(not undefined(1.0));
        !            44: remove('file3');
        !            45: message('This process has used ',sysclock:1,' + ',clock:1,' milliseconds');
        !            46: i:=1;
        !            47: end.

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