Category : Miscellaneous Language Source Code
Archive   : ADAMENU2.ZIP
Filename : MSDOS.SPC

-- .asis
with Strings;
package msdos is

type timeform is (default, military);
-- Default form is hrs:min AM/PM
-- Military form is hrs:min:sec

function date return Strings.lstring;
-- Return the system date in a string

function time (form : in timeform) return Strings.lstring;
-- Return the system time in a string

function tics return integer;
-- Return the seconds portion of the system time

function kybdchar return character;
-- Wait for the next character from the keyboard.
-- Ignores control c, no echo to output

procedure bell;
-- sound the bell without having to with text_io

procedure termcode (code : in integer);
-- Set the value of ERRORLEVEL and terminate process

function free_disk_space (drive : in character) return float;
-- return the free space on the drive in kilobytes

procedure Flush_Keyboard_Buffer;
-- Clear any characters from the keyboard buffer

function keypressed return boolean;
-- Return true if a character is waiting in the
-- keyboard buffer, else return false.

private

-- Transfer variables for function parameters and returns
year,
month,
day,
dayofweek,
hours,
minutes,
seconds,
hundreths : integer;


inkey : character; -- single character keyboard input buffer
retcode : character; -- used for errorlevel return to DOS
keypress, -- return value for function keypressed
dos_error : boolean; -- flag disk errors on dos calls
bytes_per_sector, -- used to retrieve disk info,
sectors_per_cluster, -- int 21h, function 36h
available_clusters,
total_clusters : integer;

end msdos;