home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
TURBOPAS
/
TP-UTIL.ARK
/
CURSON.SRC
< prev
next >
Wrap
Text File
|
1986-01-06
|
384b
|
17 lines
PROCEDURE CURSOR_ON;
TYPE REG_PACK = RECORD
AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : INTEGER
END;
VAR REGS : REG_PACK;
BEGIN
WITH REGS DO
BEGIN
AX := $0100;
IF MONOCHROME THEN CX := $0B0C ELSE CX := $0607;
END;
INTR(16,REGS);
END;
σσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσ