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

  1. *******************************************************************************
  2. *         STUD5-8.PRG - A simple program that prints the Ageing Report:       *
  3. *         The report tells who's paying, who ain't.                           *
  4. *******************************************************************************
  5. SET Talk OFF
  6. SET Print ON
  7. ? CHR(27) + CHR(64)
  8. ? CHR(27) + CHR(66) + CHR(2)
  9. ? CHR(27) + CHR(78) + CHR(8)
  10. ? CHR(27) + CHR(77) + CHR(6)
  11. STORE 0 to Page
  12. USE Student
  13. SET Index TO Lname
  14. SET Print OFF
  15. SET Format TO Print
  16. DO WHILE .NOT. EOF
  17. STORE Page+1 to Page
  18. STORE 'January  February March    April    May      June     '+;
  19. 'July     August   SeptemberOctober  November December ' TO Date:str
  20. STORE TRIM($(Date:str, VAL($(Cdate,1,2))*9-8,9))+" " +;
  21. $(Cdate,4,2)+", 19"+$(Cdate,7,2) to Sdate
  22. @ 2,4 SAY 'Page '+STR(Page,1)
  23. @ 2,71 SAY Sdate
  24. @ 4,29 SAY "YOUR COMPANY NAME CENTERED HERE"
  25. @ 6,38 SAY "AGEING REPORT"
  26. STORE CHR(174) to A
  27. STORE CHR(173) to B
  28. STORE CHR(126) to C
  29. @ 8,36 SAY A+B+A+B+A+B+A+B+A+B+A+B+A+B+A+B+A
  30. @ 10,11 SAY "Name                 Balance    Last Mo.  30-60;
  31.      60-90     90-120   120-150"
  32. @ 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+;
  33. 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+;
  34. C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C
  35. STORE 13 to Line
  36. DO WHILE Line<56 .AND. .NOT. EOF
  37. *
  38. IF Lname="Zz"
  39.  @ Line,1 SAY "New Trier High School"
  40. ELSE
  41.   @ Line,1 SAY TRIM(Fname)+" "+Lname
  42. ENDIF
  43. *
  44.   @ Line,31 SAY Balance
  45.  IF M1Chg = 0
  46.   @ Line,45 SAY "-"
  47.  ELSE
  48.   @ Line,40 SAY M1Chg
  49.  ENDIF
  50.  IF M2Chg = 0
  51.   @ Line,55 SAY "-"
  52.  ELSE
  53.   @ Line,50 SAY M2Chg
  54.  ENDIF
  55.  IF M3Chg = 0
  56.   @ Line,65 SAY "-"
  57.  ELSE
  58.   @ Line,60 SAY M3Chg
  59.  ENDIF
  60.  IF M4Chg = 0
  61.   @ Line,75 SAY "-"
  62.  ELSE
  63.   @ Line,70 SAY M4Chg
  64.  ENDIF
  65.  IF M5Chg = 0
  66.   @ Line,85 SAY "-"
  67.  ELSE
  68.   @ Line,80 Say M5Chg
  69.  ENDIF
  70.   @ Line+1,31 SAY Dateofbill
  71.  IF M1Pay = 0
  72.   @ Line+1,45 SAY "-"
  73.  ELSE
  74.   @ Line+1,40 SAY M1Pay
  75.  ENDIF
  76.  IF M2Pay = 0
  77.   @ Line+1,55 SAY "-"
  78.  ELSE
  79.   @ Line+1,50 SAY M2Pay
  80.  ENDIF
  81.  IF M3Pay = 0
  82.   @ Line+1,65 SAY "-"
  83.  ELSE
  84.   @ Line+1,60 SAY M3Pay
  85.  ENDIF
  86.  IF M4Pay = 0
  87.   @ Line+1,75 SAY "-"
  88.  ELSE
  89.   @ Line+1,70 SAY M4Pay
  90.  ENDIF
  91.  IF M5Pay = 0
  92.   @ Line+1,85 SAY "-"
  93.  ELSE
  94.   @ Line+1,80 SAY M5Pay
  95.  ENDIF
  96.   STORE Line+3 to Line
  97.   SKIP
  98.  ENDDO
  99.  EJECT
  100. ENDDO
  101. SET Format to Screen
  102. SET Talk ON
  103. USE
  104. RELEASE Line,Page
  105. RETURN
  106. * EOF
  107. -90     90-120   120-150"
  108. @ 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+;
  109.