home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_08_02 / 8n02084a < prev    next >
Text File  |  1990-03-01  |  4KB  |  122 lines
  1.  
  2.                     Listing 1                                    
  3.                                                     
  4. /*SHOW command file for grade tracking program.
  5. /*-----------------------------------------------
  6.  
  7. :top
  8. mainmenu.srn * /x"9"     /*display main menu, accept any key,    
  9.              /*exit to dos if "9"
  10.  
  11. case "1" s:scangrades    /*gosub to display the appropriate screens
  12. case "2" s:editgrades
  13. case "3" s:printgrades
  14. case "4" s:scannames 
  15. case "5" s:printrosters
  16. case "6" s:otherprint 
  17. case "7" s:setteacher 
  18. case "8" s:droplow     
  19. case 35  s:mainhelp      /*<alt><h> help 
  20.  
  21. /*When all gosubs return, branch back to top.  You can only branch
  22. /*as part of a case statement and you can only have a case statement 
  23. /*after display/keystroke input statement.  Thus, the special NUL
  24. /*screen name can be used to branch anytime.
  25.  
  26. nul                     /*special reserved display/keystroke input
  27. statement
  28. case * g:top            /*branch back to top of command file 
  29.  
  30. /*-----------------------------------------------
  31. :scangrades
  32. scangrad.srn            /*display scan grades screen and wait for
  33. a key
  34. case * r:               /*return 
  35.  
  36. /*-----------------------------------------------
  37. :editgrades 
  38. editgrad.srn * /x1     /*display edit/view grades screen and wait for
  39.                         /*a key,  return to caller if esc (scan
  40.                         /* code 1) is pressed
  41.  
  42. case 35 s:edithelp      /*if <alt><h> (scan code 35) is pressed, go
  43.                         /*display the edit/view grade help
  44.  
  45. nul
  46. case * g:editgrades     /*go back to edit/view grade screen
  47.  
  48.  
  49. /*-----------------------------------------------
  50. :printgrades            /*display print grades screen
  51. prtgrade.srn * 
  52. case * r:
  53.  
  54. /*-----------------------------------------------
  55. :scannames              /*display scan names screen
  56. scanname.srn *
  57. case * r:
  58.  
  59. /*-----------------------------------------------
  60. :printrosters           /*display print rosters screen
  61. prtrost.srn *
  62. case * r:
  63.  
  64. /*-----------------------------------------------
  65. :otherprint             /*display other print options menu
  66. prtmenu.srn "1" "6" /x"6" /*accept only 1-6, return to caller if
  67. 6
  68. case "1" s:report1      /*branch to report 1 screen
  69. case "2" s:report2      /*branch to report 2 screen
  70. case "3" s:report3      /*branch to report 3 screen
  71. case "4" s:report4      /*branch to report 4 screen
  72. case "5" s:report5      /*branch to report 5 screen
  73.  
  74. nul                     
  75. case * g:otherprint     
  76.  
  77. /*-----------------------------------------------
  78. :report1
  79. report1.srn *   
  80. case * r:
  81.  
  82. /*-----------------------------------------------
  83. :report2
  84. report2.srn *   
  85. case * r:
  86.  
  87. /*-----------------------------------------------
  88. :report3
  89. report3.srn *   
  90. case * r:
  91.  
  92. /*-----------------------------------------------
  93. :report4
  94. report4.srn *   
  95. case * r:
  96.  
  97. /*-----------------------------------------------
  98. :report5
  99. report5.srn *   
  100. case * r:
  101.  
  102. /*-----------------------------------------------
  103. :setteacher
  104. setteach.srn *          /*display set teacher information screen
  105. case * r:
  106.  
  107. /*-----------------------------------------------
  108. :droplow     
  109. droplow.srn *           /*display drop lowest grade screen
  110. case * r:
  111.  
  112. /*-----------------------------------------------
  113. :edithelp
  114. edithelp.srn *          /*display edit/view help screen and return to
  115. case * r:               /*caller when any key is pressed        
  116.  
  117. /*-----------------------------------------------
  118. :mainhelp
  119. mmhelp.srn *            /*display main menu help screen and return to
  120. case * r:               /*caller when any key is pressed        
  121.  
  122.