Example
of SCREENFIND, SCREENFIELD,
and SCREENRECT
;
; Example of SCREENFIND, SCREENFIELD, and SCREENRECT
;
LET File1 = "HPSWINFO.PUB.SYS"
DISPLAY "^[&a0c0R^[J"
SEND "LISTF " & File1 & ",1"
TIMER 2
WAITC 17
;
DISPLAY "FIND*'HPSWINFO'^M^J"
LET V5 = SCREENFIND "HPSWINFO", 1
DISPLAY "SCREENFIND='"
DISPLAY V5
DISPLAY "'^M^J"
;
DISPLAY "FIELD*'HPSWINFO'^M^J"
LET V6 = SCREENFIELD "HPSWINFO", 30, 1
DISPLAY "SCREENFIELD='"
DISPLAY V6
DISPLAY "'^M^J"
;
LET V7 = SCREENRECT( 6, 0, 6, 55 )
DISPLAY "SCREENRECT='"
DISPLAY V7
DISPLAY "'^M^J"
;
DISPLAY "*STOP*^M^J"
XMITC 13
WAITC 17
STOP
;
END
|
