home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / tdas.ark / STUD5-5.PRG < prev    next >
Encoding:
Text File  |  1986-08-24  |  1.0 KB  |  48 lines

  1. *******************************************************************************
  2. *       STUD5-5.PRG.  A short program to print address labels to the          *
  3. *       parents of all students who are being billed.                         *
  4. *******************************************************************************
  5. SET Talk OFF
  6. ERASE
  7. SET Print ON
  8. ? CHR(27) + CHR(66) + CHR(2)
  9. ? CHR(27) + CHR(77) + CHR(4)
  10. USE Student
  11. SET Index TO Lname
  12. DO WHILE .NOT. EOF
  13. * Now we eliminate those who are not getting statements this month.
  14. DO CASE
  15.   CASE Balance-Curpayment+(Lessons*Rate)=0
  16.    SKIP
  17.    LOOP
  18. * Now we print labels for the others:
  19.   OTHERWISE
  20.    ? Parent
  21. *
  22.    IF Addr1 = "                         "
  23.     ? Addr2
  24.     ? City:Etc
  25.     ?
  26.     ?
  27.     ?
  28.     SKIP
  29. *
  30.    ELSE
  31.     ? Addr1
  32.     ? Addr2
  33.     ? City:Etc
  34.     ?
  35.     ?
  36.     SKIP
  37.    ENDIF
  38.  ENDCASE
  39. ENDDO
  40. USE
  41. SET Format TO Screen
  42. SET Print OFF
  43. RETURN
  44. * EOF
  45. 25 SAY "March"
  46. @ 13,45 SAY March
  47. STORE March+Totyear TO Totyear
  48. @ 14,25 SA