home *** CD-ROM | disk | FTP | other *** search
- *******************************************************************************
- * STUD5-5.PRG. A short program to print address labels to the *
- * parents of all students who are being billed. *
- *******************************************************************************
- SET Talk OFF
- ERASE
- SET Print ON
- ? CHR(27) + CHR(66) + CHR(2)
- ? CHR(27) + CHR(77) + CHR(4)
- USE Student
- SET Index TO Lname
- DO WHILE .NOT. EOF
- * Now we eliminate those who are not getting statements this month.
- DO CASE
- CASE Balance-Curpayment+(Lessons*Rate)=0
- SKIP
- LOOP
- * Now we print labels for the others:
- OTHERWISE
- ? Parent
- *
- IF Addr1 = " "
- ? Addr2
- ? City:Etc
- ?
- ?
- ?
- SKIP
- *
- ELSE
- ? Addr1
- ? Addr2
- ? City:Etc
- ?
- ?
- SKIP
- ENDIF
- ENDCASE
- ENDDO
- USE
- SET Format TO Screen
- SET Print OFF
- RETURN
- * EOF
- 25 SAY "March"
- @ 13,45 SAY March
- STORE March+Totyear TO Totyear
- @ 14,25 SA