home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_14.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  2.9 KB  |  100 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_11.PRG                                          ⌐ª
  3. *⌐ª     Function: ╕°╤í╧ε╝╙▒Ω╝╟╡─╖╢└².                                  ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. * ╢¿╥σ╥╗╕÷▓╦╡Ñ▓ó╓╕╢¿▒Ω╝╟╬¬ CHR(251)
  6. DEFINE POPUP output FROM 4,24 MARGIN MARK CHR(251) COLOR SCHEME 7
  7.  
  8. DEFINE BAR  1 OF output PROMPT " \<       ╧╡═│▓╬╩²╔Φ╓├       "  SKIP
  9. DEFINE BAR  2 OF output PROMPT "\-"
  10. DEFINE BAR  3 OF output PROMPT " \<1. ╩▒╓╙            ON/OFF "
  11. DEFINE BAR  4 OF output PROMPT " \<2. ╫┤╠¼╨╨          ON/OFF "
  12. DEFINE BAR  5 OF output PROMPT " \<3. ┴σ╔∙            ON/OFF "
  13. DEFINE BAR  6 OF output PROMPT " \<4. ╧╡═│▓╦╡Ñ        ON/OFF "
  14. DEFINE BAR  7 OF output PROMPT "\-"
  15. DEFINE BAR  8 OF output PROMPT " \<5. ╘┌╧▀░∩╓·        ON/OFF "
  16. DEFINE BAR  9 OF output PROMPT " \<6. [ESC]╝ⁿ╓╨╢╧     ON/OFF "
  17. DEFINE BAR 10 OF output PROMPT " \<7. ╫╩╘┤┐Γ          ON/OFF "
  18. DEFINE BAR 11 OF output PROMPT "\-"
  19. DEFINE BAR 12 OF output PROMPT " \<8. ╜╗╗Ñ╨┼╧ó╧╘╩╛    ON/OFF "
  20. DEFINE BAR 13 OF output PROMPT " \<9. ╬─╝■╨▐╕─▒ú╗ñ    ON/OFF "
  21. DEFINE BAR 14 OF output PROMPT " \<A. ╩Σ│÷╡╜╞┴─╗,┤░┐┌ ON/OFF "
  22. DEFINE BAR 15 OF output PROMPT " \<B. ┤≥╙í╗·          ON/OFF "
  23. ON SELECTION POPUP output DO Output
  24. ACTIVATE POPUP output
  25. DEACTIVATE POPU output
  26.  
  27. PROCEDURE Output
  28. DO CASE
  29.    CASE BAR()=3
  30.         IF MRKBAR("output",3)
  31.            SET CLOCK OFF
  32.         ELSE
  33.            SET CLOCK ON
  34.         ENDIF
  35.    CASE BAR()=4
  36.         IF MRKBAR("output",4)
  37.            SET STATUS  OFF
  38.         ELSE
  39.            SET STATUS  ON
  40.         ENDIF
  41.    CASE BAR()=5
  42.         IF MRKBAR("output",5)
  43.            SET BELL  OFF
  44.         ELSE
  45.            SET BELL  ON
  46.         ENDIF
  47.    CASE BAR()=6
  48.         IF MRKBAR("output",6)
  49.            SET SYSMENU OFF
  50.         ELSE
  51.            SET SYSMENU ON
  52.         ENDIF
  53.    CASE BAR()=8
  54.         IF MRKBAR("output",8)
  55.            SET HELP OFF
  56.         ELSE
  57.            SET HELP ON
  58.         ENDIF
  59.    CASE BAR()=9
  60.         IF MRKBAR("output",9)
  61.            SET ESCAPE OFF
  62.         ELSE
  63.            SET ESCAPE ON
  64.         ENDIF
  65.    CASE BAR() =10
  66.         IF MRKBAR("output",10)
  67.            SET RESOURCE OFF
  68.         ELSE
  69.            SET RESOURCE ON
  70.         ENDIF
  71.    CASE BAR()=12
  72.         IF MRKBAR("output",12)
  73.            SET TALK OFF
  74.         ELSE
  75.            SET TALK ON
  76.         ENDIF
  77.    CASE BAR()=13
  78.         IF MRKBAR("output",13)
  79.            SET SAFETY OFF
  80.         ELSE
  81.            SET SAFETY ON
  82.         ENDIF
  83.    CASE BAR()=14
  84.         IF MRKBAR("output",14)
  85.            SET CONSOLE OFF
  86.         ELSE
  87.            SET CONSOLE ON
  88.         ENDIF
  89.   CASE BAR()=15
  90.         IF MRKBAR("output",15)
  91.            SET PRINTER OFF
  92.         ELSE
  93.            SET PRINTER ON
  94.         ENDIF
  95. ENDCASE
  96.  
  97. * ╚τ╣√╤í╧ε├╗╙╨▒Ω╝╟╘≥╝╙╔╧▒Ω╝╟, ╚τ╣√╤í╧ε╥╤╙╨▒Ω╝╟╘≥│²╚Ñ▒Ω╝╟.
  98. SET MARK OF BAR BAR() OF output TO NOT MRKBAR("output", BAR())
  99. RETURN
  100.