Power-Programmierung/CD1.mdf/xbase/library/dbase/dict/param.sel

Text File | 1986-02-17 | 1.5 KB | 49 lines

* PARAM.SEL
* Paul Ferrara [70075,252]
* Bill Lonborg [70045,1237]
* Last Change: 02-17-86 00:05
*
IF FILE("PARAM.MEM")
   RESTORE FROM param ADDITIVE
ELSE
   STORE CHR(14) TO mprintwide
   STORE "014      " TO mprintinp
   STORE 80 TO mpagewdth
   STORE 66 TO mpagelen
ENDIF
SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
CLEAR
@  1, 0 SAY "SELECT PRINT PARAMETERS"
@  1,72 SAY date()
@  2, 0 SAY "═══════════════════════════════════════════════════════"
@  2,55 SAY "═════════════════════════"
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
@  4,17 SAY "Pagelength (in lines)"
@  6,17 SAY "Pagewidth (in columns)"
@  8,17 SAY "Enter the ASCII values that your"
@  9,17 SAY "printer requires for double-wide"
@ 10,17 SAY "print."
@ 11,17 SAY 'i.e. Epson = "014      "'
@ 13,31 SAY "Select option"
SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
@ 23, 0 SAY "═══════════════════════════════════════════════════════"
@ 23,55 SAY "═════════════════════════"
@ 24,16 SAY "1=save & exit  2=re-enter  0=exit without saving"
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
STORE 1 TO choice
DO WHILE .NOT. choice=0
   @  4,50 GET mpagelen PICTURE "99"
   @  6,50 GET mpagewdth PICTURE "999" RANGE 80,132
   @ 11,50 GET mprintinp PICTURE "999999999"
   @ 13,45 GET choice PICTURE "9" RANGE 0,2
   READ
   STORE CHR(VAL(SUBSTR(mprintinp,1,3)))+CHR(VAL(SUBSTR(mprintinp,4,3)))+ ;
      CHR(VAL(SUBSTR(mprintinp,7,3))) to mprintwide
   IF choice=1
      SAVE ALL LIKE mp* TO param
      EXIT
   ENDIF
ENDDO
CLEAR
RETURN