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

 
Output of file : ADALIB.SPC contained in archive : ADAMENU2.ZIP
-- .asis
with Strings;
package Adalib is

type Border_Style is (Single, Double);

function upcase (ch : in character) return character;
-- return uppercase ch

function upperstr (s : in Strings.lstring) return Strings.lstring;
-- Convert string s to uppercase.

procedure show_at (x, y : in positive;
s : in string );
-- Go to cursor location x, y, and display s

procedure show_at (x, y : in positive;
s : in Strings.lstring);
-- Go to cursor location x, y, and display s

procedure frame (upleftx, uplefty,
lorightx, lorighty : in integer;
style : in border_style := Double);
-- Draw a frame on the screen using given coords.

procedure savexy (x, y : in out integer);
-- Save the current cursor location in x and y

procedure read_line (st : in out Strings.lstring;
len : in out integer);
-- All string input is done through this routine. set up a
-- reverse field with length len. Beeps when the line tries
-- to go beyond the limits.

function float_val (s : in Strings.lstring) return float;
-- Return the floating point value of s.
-- Reads the string left to right and converts until an invalid
-- character is read.
-- If s is null, or if it begins with an invalid character,
-- float_val returns 0.0

end adalib;


  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : ADAMENU2.ZIP
Filename : ADALIB.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: http://www.os2museum.com/wp/mtswslnk/