Shareware Overload/ShartewareOverload.cdr/database/prntsay.zip/REPORT.PRG

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