home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / barprint.zip / BARTEST.CLA < prev    next >
Text File  |  1990-04-06  |  2KB  |  60 lines
  1. BARTEST         PROGRAM
  2.  
  3.          !--------------------------------------------------------
  4.          ! PROGRAM TO TEST THE BAR CODE PRINTING PROCEDURE
  5.          !
  6.          ! WRITTEN BY JERRY P. RAY - FLORIDA COMPUTER RESOURCES.
  7.          ! RELEASE 1.0 - 4/6/90.
  8.          !
  9.          ! HEREBY RELEASED TO THE PUBLIC DOMAIN.  AUTHOR ASSUMES
  10.          ! NO LIABILITY FOR THE USE OR INABILITY TO USE THESE
  11.          ! ROUTINES.
  12.          !--------------------------------------------------------
  13.  
  14.          INCLUDE('STD_KEYS.CLA')
  15.  
  16.          MAP
  17.         MODULE('BARPRINT.CLA')
  18.           PROC(BAR_PRINT)
  19.         .
  20.          .
  21.  
  22. SCREEN         SCREEN      HUE(7,0)
  23.            ROW(1,1)      STRING('╔═{78}╗')
  24.            ROW(2,1)      REPEAT(4);STRING('║<0{78}>║') .
  25.            ROW(6,1)      STRING('╚═{78}╝')
  26. MSG           ROW(2,29)  STRING(25),HUE(23,0)
  27.            ROW(3,4)      STRING('Please enter a bar code string to be '       |
  28.                 & 'printed:')
  29.          COL(51)  ENTRY(@S25),USE(BAR_TO_PRINT)
  30.            ROW(5,24)  PAUSE('Align Label Now...Then Press Enter')           |
  31.                 USE(?PAUSE)
  32.          .
  33.  
  34. BAR_TO_PRINT STRING(25)                 ! FIELD CONTAINING STRING TO
  35.                          ! ENCODE
  36.  
  37.          CODE
  38.  
  39.          OPEN(SCREEN)             ! OPEN THE SCREEN
  40.          ALERT(ESC_KEY)             ! ALERT ESCAPE KEY
  41.          MSG = ''                 ! CLEAR MESSAGE
  42.          LOOP                 ! START ENTRY FIELD LOOP
  43.            ACCEPT
  44.            IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN IF ESC KEY PRESSED
  45.  
  46.            CASE FIELD()
  47.  
  48.            OF ?BAR_TO_PRINT
  49.           IF NOT BAR_TO_PRINT THEN RETURN.  ! RETURN IF LEFT BLANK
  50.  
  51.            OF ?PAUSE             ! AFTER PAUSE FIELD COMPLETES
  52.            MSG = '   Printing ...'     !  DISPLAY MESSAGE
  53.            BAR_PRINT(BAR_TO_PRINT)     !    PRINT THE LABEL
  54.            SELECT(?BAR_TO_PRINT)     !    RESELECT ENTRY FIELD
  55.          . .
  56.  
  57.  
  58.  
  59.  
  60.