home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP19_1.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  2.7 KB  |  93 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP19_1.PRG                                          ⌐ª
  3. *⌐ª     Function: FOXGRAPH ═╝╨╬╣▄└φ╧╡═│╙ª╙├╡─╖╢└².                     ⌐ª
  4. *⌐ª        Proce: GPRO.PRG    FOXGRAPH.EXE ╧╡═│                        ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLEAR
  8.  
  9. DEFINE WINDOW win19_1 FROM 0,0 TO 24,79
  10. ACTIVATE WINDOW win19_1
  11. * ╢¿╥σ╓≈▓╦╡Ñ pop19_1
  12. DEFINE POPUP pop19_1 FROM 2,8 IN WINDOW win19_1;
  13.        MARGIN ;
  14.        SHADOW ;
  15.        COLOR SCHEME 5
  16. DEFINE BAR 1 OF pop19_1 PROMPT "    ╓≈  ▓╦  ╡Ñ    " SKIP
  17. DEFINE BAR 2 OF pop19_1 PROMPT "\-"
  18. DEFINE BAR 3 OF pop19_1 PROMPT "\<1.╫╘╢¿╥σ╥╗╕÷═╝╨╬"
  19. DEFINE BAR 4 OF pop19_1 PROMPT "\<2.╧╘╩╛╢¿╥σ═╝╨╬"
  20. DEFINE BAR 5 OF pop19_1 PROMPT "\<3.╧╘╩╛╚½▓┐╧╓╙╨═╝╨╬"
  21. DEFINE BAR 6 OF pop19_1 PROMPT "\<4.╖╡╗╪ DOS╧╡═│"
  22. ON SELECTION BAR 3 OF pop19_1 DO DEFINEGR
  23. ON SELECTION BAR 4 OF pop19_1 DO GRAUTO
  24. ON SELECTION BAR 5 OF pop19_1 DO GRSHOW
  25. ON SELECTION BAR 6 OF pop19_1 QUIT
  26. ACTIVATE   POPUP  pop19_1
  27. DEACTIVATE POPUP  pop19_1
  28. DEACTIVATE WINDOW win19_1
  29. RELEASE    POPUPS pop19_1
  30. CLOSE ALL
  31. RETURN
  32.  
  33. PROCEDURE DEFINEGR
  34. DEACTIVATE WINDOW win19_1
  35. DO GPRO WITH ""
  36. ACTIVATE WINDOW win19_1
  37. RETURN
  38.  
  39. PROCEDURE GRAUTO
  40. * ╢¿╥σ╫╙▓╦╡Ñ pop19_2
  41. DEFINE POPUP pop19_2 FROM 5,30 ;
  42.        MARGIN ;
  43.        MULTI ;
  44.        SCROLL ;
  45.        SHADOW ;
  46.        COLOR SCHEME 5
  47.  
  48. * ╢¿╥σ╫╙▓╦╡Ñ╡─╤í╧ε
  49. DEFINE BAR 1 OF pop19_2 PROMPT "    ╧╘╩╛╢¿╥σ═╝╨╬   " SKIP
  50. DEFINE BAR 2 OF pop19_2 PROMPT "\-"
  51. DEFINE BAR 3 OF pop19_2 PROMPT "\<1. ┤╙╩┬╣ñ╫≈═│╝╞═╝ "
  52. DEFINE BAR 4 OF pop19_2 PROMPT "\<2. ╬─╗»│╠╢╚═│╝╞═╝ "
  53. DEFINE BAR 5 OF pop19_2 PROMPT "\<3. ─Ω┴Σ═│╝╞═╝ "
  54. DEFINE BAR 6 OF pop19_2 PROMPT "\<4. ╡│╒■╓░╬±═│╝╞═╝ "
  55. DEFINE BAR 7 OF pop19_2 PROMPT "\<5. ╨╘▒≡═│╝╞═╝     "
  56. DEFINE BAR 8 OF pop19_2 PROMPT "\<6. ═╦│÷"
  57. * ╧╘╩╛╙╨╢¿╥σ═╝╨╬
  58. ON SELECTION BAR 3 OF pop19_2 DO GPRO WITH  "GRAPH1"
  59. ON SELECTION BAR 4 OF pop19_2 DO GPRO WITH  "GRAPH2"
  60. ON SELECTION BAR 5 OF pop19_2 DO GPRO WITH  "GRAPH3"
  61. ON SELECTION BAR 6 OF pop19_2 DO GPRO WITH  "GRAPH4"
  62. ON SELECTION BAR 7 OF pop19_2 DO GPRO WITH  "GRAPH5"
  63. ON SELECTION BAR 8 OF pop19_2 DO STOP
  64. ACTIVATE POPUP pop19_2
  65. RETURN
  66.  
  67. PROCEDURE GRSHOW
  68. * ╢¿╥σ╥╗╕÷╧╘╩╛═╝╨╬╬─╝■╡─╔╧╡»╩╜▓╦╡Ñ:grfile
  69. DEFINE POPUP grfile FROM 5,30 ;
  70.        COLOR SCHEME 5 ;
  71.        SHADOW;
  72.        PROMPT FILES LIKE *.3GR
  73. ON SELECTION POPUP grfile DO GETGRAPH
  74.  
  75. CLEAR
  76. @ 4,32 SAY " ╤í╘±═╝╨╬:"
  77. ACTIVATE POPUP grfile
  78. * ╝ñ╗ε▓╦╡Ñ╥╘╤í╘±╥╗╕÷═╝╨╬╬─╝■
  79. RELEASE POPUP grfile
  80. RETURN
  81.  
  82. PROCEDURE GETGRAPH
  83. graphfile = PROMPT()
  84. FOXGRAPH &graphfile
  85. CLEAR
  86. RETURN
  87.  
  88. * ═╦│÷╫╙│╠╨≥ STOP
  89. PROCEDURE STOP
  90. DEACTIVATE POPUP  pop19_2
  91. RELEASE    POPUPS pop19_2
  92. RETURN
  93.