win1.prg

来自「名片管理小系统实施源码」· PRG 代码 · 共 15 行

*!*	set talk off
clea
define window output from 2,1 to 13,75
*!*	active wind win1
*CLEAR
*DEFINE WINDOW output FROM 2,1 TO 13,75 
*!*	TITLE 'Output' ;
*!*		CLOSE FLOAT GROW ZOOM
ACTIVATE WINDOW output
WAIT WINDOW 'press any key to hide window output'
HIDE WINDOW output
WAIT WINDOW 'press any key to show window output'
SHOW WINDOW output
WAIT WINDOW 'press any key to release window output'
RELEASE WINDOW  output