home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
library2
/
pw200d.inc
< prev
next >
Wrap
Text File
|
1990-03-08
|
665b
|
25 lines
' PW200 VIDEO, WINDOW, MENU AND INPUT PROCEDURES AND FUNCTIONS
' COPYRIGHT (C) 1990, RICHARD D. FOTHERGILL ALL RIGHTS RESERVED
$STACK 2048
DEFINT a-z
PUBLIC wrow(), wrows(), wcol(), wcols(), wattr()
PUBLIC wshdw(), wlstx(), wlsty(), warray$(), ft$()
PUBLIC insertkey,horzsens,idx,cy,mousehere,winspeed,capson
COMMON wrow(1), wrows(1), wcol(1), wcols(1), wattr(1)
COMMON wshdw(1), wlstx(1), wlsty(1), warray$(1), ft$(1)
COMMON insertkey,horzsens,idx,cy,mousehere,winspeed,capson
IF cy = 0 THEN
CALL InitPW200
cy = 1
END IF
$LINK "PWASMd.OBJ"
$LINK "PW200d.PBU"
' ********** END OF PW200 INCLUDE FILE **********