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

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.