T  DATE       CÙª AMT        N
áªNUM        Nëª CLEAR      L
íª 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                : "
      @ 15,41 GET mselect PICTURE "#"
      READ
      * reading user response
      STORE VAL(mselect) TO select
   ENDDO
   * process user's response
   DO CASE
   * test for exit condition
      CASE select = 0
         RELEASE mselect,select
         * retain variables - 'balance', 'lastchk' and 'lastdep'
         SAVE TO Cb-book.mem
         * clear variables and return to calling program or dbase system
         CLEAR
         ERASE
         RETURN
   * test for new chec