home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP8_10.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  3.0 KB  |  104 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP8_10.PRG                                          ⌐ª
  3. *⌐ª     Function: SHOW ├ⁿ┴ε╓╨╩╣╙├ ENABLE ▓╬╩²╡─╖╢└².                   ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR ALL
  7. CLEAR
  8. @  4,07 TO 16,71 COLOR /W
  9. @  5,08 FILL TO 15,70    COLOR SCHEME 5
  10. @  7,16 SAY "╝∞╦≈╠⌡╝■:"  COLOR SCHEME 5
  11. @  7,40 SAY "╚τ╝∞╦≈╡╜:"  COLOR SCHEME 5
  12.  
  13. *⌐w╢¿╥σ CHECK BOX
  14. @  9,16 GET choice1 FUNCTION "*C \<A.╦∙╙╨╬─╝■" ;
  15.    DEFAULT 0 ;
  16.    MESSAGE "<<╛÷╢¿╩╟╖±╝∞╦≈╦∙╙╨╬─╝■>>" ;
  17.    VALID checking(VARREAD()) ;
  18.    COLOR ,,,,GR+/B,W+/BG,GR+/B,,W+/RB,GR+/GR
  19.  
  20.  
  21. @ 10,16 GET choice2 FUNCTION "*C \<S.╤í╘±╡─╬─╝■" ;
  22.    DEFAULT 0 ;
  23.    MESSAGE "<<╛÷╢¿╩╟╖±╓╗╝∞╦≈╤í╘±╡─╬─╝■>>" ;
  24.    VALID checking(VARREAD()) ;
  25.    COLOR ,,,,GR+/B,W+/BG,GR+/B,,W+/RB,GR+/GR
  26.  
  27. @ 11,16 GET choice3 FUNCTION "*C \<U.╬┤╤í╘±╡─╬─╝■" ;
  28.   DEFAULT 0 ;
  29.   MESSAGE "<<╛÷╢¿╩╟╖±╓╗╝∞╦≈╬┤╤í╘±╡─╬─╝■>>" ;
  30.   VALID checking(VARREAD()) ;
  31.   COLOR ,,,,GR+/B,W+/BG,GR+/B,,W+/RB,GR+/GR
  32.  
  33. @  9,40 GET choice4 FUNCTION "*C C.▒Ω╩╛╬─╝■▓ó╝╠╨°╝∞╦≈" ;
  34.    DEFAULT 0 ;
  35.    MESSAGE "<<╛÷╢¿╩╟╖±▒Ω╩╛╝∞╦≈╡╜╡─╬─╝■, ▓ó╝╠╨°═∙╧┬╝∞╦≈>>>>" ;
  36.    VALID checking(VARREAD()) ;
  37.    COLOR ,,,,GR+/B,W+/BG,GR+/B,,W+/RB,GR+/GR
  38.  
  39.  
  40. @ 10,40 GET choice5 FUNCTION "*C \<P.═ú╓╣╝∞╦≈" ;
  41.    DEFAULT 0 ;
  42.    MESSAGE "<<╛÷╢¿╩╟╖±╝∞╦≈╡╜╡┌╥╗╕÷╖√║╧╠⌡╝■╡─╬─╝■╩▒╕ⁿ═ú╓╣╝∞╦≈>>" ;
  43.    VALID checking(VARREAD()) ;
  44.    COLOR ,,,,GR+/B,W+/BG,GR+/B,,W+/RB,GR+/GR
  45.  
  46. @ 14,30 GET choice6 FUNCTION "*C \<Y.┐╝┬╟┤≤╨í╨┤" ;
  47.    DEFAULT 0 ;
  48.    SIZE 1,22 ;
  49.    MESSAGE "<<╛÷╢¿╝∞╦≈╩╟╖±╥¬┐╝┬╟┤≤╨í╨┤>" ;
  50.    VALID checking(VARREAD()) ;
  51.    COLOR ,,,,GR+/B,W+/BG,GR+/B,,W+/RB,GR+/GR
  52.  
  53. READ CYCLE
  54. CLEAR
  55. RETURN
  56.  
  57. FUNCTION checking
  58. PARAMETER object
  59. DO CASE
  60.    CASE UPPER(object) = "CHOICE1"
  61.         IF choice1 = 1
  62.            SHOW GET choice2,1 DISABLE
  63.            SHOW GET choice3,1 DISABLE
  64.         ELSE
  65.            SHOW GET choice2,1 ENABLE
  66.            SHOW GET choice3,1 ENABLE
  67.         ENDIF
  68.    CASE UPPER(object) = "CHOICE2"
  69.         IF choice2 = 1
  70.            SHOW GET choice1,1 DISABLE
  71.            SHOW GET choice3,1 DISABLE
  72.         ELSE
  73.            SHOW GET choice1,1 ENABLE
  74.            SHOW GET choice3,1 ENABLE
  75.         ENDIF
  76.    CASE UPPER(object) = "CHOICE3"
  77.         IF choice3 = 1
  78.            SHOW GET choice1,1 DISABLE
  79.            SHOW GET choice2,1 DISABLE
  80.         ELSE
  81.            SHOW GET choice1,1 ENABLE
  82.            SHOW GET choice2,1 ENABLE
  83.         ENDIF
  84.    CASE UPPER(object) = "CHOICE4"
  85.         IF choice4 = 1
  86.            SHOW GET choice5,1 DISABLE
  87.         ELSE
  88.            SHOW GET choice5,1 ENABLE
  89.         ENDIF
  90.    CASE UPPER(object) = "CHOICE5"
  91.         IF choice5 = 1
  92.            SHOW GET choice4,1 DISABLE
  93.         ELSE
  94.            SHOW GET choice4,1 ENABLE
  95.         ENDIF
  96.    CASE UPPER(object) = "CHOICE6"
  97.         IF choice6 = 1
  98.            SHOW GET choice6,1 PROMPT "\<N.▓╗╖╓┤≤╨í╨┤"
  99.         ELSE
  100.            SHOW GET choice6,1 PROMPT "\<Y.┐╝┬╟┤≤╨í╨┤"
  101.         ENDIF
  102. ENDCASE
  103. RETURN .T.
  104.