              Advanced Grade Calculation Program
                       for the TI-81
                     By: Justin G. Camp
                 E-Mail: justin@acsworld.net
                http://justin_camp.tripod.com
                     Programmed 6/10/00

=======================================================================

A LITTLE NOTE: These are my original programs. You may redistribute
them, but you must give me credit by including this original
documentation with them. Unlike many other programmers, I do not waste
your limited memory by including a reference to myself as the creator,
so if you redistribute them, you may not either, nor take credit for
them in any way, shape, or form.

If you need help, please refer to the original help file
(ti81help.txt). If you need further assistance, contact me at my email
address: <justin@acsworld.net> - Please refer to the help file FIRST!
Please visit my webpage at:       http://justin_camp.tripod.com
Thank you for downloading my programs and I hope you enjoy them!!!!!

=======================================================================

    /\/\/\/\/\READ THESE ABBREVIATIONS FIRST!/\/\/\/\/\

HERE IS THE CODE (DON'T WORRY IF IT TAKES UP ANTOHER LINE):
               > stands for the Sto> key!
     (GE) stands for the 'Greater Than Or Equal To' Symbol!
      (LE) stands for the 'Less Than Or Equal To' Symbol!
             * stands for the multiply key!
              / stands for the divide key!
You can find ClrHome, Disp, Input, If, Goto, Lbl, & End by hitting the
PRGM key, and you can find the symbols for 'Greater Than Or Equal To'
and 'Less Than Or Equal To' by hitting the 2nd key and the MATH key
(it's under the TEST menu).
      After each Lbl line, there are 15 spaces between the
       first set of quotation marks and the letter grade!
***I HAVE INCLUDED MY HIGH SCHOOL'S GRADING SCALE IS THIS PROGRAM, AND
YOUR'S MAY NOT BE THE SAME. ENTER THIS PROGRAM INTO YOUR CALCULATOR AND
THEN SEE THE DOCUMENT "changinggrades.txt" TO LEARN WHAT TO ALTER!***

:ClrHome
:Disp "POINTS POSSIBLE"
:Input A
:Disp "POINTS MISSED"
:Input B
:A-B>C
:C/A>D
:D*100>E
:Disp E
:If E(GE)93
:Goto A
:If E(GE)86
:Goto B
:If E(GE)78
:Goto C
:If E(GE)70
:Goto D
:If E(LE)69
:Goto E
:Lbl A
:Disp "               A"
:End
:Lbl B
:Disp "               B"
:End
:Lbl C
:Disp "               C"
:End
:Lbl D
:Disp "               D"
:End
:Lbl E
:Disp "               E"
:End