Liren Large Software Subsidy 5/05.iso/a/a085/1.ddi/EXP11_4.PRG

Text File | 1994-01-11 | 574 b | 25 lines

*⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
*⌐ª      Program: EXP11_4.PRG                                          ⌐ª
*⌐ª     Function: ON KEY  ├ⁿ┴ε╙ª╙├╡─╖╢└².                              ⌐ª
*⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
SET TALK OFF
ON KEY DO subroute
STORE 1 TO count
CLEAR
DO WHILE .T.
   ?? count
   count=count+1
ENDDO

PROCEDURE subroute
=INKEY()
STORE "N" TO ans
@ 24,35 SAY " ╚╖╢¿╩╟╖±═╦│÷? " GET ans PICTURE "!Y"
READ
IF ans="N"
   RETRY
ELSE
   CANCEL
ENDIF
RETURN