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 / ENTERPRS / CPM / UTILS / S / TRISOFT2.LBR / STUDENT.EZ / STUDENT.EX
Text File  |  2000-06-30  |  5KB  |  141 lines
  1.                                                                                get STUDENT.RP select STUDENT.EX end order LASTNAME list help.rp 25 insert STUDENT.TP print from 2 it MODELS
  2. ..             <<<<<     S T U D E N T    R E C O R D S     >>>>>
  3. ..
  4. ..
  5. ..                                    ............
  6. ..      AFTER updating record, type:  |   DO     |  to PRINT  Student  Records
  7. ..                                    |..........|
  8. ..
  9. ..
  10. ..                                    ............
  11. ..                                    |   SET    |  to calculate changes
  12. ..                                    |..........|
  13. ..                                    ............
  14. ..                                    |  UPDATE  |  to continue UPDATE
  15. ..                                    |..........|
  16. ..                                    ............
  17. ..                                    |  MODELS  |  to return to MODELS Menu
  18. ..                                    |..........|
  19. ..
  20. ..
  21. ..
  22. <Form>
  23.               .............................................
  24.    Student :  | {LASTNAME  }| {FIRSTNAME  }               |
  25.               |.............|.............................|
  26.     Address:  | {ADDRESS                      }           |   * S T U D E N T *
  27.        City:  | {CITY                         }           |
  28.   State,Zip:  | {#STATE}  {ZIP}                                 |   * R E C O R D S *
  29.       Phone:  | ({A#C}) {H#OME}-{PH#ONE}                            |
  30.               |...........................................|
  31.   Emergency:  | {EMERGENCY                    }           |
  32.       Phone:  |({A#C3}) {E#MERGENCY3}-{PH#ONE3}                             |
  33.               |...........................................|
  34.  
  35.                   Class    Units   Grade           Teacher:  {TEACHER         }
  36.               ..................   .....              Term:  {TERM            }
  37.            1. |{CLASS1    }| {##UNITS1} |   | {##GRADE1} |              Date:  {#MONTH}/{#DAY}/{#YEAR}
  38.            2. |{CLASS2    }| {##UNITS2} |   | {##GRADE2} |
  39.            3. |{CLASS3    }| {##UNITS3} |   | {##GRADE3} |               GPA:  {GPA>}
  40.            4. |{CLASS4   <}| {##UNITS4} |   | {##GRADE4} |
  41.               |............|...|   |...|           Comment:  {COMMENT         }
  42.  
  43. _______________________________________________________________________________
  44. CTRL-Q     ESC '     ESC &     ESC >     ESC <     ESC up     ESC dn     ESC A
  45.  exit     search     cont.      new     delete      prev       next      first
  46. <End>
  47.  
  48.  
  49. <Rules>
  50. POINTS1 = 0
  51. POINTS1 = 4 when GRADE1 contains "A"
  52. POINTS1 = 3 when GRADE1 contains "B"
  53. POINTS1 = 2 when GRADE1 contains "C"
  54. POINTS1 = 1 when GRADE1 contains "D"
  55.  
  56. POINTS2 = 0
  57. POINTS2 = 4 when GRADE2 contains "A"
  58. POINTS2 = 3 when GRADE2 contains "B"
  59. POINTS2 = 2 when GRADE2 contains "C"
  60. POINTS2 = 1 when GRADE2 contains "D"
  61.  
  62. POINTS3 = 0
  63. POINTS3 = 4 when GRADE3 contains "A"
  64. POINTS3 = 3 when GRADE3 contains "B"
  65. POINTS3 = 2 when GRADE3 contains "C"
  66. POINTS3 = 1 when GRADE3 contains "D"
  67.  
  68. POINTS4 = 0
  69. POINTS4 = 4 when GRADE4 contains "A"
  70. POINTS4 = 3 when GRADE4 contains "B"
  71. POINTS4 = 2 when GRADE4 contains "C"
  72. POINTS4 = 1 when GRADE4 contains "D"
  73.  
  74. GPA = (POINTS1*UNITS1) + (POINTS2*UNITS2) + (POINTS3*UNITS3) + (POINTS4*UNITS4)
  75. GPA = GPA / (UNITS1 + UNITS2 + UNITS3 + UNITS4 )
  76. GPA 9.9 = GPA
  77. <End>
  78.  
  79. <Record>
  80. 01 {LASTNAME  }  {FIRSTNAME  }
  81. 02 {ADDRESS                      }
  82. 03 {CITY                         }
  83. 04 {#STATE}  {ZIP}
  84. 05 ({A#C}) {H#OME}-{PH#ONE}
  85. 06 {EMERGENCY                    }
  86. 07 ({A#C3}) {E#MERGENCY3}-{PH#ONE3}
  87. 08 {TEACHER         }
  88. 09 {TERM            }
  89. 10 {CLASS1    }  {##UNITS1}  {##GRADE1}  {#MONTH}/{#DAY}/{#YEAR}
  90. 11 {CLASS2    }  {##UNITS2}  {##GRADE2}
  91. 12 {CLASS3    }  {##UNITS3}  {##GRADE3}  {GPA>}
  92. 13 {CLASS4   <}  {##UNITS4}  {##GRADE4}
  93. 14 {COMMENT         }
  94. 15 {POINTS1}  {POINTS2}  {POINTS3}  {POINTS4}
  95. <End>
  96. 01 Rubble        Bam Bam
  97. 02 16 Sand Stone St.
  98. 03 Dinosaur Heights
  99. 04 CA  94304
  100. 05 (415) 961-0189
  101. 06 Fred or Wilma Flintstone
  102. 07 (213) 123-3535
  103. 08 Ann Margrock
  104. 09 Fall
  105. 10 History       5  B  10/16/85
  106. 11 Math          4  B
  107. 12 English       4  B     3.0
  108. 13 Tools         5  B
  109. 14
  110. 15 3          3          3          3
  111. 01 Flintstone    Pebbles
  112. 02 14 Granite Block
  113. 03 BedRock
  114. 04 CA  94306
  115. 05 (415) 322-2345
  116. 06 Barney or Betty Rubble
  117. 07 (415) 961-0189
  118. 08 Ann Margrock
  119. 09 Fall
  120. 10 History       5  A  10/16/85
  121. 11 Math          4  B
  122. 12 English       4  A     3.2
  123. 13 Tools         5  C
  124. 14
  125. 15 4          3          4          2
  126. 01 Jetson        Boy Elroy
  127. 02 12345 Milkey Way
  128. 03 Astroville
  129. 04 CA  94080
  130. 05 (408) 555-1212
  131. 06 George or Jane Jetson
  132. 07 (   )    -
  133. 08 Ann Margrock
  134. 09 Fall
  135. 10 History       5  B  10/16/85
  136. 11 Math          4  A
  137. 12 English       4  A     3.7
  138. 13 Tools         5  A
  139. 14
  140. 15 3          4          4          4
  141. ÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷