home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / EXAMPLE.SPR < prev    next >
Encoding:
Text File  |  1992-10-10  |  3.7 KB  |  141 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 10/10/92             EXAMPLE.SPR               12:32:06 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1992 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.currarea = SELECT()
  32.  
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *                    Window definitions                   
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_q9s0qv76x")
  42.     DEFINE WINDOW _q9s0qv76x ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 16.538,84.800 ;
  45.         TITLE "Example Screen" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         CLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM ;
  51.         COLOR RGB(0,0,0,255,255,255)
  52.     MOVE WINDOW _q9s0qv76x CENTER
  53. ENDIF
  54.  
  55.  
  56. #REGION 1
  57. DEFINE POPUP _q9s0qv8or ;
  58.     PROMPT FILES LIKE *.* ;
  59.     SCROLL ;
  60.     MARGIN ;
  61.     MARK ""
  62.  
  63.  
  64. *       *********************************************************
  65. *       *                                                         
  66. *       *                  EXAMPLE Screen Layout                  
  67. *       *                                                         
  68. *       *********************************************************
  69. *
  70.  
  71. #REGION 1
  72. IF WVISIBLE("_q9s0qv76x")
  73.     ACTIVATE WINDOW _q9s0qv76x SAME
  74. ELSE
  75.     ACTIVATE WINDOW _q9s0qv76x NOSHOW
  76. ENDIF
  77. @ 3.692,7.200 TO 8.384,21.800 ;
  78.     PEN 1, 8
  79. @ 4.692,9.600 GET istop ;
  80.     PICTURE "@*RVN Stop;Go" ;
  81.     SIZE 1.308,8.500,0.308 ;
  82.     DEFAULT 1 ;
  83.     FONT "MS Sans Serif", 8 ;
  84.     STYLE "BT"
  85. @ 3.769,31.200 GET icheck ;
  86.     PICTURE "@*C Check here" ;
  87.     SIZE 1.308,15.000 ;
  88.     DEFAULT 0 ;
  89.     FONT "MS Sans Serif", 8 ;
  90.     STYLE "BT"
  91. @ 12.923,9.600 GET igo ;
  92.     PICTURE "@*HT  OK " ;
  93.     SIZE 1.769,11.000,0.667 ;
  94.     DEFAULT 1 ;
  95.     FONT "MS Sans Serif", 8 ;
  96.     STYLE "B"
  97. @ 12.923,36.000 GET ICancel ;
  98.     PICTURE "@*HT Cancel" ;
  99.     SIZE 1.769,10.667,0.667 ;
  100.     DEFAULT 1 ;
  101.     FONT "MS Sans Serif", 8 ;
  102.     STYLE "B"
  103. @ 12.923,62.400 GET IPanic ;
  104.     PICTURE "@*HN Panic" ;
  105.     SIZE 1.769,11.500,0.667 ;
  106.     DEFAULT 1 ;
  107.     FONT "MS Sans Serif", 8 ;
  108.     STYLE "B"
  109. @ 6.462,31.200 GET Fruit ;
  110.     Picture "@^ Apples;Oranges;Bananas" ;
  111.     SIZE 1.538,10.667 ;
  112.     DEFAULT "Apples" ;
  113.     FONT "MS Sans Serif", 8 ;
  114.     STYLE "B"
  115. @ 1.923,55.400 GET TheFile ;
  116.     PICTURE "@&N" ;
  117.     POPUP _q9s0qv8or ;
  118.     SIZE 4.615,21.800 ;
  119.     DEFAULT " " ;
  120.     FONT "MS Sans Serif", 8 ;
  121.     STYLE ""
  122.  
  123. IF NOT WVISIBLE("_q9s0qv76x")
  124.     ACTIVATE WINDOW _q9s0qv76x
  125. ENDIF
  126.  
  127. READ CYCLE
  128.  
  129. RELEASE WINDOW _q9s0qv76x
  130. SELECT (m.currarea)
  131.  
  132. RELEASE POPUPS _q9s0qv8or
  133.  
  134. #REGION 0
  135. IF m.talkstat = "ON"
  136.     SET TALK ON
  137. ENDIF
  138. IF m.compstat = "ON"
  139.     SET COMPATIBLE ON
  140. ENDIF
  141.