home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
cpm
/
dbaseii
/
tdas.ark
/
STUD5-8.PRG
< prev
next >
Wrap
Text File
|
1986-08-24
|
3KB
|
109 lines
*******************************************************************************
* STUD5-8.PRG - A simple program that prints the Ageing Report: *
* The report tells who's paying, who ain't. *
*******************************************************************************
SET Talk OFF
SET Print ON
? CHR(27) + CHR(64)
? CHR(27) + CHR(66) + CHR(2)
? CHR(27) + CHR(78) + CHR(8)
? CHR(27) + CHR(77) + CHR(6)
STORE 0 to Page
USE Student
SET Index TO Lname
SET Print OFF
SET Format TO Print
DO WHILE .NOT. EOF
STORE Page+1 to Page
STORE 'January February March April May June '+;
'July August SeptemberOctober November December ' TO Date:str
STORE TRIM($(Date:str, VAL($(Cdate,1,2))*9-8,9))+" " +;
$(Cdate,4,2)+", 19"+$(Cdate,7,2) to Sdate
@ 2,4 SAY 'Page '+STR(Page,1)
@ 2,71 SAY Sdate
@ 4,29 SAY "YOUR COMPANY NAME CENTERED HERE"
@ 6,38 SAY "AGEING REPORT"
STORE CHR(174) to A
STORE CHR(173) to B
STORE CHR(126) to C
@ 8,36 SAY A+B+A+B+A+B+A+B+A+B+A+B+A+B+A+B+A
@ 10,11 SAY "Name Balance Last Mo. 30-60;
60-90 90-120 120-150"
@ 11,1 SAY C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;
C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;
C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C
STORE 13 to Line
DO WHILE Line<56 .AND. .NOT. EOF
*
IF Lname="Zz"
@ Line,1 SAY "New Trier High School"
ELSE
@ Line,1 SAY TRIM(Fname)+" "+Lname
ENDIF
*
@ Line,31 SAY Balance
IF M1Chg = 0
@ Line,45 SAY "-"
ELSE
@ Line,40 SAY M1Chg
ENDIF
IF M2Chg = 0
@ Line,55 SAY "-"
ELSE
@ Line,50 SAY M2Chg
ENDIF
IF M3Chg = 0
@ Line,65 SAY "-"
ELSE
@ Line,60 SAY M3Chg
ENDIF
IF M4Chg = 0
@ Line,75 SAY "-"
ELSE
@ Line,70 SAY M4Chg
ENDIF
IF M5Chg = 0
@ Line,85 SAY "-"
ELSE
@ Line,80 Say M5Chg
ENDIF
@ Line+1,31 SAY Dateofbill
IF M1Pay = 0
@ Line+1,45 SAY "-"
ELSE
@ Line+1,40 SAY M1Pay
ENDIF
IF M2Pay = 0
@ Line+1,55 SAY "-"
ELSE
@ Line+1,50 SAY M2Pay
ENDIF
IF M3Pay = 0
@ Line+1,65 SAY "-"
ELSE
@ Line+1,60 SAY M3Pay
ENDIF
IF M4Pay = 0
@ Line+1,75 SAY "-"
ELSE
@ Line+1,70 SAY M4Pay
ENDIF
IF M5Pay = 0
@ Line+1,85 SAY "-"
ELSE
@ Line+1,80 SAY M5Pay
ENDIF
STORE Line+3 to Line
SKIP
ENDDO
EJECT
ENDDO
SET Format to Screen
SET Talk ON
USE
RELEASE Line,Page
RETURN
* EOF
-90 90-120 120-150"
@ 11,1 SAY C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;