home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP8_9.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  597 b   |  21 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP8_9.PRG                                           ⌐ª
  3. *⌐ª     Function: ╩╣╙├ SHOW GET ├ⁿ┴ε╡─╖╢└².                            ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR ALL
  7. CLEAR
  8. choice = 1
  9. @ 5,5 GET choice FUNCTION "*C \<Y. ╥╤▒╗╤í╘±" SIZE 1,16 ;
  10.       VALID checking()
  11. READ CYCLE
  12. RETURN
  13.  
  14. FUNCTION checking
  15. IF choice=0
  16.    SHOW GET choice,1 PROMPT "\<N. ╬┤▒╗╤í╘±"
  17. ELSE
  18.    SHOW GET choice,1 PROMPT "\<Y. ╥╤▒╗╤í╘±"
  19. ENDIF
  20. RETURN .T.
  21.