* PARAM.CMD  - Class Paramaters

set talk off
use GRADE
append blank
store f to DONE
erase
@  0,32 say "CLASS PARAMETERS"
@  1, 0 say " "
TEXT
Type in the information you wish to change.  If the information is correct,
     hit the <RETURN> Key until you get to the end of the changes.
ENDTEXT
do while .not. DONE
   @  5,10 say "Instructer's Name >    " get GTEACHER
   @  6,10 say "School or Department > " get GSCHOOL
   @  7,10 say "Class Name >           " get GCLASS
   @  9,10 say "A+ > " get APLUS
   @ 10,10 say "A  > " get AA
   @ 11,10 say "A- > " get AMINUS
   @ 12,10 say "B+ > " get BPLUS
   @ 13,10 say "B  > " get BB
   @ 14,10 say "B- > " get BMINUS
   @  9,47 say "C+ > " get CPLUS
   @ 10,47 say "C  > " get CC
   @ 11,47 say "C- > " get CMINUS
   @ 12,47 say "D+ > " get DPLUS
   @ 13,47 say "D  > " get DD
   @ 14,47 say "D- > " get DMINUS
   @ 16,10 say "Weight of Tests(1 to 10) ---> " get TVAL
   @ 17,10 say "Weight of Projs(1 to 10) ---> " get PVAL
   @ 18,10 say "Weight of Assns(1 to  5) ---> " get AVAL
   @ 19,10 say "Choice of Printers ---------> " get GNUMBER
   @ 15,60 SAY "PRINTERS:"
   @ 16,62 SAY "1.  COMMODORE"
   @ 17,62 SAY "2.  EPSON"
   @ 18,62 SAY "3.  MPS1000/IBM"
   @ 19,62 SAY "4.  NEC"
   @ 20,62 SAY "5.  ROYAL LQ"
   @ 21,62 SAY "6.  OTHER"

   read
   @ 21, 0 say " "
   INPUT "                      Is this correct <Y/N> ? " to DONE
enddo
REPLACE SCHOOL WITH GSCHOOL, TEACHER WITH GTEACHER, CLASS WITH GCLASS
REPLACE A:PLUS WITH APLUS, A WITH AA, A:MINUS WITH AMINUS
REPLACE B:PLUS WITH BPLUS, B WITH BB, B:MINUS WITH BMINUS
REPLACE C:PLUS WITH CPLUS, C WITH CC, C:MINUS WITH CMINUS
REPLACE D:PLUS WITH DPLUS, D WITH DD, D:MINUS WITH DMINUS
REPLACE TESTVAL WITH TVAL, PROJVAL WITH PVAL, ASNVAL WITH AVAL
REPLACE PRINTER WITH GNUMBER
goto top
delete
pack
store f to DONE
USE &FILE
return

OJVAL WITH PVAL, AS