
                    Listing 1                                    
                                                    
/*SHOW command file for grade tracking program.
/*-----------------------------------------------

:top
mainmenu.srn * /x"9"     /*display main menu, accept any key,    
			 /*exit to dos if "9"

case "1" s:scangrades    /*gosub to display the appropriate screens
case "2" s:editgrades
case "3" s:printgrades
case "4" s:scannames 
case "5" s:printrosters
case "6" s:otherprint 
case "7" s:setteacher 
case "8" s:droplow     
case 35  s:mainhelp      /*<alt><h> help 

/*When all gosubs return, branch back to top.  You can only branch
/*as part of a case statement and you can only have a case statement 
/*after display/keystroke input statement.  Thus, the special NUL
/*screen name can be used to branch anytime.

nul                     /*special reserved display/keystroke input
statement
case * g:top            /*branch back to top of command file 

/*-----------------------------------------------
:scangrades
scangrad.srn            /*display scan grades screen and wait for
a key
case * r:               /*return 

/*-----------------------------------------------
:editgrades 
editgrad.srn * /x1 	/*display edit/view grades screen and wait for
                        /*a key,  return to caller if esc (scan
                        /* code 1) is pressed

case 35 s:edithelp      /*if <alt><h> (scan code 35) is pressed, go
                        /*display the edit/view grade help

nul
case * g:editgrades     /*go back to edit/view grade screen


/*-----------------------------------------------
:printgrades            /*display print grades screen
prtgrade.srn * 
case * r:

/*-----------------------------------------------
:scannames              /*display scan names screen
scanname.srn *
case * r:

/*-----------------------------------------------
:printrosters           /*display print rosters screen
prtrost.srn *
case * r:

/*-----------------------------------------------
:otherprint             /*display other print options menu
prtmenu.srn "1" "6" /x"6" /*accept only 1-6, return to caller if
6
case "1" s:report1      /*branch to report 1 screen
case "2" s:report2      /*branch to report 2 screen
case "3" s:report3      /*branch to report 3 screen
case "4" s:report4      /*branch to report 4 screen
case "5" s:report5      /*branch to report 5 screen

nul                     
case * g:otherprint     

/*-----------------------------------------------
:report1
report1.srn *   
case * r:

/*-----------------------------------------------
:report2
report2.srn *   
case * r:

/*-----------------------------------------------
:report3
report3.srn *   
case * r:

/*-----------------------------------------------
:report4
report4.srn *   
case * r:

/*-----------------------------------------------
:report5
report5.srn *   
case * r:

/*-----------------------------------------------
:setteacher
setteach.srn *          /*display set teacher information screen
case * r:

/*-----------------------------------------------
:droplow     
droplow.srn *           /*display drop lowest grade screen
case * r:

/*-----------------------------------------------
:edithelp
edithelp.srn *          /*display edit/view help screen and return to
case * r:               /*caller when any key is pressed        

/*-----------------------------------------------
:mainhelp
mmhelp.srn *            /*display main menu help screen and return to
case * r:               /*caller when any key is pressed        

