* NEWTOPIC.CMD

*     This part of the program initializes the file describe so that
* a new grading period may begin

erase
text

                        INITIALIZE YOUR TOPICS

    This part of the program will INITIALIZE the file that contains all
the descriptions of your Assignments, Tests and Projects.  Make sure that
you have printed them out before you you continue.  Do this only at the
beginning of a new Grading Period.

                 Are You Sure You Want To Continue?

                       Press [C] to Continue.
                    Press any other key to Quit.

endtext

store " " to mchoice
set console off
wait to mchoice
set console on

if !(mchoice) = "C"
    erase
    @ 12,30 say "Working.  Please Do Not Touch!  "
    store 1 to mcount
    do while mcount < 10
        store "assn" + str(mcount,1) to mfield
        replace &mfield with "NONE"
        store 1 + mcount to mcount
    enddo
    do while mcount < 16
        store "assn" + str(mcount,2) to mfield
        replace &mfield with "NONE"
        store 1 + mcount to mcount
    enddo
    store 1 to mcount
    do while mcount <6
        store "test" + str(mcount,1) to mfield1
        store "proj" + str(mcount,1) to mfield2
        replace &mfield1 with "NONE", &mfield2 with "NONE"
        store 1 + mcount to mcount
    enddo
endif
erase
@ 12,30 say "Returning to Main Menu.            "
release all like m*
return

帆TEST03     N洱TEST04     N琍TEST05     N腮ENTER      C魯 LEAVE   