home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DBASEII / TDAS.ARK / ADDRESS.PRG next >
Text File  |  1986-08-24  |  3KB  |  101 lines
  1. *******************************************************************************
  2. *           This gives you a complete address book of the students.           *
  3. *******************************************************************************
  4. SET Talk OFF
  5. ERASE
  6. STORE T to Sequence
  7. DO WHILE Sequence
  8. @ 3,1
  9. TEXT
  10.     Here I am, your friendly computer, ready to give you a complete list
  11.     of your earnest students.  So I don't screw up (ahem), please tell me
  12.     now if you want a list of "current" students, or a list of alumni:
  13.  
  14.          Enter "1" if you want the "current" students.
  15.          Enter "2" if you want the alumni.
  16.  
  17.          Enter "0" if you really don't want anything.
  18. ENDTEXT
  19. WAIT TO Mselect
  20. *  In case there are any error messages showing, let's rub 'em out:
  21. @ 19,0
  22. @ 20,0
  23. @ 21,0
  24. @ 22,0
  25. @ 23,0
  26.  
  27. DO CASE
  28.   CASE Mselect = "0"
  29.     USE
  30.     RELEASE ALL
  31.     ERASE
  32.     RETURN
  33.  
  34.   CASE Mselect = "1"
  35.     USE Student INDEX Lname
  36.     STORE F TO Sequence
  37.  
  38.   CASE Mselect = "2"
  39.     USE Xstudent INDEX Xlname
  40.     STORE F TO Sequence
  41.  
  42.   OTHERWISE
  43.     @ 19,3 SAY "I'm so sad and I'm so blue..."
  44.     @ 20,3 SAY "'Cause you didn't key naught, one or two."
  45.     @ 22,7 SAY "Try again, please!"
  46. ENDCASE
  47. ENDDO
  48. *
  49. *
  50. STORE T TO Continue
  51. DO WHILE Continue
  52.   SET Print ON
  53.   SET Format TO Print
  54. @ 0,0 SAY CHR(27)+CHR(66)+CHR(3)+CHR(27)+CHR(77)+CHR(0)+CHR(27)+CHR(78)+CHR(8)
  55. *
  56. STORE 0 to Page
  57. DO WHILE .NOT. EOF
  58. STORE Page+1 TO Page
  59. STORE 'January  February March    April    May      June     '+;
  60. 'July     August   SeptemberOctober  November December ' TO Date:str
  61. STORE TRIM($(Date:str, VAL($(Cdate,1,2))*9-8,9))+" " +;
  62. $(Cdate,4,2)+", 19"+$(Cdate,7,2) TO Sdate
  63. *
  64. @ 2,4 SAY 'Page '+STR(Page,2)
  65. @ 2,98 SAY Sdate
  66.   STORE CHR(174) TO A
  67.   STORE CHR(173) TO B
  68.   STORE CHR(126) TO C
  69.   @ 4,48 SAY "YOUR COMPANY'S CLIENTS OR CUSTOMERS"
  70.   @ 6,57 SAY A+B+A+B+A+B+A+B+A+B+A+B+A+B+A+B+A
  71. *
  72. STORE 9 TO Line
  73. DO WHILE Line<56 .AND. .NOT. EOF
  74. ?? CHR(27) + CHR(66) + CHR(2)
  75.   @ Line,1 SAY TRIM(Fname)+" "+Lname
  76.   @ Line,30 SAY Phone
  77. ?? CHR(27) + CHR(66) + CHR(3)
  78.   @ Line+1,6 SAY Acct:num
  79.   @ Line+1,13 SAY Parent
  80.   @ Line+1,44 SAY Addr1
  81.   @ Line+1,70 SAY Addr2
  82.   @ Line+1,96 SAY City:Etc
  83. IF Scholar
  84.   @ Line+1,125 SAY "S"
  85. ENDIF
  86. STORE Line+3 TO Line
  87. SKIP
  88. ENDDO
  89. ENDDO
  90. *
  91. @ 0,0 EJECT
  92. @ 0,1 CHR(27)+CHR(64)
  93. SET Format TO Screen
  94. SET Print OFF
  95. USE
  96. SET Talk ON
  97. SET Console ON
  98. RELEASE Sequence,Mselect,Print,Page,Line,A,B,C,Continue,Decide
  99. RETURN
  100. * EOF
  101. "'Cause you didn't key naught, one or two."