home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / tdas.ark / STUD5-9.PRG < prev    next >
Text File  |  1986-08-24  |  2KB  |  71 lines
  1. *******************************************************************************
  2. *      This is prints an attendence-taking form for the coming month.         *
  3. *******************************************************************************
  4. SET Talk OFF
  5. SET Eject OFF
  6. USE STUDENT INDEX Lname
  7. DO WHILE .NOT. EOF
  8. STORE T to Attend
  9. DO WHILE Attend
  10. SET Format TO Print
  11. SET Print ON
  12. ? CHR(27) + CHR(64)
  13. ? CHR(27) + CHR(77) + CHR(3)
  14. ? CHR(27) + CHR(66) + CHR(2)
  15. ? CHR(27) + CHR(71)
  16. ? CHR(27) + CHR(65) + CHR(14)
  17. @ 1,71 SAY Rdate
  18. @ 2,32 SAY "YOUR COMPANY ATTENDENCE RECORD"
  19. ? CHR(27) + CHR(72)
  20. ? CHR(27) + CHR(45) + CHR(1)
  21.    @ 4,19 SAY "{  }  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  ;
  22. |  |  |  |  |  |"
  23. STORE F to Attend
  24. STORE 6 to Line
  25. DO WHILE Line<49
  26. SET Print ON
  27. IF Lname <> "Zz"
  28.   ? TRIM(Lname)+","+$(Fname,1,1)
  29. ELSE
  30.   ? " "
  31. ENDIF
  32. @ Line,18 SAY "{  }  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  ;
  33. |  |  |  |  |  |"
  34. SET Print OFF
  35. STORE Line+1 to Line
  36. SKIP
  37. ENDDO
  38.   EJECT
  39.   STORE T to Attend
  40. ENDDO
  41. ENDDO
  42. RELEASE Line,Attend
  43. USE
  44. SET Print ON
  45. ? CHR(27) + CHR(64)
  46. SET Print OFF
  47. SET Format TO Screen
  48. RETURN
  49. r "0" if you really don't want anything.
  50. ENDTEXT
  51. WAIT TO Mselect
  52. *  In case there are any error messages showing, let's rub 'em out:
  53. @ 19,0
  54. @ 20,0
  55. @ 21,0
  56. @ 22,0
  57. @ 23,0
  58.  
  59. DO CASE
  60.   CASE Mselect = "0"
  61.     USE
  62.     RELEASE ALL
  63.     ERASE
  64.     RETURN
  65.  
  66.   CASE Mselect = "1"
  67.     USE Student INDEX Lname
  68.     STORE F TO Sequence
  69.  
  70.   CASE Mselect = "2"
  71.     USE