home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_3.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  4.1 KB  |  153 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª    Program: EXP5_3.PRG                                             ⌐ª
  3. *⌐ª   Function: ╙├╘¡╙╨║»╩²╓╞╫≈╧┬└¡▓╦╡Ñ╡─╖╢└².                          ⌐ª
  4. *⌐ª      Proce: EXP5_4.PRG                                             ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET STATUS OFF
  7. SET ECHO   OFF
  8. SET TALK   OFF
  9. SET SAFETY OFF
  10. SET SCOREBOARD OFF
  11. SET DOHISTORY  OFF
  12. SET MESSAGE TO 24
  13.  
  14. SET COLOR TO W/N
  15. CLEAR
  16. SET COLOR TO W/B,W/R
  17. * ╢¿╥σ╧╘╩╛╨┼╧ó╡─┤░┐┌:win1
  18. DEFINE WINDOW win1 FROM  22,1 TO 24,79  ;
  19.        TITLE " ╨┼╧ó┤░┐┌ " SHADOW COLOR SCHEME 7
  20.  
  21. * ╢¿╥σ▓╦╡Ñ░⌠╝░╠ß╩╛╨┼╧ó╩²╫Θ
  22. DIMENSION TOP(8,2)
  23.   TOP(1,1)='╧╡═│╬¼╗ñ'
  24.   TOP(2,1)='╚╦╘▒┐Γ┐Γ╬¼╗ñ'
  25.   TOP(3,1)='▓Θ  ╤»'
  26.   TOP(4,1)='▒¿▒φ┤≥╙í'
  27.   TOP(5,1)='═│╝╞┤ª└φ'
  28.   TOP(6,1)='═╝╨╬╩Σ│÷'
  29.   TOP(7,1)='╗π  ╫▄'
  30.   TOP(8,1)='═╦  │÷'
  31.   TOP(1,2)='      ▒╕╖▌,╩²╛▌┤╩╡Σ╬¼╗ñ, ▒╕╖▌, ╧╘╩╛╦╡├≈╩Θíó╧╡═│╔Φ╓├ '
  32.   TOP(2,2)='      ╚╦╘▒┐Γ╝╟┬╝╡─╘÷, ╔╛, ╕─,Σ»└└                   '
  33.   TOP(3,2)='      ╕≈╓╓╠⌡╝■╝∞╦≈                                  '
  34.   TOP(4,2)='      ▒¿▒φ┤≥╙í                                      '
  35.   TOP(5,2)='      ╕≈╓╓╠⌡╝■═│╝╞                                  '
  36.   TOP(6,2)='      ╔·│╔íó╧╘╩╛═│╝╞═╝╨╬                            '
  37.   TOP(7,2)='      ╗π  ╫▄                                        '
  38.   TOP(8,2)='      ═╦ │÷, ╖╡╗╪ DOS╧╡═│                           '
  39.  
  40. * ╢¿╥σ╕≈╧┬└¡╫╙▓╦╡Ñ╤í╧ε╩²╫Θ
  41. DIMENSION AR1(5)
  42.   AR1(1)='1.▒╕╖▌        '
  43.   AR1(2)='2.╩²╛▌┤╩╡Σ╬¼╗ñ'
  44.   AR1(3)='3.╧╘╩╛╦╡├≈╩Θ  '
  45.   AR1(4)='4.╧╡═│╔Φ╓├    '
  46.   AR1(5)='5.═╦│÷        '
  47. DIMENSION AR2(4)
  48.   AR2(1)='1.╫╖╝╙╨┬╝╟┬╝'
  49.   AR2(2)='2.╔╛│²╛╔╝╟┬╝'
  50.   AR2(3)='3.╨▐╕─╛╔╝╟┬╝'
  51.   AR2(4)='4.╚½╞┴─╗Σ»└└'
  52. DIMENSION AR3(4)
  53.   AR3(1)='1.╣╠╢¿╝∞╦≈  '
  54.   AR3(2)='2.╠⌡╝■╝∞╦≈  '
  55.   AR3(3)='3.╫╘╙╔╝∞╦≈  '
  56.   AR3(4)='4.╫╘╢¿╥σ╝∞╦≈'
  57. DIMENSION AR4(8)
  58.   AR4(1)= '1.╫¿╥╡╝╝╩⌡╚╦╘▒╥╗└└▒φ '
  59.   AR4(2)= '2.╫¿╥╡╝╝╩⌡╚╦╘▒╕÷╚╦▒φ '
  60.   AR4(3)= '3.┤╙╩┬╣ñ╫≈═│╝╞▒φ     '
  61.   AR4(4)= '4.╬─╗»│╠╢╚═│╝╞▒φ     '
  62.   AR4(5)= '5.─Ω┴Σ═│╝╞▒φ         '
  63.   AR4(6)= '6.╡│╒■╓░╬±═│╝╞▒φ     '
  64.   AR4(7)= '7.╨╘▒≡═│╝╞▒φ         '
  65.   AR4(8)= '8.╩²╛▌┐Γ╫╘╢»▒¿▒φ╔·│╔ '
  66. DIMENSION AR5(7)
  67.   AR5(1)=' 1.┤╙╩┬╣ñ╫≈═│╝╞ '
  68.   AR5(2)=' 2.╬─╗»│╠╢╚═│╝╞ '
  69.   AR5(3)=' 3.─Ω┴Σ═│╝╞     '
  70.   AR5(4)=' 4.╡│╒■╓░╬±═│╝╞ '
  71.   AR5(5)=' 5.╨╘▒≡═│╝╞     '
  72.   AR5(6)=' 6.╫╘╢¿╥σ═│╝╞   '
  73.   AR5(7)=' 7.═│╝╞┐ΓΣ»└└   '
  74. DIMENSION AR6(2)
  75.   AR6(1) =' 1.╧╘╩╛═│╝╞═╝╨╬ '
  76.   AR6(2) =' 2.╔·│╔╫╘╢¿╥σ═╝╨╬ '
  77. DIMENSION AR7(9)
  78.   AR7(1) = ' 1.╥╗╣½╦╛┼╠┐╜▒┤ '
  79.   AR7(2) = ' 2.╢■╣½╦╛┼╠┐╜▒┤ '
  80.   AR7(3) = ' 3.╚²╣½╦╛┼╠┐╜▒┤ '
  81.   AR7(4) = ' 4.╦─╣½╦╛┼╠┐╜▒┤ '
  82.   AR7(5) = ' 5.╬σ╣½╦╛┼╠┐╜▒┤ '
  83.   AR7(6) = ' 6.┴∙╣½╦╛┼╠┐╜▒┤ '
  84.   AR7(7) = ' 7.╞▀╣½╦╛┼╠┐╜▒┤ '
  85.   AR7(8) = ' 8.░╦╣½╦╛┼╠┐╜▒┤ '
  86.   AR7(9) = ' 9.╗π╫▄       '
  87. DIMENSION AR8(1)
  88.   AR8(1) =' ╖╡╗╪ DOS ╧╡═│ '
  89.  
  90. ROW=1
  91. COL=1
  92. * ╫░┼Σ▓╦╡Ñ
  93. MENU BAR TOP,8
  94. MENU 1,AR1,5,5
  95. MENU 2,AR2,4,4
  96. MENU 3,AR3,4,4
  97. MENU 4,AR4,8,8
  98. MENU 5,AR5,7,7
  99. MENU 6,AR6,2,2
  100. MENU 7,AR7,9,9
  101. MENU 8,AR8,1,1
  102.  
  103. DO WHILE .T.
  104.    READ MENU BAR TO ROW,COL SAVE
  105.    * ╞⌠╢»╧┬└¡╩╜▓╦╡Ñ, ╙├ DO CASE └┤┐╪╓╞│╠╨≥╓┤╨╨┴≈╧≥.
  106.    DO CASE
  107.       CASE ROW=1
  108.            DO CASE
  109.               CASE COL=1
  110.                    DO subroute WITH ROW,COL
  111.               CASE COL=2
  112.                    DO EXP5_4
  113.               CASE COL=3
  114.                    DO subroute WITH ROW,COL
  115.               CASE COL=4
  116.                    DO subroute WITH ROW,COL
  117.               CASE COL=5
  118.                    QUIT
  119.            ENDCASE
  120.       CASE ROW=2
  121.            DO CASE
  122.               CASE COL=1
  123.                    DO subroute WITH ROW,COL
  124.               CASE COL=2
  125.                    DO subroute WITH ROW,COL
  126.               CASE COL=3
  127.                    DO subroute WITH ROW,COL
  128.               CASE COL=4
  129.                    DO subroute WITH ROW,COL
  130.             ENDCASE
  131. *  ╩í┬╘▓┐╖╓╙∩╛Σ.
  132. *  ......
  133. *  ......
  134.  
  135.       CASE ROW=8
  136.            CLOSE DATABASE
  137.            CLEAR
  138.            QUIT
  139.    ENDCASE
  140. ENDDO
  141. RETURN
  142.  
  143. PROCEDURE SUBROUTE
  144. PARAMETERS MITEM1,MITEM2
  145. SET CURSOR OFF
  146. ACTIVATE WINDOW win1
  147. @ 0,10 SAY "─π╤í╘±╡─╩╟╡┌"+ALLTRIM(STR(MITEM1))+"╕÷╣ª─▄"+"╡─╡┌";
  148.            +ALLTRIM(STR(MITEM2))+"╕÷╤í╧ε"
  149. WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°" WINDOW
  150. DEACTIVATE WINDOW win1
  151. SET CURSOR ON
  152. RETURN
  153.