home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP11_4.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  574 b   |  25 lines

  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP11_4.PRG                                          ⌐ª
  3. *⌐ª     Function: ON KEY  ├ⁿ┴ε╙ª╙├╡─╖╢└².                              ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. ON KEY DO subroute
  7. STORE 1 TO count
  8. CLEAR
  9. DO WHILE .T.
  10.    ?? count
  11.    count=count+1
  12. ENDDO
  13.  
  14. PROCEDURE subroute
  15. =INKEY()
  16. STORE "N" TO ans
  17. @ 24,35 SAY " ╚╖╢¿╩╟╖±═╦│÷? " GET ans PICTURE "!Y"
  18. READ
  19. IF ans="N"
  20.    RETRY
  21. ELSE
  22.    CANCEL
  23. ENDIF
  24. RETURN
  25.