* SETUP.CMD (sets up memory var. for invoice system)
* WRITTEN BY MICHAEL Lynn  8/2/83
SET TALK OFF
STORE 0000 TO mnum
@ 4, 3 SAY 'ENTER STARTING INVOICE NUMBER' GET mnum PICTURE '9999'
READ
STORE '          'to snum
STORE 1 to z
STORE 000.00 to mpost
STORE 000.00 to msub
STORE F to mtax
STORE F to mpaid
STORE 00 to mdisc
STORE 000.00 to xdisc
STORE '           ' TO mpur
store '          ' to mcat1
store '          ' to mcat2
store '          ' to mcat3
store '          ' to mcat4
store '          ' to mcat5
store '          ' to mcat6
store '          ' to mcat7
store '          ' to mcat8
store '          ' to mcat9
store '          ' to mcat10
store '          ' to mcat11
store '          ' to mcat12
store 000.00 to mprice1
store 000.00 to mprice2
store 000.00 to mprice3
store 000.00 to mprice4
store 000.00 to mprice5
store 000.00 to mprice6
store 000.00 to mprice7
store 000.00 to mprice8
store 000.00 to mprice9
store 000.00 to mprice10
store 000.00 to mprice11
store 000.00 to mprice12
store '                       ' to mdescr1
store '                       ' to mdescr2
store '                       ' to mdescr3
store '                       ' to mdescr4
store '                       ' to mdescr5
store '                       ' to mdescr6
store '                       ' to mdescr7
store '                       ' to mdescr8
store '                       ' to mdescr9
store '                       ' to mdescr10
store '                       ' to mdescr11
store '                       ' to mdescr12
store '           ' to LLL
store '           ' to FFF
SAVE TO B:NUM
RELEASE ALL

STORE 0000 TO mponum
@ 6, 3 SAY 'ENTER STARTING PURCHSE ORDER NUMBER' GET mponum PICTURE '9999'
READ
STORE '          'to snum
STORE 1 to z
STORE F to mpaid
STORE 00 to mdisc
STORE 00 TO mvendor
STORE '                                	     ' TO mitem1
STORE '              			     ' TO mitem2                
STORE '              			     ' TO mitem3               
STORE '              			     ' TO mitem4               
STORE '             			     ' TO mitem5               
STORE '                                      ' TO mitem6               
STORE '                                      ' TO mitem7               
STORE '                                      ' TO mitem8               
STORE '                                      ' TO mitem9               
STORE '                                      ' TO mitem10              
STORE '                                      ' TO mitem11              
STORE '                                      ' TO mitem12              
STORE '                                      ' TO mitem13              
STORE '                                      ' TO mitem14              
STORE '                                      ' TO mitem15              
STORE '                                      ' TO mitem16              
STORE '                                      ' TO mitem17              
STORE '                                      ' TO mitem18              
STORE '                                      ' TO mitem19              
STORE '                                      ' TO mitem20              
SAVE TO B:POMEM
RETURN
