home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / dbaseii / tdas.ark / STUDENT.PRG < prev    next >
Encoding:
Text File  |  1986-08-24  |  2.5 KB  |  105 lines
  1. *******************************************************************************
  2. *     Main menu for working with student files                                *
  3. *******************************************************************************
  4. SET talk OFF
  5. DO WHILE T
  6.   STORE "                " to Cdate
  7.   STORE "     " to Lastentry
  8.   SET Confirm ON
  9.   Store " " to Choice
  10.   ERASE
  11.   DO WHILE .not. Choice$"01234567"
  12.   SET Intensity OFF
  13.   SET Color TO 11
  14.   @ 1,31 SAY "YOUR COMPANY NAME"
  15.   SET Color to 1
  16.   @ 3,28 SAY "Student Processing Menu"
  17.   SET Color to 112,7
  18.   SET Intensity ON
  19.   @ 5,3 SAY "Enter date NUMERICALLY Here"
  20.   SET Intensity OFF
  21.   SET Color to 9
  22.   @ 5,31 SAY "(TWO digits"
  23.   SET Color to 7
  24.   @ 5,43 SAY "for month"
  25.   SET Color to 139
  26.   @ 5,53 SAY "ALWAYS"
  27.   SET Color to 7
  28.   @ 5,59 SAY "):"
  29.   SET Color to 112,7
  30.   SET Intensity ON
  31.   @ 7,34 GET Cdate PICTURE "99/99/99"
  32. *
  33.   @ 9,25 SAY "1 - Add Student Records"
  34.   @ 10,25 SAY "2 - Edit Student Records"
  35.   @ 11,25 SAY "3 - Replace Ex-Student Back into the Active File"
  36.   @ 12,25 SAY "4 - Delete Student Record to Ex-Student File"
  37.   @ 13,25 SAY "5 - Do Billing, Check Entry or Accounting Reports"
  38.   @ 14,25 SAY "6 - Print a Student Phonebook"
  39.   @ 15,25 SAY "7 - Print a Student Address/Phone Book"
  40.   @ 17,25 SAY "0 -"
  41.   SET Intensity OFF
  42.   SET Color to 1
  43.   @ 17,28 SAY "Go Back to Main dBASE Program"
  44.   SET Color to 112,7
  45.   SET Intensity ON
  46.   @ 20,26 SAY "-"
  47.   SET Intensity OFF
  48.   SET Color TO 240
  49.   @ 20,27 SAY "Pick One!"
  50.   SET Color to 112,7
  51.   SET Intensity ON
  52.   SET Confirm OFF
  53.   @ 20,24 GET Choice
  54. READ NOUPDATE
  55. ENDDO
  56.  
  57. DO CASE
  58.   CASE Choice = "1"
  59.     Do Student1
  60.   CASE Choice = "2"
  61.     Do Student2
  62.   Case Choice = "3"
  63.     Do Student3
  64.   Case Choice = "4"
  65.     Do Student4
  66.   Case Choice = "5"
  67.     Do Student5
  68.   Case Choice = "6"
  69.     DO Fonebook
  70.   CASE Choice = "7"
  71.     DO Address
  72.   Case Choice = "0"
  73.     RELEASE ALL
  74.     USE
  75.     SET Talk ON
  76.     ERASE
  77.     CANCEL
  78. ENDCASE
  79. RELEASE ALL
  80. ENDDO
  81. CANCEL
  82. * EOF
  83.  
  84.  
  85.  
  86. 9/1/84    Main menu for working with student files
  87. SET talk OFF
  88. DO WHILE T
  89.   STORE "                " to Cdate
  90.   STORE "     " to Lastentry
  91.   SET Confirm ON
  92.   Store " " to Choice
  93.   ERASE
  94.   DO WHILE .not. Choice$"01234567"
  95.   SET Intensity OFF
  96.   SET Color TO 11
  97.   @ 1,31 SAY "YOUR COMPANY NAME"
  98.   SET Color to 1
  99.   @ 3,28 SAY "Student Processing Menu"
  100.   SET Color to 112,7
  101.   SET Intensity ON
  102.   @ 5,3 SAY "Enter date NUMERICALLY Here"
  103.   SET Intensity OFF
  104.   SET Color to 9
  105.   @ 5,31 SAY "(TWO digi