GETDEMO.P

[Table of Contents]

GETDEMO.P is a demo program from the Kyan Pascal 2.x Utility Disk 2 for the Atari 8-bit.

It uses the following include files from the Kyan Pascal 2.x Utility Disk 1:

• IOTYPES.I
• ADDDEV.I
• GETDIR.I

SOURCE CODE

program directdemo(input,output);
#i IOtypes.i
    var
        spec    :pathstring;
        top,temp:elemptr;
        r       :integer;
#i adddev.i
#i getdir.i
    begin
        new(temp); (*USE A DATALESS*)
        top:=temp; (*HEADER CELL*) 
        temp^.next:=nil;
        spec:='                    ';
        r:=get_dir(spec,top);
        writeln('now traversing linked list');
        while top^.next<>nil do begin
            writeln(top^.next^.entry);
            top:=top^.next;
        end;(*while*)
end.

SAMPLE RUN