home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pop_pnt.zip
/
POP-PNT.PRG
Wrap
Text File
|
1987-05-07
|
7KB
|
210 lines
SET TALK OFF
set bell off
set confirm off
STORE .T. TO DOIT
DO WHILE DOIT
CLEA
STORE '0' TO BLAST
@ 1,1 SAY 'PRINTER SETUP MENU Use this program to set up your printer when the'
@ 2,1 SAY 'PRINTER SETUP MENU application in use does not have this capability.'
@ 3,1 SAY 'PRINTER SETUP MENU Some programs will alter these settings.'
@ 5,10 SAY 'SELECT THE PRINTER TO SETUP FROM THE CHOICES BELOW ' GET BLAST
@ 6,10 SAY ' OR 0 TO EXIT'
@ 8,10 SAY '1 - LASERJET+ OR EMULATION (DATAPRODUCTS, LASERPRO)'
@ 10,10 SAY '2 - IBM PROPRINTER'
READ
DO CASE
CASE BLAST='0'
CLEA ALL
RETURN
CASE BLAST='1'
STORE ' ' TO GROPE
DO WHILE GROPE <> '0'
CLEA
STORE ' ' TO GROPE
@ 1,1 SAY 'LASERJET + SETUP A typical session might be 1 E 2 7 0 to set up'
@ 2,1 SAY 'LASERJET + SETUP landscape, 16 cpi at 8 lines/inch and exit.'
@ 3,1 SAY 'LASERJET + SETUP CPI = characters per inch, normal = 10'
@ 5,10 SAY 'ENTER SELECTION # FROM MENU BELOW ' GET GROPE PICTURE '!'
@ 7,10 SAY '0 - EXIT // QUIT A - SET FORM LENGTH '
@ 8,10 SAY '1 - RESET PRINTER TO NORMAL B - START BOLD PRINT'
@ 9,10 SAY '2 - 16 CPI LINE PRINTER C - END BOLD '
@ 10,10 SAY '3 - 12 CPI D - PORTRAIT MODE 8.5 W X 11'
@ 11,10 SAY '4 - 10 CPI NORMAL E - LANDSCAPE MODE 11 W X 8.5'
@ 12,10 SAY '5 - 5 CPI DBL WIDE START F - START ITALICS (10 CPI)'
@ 13,10 SAY '6 - 5 CPI DBL WIDE STOP G - END ITALICS'
@ 14,10 SAY '7 - 8 LINES/INCH H - SET TOP MARGIN'
@ 15,10 SAY '8 - 6 LINES/INCH I - SET LEFT MARGIN'
@ 16,10 SAY '9 - PAGE EJECT J - SET TEXT LENGTH '
@ 17,10 SAY ' K - START PROPORTIONAL '
@ 18,10 SAY ' L - END PROPORTIONAL '
READ
SET PRINT ON
DO CASE
CASE GROPE='0'
* DO NOTHING
CASE GROPE='1'
? CHR(27)+'E'
CASE GROPE='2'
? CHR(27)+'&k2S'
CASE GROPE='3'
? CHR(27)+'(s12H'
CASE GROPE='4'
? CHR(27)+'(s10H'
CASE GROPE='5'
? CHR(27)+'~'+CHR(27)+'~2A'
? CHR(27)+'W1'
CASE GROPE='6'
? CHR(27)+'W0'
? CHR(27)+'~'+CHR(27)+'~4A'
CASE GROPE='7'
? CHR(27)+'&l8D'
CASE GROPE='8'
? CHR(27)+'&l6D'
CASE GROPE='9'
? CHR(12)
CASE GROPE='A'
N=66
@ 20,10 SAY 'ENTER # LINES PER PAGE (66= 11" x 6 lpi)' GET N PICTURE '99'
READ
IF N>9
STORE STR(N,2) TO NC
ELSE
STORE STR(N,1) TO NC
ENDIF
STORE "'&l"+NC+"P'" TO NC
? CHR(27)+&NC
@ 20,10 SAY ' '
CASE GROPE='B'
? CHR(27)+'(s3B'
CASE GROPE='C'
? CHR(27)+'(s-3B'
CASE GROPE='D'
? CHR(27)+'&l0O'
CASE GROPE='E'
? CHR(27)+'&l1O'
CASE GROPE='F'
? CHR(27)+'(s10H'
? CHR(27)+'(s1S'
CASE GROPE='G'
? CHR(27)+'(s0S'
CASE GROPE='H'
N=3
@ 20,10 SAY 'ENTER # LINES PER TOP MARGIN (3= .5" x 6 lpi)' GET N PICTURE '99'
READ
IF N>9
STORE STR(N,2) TO NC
ELSE
STORE STR(N,1) TO NC
ENDIF
STORE "'&l"+NC+"E'" TO NC
? CHR(27)+&NC
@ 20,10 SAY ' '
CASE GROPE='I'
N=10
@ 20,10 SAY 'ENTER # SPACES PER LEFT MARGIN (10= 1" x 10 CPI)' GET N PICTURE '99'
READ
IF N>9
STORE STR(N,2) TO NC
ELSE
STORE STR(N,1) TO NC
ENDIF
STORE "'&a"+NC+"L'" TO NC
? CHR(27)+&NC
@ 20,10 SAY ' '
CASE GROPE='J'
N=60
@ 20,1 SAY 'ENTER # TEXT LINES/PAGE (60= 66 - 3 TOP - 3 BOT)' GET N PICTURE '99'
@ 21,1 SAY 'LANDSCAPE DEFAULT = 45'
READ
IF N>9
STORE STR(N,2) TO NC
ELSE
STORE STR(N,1) TO NC
ENDIF
STORE "'&a"+NC+"L'" TO NC
? CHR(27)+&NC
@ 20,1 SAY ' '
@ 21,1 SAY ' '
CASE GROPE='K'
? CHR(27)+'(s12H'
? CHR(27)+'(s1P'
CASE GROPE='L'
? CHR(27)+'(s10H'
? CHR(27)+'(s0P'
ENDCASE
SET PRINT OFF
ENDDO GROPE
CASE BLAST='2'
STORE ' ' TO GROPE
DO WHILE GROPE <> '0'
CLEA
STORE ' ' TO GROPE
@ 1,1 SAY 'IBM PROPRINTER SETUP'
@ 2,1 SAY 'IBM PROPRINTER SETUP'
@ 3,1 SAY 'IBM PROPRINTER SETUP'
@ 5,10 SAY 'ENTER SELECTION # FROM MENU BELOW ' GET GROPE PICTURE '!'
@ 7,10 SAY '0 - EXIT // QUIT A - SET FORM LENGTH '
@ 8,10 SAY '1 - RESET PRINTER TO NORMAL B - START BOLD PRINT'
@ 9,10 SAY '2 - 16 CPI COMPRESSED C - END BOLD '
@ 10,10 SAY '3 - 12 CPI D - START LETTER QUALITY'
@ 11,10 SAY '4 - 10 CPI NORMAL E - END LETTER QUALITY'
@ 12,10 SAY '5 - 5 CPI DBL WIDE START F - START PROPORTIONAL SP'
@ 13,10 SAY '6 - 5 CPI DBL WIDE STOP G - END PROPORTIONAL SP'
@ 14,10 SAY '7 - 8 LINES/INCH '
@ 15,10 SAY '8 - 6 LINES/INCH '
@ 16,10 SAY '9 - PAGE EJECT '
READ
SET PRINT ON
DO CASE
CASE GROPE='0'
* DO NOTHING
CASE GROPE='1'
CASE GROPE='2'
? CHR(15)
CASE GROPE='3'
? CHR(27)+":"
CASE GROPE='4'
? CHR(18)
CASE GROPE='5'
? CHR(27)+"W1"
CASE GROPE='6'
? CHR(27)+"W0"
CASE GROPE='7'
? CHR(27)+"0"
CASE GROPE='8'
? CHR(27)+"2"
CASE GROPE='9'
? CHR(12)
CASE GROPE='A'
N=66
@ 18,10 SAY 'ENTER # LINES PER PAGE ' GET N PICTURE '99'
READ
IF N>9
STORE STR(N,2) TO NC
ELSE
STORE STR(N,1) TO NC
ENDIF
STORE "'C"+NC+"'" TO NC
? CHR(27)+&NC
@ 18,10 SAY ' '
CASE GROPE='B'
? CHR(27)+"E"
CASE GROPE='C'
? CHR(27)+"F"
CASE GROPE='D'
? CHR(27)+"G"
CASE GROPE='E'
? CHR(27)+"H"
CASE GROPE='F'
? CHR(27)+"P1"
CASE GROPE='G'
? CHR(27)+"P0"
ENDCASE
SET PRINT OFF
ENDDO GROPE
ENDCASE
ENDDO DOIT
ETUP'
@ 5,10 SAY 'ENTER SELECTION # FROM MENU BELOW ' GET G