home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_4.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  2.5 KB  |  82 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª       Program: EXP5_4.PRG                                          ⌐ª
  3. *⌐ª      Function: ╧┬└¡╩╜▓╦╡Ñ╡≈╙├╡─╫╙▓╦╡Ñ                              ⌐ª
  4. *⌐ª         Calls: EXP5_3.PRG                                          ⌐ª
  5. *⌐ª    DBF & File: DICFIL02.DBF - DICFIL22.DBF                         ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET TALK OFF
  8.  
  9. DEFINE WINDOW win_dic FROM 2,1 TO 20,21 ;
  10.        FLOAT GROW DOUBLE COLOR SCHEME 5
  11. * ┤µ╤í╧ε╩²╫Θ─┌╚▌
  12. DIMENSION CHOICES(12,1)
  13. STORE " 1. ......╡Ñ ╬╗ ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(1)
  14. STORE " 2. ......▓┐ ├┼ ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(2)
  15. STORE " 3. ......┤ª ╩╥ ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(3)
  16. STORE " 4. ......├± ╫σ ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(4)
  17. STORE " 5. ╨╨ ╒■ ╓░ ╬± ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(5)
  18. STORE " 6. ╫¿ ╥╡ ╓░ ╬± ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(6)
  19. STORE " 7. ╞└ ╢¿ ╡Ñ ╬╗ ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(7)
  20. STORE " 8. ▒╧ ╥╡ ╘║ ╨ú ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(8)
  21. STORE " 9. ╦∙ ╤º ╫¿ ╥╡ ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(9)
  22. STORE "10. ┤╙ ╩┬ ╣ñ ╫≈ ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(10)
  23. STORE "11. ......═Γ ╙∩ ┤╩ ╡Σ ╬¼ ╗ñ " TO CHOICES(11)
  24. STORE "12. .........╖╡ ╗╪ ╓≈ ▓╦ ╡Ñ " TO CHOICES(12)
  25. STORE 0 TO MCHICE
  26. @ 5 , 26 MENUS CHOICES(12) , 12
  27. READ MENUS TO MCHICE
  28.  
  29. DO CASE
  30.    CASE MCHICE=1
  31.         USE DICFIL02
  32.         ACTIVATE WINDOW win_dic
  33.         BROWSE FIELD AA :H="  ╡Ñ  ╬╗" IN WINDOW win_dic
  34.         * BROWSE ╘┌┤░┐┌ win_dic ╓╨┤≥┐¬
  35.         PACK
  36.         DEACTIVATE WINDOW win_dic
  37.    CASE MCHICE=2
  38.         USE DICFIL03
  39.         BROWSE FIELD AA :H="  ▓┐ ├┼"
  40.         PACK
  41.    CASE MCHICE=3
  42.         USE DICFIL04
  43.         BROWSE FIELD AA :H="┤ª  ╩╥"
  44.         PACK
  45.    CASE MCHICE=4
  46.         USE DICFIL07
  47.         BROWSE FIELD AA :H="├± ╫σ"
  48.         PACK
  49.    CASE MCHICE=5
  50.         USE DICFIL13
  51.         BROWSE FIELD AA :H="╨╨╒■╓░╬±"
  52.         PACK
  53.    CASE MCHICE=6
  54.         USE DICFIL14
  55.         BROWSE FIELD AA :H="╫¿╥╡╓░╬±"
  56.         PACK
  57.    CASE MCHICE=7
  58.         USE DICFIL16
  59.         BROWSE FIELD AA :H="╞└╢¿╡Ñ╬╗"
  60.         PACK
  61.    CASE MCHICE=8
  62.         USE DICFIL19
  63.         BROWSE FIELD AA :H="▒╧╥╡╘║╨ú"
  64.         PACK
  65.    CASE MCHICE=9
  66.         USE DICFIL20
  67.         BROWSE FIELD AA :H="╦∙╤º╫¿╥╡"
  68.         PACK
  69.    CASE MCHICE=10
  70.         USE DICFIL21
  71.         BROWSE FIELD AA :H="┤╙╩┬╣ñ╫≈"
  72.         PACK
  73.    CASE MCHICE=11
  74.         USE DICFIL22
  75.         BROWSE FIELD AA :H="═Γ╙∩"
  76.         PACK
  77.    CASE MCHICE=12
  78.        RETURN
  79. ENDCASE
  80. CLOSE DATABASE
  81. RETURN
  82.