Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : PRNSAY.ZIP
Filename : REPORT.PRG

 
Output of file : REPORT.PRG contained in archive : PRNSAY.ZIP
*** 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


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : PRNSAY.ZIP
Filename : REPORT.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/