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

Output of file : MSDOS.SPC contained in archive : ADAMENU2.ZIP
-- .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.


-- Transfer variables for function parameters and returns
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
total_clusters : integer;

end msdos;

  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : ADAMENU2.ZIP
Filename : MSDOS.SPC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: