home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / genapps / rquery3.arj / PRNPICK.APP < prev    next >
Text File  |  1991-12-09  |  3KB  |  107 lines
  1. $COMMAND
  2. PRNPICK
  3. SET ERROR VAR ERVAR
  4. SET VAR VpQUOTES = (CVAL("QUOTES"))
  5. IF ERVAR NE 0 THEN
  6. SET VAR VpQUOTES = (CVAL('QUOTES'))
  7. SET QUOTES=NULL
  8. SET QUOTES="
  9. ENDIF
  10. SET ERROR VAR OFF
  11. CLEAR VAR ERVAR
  12. SET VAR VpNULL = (CVAL("NULL"))
  13. SET VAR VpMESS = (CVAL("MESSAGES"))
  14. SET VAR VpERMESS = (CVAL("ERROR"))
  15. SET VAR VpFILES = (CVAL("FILES"))
  16. SET VAR VpBELL = (CVAL("BELL"))
  17. SET VAR VpPLUS = (CVAL("PLUS"))
  18. SET VAR VpAND = (CVAL("AND"))
  19. SET MESSAGES OFF     
  20. DEBUG SET MESSAGES ON
  21. CONNECT PRD
  22. SET ERROR MESSAGES OFF     
  23. DEBUG SET ERROR MESSAGES ON
  24. NEWPAGE
  25. SET BELL OFF     
  26. CLS
  27. WRI "╔═══════════════════════════════════════════════╗" AT 8 16 YELLOW ON BLACK
  28. WRI "║        Printer Driver Select System           ║" AT 9 16 YELLOW ON BLACK
  29. WRI "║                  version 1.01                 ║" AT 10 16 YELLOW ON BLACK
  30. WRI "║                                               ║" AT 11 16 YELLOW ON BLACK
  31. WRI "║             Revised: 11/23/1991               ║" AT 12 16 YELLOW ON BLACK
  32. WRI "║    Written in Rbase 3.1 by Jerry A. Horton    ║" AT 13 16 YELLOW ON BLACK
  33. WRI "║                                               ║" AT 14 16 YELLOW ON BLACK
  34. WRI "║ Copywrite (C) 1991,      All rights reserved. ║" AT 15 16 YELLOW ON BLACK
  35. WRI "║                                               ║" AT 16 16 YELLOW ON BLACK
  36. WRI "║              Jerry A. Horton                  ║" AT 17 16 YELLOW ON BLACK
  37. WRI "╚═══════════════════════════════════════════════╝" AT 18 16 YELLOW ON BLACK
  38. SET VAR VT TIME
  39. SET VAR VT TO (.#TIME + 3)
  40. WHILE #TIME LT .VT THEN
  41. ENDWHILE
  42. CLEAR VAR VT
  43. CLS
  44.         SET VAR VPRINT TEXT
  45.         SET VAR VPRINT TO PDRIVER IN PRINTERS WHERE CPICK EQ 1
  46.         SET PRINTER .VPRINT
  47.         CLEAR VAR VPRINT, VT
  48.       SET VAR PRDPK1 INT
  49.       SET VAR LVEL1 INT
  50.       SET VAR LVEL1 TO 0
  51.       WHILE LVEL1 EQ 0 THEN
  52.         NEWPAGE
  53.         CHOOSE PRDPK1 FROM PRINTSET IN PRNPICK.APX
  54.      IF PRDPK1 EQ 0 THEN
  55.         BREAK
  56.         ENDIF
  57.      IF PRDPK1 EQ 1 THEN
  58. LABEL PRNPICK
  59.         EDIT USING PCHOOSE ORDER BY PCOMPANY
  60. COMPUTE VCPICK AS COUNT CPICK FROM PRINTERS WHERE CPICK EQ 1
  61. IF VCPICK GT 1 THEN
  62. CLS
  63. BEEP
  64. WRITE " YOU HAVE CHOOSEN MORE THAN ONE PRINTER DRIVER !" AT 10 10 +
  65.  YELLOW ON BLACK BLINK
  66. WRITE "PRESS ANY KEY TO RETURN TO PRINTER CHOICE MENU..." AT 12 10 +
  67. YELLOW ON BLACK
  68. PAUSE
  69. GOTO PRNPICK
  70. ENDIF
  71.         SET VAR VPRINT TEXT
  72.         SET VAR VPRINT TO PDRIVER IN PRINTERS WHERE CPICK EQ 1
  73.         SET PRINTER .VPRINT
  74.         CLEAR VAR VPRINT, VPICK, VCHAR, VCHECK, CVPICK
  75. ENDIF
  76.     IF PRDPK1 EQ 2 THEN
  77.     EDIT USING PEDIT ORDER BY PMODEL
  78.      UPDATE PRINTERS SET CPICK = 0 WHERE CPICK IS NULL
  79. ENDIF
  80. IF PRDPK1 EQ 3 THEN
  81. BREAK
  82. ENDIF
  83. ENDWHILE
  84. SET NULL= .VpNULL
  85. SET QUOTES=NULL
  86. SET QUOTES= .VpQUOTES
  87. SET FILES= .VpFILES
  88. SET BELL= .VpBELL
  89. SET PLUS=NULL
  90. SET PLUS=&VpPLUS
  91. SET AND .VpAND
  92. SET MESSAGES= .VpMESS
  93. SET ERROR= .VpERMESS
  94. CLEAR VAR VpNULL, VpQUOTES, VpFILES, VpBELL, VpPLUS
  95. clear var VpMESS, VpERMESS, VpAND
  96. NEWPAGE
  97.       CLEAR VARIABLES LVEL1, PRDPK1
  98. RETURN
  99. $MENU
  100. PRINTSET
  101. COLUMN |PRINTER SETUP MENU|
  102. |PICK TYPE OF PRINTER FOR APPLICATION|
  103. |ADD / UPDATE PRINTER TYPES|
  104. |EXIT|
  105. ENDC
  106.  
  107.