
{  18/3/87  10:42   Menus.inc}


%externalroutinespec advance time
%externalintegerspec altbase, base
%externalroutinespec clear clock
%externalroutinespec clear screen
%externalintegerfnspec cursor depth
%recordformat dataf(%string(19) name,%record(line80listf) val)
%externalintegerspec display clock
%externalstring(255)%fnspec digital time
%externalintegerspec graphics
%externalstring(31)%spec helpfile
%externalroutinespec home cursor
%externalstring(255)%spec menuinstructions
%externalroutinespec read screen line(%string(*)%name a)
%externalroutinespec read screen lines(%record(line80listf)%name lines)
%externalroutinespec restart clock(%integer x, y)
%externalroutinespec restart screen
%externalroutinespec screen message(%string(255) s,%string(15) mon)
%externalroutinespec set date(%string(80) s)
%externalroutinespec set time(%string(255) t)
%externalroutinespec set up menu(%record(dataf)%arrayname data,
%integerarrayname select, %integer top, bottom, %string(15) default)
%externalroutinespec show time
%externalroutinespec start clock(%integer x, y)
%externalroutinespec start screen mode
%externalroutinespec stop screen mode
%externalroutinespec write instruction(%string(255) s)
%externalroutinespec write menu

%endoffile
