*     qctest.GET     - GET PROGRAM
STORE T TO MQ:GMORE
STORE  'N'  TO MQ:GDEL
DO WHILE MQ:GMORE
ERASE
STORE  ' GET '  TO MQ:MODE
* DISPLAY CURRENT RECORD
DO  qctest.OUT
STORE  ' '  TO MQ:CMD
@ 21,10 SAY  ' ENTER N FOR NEXT, P FOR PREVIOUS '
@ 22,10 SAY  '     S FOR SEARCH, M FOR MORE COMMANDS '
@ 23,10 SAY  ' PRESS RETURN WHEN DONE '  GET MQ:CMD
READ
IF !(MQ:CMD) =  'N'
    SKIP
ELSE
IF !(MQ:CMD)= 'P'
    SKIP -1
ELSE
IF !(MQ:CMD)= 'S'
STORE T TO MQ:SMORE
DO WHILE MQ:SMORE
 ERASE
 STORE  ' SEARCH '  TO MQ:MODE
* GET FIELDS TO SEARCH FOR
@ 04,02 SAY 'DATE      Chekno'
@ 04,25 SAY 'To Whom            A'
@ 04,45 SAY 'ccount no          A'
@ 04,65 SAY 'MOUNT'
@ 06,49 SAY 'what'
 @ 21,10 SAY  '  PLEASE ENTER VALUES TO SEARCH FOR  '
 READ
* EXIT FROM LOOP IF FOUND
 GOTO TOP
 STORE                                    TO MQ:KEY
 FIND &MQ:KEY
 IF # <> 0
     STORE F TO MQ:SMORE
 ELSE
  @ 22,10 SAY  '  NOT FOUND  '
  @ 23,10 SAY  ' TRY AGAIN(Y/N)? '
  SET CONSOLE OFF
  WAIT TO MQ:DUMMY
  SET CONSOLE ON
  IF !(MQ:DUMMY) <>  'Y'
  STORE F TO MQ:SMORE
 ENDIF  Y
 RELEASE MQ:DUMMY
 ENDIF  # <> 0
ENDDO  MQ:SMORE
RELEASE MQ:SMORE
RELEASE MQ:KEY
ELSE
 IF !(MQ:CMD)= 'M'
 STORE T TO MQ:MMORE
 DO WHILE MQ:MMORE
 STORE  ' MORE '  TO MQ:MODE
 STORE  ' '  TO MQ:MMD
 @ 21,10 SAY  ' ENTER E TO EDIT                 '
 @ 22,10 SAY  '       D TO DELETE                    '
 @ 23,0 SAY  '           P TO PRINT, PRESS RETURN WHEN DONE ' GET MQ:MMD
 READ
 IF !(MQ:MMD) = 'E'
    ERASE
* EDIT RECORD
    DO  qctest.ED
ELSE
IF !(MQ:MMD)= 'D'
    STORE  'N'  TO MQ:ANS
@ 23,10 SAY  ' ARE YOU SURE(Y/N)?                         '
@ 23,28 GET MQ:ANS
    READ
IF !(MQ:ANS)= 'Y'
    DELETE
    STORE  'Y'  TO MQ:GDEL
ENDIF
RELEASE MQ:ANS
ELSE
IF !(MQ:MMD)= 'P'
 @ 23,10 SAY  ' PLEASE SET UP PRINTER                          '
 STORE '      '  TO MQ:MODE
 SET CONSOLE OFF
 WAIT
 SET CONSOLE ON
 SET FORMAT TO PRINT
 DO  qctest.OUT
 SET FORMAT TO SCREEN
 ELSE
 STORE F TO MQ:MMORE
ENDIF  P
ENDIF  D
ENDIF  E
ENDDO  MQ:MMORE
RELEASE MQ:MMORE,MQ:MMD
ELSE
    STORE F TO MQ:GMORE
ENDIF  M
ENDIF  S
ENDIF  P
ENDIF  N
ENDDO   MQ:GMORE
IF MQ:GDEL =  'Y'
    STORE  'N'  TO MQ:ANS
    @ 23,10 SAY  'WANT TO PERMANENTLY DELETE RECORDS(Y/N)'
    @ 23,49 GET MQ:ANS
    READ
    IF MQ:ANS =  'Y'
        PACK
    ELSE
        RECALL ALL
    ENDIF
        RELEASE MQ:ANS
ENDIF  MQ:GDEL
RELEASE  MQ:CMD,MQ:GMORE:MQ:GDEL
RELEASE MQ:MODE