vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 11:02:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update library source to V2.

Browse source
This commit is contained in:
David Brown 2016-06-16 14:56:42 +01:00
parent 4245c6e8b3
commit 7bdc53145e
46 changed files with 3141 additions and 3349 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/library/misc/crt.Mod
View file

@ -1,6 +1,6 @@
MODULE crt;
IMPORT vt100, Unix, Console,
IMPORT vt100, Platform, Console,
Strings; (* strings to remove later ? *)
CONST
@ -28,11 +28,6 @@ CONST
(* Add-in for blinking *)
Blink* = 128;
TYPE
PFdSet = POINTER TO Unix.FdSet;
VAR tmpstr : ARRAY 23 OF CHAR;
PROCEDURE EraseDisplay*;
BEGIN
vt100.ED(2);
@ -58,16 +53,8 @@ VAR tmpstr : ARRAY 23 OF CHAR;
vt100.DECTCEMh;
END cursoron;
PROCEDURE Delay*( ms : INTEGER);
VAR i : LONGINT;
tv : Unix.Timeval;
pfd : PFdSet;
BEGIN
tv.sec := 0;
tv.usec := ms * 1000;
pfd := NIL;
i := Unix.Select(0, pfd^, pfd^, pfd^, tv);
END Delay;
PROCEDURE Delay*(ms: INTEGER);
BEGIN Platform.Delay(ms) END Delay;
PROCEDURE GotoXY* (x, y: INTEGER);
BEGIN