MvLaser Example

SUB.INVOICE
001 SUBROUTINE SUB.INVOICE
002 * Invoice run
003 * Author: LEE
004 * Created: 07-16-1998 @ 11:00:23
005 * Changed: 07-16-1998 @ 12:29:39
006 * Version: 1.1p0e13
007 * Program: 'SUB.INVOICE'
008 * ---------- Start_Comments
009 * ---------- End_Comments
010 * ---------- Start_Release_Log
011 * LEE 1.0 07-16-1998 Created
012 * LEE 1.1 B3.12p8 07-16-1998 Ready to rock and roll
013 * ---------- End_Release_Log
014 * PROGRAM TO LOAD THE INVOICE GRAPHICS
015 *
016 $INCLUDE LZR.BP.INCLUDES COMMONS
017 *
018 CPI=10;LPI=6
019 *
020 * Print the horizontal lines from top to bottom
021 * SUBROUTINE LZR.LINE(COL.STRT,ROW.STRT,COL.END,ROW.END,CPI, LPI)
022 CALL LZR.LINE(0,18,79,18,CPI,LPI)
023 CALL LZR.LINE(0,20,79,20,CPI,LPI)
024 CALL LZR.LINE(0,22,79,20,CPI,LPI)
025 *CALL LZR.LINE(0,53,57,53,CPI,LPI)
026 * Print the vertical lines from left to right
027 CALL LZR.LINE(5,22,5,61,CPI,LPI)
028 CALL LZR.LINE(58,22,58,61,CPI,LPI)
029 CALL LZR.LINE(69,22,69,61,CPI,LPI)
030 CALL LZR.LINE(10,18,10,19,CPI,LPI) ;! for order#
031 CALL LZR.LINE(26,18,26,19,CPI,LPI) ;! for reference
032 CALL LZR.LINE(46,18,46,19,CPI,LPI) ;! for slm
033 CALL LZR.LINE(55,18,55,19,CPI,LPI) ;! for via
034 *
035 * Print invoice date number and page boxes
036 CALL LZR.BOX(1,1,9,3,CPI,LPI)
037 CALL LZR.BOX(1,1,9,1,CPI,LPI)
038 CALL LZR.FILL(1,1,9,1,'15%',CPI,LPI)
039 CALL LZR.BOX(11,1,19,3,CPI,LPI)
040 CALL LZR.BOX(11,1,19,1,CPI,LPI)
041 CALL LZR.FILL(11,1,19,1,'15%',CPI,LPI)
042 CALL LZR.BOX(21,1,29,3,CPI,LPI)
043 CALL LZR.BOX(21,1,29,1,CPI,LPI)
044 CALL LZR.FILL(21,1,29,1,'15%',CPI,LPI)
045 *
046 CALL LZR.FONT('U24') ;! Set font to Universe 24 to print INVOICE
047 CALL LZR.IN.PRINTAT('1/8"','1"','INVOICE')
048 CALL LZR.FONT('U14') ;! Reset to 15 pitch
049 CALL LZR.IN.PRINTAT('5:9/10"','10:7/32"','Total')
050 CALL LZR.FONT('U8') ;! Now set to 8 pitch
051 CALL LZR.IN.PRINTAT('1/5"','3/16"',' Invoice No.')
052 CALL LZR.IN.PRINTAT('1:3/20"','3/16"','Invoice Date')
053 CALL LZR.IN.PRINTAT('2:1/5"','3/16"',' Page No.')
054 CALL LZR.FONT('U10')
055 CALL LZR.IN.PRINTAT('1/10"','1:17/32""','Sold TO:')
056 CALL LZR.IN.PRINTAT('4:1/4"','1:17/32"','Ship TO:')
057 *
058 * Fill in the heading lines with 15% shading
059 CALL LZR.FILL(0,20,80,21,"15%",CPI,LPI) ;! shade qty ref price line
060 CALL LZR.IN.PRINTAT('1/10"','3:0"','Order#')
061 CALL LZR.IN.PRINTAT('1:1/10"','3:0"','Reference')
062 CALL LZR.IN.PRINTAT('2:10/16"','3:0"','Terms')
063 CALL LZR.IN.PRINTAT('4:19/32"','3:0"','Slm')
064 CALL LZR.IN.PRINTAT('5:1/2"','3:0"','Via')
065 *
066 CALL LZR.IN.PRINTAT('1/10"','3:13/32"','Qty')
067 CALL LZR.IN.PRINTAT('4/5"','3:13/32"','Unit Reference and Description')
068 CALL LZR.IN.PRINTAT('6:1/5"','3:10/32"','Unit')
069 CALL LZR.IN.PRINTAT('6:1/5"','3:15/32"','Price')
070 CALL LZR.IN.PRINTAT('7:1/3"','3:10/32"','Total')
071 CALL LZR.IN.PRINTAT('7:1/3"','3:15/32"','Price')
072 *
073 RETURN
074 *end of program