home *** CD-ROM | disk | FTP | other *** search
- #@ 2,1 #say ":PROGRAM NAME: "+trim(descrip)
- #@ fmrow+2,1 #say ":VERSION: "+trim(version)
- #@ fmrow+2,1 #say ":COPYRIGHT: "+left( trim(message1)+iif(""#trim(message2),", "+trim(message2),"") + space(50),50)
- #@ fmrow+2,1 #say ":PRICE: "+tran(price,"99999")
- #@ fmrow+2,1 #say ":INCLUDES: "+trim(included)
- #@ fmrow+2,1 #say ":CATEGORY: "+category
- #@ fmrow+2,1 #say ":HARDWARE REQS: "+trim(hardware)
- #@ fmrow+2,1 #say ":SOFTWARE REQS: "+trim(software)
- #@ fmrow+2,1 #say ":DESCRIPTION:"
- #@ fmrow+1,1 #say print_note("long_desc",1,80)
- #@ fmrow+1,1 #say print_note("long_desc",2,80)
- #@ fmrow+1,1 #say print_note("long_desc",3,80)
- #@ fmrow+1,1 #say print_note("long_desc",4,80)
- #@ fmrow+1,1 #say print_note("long_desc",5,80)
- #@ fmrow+2,1 #say ":KEYWORDS: "+trim(keywords)
- #@ fmrow+2,1 #say ":AUTHOR NAME: "+left(trim(clients->fname)+" "+trim(clients->lname)+space(40),40)
- #@ fmrow+2,1 #say ":COMPANY NAME: "+clients->company
- #@ fmrow+1,1 #say ":ADDRESS: "+trim(clients->add1)
- #@ fmrow+1,1 #say " "+trim(clients->add2)
- #@ fmrow+1,1 #say " "+trim(clients->city)+" "+clients->state+" "+clients->zip
- #@ fmrow+2,1 #say ":DAY PHONE: "+clients->wphone
- #@ fmrow+2,1 #say ":EVENING PHONE: "+clients->hphone
- #@ fmrow+2,1 #say ":FAX PHONE: "+clients->fphone
- #@ fmrow+2,1 #say ":COMPUSERVE ID: "+clients->compuserve
- #@ fmrow+2,1 #say ":LAST UPDATE: "+dtoc(last_updt)
- #formprint
- #eject
-