home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP9_1.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  4.7 KB  |  139 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP9_1.PRG                                           ⌐ª
  3. *⌐ª     Function: ╔Φ╓├╤╒╔½╝»╖╢└².                                      ⌐ª
  4. *⌐ª   DBF & File: PERSONAL.DBF                                           ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK   OFF
  7. SET SAFETY OFF
  8. SET MESSAGE TO 24 CENTER
  9.  
  10. CLEAR
  11. DO WHILE .T.
  12.    ON KEY LABEL Ctrl+F1  QUIT
  13.    * ╢¿╥σ═╦│÷│╠╨≥╡─╣ª─▄╝ⁿ: Ctrl+F1
  14.    DO SELECOLR
  15. ENDDO
  16. ON KEY LABEL
  17. RETURN
  18.  
  19. PROCEDURE SELECOLR
  20. USE PERSONAL
  21. * ╢¿╥σ╥╗╕÷▓╦╡Ñ menu
  22. DEFINE POPUP POP1_2 MARGIN  FROM 6,26 MARK CHR(251);
  23.        MESSAGE " ╙├ [Enter] ╝ⁿ╥╘╚╖╢¿╥¬╤í╘±╡─╤╒╔½╝» " SHADOW
  24.  
  25. DEFINE BAR  1 OF POP1_2 PROMPT "     ╤╒╔½╝»╔Φ╓├▓╦╡Ñ"  SKIP
  26. DEFINE BAR  2 OF POP1_2 PROMPT "\-"
  27. DEFINE BAR  3 OF POP1_2 PROMPT "\<1.╤╒╔½╝»   DEFUALT (╙Φ╔Φ)"
  28. DEFINE BAR  4 OF POP1_2 PROMPT "\<2.╤╒╔½╝»   COMPQ_COLO"
  29. DEFINE BAR  5 OF POP1_2 PROMPT "\<3.╤╒╔½╝»   COMPQ_MONO"
  30. DEFINE BAR  6 OF POP1_2 PROMPT "\<4.╤╒╔½╝»   COLOR"
  31. DEFINE BAR  7 OF POP1_2 PROMPT "\<5.╤╒╔½╝»   MONOCHROME"
  32. DEFINE BAR  8 OF POP1_2 PROMPT "\<6.╤╒╔½╝»   T5200_COLO"
  33. DEFINE BAR  9 OF POP1_2 PROMPT "\<7.╤╒╔½╝»   T5200_MONO"
  34. DEFINE BAR 10 OF POP1_2 PROMPT "\<8.╤╒╔½╝»   TOSH_3200"
  35. ON SELECTION POPUP POP1_2 DO COLORSET WITH PROMPT()
  36. *  ╤í╘±║≤╓┤╨╨╫╙│╠╨≥ COLORSET
  37.  
  38. ACTIVATE POPUP POP1_2
  39. DEACTIVATE POPUP POP1_2
  40. CLOSE DATABASE
  41. RETURN
  42.  
  43. PROCEDURE COLORSET
  44. PARAMETER MPROMPT
  45. * ╝∞▓Θ╤í╧ε╡─│⌡╩╝╫┤╠¼▓ó╝╙╫ó▒Ω╝╟
  46. FOR I=1 TO CNTBAR("POP1_2")
  47.    DO CASE
  48.       CASE PRMBAR("POP1_2",I)="1.╤╒╔½╝»   DEFUALT (╙Φ╔Φ)"
  49.            SET MARK OF BAR I OF POP1_2 TO .F.
  50.       CASE PRMBAR("POP1_2",I)="2.╤╒╔½╝»   COMPQ_COLO"
  51.            SET MARK OF BAR I OF POP1_2 TO .F.
  52.       CASE PRMBAR("POP1_2",I)="3.╤╒╔½╝»   COMPQ_MONO"
  53.            SET MARK OF BAR I OF POP1_2 TO .F.
  54.       CASE PRMBAR("POP1_2",I)="4.╤╒╔½╝»   COLOR"
  55.            SET MARK OF BAR I OF POP1_2 TO .F.
  56.       CASE PRMBAR("POP1_2",I)="5.╤╒╔½╝»   MONOCHROME"
  57.            SET MARK OF BAR I OF POP1_2 TO .F.
  58.       CASE PRMBAR("POP1_2",I)="6.╤╒╔½╝»   T5200_COLO"
  59.            SET MARK OF BAR I OF POP1_2 TO .F.
  60.       CASE PRMBAR("POP1_2",I)="7.╤╒╔½╝»   T5200_MONO"
  61.            SET MARK OF BAR I OF POP1_2 TO .F.
  62.       CASE PRMBAR("POP1_2",I)="8.╤╒╔½╝»   TOSH_3200"
  63.            SET MARK OF BAR I OF POP1_2 TO .F.
  64.     ENDCASE
  65. ENDFOR
  66.  
  67. DO CASE
  68.    CASE MPROMPT="1.╤╒╔½╝»   DEFUALT (╙Φ╔Φ)"
  69.         * ╚τ╣√╤í╘±╛═╝╙╫ó▒Ω╝╟
  70.         IF MRKBAR("POP1_2",BAR())
  71.            SET COLOR SET TO DEFAULT
  72.            SET MARK OF BAR BAR() OF POP1_2 TO .F.
  73.         ELSE
  74.            SET COLOR SET TO DEFAULT
  75.            SET MARK OF BAR BAR() OF POP1_2 TO .T.
  76.         ENDIF
  77.    CASE MPROMPT="2.╤╒╔½╝»   COMPQ_COLO"
  78.         IF MRKBAR("POP1_2",BAR())
  79.            SET COLOR SET TO DEFUALT
  80.            SET MARK OF BAR BAR() OF POP1_2 TO .F.
  81.         ELSE
  82.            SET COLOR SET TO COMPQ_COLO
  83.            SET MARK OF BAR BAR() OF POP1_2 TO .T.
  84.         ENDIF
  85.    CASE MPROMPT="3.╤╒╔½╝»   COMPQ_MONO"
  86.         IF MRKBAR("POP1_2",BAR())
  87.            SET COLOR SET TO DEFUALT
  88.            SET MARK OF BAR BAR() OF POP1_2 TO .F.
  89.         ELSE
  90.            SET COLOR SET TO COMPQ_MONO
  91.            SET MARK OF BAR BAR() OF POP1_2 TO .T.
  92.         ENDIF
  93.    CASE MPROMPT="4.╤╒╔½╝»   COLOR"
  94.         IF MRKBAR("POP1_2",BAR())
  95.            SET COLOR SET TO DEFUALT
  96.            SET MARK OF BAR BAR() OF POP1_2 TO .F.
  97.         ELSE
  98.            SET COLOR SET TO COLOR
  99.            SET MARK OF BAR BAR() OF POP1_2 TO .T.
  100.         ENDIF
  101.    CASE MPROMPT="5.╤╒╔½╝»   MONOCHROME"
  102.         IF MRKBAR("POP1_2",BAR())
  103.            SET COLOR SET TO DEFAULT
  104.            SET MARK OF BAR BAR() OF POP1_2 TO .F.
  105.         ELSE
  106.            SET COLOR SET TO MONOCHROME
  107.            SET MARK OF BAR BAR() OF POP1_2 TO .T.
  108.         ENDIF
  109.    CASE MPROMPT="6.╤╒╔½╝»   T5200_COLO"
  110.         IF MRKBAR("POP1_2",BAR())
  111.            SET COLOR SET TO DEFAULT
  112.            SET MARK OF BAR BAR() OF POP1_2 TO .F.
  113.         ELSE
  114.            SET COLOR SET TO T5200_COLO
  115.            SET MARK OF BAR BAR() OF POP1_2 TO .T.
  116.         ENDIF
  117.    CASE MPROMPT="7.╤╒╔½╝»   T5200_MONO"
  118.         IF MRKBAR("POP1_2",BAR())
  119.            SET COLOR SET TO DEFAULT
  120.            SET MARK OF BAR BAR() OF POP1_2 TO .F.
  121.         ELSE
  122.            SET COLOR SET TO T5200_MONO
  123.            SET MARK OF BAR BAR() OF POP1_2 TO .T.
  124.         ENDIF
  125.    CASE MPROMPT="8.╤╒╔½╝»   TOSH_3200"
  126.         IF MRKBAR("POP1_2",BAR())
  127.            SET COLOR SET TO DEFAULT
  128.            SET MARK OF BAR BAR() OF POP1_2 TO .F.
  129.         ELSE
  130.            SET COLOR SET TO TOSH_3200
  131.            SET MARK OF BAR BAR() OF POP1_2 TO .T.
  132.         ENDIF
  133. ENDCASE
  134.  
  135. BROW
  136. WAIT WINDOW " ╙├<-, ->╝ⁿ╧╘╩╛╨┬╡─▓╦╡Ñ╤╒╔½, ╙├ [Ctrl+F1]═╦│÷│╠╨≥, ╖╡╗╪ DOS ";
  137.              NOWAIT
  138. RETURN
  139.