* Program   : ALIGN.PRG
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 07/31/86
* Notice    : 
* Called by : OPMENU.PRG
* Call(s)   :   
* Notes     : SALES FORM ALIGNMENT PROGRAM
*           :
CLEAR

STORE " " TO ANSWER
CALL PAINT WITH "ALIGN.IMG"

DO WHILE ANSWER <> "N"
   SET COLOR TO
   @ 20,55 GET ANSWER PICTURE "!!"
   READ

   IF SUBSTR(ANSWER,1,1) = "Y"

      STORE "XX-XXXXX-XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" TO PART
      STORE "XXX"     TO QUAN
      STORE "XXXX.XX" TO PRICE
      STORE "XXXX.XX" TO TOTL
      SET DEVICE TO PRINT noeject
      * set page length to zero
      * this prevents a FF from being issued and wasting a page
      @ 00,00 SAY CHR(27)+'[0t'
      * reset printer to 10 pitch, normal density
      @ 00,01 SAY CHR(27)+'[0w'+CHR(27)+'[0z'
      @ 16,03 SAY "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 17,03 SAY "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 18,03 SAY "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 19,03 SAY "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 20,03 SAY "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 23,03 SAY "XXXXXXXXX"
      @ 23,43 SAY "X"
      @ 23,56 SAY "X"
      @ 23,68 SAY "X"
      @ 26,05 SAY QUAN+"     "+PART
      @ 26,62 SAY PRICE+"    "+TOTL
      @ 28,05 SAY QUAN+"     "+PART
      @ 28,62 SAY PRICE+"    "+TOTL
      @ 30,05 SAY QUAN+"     "+PART
      @ 30,62 SAY PRICE+"    "+TOTL
      @ 32,05 SAY QUAN+"     "+PART
      @ 32,62 SAY PRICE+"    "+TOTL
      @ 34,05 SAY QUAN+"     "+PART
      @ 34,62 SAY PRICE+"    "+TOTL
      @ 36,05 SAY QUAN+"     "+PART
      @ 36,62 SAY PRICE+"    "+TOTL
      @ 38,05 SAY QUAN+"     "+PART
      @ 38,62 SAY PRICE+"    "+TOTL
      @ 40,05 SAY QUAN+"     "+PART
      @ 40,62 SAY PRICE+"    "+TOTL
      @ 42,05 SAY QUAN+"     "+PART
      @ 42,62 SAY PRICE+"    "+TOTL
      @ 44,05 SAY QUAN+"     "+PART
      @ 44,62 SAY PRICE+"    "+TOTL

      @ 46,13 SAY "TAX EXEMPTION #XXXXXXXXXXXXXXXXXXXX"
      @ 46,73 SAY "XXXX.XX"
      @ 48,73 SAY "XXXX.XX"
      @ 49,08 SAY "XXX"
      @ 49,22 SAY "XX:XX"
      @ 49,39 SAY "XX/XX/XX"
      @ 50,73 SAY "XXXX.XX"
      @ 52,03 SAY REPLICATE("X",60)
      @ 53,03 SAY REPLICATE("X",60)
      @ 54,03 SAY REPLICATE("X",60)
      @ 55,03 SAY REPLICATE("X",60)
      @ 65,01 SAY " "
      SET DEVICE TO SCREEN
   ENDIF
ENDDO
SET COLOR TO
CLEAR
RETURN