129 lines
3.3 KiB
Plaintext
129 lines
3.3 KiB
Plaintext
|
\ ********************************************************
|
|||
|
|
\ * CB86 EXTERNAL FUNCTION DEFINITIONS FOR PC DOS v1.1 *
|
|||
|
|
\ ********************************************************
|
|||
|
|
\ * REQUIRED FOR PC DOS SCREEN CONTROL *
|
|||
|
|
\ ********************************************************
|
|||
|
|
\ * FILE: PCSCRN.DEF *
|
|||
|
|
\ ********************************************************
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
\ *******************************************************
|
|||
|
|
\ * GET CURRENT CURSOR POSITION - To Extract Position *
|
|||
|
|
\ * ROW = returned value / 256 *
|
|||
|
|
\ * COLUMN = returned value - ROW * 256 *
|
|||
|
|
\ *******************************************************
|
|||
|
|
|
|||
|
|
def GETPOS external
|
|||
|
|
integer GETPOS
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ ******************************************
|
|||
|
|
\ * SET CURSOR TO POSITION - ROW, COLUMN *
|
|||
|
|
\ * ROW and COLUMN are relative to ZERO *
|
|||
|
|
\ ******************************************
|
|||
|
|
|
|||
|
|
def SETCUR (ROW, COL) external
|
|||
|
|
integer SETCUR, ROW, COL
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ **************************************
|
|||
|
|
\ * HOME CURSOR TO UPPER LEFT CORNER *
|
|||
|
|
\ **************************************
|
|||
|
|
|
|||
|
|
def HOME external
|
|||
|
|
integer HOME
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ *************************
|
|||
|
|
\ * CLEAR ENTIRE SCREEN *
|
|||
|
|
\ *************************
|
|||
|
|
|
|||
|
|
def CLS external
|
|||
|
|
integer CLS
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ *****************************
|
|||
|
|
\ * MOVE CURSOR UP ONE LINE *
|
|||
|
|
\ *****************************
|
|||
|
|
|
|||
|
|
def UPCUR external
|
|||
|
|
integer UPCUR
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ *******************************
|
|||
|
|
\ * MOVE CURSOR DOWN ONE LINE *
|
|||
|
|
\ *******************************
|
|||
|
|
|
|||
|
|
def DWNCUR external
|
|||
|
|
integer DWNCUR
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ **********************************
|
|||
|
|
\ * MOVE CURSOR RIGHT ONE COLUMN *
|
|||
|
|
\ **********************************
|
|||
|
|
|
|||
|
|
def CUR.RT external
|
|||
|
|
integer CUR.RT
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ *********************************
|
|||
|
|
\ * MOVE CURSOR LEFT ONE COLUMN *
|
|||
|
|
\ *********************************
|
|||
|
|
|
|||
|
|
def CUR.LT external
|
|||
|
|
integer CUR.LT
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ ********************************************
|
|||
|
|
\ * INSERT NEW LINE AND SCROLL SCREEN DOWN *
|
|||
|
|
\ ********************************************
|
|||
|
|
|
|||
|
|
def ADDLINE external
|
|||
|
|
integer ADDLINE
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ *******************************************************
|
|||
|
|
\ * ERASE FROM CURRENT CURSOR POSITION TO END OF LINE *
|
|||
|
|
\ *******************************************************
|
|||
|
|
|
|||
|
|
def ERAEOL external
|
|||
|
|
integer ERAEOL
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ *******************************************
|
|||
|
|
\ * ERASE FROM NEXT LINE TO END OF SCREEN *
|
|||
|
|
\ *******************************************
|
|||
|
|
|
|||
|
|
def ERAEOS external
|
|||
|
|
integer ERAEOS
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ *****************************************
|
|||
|
|
\ * PRINT STRING IN SELECTED VIDEO MODE *
|
|||
|
|
\ * S$ = print string M = mode *
|
|||
|
|
\ * mode 007h = Normal Video *
|
|||
|
|
\ * mode 070h = Reverse Video *
|
|||
|
|
\ * mode 087h = Blinking Video *
|
|||
|
|
\ *****************************************
|
|||
|
|
|
|||
|
|
def PRTSTR (S$,M) external
|
|||
|
|
integer PRTSTR, M
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ ****************************************
|
|||
|
|
\ * PRINT STRING IN REVERSE VIDEO MODE *
|
|||
|
|
\ ****************************************
|
|||
|
|
|
|||
|
|
def PRTREV (S$) external
|
|||
|
|
integer PRTREV
|
|||
|
|
fend
|
|||
|
|
|
|||
|
|
\ *****************************************
|
|||
|
|
\ * PRINT STRING IN BLINKING VIDEO MODE *
|
|||
|
|
\ *****************************************
|
|||
|
|
|
|||
|
|
def PRTBLNK (S$) external
|
|||
|
|
integer PRTBLNK
|
|||
|
|
fend
|
|||
|
|
|