Return to pcextn.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/pcextn.p, revision 1.1

1.1     ! root        1: program t(output, foo);
        !             2: 
        !             3: #include "unixio.h"
        !             4: 
        !             5: var
        !             6: foo :text;
        !             7: at :fileptr;
        !             8: 
        !             9: begin
        !            10: rewrite(foo);
        !            11: writeln(foo, 'abc');
        !            12: reset(foo);
        !            13: while not eof(foo) do begin
        !            14:        write(foo^);
        !            15:        get(foo)
        !            16:        end;
        !            17: writeln;
        !            18: APPEND(foo);
        !            19: writeln(foo, 'def');
        !            20: reset(foo);
        !            21: while not eof(foo) do begin
        !            22:        write(foo^);
        !            23:        get(foo)
        !            24:        end;
        !            25: writeln;
        !            26: reset(foo);
        !            27: while not eoln(foo) do begin
        !            28:        write(foo^);
        !            29:        get(foo)
        !            30:        end;
        !            31: writeln;
        !            32: get(foo);
        !            33: writeln('at TELL foo at ->', foo^, '<-');
        !            34: at := TELL(foo);
        !            35: get(foo);
        !            36: writeln('after get foo at ->', foo^, '<-');
        !            37: SEEK(foo, at);
        !            38: writeln('after seek foo at ->', foo^, '<-');
        !            39: reset(foo);
        !            40: writeln('after reset foo at ->', foo^, '<-');
        !            41: SEEK(foo,at);
        !            42: writeln('after seek foo at ->', foo^, '<-');
        !            43: end.

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