home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / printer / pop_pnt / pop-pnt.prg
Encoding:
Text File  |  1987-05-07  |  7.1 KB  |  210 lines
  1. SET TALK OFF
  2. set bell off
  3. set confirm off
  4. STORE .T. TO DOIT
  5. DO WHILE DOIT
  6.  CLEA
  7.  STORE '0' TO BLAST
  8.  @ 1,1 SAY 'PRINTER SETUP MENU  Use this program to set up your printer when the'
  9.  @ 2,1 SAY 'PRINTER SETUP MENU  application in use does not have this capability.'
  10.  @ 3,1 SAY 'PRINTER SETUP MENU  Some programs will alter these settings.'
  11.  @ 5,10 SAY 'SELECT THE PRINTER TO SETUP FROM THE CHOICES BELOW ' GET BLAST
  12.  @ 6,10 SAY '  OR   0   TO EXIT'
  13.  @ 8,10 SAY '1  -  LASERJET+ OR EMULATION (DATAPRODUCTS, LASERPRO)'
  14.  @ 10,10 SAY '2  -  IBM PROPRINTER'
  15.  READ
  16.  DO CASE
  17.    CASE BLAST='0'
  18.     CLEA ALL
  19.     RETURN
  20.    CASE BLAST='1'
  21.      STORE ' ' TO GROPE
  22.     DO WHILE GROPE <> '0'
  23.      CLEA
  24.      STORE ' ' TO GROPE
  25.      @ 1,1 SAY 'LASERJET +  SETUP  A typical session might be 1 E 2 7 0 to set up'
  26.      @ 2,1 SAY 'LASERJET +  SETUP  landscape, 16 cpi at 8 lines/inch and exit.'
  27.      @ 3,1 SAY 'LASERJET +  SETUP   CPI = characters per inch, normal = 10'
  28.      @ 5,10 SAY 'ENTER SELECTION # FROM MENU BELOW ' GET GROPE PICTURE '!'
  29.      @ 7,10  SAY '0 - EXIT // QUIT               A - SET FORM LENGTH '
  30.      @ 8,10  SAY '1 - RESET PRINTER TO NORMAL    B - START BOLD PRINT'
  31.      @ 9,10  SAY '2 - 16 CPI LINE PRINTER        C - END BOLD '
  32.      @ 10,10 SAY '3 - 12 CPI                     D - PORTRAIT MODE  8.5 W X 11'
  33.      @ 11,10 SAY '4 - 10 CPI NORMAL              E - LANDSCAPE MODE 11 W X 8.5'
  34.      @ 12,10 SAY '5 -  5 CPI DBL WIDE START      F - START ITALICS (10 CPI)'
  35.      @ 13,10 SAY '6 -  5 CPI DBL WIDE STOP       G - END ITALICS'
  36.      @ 14,10 SAY '7 -  8 LINES/INCH              H - SET TOP MARGIN'
  37.      @ 15,10 SAY '8 -  6 LINES/INCH              I - SET LEFT MARGIN'
  38.      @ 16,10 SAY '9 -  PAGE EJECT                J - SET TEXT LENGTH '
  39.      @ 17,10 SAY '                               K - START PROPORTIONAL '
  40.      @ 18,10 SAY '                               L - END   PROPORTIONAL '
  41. READ
  42.      SET PRINT ON
  43.      DO CASE
  44.         CASE GROPE='0'
  45.           * DO NOTHING
  46.         CASE GROPE='1'
  47.             ? CHR(27)+'E'
  48.         CASE GROPE='2'
  49.             ? CHR(27)+'&k2S'
  50.         CASE GROPE='3'
  51.             ? CHR(27)+'(s12H'
  52.         CASE GROPE='4'
  53.             ? CHR(27)+'(s10H'
  54.         CASE GROPE='5'
  55.             ? CHR(27)+'~'+CHR(27)+'~2A'
  56.             ? CHR(27)+'W1'
  57.         CASE GROPE='6'
  58.             ? CHR(27)+'W0'
  59.             ? CHR(27)+'~'+CHR(27)+'~4A'
  60.         CASE GROPE='7'
  61.             ? CHR(27)+'&l8D'
  62.         CASE GROPE='8'
  63.             ? CHR(27)+'&l6D'
  64.         CASE GROPE='9'
  65.             ? CHR(12)
  66.         CASE GROPE='A'
  67.             N=66
  68.             @ 20,10 SAY 'ENTER # LINES PER PAGE (66= 11" x 6 lpi)' GET N PICTURE '99'
  69.             READ
  70.             IF N>9
  71.              STORE STR(N,2) TO NC
  72.             ELSE
  73.              STORE STR(N,1) TO NC
  74.             ENDIF
  75.             STORE "'&l"+NC+"P'" TO NC
  76.             ? CHR(27)+&NC
  77.             @ 20,10 SAY '                                                    '
  78.         CASE GROPE='B'
  79.             ? CHR(27)+'(s3B'
  80.         CASE GROPE='C'
  81.             ? CHR(27)+'(s-3B'
  82.         CASE GROPE='D'
  83.             ? CHR(27)+'&l0O'
  84.         CASE GROPE='E'
  85.             ? CHR(27)+'&l1O'
  86.         CASE GROPE='F'
  87.             ? CHR(27)+'(s10H'
  88.             ? CHR(27)+'(s1S'
  89.         CASE GROPE='G'
  90.             ? CHR(27)+'(s0S'
  91.         CASE GROPE='H'
  92.             N=3
  93.             @ 20,10 SAY 'ENTER # LINES PER TOP MARGIN (3= .5" x 6 lpi)' GET N PICTURE '99'
  94.             READ
  95.             IF N>9
  96.              STORE STR(N,2) TO NC
  97.             ELSE
  98.              STORE STR(N,1) TO NC
  99.             ENDIF
  100.             STORE "'&l"+NC+"E'" TO NC
  101.             ? CHR(27)+&NC
  102.             @ 20,10 SAY '                                                       '
  103.         CASE GROPE='I'
  104.             N=10
  105.             @ 20,10 SAY 'ENTER # SPACES PER LEFT MARGIN (10= 1" x 10 CPI)' GET N PICTURE '99'
  106.             READ
  107.             IF N>9
  108.              STORE STR(N,2) TO NC
  109.             ELSE
  110.              STORE STR(N,1) TO NC
  111.             ENDIF
  112.             STORE "'&a"+NC+"L'" TO NC
  113.             ? CHR(27)+&NC
  114.             @ 20,10 SAY '                                                       '
  115.         CASE GROPE='J'
  116.             N=60
  117.             @ 20,1 SAY 'ENTER # TEXT LINES/PAGE (60= 66 - 3 TOP - 3 BOT)' GET N PICTURE '99'
  118.             @ 21,1 SAY 'LANDSCAPE DEFAULT = 45'
  119.             READ
  120.             IF N>9
  121.              STORE STR(N,2) TO NC
  122.             ELSE
  123.              STORE STR(N,1) TO NC
  124.             ENDIF
  125.             STORE "'&a"+NC+"L'" TO NC
  126.             ? CHR(27)+&NC
  127.             @ 20,1 SAY '                                                       '
  128.             @ 21,1 SAY '                             '
  129.          CASE GROPE='K'
  130.            ? CHR(27)+'(s12H'
  131.            ? CHR(27)+'(s1P'
  132.          CASE GROPE='L'
  133.            ? CHR(27)+'(s10H'
  134.            ? CHR(27)+'(s0P'
  135.        ENDCASE
  136.        SET PRINT OFF
  137.     ENDDO GROPE
  138.    CASE BLAST='2'
  139.      STORE ' ' TO GROPE
  140.     DO WHILE GROPE <> '0'
  141.      CLEA
  142.      STORE ' ' TO GROPE
  143.      @ 1,1 SAY 'IBM PROPRINTER SETUP'
  144.      @ 2,1 SAY 'IBM PROPRINTER SETUP'
  145.      @ 3,1 SAY 'IBM PROPRINTER SETUP'
  146.      @ 5,10 SAY 'ENTER SELECTION # FROM MENU BELOW ' GET GROPE PICTURE '!'
  147.      @ 7,10  SAY '0 - EXIT // QUIT               A - SET FORM LENGTH '
  148.      @ 8,10  SAY '1 - RESET PRINTER TO NORMAL    B - START BOLD PRINT'
  149.      @ 9,10  SAY '2 - 16 CPI COMPRESSED          C - END BOLD '
  150.      @ 10,10 SAY '3 - 12 CPI                     D - START LETTER QUALITY'
  151.      @ 11,10 SAY '4 - 10 CPI NORMAL              E - END   LETTER QUALITY'
  152.      @ 12,10 SAY '5 -  5 CPI DBL WIDE START      F - START PROPORTIONAL SP'
  153.      @ 13,10 SAY '6 -  5 CPI DBL WIDE STOP       G - END   PROPORTIONAL SP'
  154.      @ 14,10 SAY '7 -  8 LINES/INCH             '
  155.      @ 15,10 SAY '8 -  6 LINES/INCH             '
  156.      @ 16,10 SAY '9 -  PAGE EJECT               '
  157.      READ
  158.      SET PRINT ON
  159.      DO CASE
  160.         CASE GROPE='0'
  161.           * DO NOTHING
  162.         CASE GROPE='1'
  163.      
  164.         CASE GROPE='2'
  165.             ? CHR(15)
  166.         CASE GROPE='3'
  167.             ? CHR(27)+":"
  168.         CASE GROPE='4'
  169.             ? CHR(18)
  170.         CASE GROPE='5'
  171.             ? CHR(27)+"W1"
  172.         CASE GROPE='6'
  173.             ? CHR(27)+"W0"
  174.         CASE GROPE='7'
  175.             ? CHR(27)+"0"
  176.         CASE GROPE='8'
  177.             ? CHR(27)+"2"
  178.         CASE GROPE='9'
  179.             ? CHR(12)
  180.         CASE GROPE='A'
  181.             N=66
  182.             @ 18,10 SAY 'ENTER # LINES PER PAGE ' GET N PICTURE '99'
  183.             READ
  184.             IF N>9
  185.              STORE STR(N,2) TO NC
  186.             ELSE
  187.              STORE STR(N,1) TO NC
  188.             ENDIF
  189.             STORE "'C"+NC+"'" TO NC
  190.             ? CHR(27)+&NC
  191.             @ 18,10 SAY '                                         '
  192.         CASE GROPE='B'
  193.             ? CHR(27)+"E"
  194.         CASE GROPE='C'
  195.             ? CHR(27)+"F"
  196.         CASE GROPE='D'
  197.             ? CHR(27)+"G"
  198.         CASE GROPE='E'
  199.             ? CHR(27)+"H"
  200.         CASE GROPE='F'
  201.             ? CHR(27)+"P1"
  202.         CASE GROPE='G'
  203.             ? CHR(27)+"P0"
  204.        ENDCASE
  205.        SET PRINT OFF
  206.     ENDDO GROPE
  207.  ENDCASE
  208. ENDDO DOIT
  209. ETUP'
  210.      @ 5,10 SAY 'ENTER SELECTION # FROM MENU BELOW ' GET G