|
|
| 28 July 2003 | p2pause() |
| Author | Olaf Gradin |
| Action | Press "P" to pause, "SPACE" to quit... |
| Syntax | p2pause (seconds) |
| Parameters | |
| Remarks | Very easy, but very helpful when catching messages within logon scripts. |
| Returns | none |
| Dependencies | None. |
| Examples | $p2pause(6) Press "P" to pause, "SPACE" to exit, or wait... - Paused. (Press any key to to quit.) - key pressed; exiting... "SPACE" pressed; exiting... |
| Source |
FUNCTION p2pause ($sec) ; Press "p" to pause (case-insensitive)
IF $sec > 0
FOR $x = 1 TO $sec
SLEEP 1
IF KbHit()
GET $y
SELECT
CASE ($y = "p" OR $y = "P")
FLUSHKB
? "Paused. (Press any key to to quit.)"
FOR $n = 1 TO 600
SLEEP 1
IF KbHit()
FLUSHKB
? "key pressed; exiting..."
QUIT
ENDIF
NEXT
CASE (Asc($y) = 32)
FLUSHKB
? "SPACE pressed; exiting..."
EXIT 0
ENDSELECT
ENDIF
NEXT
ENDIF
FLUSHKB
ENDFUNCTION ; - p2pause -
|
| original source of UDF topic. show actual FunctionLibrary list on Scriptlogic site
|
|
| printer-friendly mirror of UDF topic on scripting@wanadoo.nl site
|
