home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP13_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.2 KB  |  43 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP13_2.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ READ CYCLE ╡≈╙├╫└├µ╕¿╓·╣ñ╛▀ - ─Ω└·╓╨╓╕╢¿╡─      ⌐ª
  4. *⌐ª               ╚╒╞┌╡─╖╢└².                                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. CLEAR
  7. SET TALK OFF
  8. SET CENTURY ON
  9. * ╢¿╥σ╥╗╕÷╩²╛▌┬╝╚δ┤░┐┌ entry
  10. DEFINE WINDOW entry FROM 1,1 TO 9, 30 COLOR SCHEME 7 ;
  11.        TITLE " ╩²╛▌┬╝╚δ┤░┐┌ "
  12. ACTIVATE WINDOW entry
  13. stuff_date = .F.
  14. @ 1,2 SAY "╔╠╞╖┤·┬δ:" GET other default "  "
  15. @ 3,2 SAY "╩Σ╚δ╚╒╞┌:" ;
  16.            GET this_date ;
  17.            WHEN ! stuff_date OR getdate() VALID vdate() ;
  18.            ERROR " ╒Γ╥╗╚╒╞┌▓╗─▄╩╟┐╒░╫! " DEFAULT {} ;
  19.            PICTURE "@K"
  20. @ 5,2 SAY "╧Ω╧╕╦╡├≈:" GET something default "          "
  21. READ CYCLE
  22.  
  23. RELEASE WINDOW entry
  24. RETURN
  25.  
  26. FUNCTION vdate
  27. *a=_curobj
  28. mreturn = .T.
  29. IF EMPTY(this_date)
  30.    KEYBOARD "{ALT+S}d"
  31.    stuff_date = .T.
  32.    _CUROBJ = _CUROBJ
  33.    mreturn = .F.
  34. ENDIF
  35. RETURN mreturn
  36.  
  37. FUNCTION getdate
  38. IF EMPTY(this_date)
  39.    this_date = _DIARYDATE
  40.    stuff_date = .F.
  41. ENDIF
  42. RETURN .T.
  43.