* KEYWORD.CMD
* SET UP
USE NAMES INDEX KEY
STORE 'KEYWORD     ' TO MODE
STORE '         ' TO KEYN
* FIND OUT WHAT KEYWORD USER WANTS
ERASE
?
?
?
?
@ 10,10 SAY 'PLEASE ENTER KEYWORD TO SEARCH FOR'
@ 10,46 GET KEYN PICTURE '!!!!!!!!!!'
READ
STORE TRIM(KEYN) TO KEYN
* FIND KEYWORD
FIND &KEYN
* IF KEYWORD DOESN'T EXIST, SHUT DOWN AND GO BACK
IF # = 0
  ERASE
  ?
  ?
  ?
  ?
  ?'     THAT KEYWORD HAS NOT BEEN USED'
  RELEASE ALL
  RESTORE FROM PROMPTS
  STORE 'PHONEDEX' TO MODE
  STORE '?' TO CHOICE
  USE NAMES INDEX LAST
  LOOP
ENDIF # = 0
* IF IT DOES, SHOW IT. INDEX IS STILL KEYWORD
LOOP

"&B"
@ 17,78 SAY "&B"
@ 18, 0 SAY "&B"
@ 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"
READ
* MAKE SURE USER DIDN"N SCREW UP
@ 16,3 SAY 'IS THIS ALL CORRECT ? y/n              