home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / PRTTODEV.FUN < prev    next >
Text File  |  1988-10-20  |  3KB  |  65 lines
  1. !-------------------------------------------------------------------------------
  2. ! GET REPORT DEST PRINTER / DISK
  3. !-------------------------------------------------------------------------------
  4. PRTTODEV FUNCTION
  5.  
  6. PRTTO_MSG    SCREEN       WINDOW(5,26),AT(6,26),HUE(7,0,0)
  7.                ROW(1,1)   STRING('╔═{24}╗'),ENH
  8.                ROW(2,1)   STRING('║<0{24}>║'),ENH
  9.                ROW(3,1)   STRING('╚═{14}╗<0{9}>║'),ENH
  10.                ROW(4,16)  STRING('║<0{9}>║'),ENH
  11.                ROW(5,16)  STRING('╚═{9}╝'),ENH
  12.                ROW(2,3)   STRING('Send output to')
  13.                ROW(1,13)  MENU,USE(PR1:PSTATUS),HLP('GETPRDEV'),REQ
  14.                ROW(2,18)    STRING('Printer')
  15.                ROW(3,18)    STRING('Screen')
  16.                ROW(4,18)    STRING('Disk')
  17.              .            .
  18.  
  19. PRTDEV_MSG   SCREEN       WINDOW(5,26),AT(6,26),HUE(7,0,0)
  20.                ROW(1,1)   STRING('╔═{24}╗'),ENH
  21.                ROW(2,1)   STRING('║<0{24}>║'),ENH
  22.                ROW(3,1)   STRING('╚═{14}╗<0{9}>║'),ENH
  23.                ROW(4,16)  STRING('║<0{9}>║'),ENH
  24.                ROW(5,16)  STRING('╚═{9}╝'),ENH
  25.                ROW(2,3)   STRING('Select Printer')
  26.                ROW(1,13)  MENU,USE(PR1:DEVICE),HLP('GETPRDEV'),REQ
  27.                ROW(2,18)    STRING('Lpt1'),KEY('1')
  28.                ROW(3,18)    STRING('Lpt2')
  29.                ROW(4,18)    STRING('Lpt3')
  30.              .            .
  31.  
  32. PRTFNAM_MSG SCREEN       WINDOW(5,51),AT(11,16),HLP('PRTFNAME'),HUE(7,0,0)
  33.                ROW(2,2)   STRING('╔═{47}╗'),ENH
  34.                ROW(3,2)   STRING('║<0{47}>║'),ENH
  35.                ROW(4,2)   STRING('╚═{47}╝'),ENH
  36.                ROW(3,4)   STRING('Enter File Name:')
  37.                  COL(20)  ENTRY(@S29),USE(PR1:DISKFILE),REQ,LFT,UPR
  38.             .
  39.  
  40. PRTPR1_GRP GROUP,PRE(PR1)
  41. PSTATUS      STRING(1)
  42. DISKFILE     STRING(30)
  43. DEVICE       STRING(4)
  44.            .
  45.  CODE
  46.  
  47.    ALERT                              !CLEAR CTRL KEYS
  48.    ALERT(F10_KEY)                     !ENABLE THE CTRL KEY'S
  49.    PR1:PSTATUS = 'P'                  !SET PRINTER
  50.    OPEN(PRTTO_MSG)                    !OPEN WINDOW
  51.    ACCEPT                             !GET REPLY
  52.    IF KEYCODE() = F10_KEY THEN RETURN(1).
  53.    IF PR1:PSTATUS = 'P' THEN          !PRINTER
  54.      GBL:REPORTDEV = PR1:DEVICE       !SET DEVICE
  55.    ELSIF PR1:PSTATUS = 'S' THEN       !SCREEN
  56.      GBL:REPORTDEV = 'CON'            !SET DEVICE
  57.    ELSE                               !DISK
  58.      PR1:DISKFILE = 'REPORTS.PRT'     !SET DEFALUT NAME
  59.      OPEN(PRTFNAM_MSG)                !OPEN WINDOW
  60.      ACCEPT                           !GET REPLY
  61.      IF KEYCODE() = F10_KEY THEN RETURN(1).
  62.      GBL:REPORTDEV = PR1:DISKFILE     !SET FILE NAME
  63.    .                                  !END IF
  64.    RETURN(0)
  65.