Category : Modula II Source Code
Archive   : MODULA2.ZIP
Filename : ENVIRONM.DEF
(**********************************************************)
(* ROLLINS MEDICAL/DENTAL SYSTEMS *)
(* 360 CLAUSEN BUILDING *)
(* 23100 PROVIDENCE DRIVE *)
(* SOUTHFIELD, MI 48075-3677 *)
(* *)
(* Module: Environment.Mod *)
(* *)
(* ------------------------------------------------- *)
(* | | *)
(* | Interface to Hardware/Bios/Dos | *)
(* | | *)
(* ------------------------------------------------- *)
(* *)
(* Version: 01.00 a Last Edit: 04/22/1986 *)
(* *)
(* Programmer: J. Tal *)
(**********************************************************)
FROM TimeDate IMPORT Time,GetTime;
FROM SYSTEM IMPORT ADDRESS;
EXPORT QUALIFIED RowMax,ColMax,MonoScreen,ColorScreen,Screen,
SType,ScreenType,ComType,Computer,Ptr,MemSize,
Shell,Peek,Poke,RowAdj,ColAdj,Locate,GotoXY,
Cls,CursorOff,CursorOn,GetDateString,Delay,
ToneInit,Tone,TimeDifference,Pause;
CONST
RowMax = 25;
ColMax = 80;
MonoScreen = 0B000H; (* address of monochrome memory *)
ColorScreen = 0B800H; (* address of color memory *)
TYPE
SType = (Mono,Color);
ScreenAdr = POINTER TO ARRAY[1..RowMax], [1..ColMax] OF RECORD
Code,Attr : CHAR;
END;
ComType = (PC,XT,JR,AT,XT2,AT2,CV);
VAR
Screen : ScreenAdr;
ScreenType : SType;
Computer: ComType;
PROCEDURE Ptr(seg, off : CARDINAL) : ADDRESS;
PROCEDURE MemSize() : CARDINAL;
PROCEDURE Shell( COMMAND : ARRAY OF CHAR; VAR Error : CARDINAL);
PROCEDURE Peek(Segment,Offset : CARDINAL) : CARDINAL;
PROCEDURE Poke(Segment,Offset,val : CARDINAL);
PROCEDURE RowAdj(Row:CARDINAL) : CARDINAL;
PROCEDURE ColAdj(Col:CARDINAL) : CARDINAL;
PROCEDURE Locate( row,col : CARDINAL );
PROCEDURE GotoXY( col,row : CARDINAL );
PROCEDURE Cls;
PROCEDURE CursorOff;
PROCEDURE CursorOn;
PROCEDURE GetDateString( VAR D : ARRAY OF CHAR);
PROCEDURE Delay( delayM : CARDINAL);
PROCEDURE ToneInit;
PROCEDURE Tone( Freq,dur : CARDINAL);
PROCEDURE TimeDifference( start, end: Time): REAL;
PROCEDURE Pause(secs: REAL);
END Environment.
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/