home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
prntsay.zip
/
REPORT.PRG
< prev
Wrap
Text File
|
1987-12-13
|
3KB
|
97 lines
*** Program: REPORT-A.PRG
*** Called from:
*** Property of: MOOSE FALLS CLUB OF VERY IMPORTANT PERSONS
*** Programmer: Dale Cotton
*** Created on: 12/13/87
*** Last Update:
*** Purpose:
***
*** (This report is in Compressed pitch)
***
** --------------------- Initialize Environment --------------------- **
set echo off
set talk off
use CLIQUE
set index to CLIQNAME
** ---------------------- Initialize Variables ---------------------- **
ResetCode = chr(27)+chr(64)
PicaCode = chr(27)+chr(80)
CompCode = chr(15)
CompOffCode = chr(18)
DbleOnCode = chr(27)+chr(71)
DbleOffCode = chr(27)+chr(72)
Bar = "======================================================================;
==================================================="
PageNo = 1
store 0 to Sub_1, Sub_2
** ---------------------- Create Screen Display --------------------- **
clear
Begin = " "
@ 5,19 say "MOOSE FALLS CLUB OF VERY IMPORTANT PERSONS"
@ 7,26 say "STATEMENT OF BALANCE OF DUES"
@ 16,34 say "To proceed:"
@ 18,17 say '1. Start printer 2. Insert 8 1/2"-wide paper'
@ 20,17 say "3. Scroll to start of new page or perforation"
@ 22,17 say "4. Press A to Abandon; any other key to begin:" get Begin pict "!"
read
if Begin = "A"
set talk on
set echo on
return
endif
@ 12,35 say "PRINTING..."
** ----------------------- Set-up For Printing ---------------------- **
set device to print
set console off
@ prow(),pcol() say ResetCode
do while .not. eof()
** ---------------- Code For Printing Page Header ----------------- **
set margin to 0
@ 2,0 say CompOffCode+PicaCode+DbleOnCode
@ prow()+1,21 say "MOOSE FALLS CLUB OF VERY IMPORTANT PERSONS"
@ prow()+2,6 say date()
@ prow(),28 say "STATEMENT OF BALANCE OF DUES"
@ prow(),71 say "Page " + ltrim(str(PageNo))
** ---------------- Code For Printing Column-Titles --------------- **
set margin to 9
@ prow()+1,0 say CompCode
@ prow()+1,0 say "Title"
@ prow(),12 say "Last Name"
@ prow(),31 say "First Name"
@ prow(),54 say "Street Address"
@ prow(),78 say "Phone No"
@ prow(),88 say "Dues Paid"
@ prow(),99 say "Dues Owing"
@ prow(),111 say "Date Rec'd"
@ prow()+1,0 say Bar + DbleOffCode
** ------------------- Code For Printing Records ------------------ **
do while .not. eof() .and. prow() < 60
@ prow()+1,0 say TITLE
@ prow(),7 say SURNAME
@ prow(),29 say FIRST
@ prow(),46 say STREET
@ prow(),78 say PHONE
@ prow(),89 say DUES_PAID picture "999.99"
Sub_1 = Sub_1 + DUES_PAID
@ prow(),101 say 100 - DUES_PAID picture "999.99"
Sub_2 = Sub_2 + 100 - DUES_PAID
@ prow(),112 say DATE_PAID
skip
enddo
PageNo = PageNo + 1
@ prow()+1,0 say DbleOnCode + Bar
** ----------------- Code For Printing Sub-Totals ----------------- **
@ prow()+1,86 say Sub_1 picture "99,999.99"
@ prow(),98 say Sub_2 picture "99,999.99"
@ prow(),pcol() say DbleOffCode
enddo
eject
** ----------------------- Restore Environment ---------------------- **
@ prow(),pcol() say ResetCode
set console on
set device to screen
set talk on
set echo on
clear
return