
** EDIT.cmd
* SET UP
STORE first TO firstm
STORE last TO lastm
STORE address TO addressm
STORE city TO citym
STORE state TO statem
STORE zip TO zipm
STORE acode TO acodem
STORE phone1 TO phone1m
STORE phone2 TO phone2m
STORE keyWORD TO keym
STORE '?' TO CHOICE
STORE 'DO YOU WANT TO D)ELETE OR E)DIT THIS RECORD ?' TO PROMPT1
STORE '** WARNING!!! DELETE PERMANENTLY ERASES THIS RECORD!!! **' TO PROMPT2
STORE 'PRESS RETURN TO GO BACK TO PHONEDEX' TO PROMPT3
* Clear and present screen
ERASE
@ 1, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
@ 1,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
@ 1,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
@ 2, 0 SAY "&B"
@ 2,30 SAY "EDIT RECORDS"
@ 2,78 SAY "&B"
@ 3, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
@ 3,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
@ 3,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
@ 4, 0 SAY "&B"
@ 4,78 SAY "&B"
@ 5, 0 SAY "&B   FIRST NAME"
@ 5,15 GET firstm PICTURE '!!!!!!!!!!!!!!!!!!!!'
@ 5,40 SAY "LAST NAME"
@ 5,51 GET lastm PICTURE '!!!!!!!!!!!!!!!!!!!!'
@ 5,78 SAY "&B"
@ 6, 0 SAY "&B"
@ 6,78 SAY "&B"
@ 7, 0 SAY "&B   ADDRESS"
@ 7,13 GET addressm PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 7,52 SAY "AREA CODE"
@ 7,63 GET acodem PICTURE '(999)'
@ 7,78 SAY "&B"
@ 8, 0 SAY "&B"
@ 8,78 SAY "&B"
@ 9, 0 SAY "&B   CITY"
@ 9,10 GET citym PICTURE '!!!!!!!!!!!!!!!'
@ 9,28 SAY "STATE"
@ 9,34 GET statem PICTURE '!!!!'
@ 9,51 SAY "HOME PHONE"
@ 9,62 GET phone1m PICTURE '999-9999'
@ 9,78 SAY "&B"
@ 10, 0 SAY "&B"
@ 10,78 SAY "&B"
@ 11, 0 SAY "&B   ZIP"
@ 11, 9 GET zipm PICTURE '99999'
@ 11,49 SAY "OFFICE PHONE"
@ 11,62 GET phone2m PICTURE '999-9999'
@ 11,78 SAY "&B"
@ 12, 0 SAY "&B"
@ 12,78 SAY "&B"
@ 13, 0 SAY "&B   KEYWORD"
@ 13,13 GET keym PICTURE '!!!!!!!!!!'
@ 13,78 SAY "&B"
@ 14, 0 SAY "&B"
@ 14,78 SAY "&B"
@ 15, 0 SAY "&B ************************************************"
@ 15,50 SAY "*************************** &B"
@ 16, 0 SAY "&B"
@ 16, 3 SAY PROMPT1
@ 16,78 SAY "&B"
@ 17, 0 SAY "&B"
@ 17, 3 SAY PROMPT2
@ 17,78 SAY "&B"
@ 18, 0 SAY "&B"
@ 18, 3 SAY PROMPT3
@ 18,78 SAY "&B"
@ 19, 0 SAY "&B"
@ 19,78 SAY "&B"
@ 20, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
@ 20,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
@ 20,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B"
* FIND OUT IF USER WANTS TO DELETE OR EDIT
SET CONSOLE OFF
WAIT TO CHOICE
SET CONSOLE ON
DO CASE
  * IF USER WANTS TO DELETE
  CASE !(CHOICE) = 'D'
    @ 19, 5 SAY '*********WORKING***************'
    DELETE
    PACK
    RELEASE ALL
    RESTORE FROM PROMPTS
    STORE 'PHONEDEX' to mode
    LOOP
  * IF USER WANTS TO EDIT
  CASE !(CHOICE) = 'E'
    READ
    REPLACE first WITH firstm
    REPLACE last WITH lastm
    REPLACE keyword WITH keym
    REPLACE address WITH addressm
    REPLACE city WITH citym
    REPLACE state WITH statem
    REPLACE zip WITH zipm
    REPLACE acode WITH acodem
    REPLACE phone1 WITH phone1m
    REPLACE phone2 WITH phone2m
    RELEASE ALL
    RESTORE FROM PROMPTS
    STORE 'PHONEDEX' TO mode
    LOOP
    * IF USER WANTS TO BAIL OUT
  OTHERWISE
    RELEASE ALL
    RESTORE FROM PROMPTS
    STORE 'PHONEDEX' TO mode
    LOOP
ENDCASE

rstm
    REPLACE last WITH lastm
    REPLACE keyword WITH keym
    REPLACE address WITH addressm
    REPLACE city WITH citym
    REPLACE state WITH statem
    REPLACE zip WITH zipm
    REPLA