home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
SLTPU70C.ZIP
/
SAMPLE1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-07-25
|
999b
|
46 lines
Program Sample1;
{ Sample program to list subboards and file directories }
Uses Crt,Multi,Filedef,SubList;
var c: char;
p: sublistptr;
i: integer;
Begin
{ Open CONFIG and NODES files }
if OpenFiles([CONFIGF,NODESF]) then begin
{ Initialize list of subboards or filedirs }
repeat
write('Do you want to list [S]ubboards or [F]iledirs? ');
{ Minimize CPU time while waiting for keystroke }
while not Keypressed do Slice;
c:=Upcase(readkey);
writeln(c);
until (c in ['S','F']);
writeln;
case c of
'S': SubListInit(Subboards);
'F': SubLIstInit(Filedirs);
end;
p:=SubListRoot; { root of subboard/filedir list in RAM }
while p<>Nil do begin
write(p^.fname);
for i:=1 to 12-length(p^.fname) do
write(' ');
writeln(p^.name);
p:=p^.next;
end;
CloseAllFiles;
end
else writeln('Could not open CONFIG File!');
end.