/*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
reportl.srn *
case * r:
/*------------------------------------------------
:report2
report2.srn *
case * r:
/*------------------------------------------------
:report 3
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