home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
misc
/
kam401
/
calllist.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-03-02
|
485b
|
25 lines
PROGRAM CALLLIST_Prog;
USES CRT,DOS,
DBF4, SAYGET4,
BROWSE4;
TYPE
ROUTELIST = record
deleted : boolean;
name : string[10];
route : string[30];
comment : string[30];
end;
var calllist : routelist;
begin
Select(1);
clrscr;
USE('CALLLIST.DBF',@calllist,SizeOf(calllist));
Set_BrowseWindow_To(1,1,80,24,2,'');
Browse('');
CloseDataBases;
clrscr;
end.