-----------------------------------------------------------
  DATE: 11/22/04                      File: #HP, N2S                  Page   1
  TIME:  5:52 PM

      1 !S #HP,Y2S
      2 !O HP,Y2J
      3 !L TERM$,B,E
      4 !R CED
      5 !*
     15 !
     17 !
     19 !           PROGRAM DESCRIPTION:
     20 !
     21 !
     22 !
     25 !
     35 !           SOURCE FILE NAME :  #HPSET,DPS
     37 !           OBJECT FILE NAME :  HPSET,DPS
     39 !
     45 !
   1000 !
   2000 ! DECLARATIVES
   3000 !
   3010      USE '^ZDS'
   3020 !
   3030      LENGTH  1   & COMMON SEL$
   3032 !
   3034      LENGTH  3   & LOCAL  LP$
   3035      LENGTH  2.0 & LOCAL  CHOICE,ERR
   3037      LENGTH  2   & LOCAL  OPTION$
   3038 !
   3040 !
  15000 !
  16000 ! USE FILES
  17000 !
  50000 !
  51000 ! FORMATS - VIDEO AND PRINTER
  52000 !
  53000 100  FORMAT (CS);@(18,0);ZNAME$;_
  54000             @(20,1);'H/P PRINTER SETTINGS';_
  55000             @(17,2);ZEXDATE$;_
  56000             @(23,23);'Version: 2000.11.06';_
  57000             @(23,5);'PRINTER SETTINGS';_
  58000             @(23, 7);' 1..10 CPI PORTRAIT';_
  59000             @(23, 8);' 2..12 CPI PORTRAIT';_
  59100             @(23, 9);' 3..15 CPI PORTRAIT';_
  60000             @(23,10);' 4..17 CPI PORTRAIT';_
  60100             @(23,11);' 5..19 CPI PORTRAIT';_
  61000             @(23,12);' 6..SET TO LANDSCAPE';_
  62000             @(23,13);' 7..SET TO PORTRAIT ';_
  63000             @(23,14);' 8..SET TO LETTER SIZE';_
  64000             @(23,15);' 9..SET TO LEGAL SIZE';_
  65000             @(23,16);'10..SET TO 17CPI, LANDSCAPE, LEGAL';_
  66000             @(23,17);'11..GET PAPER FROM FEEDER';_
  67000             @(23,18);'12..GET PAPER FROM TRAY';_
  68000             @(23,20);'ENTER CHOICE:';(TM);'  ';(TM);@(37,20)
  69000 110  FORMAT @(0,22);(BF);_
  70000             @(23,22);'Enter Printer Name:';(TM);ZLP$;(TM);@(43,22)
  71000 120  FORMAT @(3,24);'A blank page will be ejected on the printer, ';_
  72000             'Press <tab>';(TM);' ';(TM);@(60,24)
-----------------------------------------------------------
  DATE: 11/22/04                      File: #HP, N2S                  Page   2
  TIME:  5:52 PM

  73000 !
  96000 !
  96010 200  FORMAT (FF)
  96040 !
  96050 !
  97000 ! EXECUTABLE SECTION
  98000 !
  99000      ESCAPETO 9990
 100000 !
 101000 1000 CLEARLOCAL
 102000      PRINT (0,100)
 103000      INPUT (0) OPTION$
 104000      IF OPTION$='' GOTO 9990
 105000 !    IF POS(OPTION$,'123456789')=0 GOTO 1000
 106000 1010 PRINT (0,110)
 107000      INPUT (0) LP$
 108000      IF LP$='' GOTO 9990
 109000      CLOSE (1) & OPEN (1) LP$,EXCP=1010
 110000      FILE  (1) CTL='@00@'
 110010      PRINT (1) '@1B266C3644@'
 110020      FILE  (1) CTL='@00@'
 111000      IF OPTION$='1'  PRINT (1) '@1B2873313048@' ! 10 CPI
 112000      IF OPTION$='2'  PRINT (1) '@1B2873313248@' ! 12 CPI
 112100      IF OPTION$='3'  PRINT (1) '@1B2873313548@' ! 15 CPI
 113000      IF OPTION$='4'  PRINT (1) '@1B2873313748@' ! 17 CPI
 113100      IF OPTION$='5'  PRINT (1) '@1B2873313948@' ! 19 CPI
 114000      IF OPTION$='6'  PRINT (1) '@1B266C314F@'   ! LANDSCAPE
 115000      IF OPTION$='7'  PRINT (1) '@1B266C304F@'   ! PORTRAIT
 116000      IF OPTION$='8'  PRINT (1) '@1B266C3241@'   ! LETTER
 117000      IF OPTION$='9'  PRINT (1) '@1B266C3341@'   ! LEGAL
 117100      IF OPTION$='11' PRINT (1) '@1B266C3248@'   ! FRONT TRAY
 117200      IF OPTION$='12' PRINT (1) '@1B266C3148@'   ! PAPER TRAY
 117300 !
 118000      IF OPTION$ NE '10' GOTO 2000
 118010 !
 118100      PRINT (1) '@1B266C353150@'       !PAGE LENGTH 51 LINES
 118200      FILE  (1) CTL='@00@'
 118300      PRINT (1) '@1B266C0045@'         !TOP MARGIN 0 LINES
 118400      FILE  (1) CTL='@00@'
 119000      PRINT (1) '@1B2873313748@'       !17 CPI
 119010      FILE  (1) CTL='@00@'
 120000      PRINT (1) '@1B266C314F@'         !LANDSCAPE
 120010      FILE  (1) CTL='@00@'
 121000      PRINT (1) '@1B266C3341@'         !LEGAL
 122000 !    GOTO 1000
 122002 2000 PRINT (0,120) & INPUT (0) ''
 122010      PRINT (1,200)
 122012 !
 122020      GOTO 1000
 122120 !
 123000 9990 CLOSE (1)
 124000 !
 124100      IF SEL$ NE ' ' RUN SEL$,EXCP=9991
 124200 !
 124300 9991 IF NUM(VERSION$,ERR) < 507 THEN
 125100         RUN 'Z'
-----------------------------------------------------------
  DATE: 11/22/04                      File: #HP, N2S                  Page   3
  TIME:  5:52 PM

 126100      ELSE
 127100         RUN 'X'
 128100      ENDIF
 129100 !
 130100 !