***** EDET.CMD

ERASE
SET TALK OFF
STOR'Y'TO ANSWER
DO WHIL !(ANSWER)='Y'

ACCE ' Would you like to skip the instructions at the beginning? (Y/N)' TO FLD
ERAS
STOR !(FLD) TO FLD

IF FLD = 'N'
ERAS
REMARK If you choose a disc to edit which is not in your master
?
REMARK file,the program will take you to record # 00000,disc # 1.
?
REMARK If this occurs,just press the  CONTROL Q key.
?
REMARK Press any key to continue.
WAIT
ERASE
REMARK When through editing press the CONTROL W key.
?
REMARK If no changes are made press the CONTROL Q key.
?
REMARK Press any key to start editing records.
WAIT
ERASE
ENDI

ACCEPT' Which disc number do you want to edit? 'TO NUM

IF &NUM<1
ERASE
REMARK INVALID OPTION
?
REMARK VALID OPTIONS ARE ANY WHOLE NUMBERS>0
?
REMARK REENTER OPTION
?
REMARK Press any key to return to the main menu.
WAIT
RETU
ENDI
USE B:FILE INDEX B:DISC,B:FINAME,B:EXT
FIND &NUM
BROWSE
ACCE 'Edit more discs? (Y/N)' TO YN
ERASE

IF !(YN)='N'
ERASE
REMARK YOU MUST USE OPTION # 8 IF YOU HAVE MADE ANY CHANGES
?
REMARK TO YOUR MASTER FILE
?
REMARK Press any key to return to the main menu.
WAIT
RETU
ENDI
ENDD
RETU
UR MASTER FILE
?
REMARK Press any key to return to the main menu.
WAIT
RETU
ENDI
ENDD
RE