home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR16 / WLBPS.ZIP / WLBPS.SPR < prev    next >
Text File  |  1993-01-23  |  6KB  |  182 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 01/23/93              WLBPS.SPR                20:49:20 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Michael L. Brachman, Ph.D.                              ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1993 Micro Endeavors, Inc.                ║
  10. *       ║ 3150 Township Line Road                                 ║
  11. *       ║ Drexel Hill, PA  19026                                  ║
  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.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       ╓─────────────────────────────────────────────────────────╖
  35. *       ║                                                         ║
  36. *       ║               Windows Window definitions                ║
  37. *       ║                                                         ║
  38. *       ╙─────────────────────────────────────────────────────────╜
  39. *
  40.  
  41. IF NOT WEXIST("ps1") ;
  42.     OR UPPER(WTITLE("PS1")) == "PS1.PJX" ;
  43.     OR UPPER(WTITLE("PS1")) == "PS1.SCX" ;
  44.     OR UPPER(WTITLE("PS1")) == "PS1.MNX" ;
  45.     OR UPPER(WTITLE("PS1")) == "PS1.PRG" ;
  46.     OR UPPER(WTITLE("PS1")) == "PS1.FRX" ;
  47.     OR UPPER(WTITLE("PS1")) == "PS1.QPR"
  48.     DEFINE WINDOW ps1 ;
  49.         AT 2.667, 6.250 ;
  50.         SIZE 11.231,82.333 ;
  51.         TITLE "Printer Selection" ;
  52.         FONT "MS Sans Serif", 8 ;
  53.         STYLE "B" ;
  54.         FLOAT ;
  55.         CLOSE ;
  56.         NOMINIMIZE ;
  57.         DOUBLE ;
  58.         COLOR RGB(,,,255,255,255)
  59. ENDIF
  60.  
  61.  
  62. *       ╓─────────────────────────────────────────────────────────╖
  63. *       ║                                                         ║
  64. *       ║               WLBPS/Windows Screen Layout               ║
  65. *       ║                                                         ║
  66. *       ╙─────────────────────────────────────────────────────────╜
  67. *
  68.  
  69. #REGION 1
  70. IF WVISIBLE("ps1")
  71.     ACTIVATE WINDOW ps1 SAME
  72. ELSE
  73.     ACTIVATE WINDOW ps1 NOSHOW
  74. ENDIF
  75. @ 1.231,2.000 TO 9.616,64.167 ;
  76.     PEN 1, 8
  77. @ 0.769,3.167 SAY " Printer "  ;
  78.     FONT "MS Sans Serif", 8 ;
  79.     STYLE "B"
  80. @ 2.231,4.000 GET l_rbprint ;
  81.     PICTURE "@*RVN \<Default Printer;Specific \<Printer" ;
  82.     SIZE 1.308,19.000,2.000 ;
  83.     DEFAULT 1 ;
  84.     FONT "MS Sans Serif", 8 ;
  85.     STYLE "BT" ;
  86.     VALID Vrbprint()
  87. @ 3.769,7.000 SAY l_pstring ;
  88.     SIZE 1.000,54.167 ;
  89.     FONT "MS Sans Serif", 8 ;
  90.     STYLE "B" ;
  91.     COLOR RGB(,,,255,255,255)
  92. @ 1.231,66.000 GET l_praction ;
  93.     PICTURE "@*VT \!\<OK;\?\<Cancel" ;
  94.     SIZE 1.769,14.167,0.308 ;
  95.     DEFAULT 1 ;
  96.     FONT "MS Sans Serif", 8 ;
  97.     STYLE "B" ;
  98.     VALID Vpraction()
  99. @ 5.538,72.000 GET l_iv1 ;
  100.     PICTURE "@*IHN " ;
  101.     SIZE 1.231,2.167,0.667 ;
  102.     DEFAULT 0 ;
  103.     FONT "MS Sans Serif", 8 ;
  104.     STYLE "B" ;
  105.     WHEN _qcq18mohj()
  106. @ 7.154,7.000 GET l_ppprint ;
  107.     PICTURE "@^" ;
  108.     FROM l_pplist ;
  109.     SIZE 1.538,56.167 ;
  110.     DEFAULT 1 ;
  111.     FONT "MS Sans Serif", 8 ;
  112.     STYLE "B" ;
  113.     WHEN Vppprint()
  114. @ 8.308,72.000 GET l_iv2 ;
  115.     PICTURE "@*IHN " ;
  116.     SIZE 1.231,2.667,0.667 ;
  117.     DEFAULT 0 ;
  118.     FONT "MS Sans Serif", 8 ;
  119.     STYLE "B" ;
  120.     WHEN _qcq18morx()
  121.  
  122. IF NOT WVISIBLE("ps1")
  123.     ACTIVATE WINDOW ps1
  124. ENDIF
  125.  
  126. READ CYCLE
  127.  
  128. RELEASE WINDOW ps1
  129.  
  130. #REGION 0
  131.  
  132. SET READBORDER &rborder
  133.  
  134. IF m.talkstat = "ON"
  135.     SET TALK ON
  136. ENDIF
  137. IF m.compstat = "ON"
  138.     SET COMPATIBLE ON
  139. ENDIF
  140.  
  141.  
  142. *       ╓─────────────────────────────────────────────────────────╖
  143. *       ║                                                         ║
  144. *       ║ _QCQ18MOHJ           l_iv1 WHEN                         ║
  145. *       ║                                                         ║
  146. *       ║ Function Origin:                                        ║
  147. *       ║                                                         ║
  148. *       ║ From Platform:       Windows                            ║
  149. *       ║ From Screen:         WLBPS,     Record Number:    7     ║
  150. *       ║ Variable:            l_iv1                              ║
  151. *       ║ Called By:           WHEN Clause                        ║
  152. *       ║ Snippet Number:      1                                  ║
  153. *       ║                                                         ║
  154. *       ╙─────────────────────────────────────────────────────────╜
  155. *
  156. FUNCTION _qcq18mohj     &&  l_iv1 WHEN
  157. #REGION 1
  158. IF l_rbprint = 2
  159.   _curobj = OBJNUM(l_rbprint)+1
  160. ELSE
  161.   _curobj = OBJNUM(l_rbprint)
  162. ENDIF
  163. RETURN .F.
  164.  
  165. *       ╓─────────────────────────────────────────────────────────╖
  166. *       ║                                                         ║
  167. *       ║ _QCQ18MORX           l_iv2 WHEN                         ║
  168. *       ║                                                         ║
  169. *       ║ Function Origin:                                        ║
  170. *       ║                                                         ║
  171. *       ║ From Platform:       Windows                            ║
  172. *       ║ From Screen:         WLBPS,     Record Number:    9     ║
  173. *       ║ Variable:            l_iv2                              ║
  174. *       ║ Called By:           WHEN Clause                        ║
  175. *       ║ Snippet Number:      2                                  ║
  176. *       ║                                                         ║
  177. *       ╙─────────────────────────────────────────────────────────╜
  178. *
  179. FUNCTION _qcq18morx     &&  l_iv2 WHEN
  180. #REGION 1
  181. _curobj = OBJNUM(l_praction) + 1
  182. RETURN .F.