SET TALK OFF
SET FORM TO SCREEN
SET INTE OFF
SET BELL OFF
SET COLO OFF
SELE PRIM
USE CHECKS    INDEX  CHECKS
STOR 0.00 to stotal
STOR 0.00 to Mbalance
STOR '  /  /  ' TO MDATE
STOR DATE() TO MDATE
REST from checks.mem
sele secondary
USE subacct index scode
GO top
STOR name to aname
STOR subbal to asubbal
SKIP
STOR name to bname
STOR subbal to bsubbal
SKIP
STOR name to cname
STOR subbal to csubbal
SKIP
STOR name to dname
STOR subbal to dsubbal
SKIP
STOR name to ename
STOR subbal to esubbal
SKIP
STOR name to fname
STOR subbal to fsubbal
SKIP
STOR name to gname
STOR subbal to gsubbal
SKIP
STOR name to hname
STOR subbal to hsubbal
SKIP
STOR name to iname
STOR subbal to isubbal
SKIP
STOR name to jname
STOR subbal to jsubbal
SKIP
sele primary
STOR T TO MQMORE
DO WHIL MQMORE
  ERAS
  @ 4,27 SAY '+--------------------+'
  @ 5,27 SAY  '! SYSTEM:'
  @ 5,37 SAY  'CHECKS'
  @ 5,48 SAY  '!'
  @ 6,27 SAY  '!  FILE:'
  @ 6,36 SAY  'CHECKS  '
  @ 6,48 SAY  '!'
  @ 7,11 SAY  '+---------------+--------------------+---------------+'
  @ 8,11 SAY  '!                 PLEASE CHOOSE ONE:'
  @ 8,64 SAY  '!'
  @ 9,11 say  '!'
  @ 9,64 say  '!'
  @ 10,11 SAY  '!'
  @ 10,26 say 'A to run ADDING machine'
  @ 10,64 SAY  '!'
  @ 11,11 SAY  '!'
  @ 11,26 SAY  'P to POST new transactions'
  @ 11,64 SAY  '!'
  @ 12,11 SAY  '!'
  @ 12,26 SAY  'G to GET/EDIT data'
  @ 12,64 SAY  '!'
  @ 13,11 SAY  '!'
  @ 13,26 SAY  'R to RUN report'
  @ 13,64 SAY  '!'
  @ 14,11 SAY  '!'
  @ 14,26 say  'B to Backup all data'
  @ 14,64 SAY  '!'
  @ 15,11 SAY  '!'
  @ 15,26 say  'S to reconcile with bank STATEMENT'
  @ 15,64 SAY  '!'
  @ 16,11 say  '!'
  @ 16,26 say  'C to compute balances'
  @ 16,64 say  '!'
  @ 17,11 SAY  '!              Q to QUIT (exit to dBASE)'
  @ 17,64 SAY  '!'
  @ 18,11 SAY  '+----------------------------------------------------+'
  SET CONS OFF
  WAIT TO MQCOMMAND
  SET CONS ON
  DO CASE
    CASE !(mqcommand)='A'
      ERAS
      SET COLO off
      @ 0,30 SAY 'ADDING MACHINE  (enter -999 to exit)'
      @ 1,1 say '-----------------------------------------------------------------'
      @ 1,14 say 'DEBITS'
      @ 1,34 SAY 'CREDITS'
      @ 1,54 SAY 'SUM'
      STOR 3 to ln
      STOR 0.00 to sum
      STOR 0.00 to  numin
      DO WHIL numin<>-999
        STOR 0.00 to numin
        @ 23,1 say 'number ? '
        @ 23,10 get numin picture '9999999.99'
        READ
        IF numin=-999
          @ 22,55 say 'Thats all folks !!!'
          @ 23,1 say chr(27)+'^0'
          @ 22,1 say ' '
          WAIT
          @ 23,15 say 'Returning to main menu, hang on'
        ELSE
          IF numin<0
            STOR 10 to col
          ELSE
            STOR 30 to col
          ENDI
        ENDI
        IF numin<>-999
          @ ln,col say numin
          STOR sum+numin to sum
          @ ln,50 say sum
          IF LN<22
            STOR LN+1 TO LN
          ELSE
            ?? chr(7)
            ACCE "Press return when ready" to r
            @ 2,1 SAY CHR(27)+'^2'
            STOR 3 TO LN
            @ 2,19 say 'Balance forward '
            @ 2,50 say sum
          ENDI
        ENDD
      ELSE
        RELE sum,numin,ln,r,col
      ENDI
    CASE !(MQCOMMAND)='P'
      STOR T TO MQAMORE
      DO WHIL MQAMORE
        STOR  LNUM+1  TO  MNUM
        STOR  '    '  TO  MTYPE
        STOR  ' '  TO  MCODE
        STOR  F  TO  MVER
        STOR  '                                '  TO  MDESCRIP
        STOR  0.00  TO  MAMOUNT
        ERAS
        STOR  ' POST '  TO MQMODE
        @ 01,00 SAY '--------------------'
        @ 01,20 SAY '--------------'
        @ 01,36 SAY MQMODE
        @ 01,46 SAY '--------------------'
        @ 01,66 SAY '--------------'
        @ 02,37 SAY ANAME
        @ 02,59 SAY 'A'
        @ 02,62 SAY ASUBBAL
        @ 03,37 SAY BNAME
        @ 03,59 SAY 'B'
        @ 03,62 SAY BSUBBAL
        @ 04,10 SAY 'CHECKBOOK'
        @ 04,37 SAY CNAME
        @ 04,59 SAY 'C'
        @ 04,62 SAY CSUBBAL
        @ 05,37 SAY DNAME
        @ 05,59 SAY 'D'
        @ 05,62 SAY DSUBBAL
        @ 06,13 SAY 'by'
        @ 06,37 SAY ENAME
        @ 06,59 SAY 'E'
        @ 06,62 SAY ESUBBAL
        @ 07,37 SAY FNAME
        @ 07,59 SAY 'F'
        @ 07,62 SAY FSUBBAL
        @ 08,06 SAY 'Lawrence B. Erdile'
        @ 08,37 SAY GNAME
        @ 08,59 SAY 'G'
        @ 08,62 SAY GSUBBAL
        @ 09,37 SAY HNAME
        @ 09,59 SAY 'H'
        @ 09,62 SAY HSUBBAL
        @ 10,37 SAY INAME
        @ 10,59 SAY 'I'
        @ 10,62 SAY ISUBBAL
        @ 11,37 SAY JNAME
        @ 11,59 SAY 'J'
        @ 11,62 SAY JSUBBAL
        @ 12,65 SAY '--------'
        @ 13,46 SAY 'Total:'
        @ 13,59 SAY STOTAL
        @ 14,00 SAY 'Record #'
        ?? #
        @ 15,00 SAY '========================================'
        @ 15,60 SAY '======================================='
        @ 16,00 SAY 'DATE     NUMBER TYPE'
        @ 16,22 SAY 'CODE  VERIFY DESCRIPTION              AMOUNT  BALANCE'
        @ 17,00 SAY '----------------------------------------------'
        @ 17,60 SAY '---------------------------------'
        @ 18,00 GET MDATE PICTURE '99/99/99'
        @ 18,09 GET MNUM picture '999'
        @ 20,15 GET MTYPE
        @ 18,21 GET MCODE
        @ 18,29 GET MVER
        @ 18,33 GET MDESCRIP
        @ 19,58 GET MAMOUNT PICTURE '99999.99'
        @ 18,66 SAY MBALANCE
        @ 21,10 SAY  ' MAKE AS MANY ENTRIES AS YOU WANT '
        @ 22,10 SAY  ' WHEN DONE ENTER BLANKS FOR  DATE '
        READ
        IF MDATE<>'  /  /  '
          APPE BLAN
          REPL  DATE  WITH  MDATE
          REPL  NUM  WITH  MNUM
          STOR MNUM TO LNUM
          REPL  TYPE  WITH  MTYPE
          REPL  CODE  WITH  MCODE
          REPL  VER  WITH  MVER
          REPL  DESCRIP  WITH  MDESCRIP
          REPL  AMOUNT  WITH  MAMOUNT
          STOR !(MTYPE) TO MTYPE
          @ 18,10 SAY '    '
          DO CASE
            CASE $(MTYPE,1,1)='X'
              REPL TYPE WITH 'XFER'
              @ 20,15 SAY TYPE
              REPL CODE WITH '*'
              REPL VER WITH T
              @ 18,21 SAY CODE
              REPL NUM WITH 0
              @ 18,09 SAY NUM
              STOR ' ' TO ACCTFRM
              STOR ' ' TO ACCTTO
              @ 20,1 SAY 'FROM ACCT                   '
              @ 20,15 GET ACCTFRM
              @ 20,30 SAY 'TO ACCT '
              @ 20,45 GET ACCTTO
              READ
              STOR 'N' TO ANS
              DO WHIL ANS='N'
                @ 20,1 SAY 'IS AMOUNT TO BE TRANSFERRED CORRECT ?                  '
                @ 20,40 GET ANS PICTURE '!'
                READ
                STOR !(ANS) TO ANS
                IF ANS<>'Y'
                  @ 19,58 GET MAMOUNT PICTURE '99999.99'
                  READ
                ENDI
                REPL AMOUNT WITH 0
                STOR 'Transfer from &ACCTFRM TO &ACCTTO' TO MDESCRIP
                STOR MDESCRIP+'$'+STR(MAMOUNT,8,2) TO MDESCRIP
                @ 18,33 SAY MDESCRIP
                REPL DESCRIP WITH MDESCRIP
              ENDD
              STOR ACCTFRM-'SUBBAL' TO ACCTFRM
              STOR ACCTTO-'SUBBAL' TO ACCTTO
              STOR &ACCTFRM-MAMOUNT TO &ACCTFRM
              STOR &ACCTTO+MAMOUNT TO &ACCTTO
              RELE ANS,ACCTFRM,ACCTTO
            CASE $(MTYPE,1,1)='D'
              REPL TYPE WITH ' DEP'
              @ 20,15 SAY TYPE
              REPL NUM WITH 0
              @ 18,10 SAY NUM
              IF MCODE<>'*'
                STOR MCODE-'SUBBAL' TO ACCTTO
                STOR &ACCTTO+MAMOUNT TO &ACCTTO
                STOR MBALANCE+MAMOUNT TO MBALANCE
                RELE ACCTTO
              ELSE
                &SS
                GO TOP
                DO WHIL CODE<>'J'
                  STOR MAMOUNT TO BUCKLEFT
                  STOR CODE-'SUBBAL' TO ACCT
                  STOR ALLOC+&ACCT TO &ACCT
                  STOR BUCKLEFT-ALLOC TO BUCKLEFT
                  SKIP
                ENDD
                SUM ALLOC FOR CODE<'J' TO FRMJAY
                STOR JSUBBAL+MAMOUNT-FRMJAY TO JSUBBAL
              ENDI
            CASE $(MTYPE,1,1)='P'
              REPL TYPE WITH 'PTBW'
              @ 20,16 SAY TYPE
              REPL NUM WITH 0
              @ 18,10 SAY NUM
              STOR CODE-'SUBBAL' TO ACCTTO
              STOR (MAMOUNT*-1) TO MAMOUNT
              REPL AMOUNT WITH MAMOUNT
              STOR &ACCTTO+MAMOUNT TO &ACCTTO
              STOR MBALANCE+MAMOUNT TO MBALANCE
              RELE ACCTTO
            CASE $(MTYPE,1,1)='A'
              REPL TYPE WITH 'AUTO'
              @ 20,16 SAY TYPE
              REPL NUM WITH 0
              @ 18,10 SAY NUM
              STOR CODE-'SUBBAL' TO ACCTTO
              STOR (MAMOUNT*-1) TO MAMOUNT
              REPL AMOUNT WITH MAMOUNT
              STOR &ACCTTO+MAMOUNT TO &ACCTTO
              STOR MBALANCE+MAMOUNT TO MBALANCE
            OTHE
              REPL TYPE WITH 'CHEK'
              @ 20,16 SAY TYPE
              STOR (MAMOUNT*-1) TO MAMOUNT
              REPL AMOUNT WITH MAMOUNT
              STOR CODE-'SUBBAL' TO ACCTTO
              STOR &ACCTTO+MAMOUNT TO &ACCTTO
              STOR MBALANCE+MAMOUNT TO MBALANCE
          ENDC
          STOR ASUBBAL+BSUBBAL+CSUBBAL+DSUBBAL+ESUBBAL+FSUBBAL+GSUBBAL+HSUBBAL+ISUBBAL;
          +JSUBBAL TO STOTAL
          RELE ACCTTO,SUBBAL
          sele secondary
          GO top
          REPL subbal with asubbal
          SKIP
          REPL subbal with bsubbal
          SKIP
          REPL subbal with csubbal
          SKIP
          REPL subbal with dsubbal
          SKIP
          REPL subbal with esubbal
          SKIP
          REPL subbal with fsubbal
          SKIP
          REPL subbal with gsubbal
          SKIP
          REPL subbal with hsubbal
          SKIP
          REPL subbal with isubbal
          SKIP
          REPL subbal with jsubbal
          SKIP
          SUM SUBBAL TO MBALANCE
          sele primary
          SAVE TO CHECKS.MEM
        ELSE
          STOR F TO MQAMORE
        ENDI
      ENDD
      RELE MQMODE,MQAMORE
      RELE MNUM,MTYPE,MCODE,MVER,MDESCRIP,MAMOUNT
    CASE !(MQCOMMAND)='G'
      STOR T TO MQGMORE
      STOR  'N'  TO MQGDEL
      DO WHIL MQGMORE
        ERAS
        STOR  ' GET '  TO MQMODE
        @ 01,00 SAY '--------------------'
        @ 01,20 SAY '--------------'
        @ 01,36 SAY MQMODE
        @ 01,46 SAY '--------------------'
        @ 01,66 SAY '--------------'
        @ 02,37 SAY ANAME
        @ 02,59 SAY 'A'
        @ 02,62 SAY ASUBBAL
        @ 03,37 SAY BNAME
        @ 03,59 SAY 'B'
        @ 03,62 SAY BSUBBAL
        @ 04,10 SAY 'CHECKBOOK'
        @ 04,37 SAY CNAME
        @ 04,59 SAY 'C'
        @ 04,62 SAY CSUBBAL
        @ 05,37 SAY DNAME
        @ 05,59 SAY 'D'
        @ 05,62 SAY DSUBBAL
        @ 06,13 SAY 'by'
        @ 06,37 SAY ENAME
        @ 06,59 SAY 'E'
        @ 06,62 SAY ESUBBAL
        @ 07,37 SAY FNAME
        @ 07,59 SAY 'F'
        @ 07,62 SAY FSUBBAL
        @ 08,06 SAY 'Lawrence B. Erdile'
        @ 08,37 SAY GNAME
        @ 08,59 SAY 'G'
        @ 08,62 SAY GSUBBAL
        @ 09,37 SAY HNAME
        @ 09,59 SAY 'H'
        @ 09,62 SAY HSUBBAL
        @ 10,37 SAY INAME
        @ 10,59 SAY 'I'
        @ 10,62 SAY ISUBBAL
        @ 11,37 SAY JNAME
        @ 11,59 SAY 'J'
        @ 11,62 SAY JSUBBAL
        @ 12,62 SAY '--------'
        @ 13,46 SAY 'Total:'
        @ 13,59 SAY STOTAL
        @ 14,00 SAY 'Record #'
        ?? #
        @ 15,00 SAY '===================='
        @ 15,20 SAY '===================='
        @ 15,40 SAY '===================='
        @ 15,60 SAY '==================='
        @ 16,00 SAY 'DATE     NUMBER TYPE'
        @ 16,22 SAY 'CODE  VERIFY DESCRIP'
        @ 16,42 SAY 'TION              AM'
        @ 16,62 SAY 'OUNT  BALANCE'
        @ 17,00 SAY '--------------------'
        @ 17,20 SAY '--------------------'
        @ 17,40 SAY '--------------------'
        @ 17,60 SAY '-------------------'
        @ 18,01 SAY DATE
        @ 18,10 SAY NUM
        @ 18,16 SAY TYPE
        @ 18,22 SAY CODE
        @ 18,29 SAY VER
        @ 18,34 SAY DESCRIP
        @ 18,59 SAY AMOUNT
        @ 18,68 SAY BALANCE
        STOR  ' '  TO MQCMD
        @ 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 MQCMD
        READ
        IF !(MQCMD)='N'
          SKIP
        ELSE
          IF !(MQCMD)='P'
            SKIP-1
          ELSE
            IF !(MQCMD)='S'
              STOR T TO MQSMORE
              DO WHIL MQSMORE
                ERAS
                STOR  ' SEARCH '  TO MQMODE
                @ 01,00 SAY '--------------------'
                @ 01,20 SAY '--------------'
                @ 01,46 SAY '--------------------'
                @ 01,66 SAY '--------------'
                @ 02,59 SAY 'A'
                @ 03,59 SAY 'B'
                @ 04,10 SAY 'CHECKBOOK'
                @ 04,59 SAY 'C'
                @ 05,59 SAY 'D'
                @ 06,13 SAY 'by'
                @ 06,59 SAY 'E'
                @ 07,59 SAY 'F'
                @ 08,06 SAY 'Lawrence B. Erdile'
                @ 08,59 SAY 'G'
                @ 09,59 SAY 'H'
                @ 10,59 SAY 'I'
                @ 11,59 SAY 'J'
                @ 12,62 SAY '--------'
                @ 13,46 SAY 'Total:'
                @ 14,00 SAY 'Record #'
                @ 15,00 SAY '===================='
                @ 15,20 SAY '===================='
                @ 15,40 SAY '===================='
                @ 15,60 SAY '==================='
                @ 16,00 SAY 'DATE     NUMBER TYPE'
                @ 16,22 SAY 'CODE  VERIFY DESCRIP'
                @ 16,42 SAY 'TION              AM'
                @ 16,62 SAY 'OUNT  BALANCE'
                @ 17,00 SAY '--------------------'
                @ 17,20 SAY '--------------------'
                @ 17,40 SAY '--------------------'
                @ 17,60 SAY '-------------------'
                STOR  '8601/31'  TO  DTE
                @ 18,00 GET DTE PICTURE '9999/99'
                @ 21,10 SAY  '  PLEASE ENTER VALUES TO SEARCH FOR  '
                READ
                GOTO TOP
                STOR  DTE  TO MQKEY
                FIND &MQKEY
                IF #<>0
                  STOR F TO MQSMORE
                ELSE
                  @ 22,10 SAY  '  NOT FOUND  '
                  @ 23,10 SAY  ' TRY AGAIN(Y/N)? '
                  SET CONS OFF
                  WAIT TO MQDUMMY
                  SET CONS ON
                  IF !(MQDUMMY)<>'Y'
                    STOR F TO MQSMORE
                  ENDI
                  RELE MQDUMMY
                ENDI
              ENDD
              RELE MQSMORE
              RELE MQKEY
            ELSE
              IF !(MQCMD)='M'
                STOR T TO MQMMORE
                DO WHIL MQMMORE
                  STOR  ' MORE '  TO MQMODE
                  STOR  ' '  TO MQMMD
                  @ 21,10 SAY  ' ENTER E TO EDIT                 '
                  @ 22,10 SAY  '       D TO DELETE                    '
                  @ 23,0 SAY  '           P TO PRINT, PRESS RETURN WHEN DONE ' GET MQMMD
                  READ
                  IF !(MQMMD)='E'
                    ERAS
                    STOR T TO MQEMORE
                    STOR  ' EDIT '  TO MQMODE
                    STOR  DATE  TO  MDATE
                    STOR  NUM  TO  MNUM
                    STOR  TYPE  TO  MTYPE
                    STOR  CODE  TO  MCODE
                    STOR  VER  TO  MVER
                    STOR  DESCRIP  TO  MDESCRIP
                    STOR  AMOUNT  TO  MAMOUNT
                    DO WHIL MQEMORE
                      ERAS
                      @ 01,00 SAY '--------------------'
                      @ 01,20 SAY '--------------'
                      @ 01,36 SAY MQMODE
                      @ 01,46 SAY '--------------------'
                      @ 01,66 SAY '--------------'
                      @ 02,37 SAY ANAME
                      @ 02,59 SAY 'A'
                      @ 02,62 SAY ASUBBAL
                      @ 03,37 SAY BNAME
                      @ 03,59 SAY 'B'
                      @ 03,62 SAY BSUBBAL
                      @ 04,10 SAY 'CHECKBOOK'
                      @ 04,37 SAY CNAME
                      @ 04,59 SAY 'C'
                      @ 04,62 SAY CSUBBAL
                      @ 05,37 SAY DNAME
                      @ 05,59 SAY 'D'
                      @ 05,62 SAY DSUBBAL
                      @ 06,13 SAY 'by'
                      @ 06,37 SAY ENAME
                      @ 06,59 SAY 'E'
                      @ 06,62 SAY ESUBBAL
                      @ 07,37 SAY FNAME
                      @ 07,59 SAY 'F'
                      @ 07,62 SAY FSUBBAL
                      @ 08,06 SAY 'Lawrence B. Erdile'
                      @ 08,37 SAY GNAME
                      @ 08,59 SAY 'G'
                      @ 08,62 SAY GSUBBAL
                      @ 09,37 SAY HNAME
                      @ 09,59 SAY 'H'
                      @ 09,62 SAY HSUBBAL
                      @ 10,37 SAY INAME
                      @ 10,59 SAY 'I'
                      @ 10,62 SAY ISUBBAL
                      @ 11,37 SAY JNAME
                      @ 11,59 SAY 'J'
                      @ 11,65 SAY JSUBBAL
                      @ 12,65 SAY '--------'
                      @ 13,46 SAY 'Total:'
                      @ 13,59 SAY STOTAL
                      @ 14,00 SAY 'Record #'
                      ?? #
                      @ 15,00 SAY '===================='
                      @ 15,20 SAY '===================='
                      @ 15,40 SAY '===================='
                      @ 15,60 SAY '==================='
                      @ 16,00 SAY 'DATE     NUMBER TYPE'
                      @ 16,22 SAY 'CODE  VERIFY DESCRIP'
                      @ 16,42 SAY 'TION              AM'
                      @ 16,62 SAY 'OUNT  BALANCE'
                      @ 17,00 SAY '--------------------'
                      @ 17,20 SAY '--------------------'
                      @ 17,40 SAY '--------------------'
                      @ 17,60 SAY '-------------------'
                      @ 18,00 GET MDATE PICTURE '99/99/99'
                      @ 18,09 GET MNUM picture '999'
                      @ 20,15 GET MTYPE
                      @ 18,21 GET MCODE
                      @ 18,29 GET MVER
                      @ 18,33 GET MDESCRIP
                      @ 19,58 GET MAMOUNT PICTURE '99999.99'
                      @ 18,66 SAY BALANCE
                      @ 21,10 SAY  ' ENTER ALL CHANGES '
                      READ
                      STOR  'N'  TO MQECMD
                      @ 21,10 SAY  ' ANY MORE CHANGES (Y/N)? '  GET MQECMD
                      READ
                      REPL  DATE  WITH  MDATE
                      REPL  NUM  WITH  MNUM
                      REPL  TYPE  WITH  MTYPE
                      REPL  CODE  WITH  MCODE
                      REPL  VER  WITH  MVER
                      REPL  DESCRIP  WITH  MDESCRIP
                      REPL  AMOUNT  WITH  MAMOUNT
                      IF  !(MQECMD)<>'Y'
                        STOR F TO MQEMORE
                      ENDI
                    ENDD
                    RELE MQMODE,MQEMORE,MQECMD
                    RELE MNUM
                    RELE MTYPE
                    RELE MCODE
                    RELE MVER
                    RELE MDESCRIP
                    RELE MAMOUNT
                  ELSE
                    IF !(MQMMD)='D'
                      STOR  'N'  TO MQANS
                      @ 23,10 SAY  ' ARE YOU SURE(Y/N)?                         '
                      @ 23,28 GET MQANS
                      READ
                      IF !(MQANS)='Y'
                        DELE
                        STOR  'Y'  TO MQGDEL
                      ENDI
                      RELE MQANS
                    ELSE
                      IF !(MQMMD)='P'
                        @ 23,10 SAY  ' PLEASE SET UP PRINTER                          '
                        STOR '      '  TO MQMODE
                        SET CONS OFF
                        WAIT
                        SET CONS ON
                        SET FORM TO PRINT
                        @ 01,00 SAY '--------------------'
                        @ 01,20 SAY '--------------'
                        @ 01,36 SAY MQMODE
                        @ 01,46 SAY '--------------------'
                        @ 01,66 SAY '--------------'
                        @ 02,37 SAY ANAME
                        @ 02,59 SAY 'A'
                        @ 02,62 SAY ASUBBAL
                        @ 03,37 SAY BNAME
                        @ 03,59 SAY 'B'
                        @ 03,62 SAY BSUBBAL
                        @ 04,10 SAY 'CHECKBOOK'
                        @ 04,37 SAY CNAME
                        @ 04,59 SAY 'C'
                        @ 04,62 SAY CSUBBAL
                        @ 05,37 SAY DNAME
                        @ 05,59 SAY 'D'
                        @ 05,62 SAY DSUBBAL
                        @ 06,13 SAY 'by'
                        @ 06,37 SAY ENAME
                        @ 06,59 SAY 'E'
                        @ 06,62 SAY ESUBBAL
                        @ 07,37 SAY FNAME
                        @ 07,59 SAY 'F'
                        @ 07,62 SAY FSUBBAL
                        @ 08,06 SAY 'Lawrence B. Erdile'
                        @ 08,37 SAY GNAME
                        @ 08,59 SAY 'G'
                        @ 08,62 SAY GSUBBAL
                        @ 09,37 SAY HNAME
                        @ 09,59 SAY 'H'
                        @ 09,62 SAY HSUBBAL
                        @ 10,37 SAY INAME
                        @ 10,59 SAY 'I'
                        @ 10,62 SAY ISUBBAL
                        @ 11,37 SAY JNAME
                        @ 11,59 SAY 'J'
                        @ 11,62 SAY JSUBBAL
                        @ 12,62 SAY '--------'
                        @ 13,46 SAY 'Total:'
                        @ 13,59 SAY STOTAL
                        @ 14,00 SAY 'Record #'
                        ?? #
                        @ 15,00 SAY '===================='
                        @ 15,20 SAY '===================='
                        @ 15,40 SAY '===================='
                        @ 15,60 SAY '==================='
                        @ 16,00 SAY 'DATE     NUMBER TYPE'
                        @ 16,22 SAY 'CODE  VERIFY DESCRIP'
                        @ 16,42 SAY 'TION              AM'
                        @ 16,62 SAY 'OUNT  BALANCE'
                        @ 17,00 SAY '--------------------'
                        @ 17,20 SAY '--------------------'
                        @ 17,40 SAY '--------------------'
                        @ 17,60 SAY '-------------------'
                        @ 18,01 SAY DATE
                        @ 18,10 SAY NUM
                        @ 18,16 SAY TYPE
                        @ 18,22 SAY CODE
                        @ 18,29 SAY VER
                        @ 18,34 SAY DESCRIP
                        @ 18,59 SAY AMOUNT
                        @ 18,68 SAY BALANCE
                        SET FORM TO SCREEN
                      ELSE
                        STOR F TO MQMMORE
                      ENDI
                    ENDI
                  ENDI
                ENDD
                RELE MQMMORE,MQMMD
              ELSE
                STOR F TO MQGMORE
              ENDI
            ENDI
          ENDI
        ENDI
      ENDD
      IF MQGDEL='Y'
        STOR  'N'  TO MQANS
        @ 23,10 SAY  'WANT TO PERMANENTLY DELETE RECORDS(Y/N)'
        @ 23,49 GET MQANS
        READ
        IF MQANS='Y'
          PACK
        ELSE
          RECA ALL
        ENDI
        RELE MQANS
      ENDI
      RELE  MQCMD,MQGMORE,MQGDEL
      RELE MQMODE
    CASE !(MQCOMMAND)='R'
      STOR   '   '  TO MQRLPT
      DO WHIL MQRLPT<>'Y'  .AND. MQRLPT<>'N'
        STOR  'Y'  TO MQRLPT
        @ 21,10 SAY  ' WANT REPORT SENT TO THE PRINTER? '  GET MQRLPT
        READ
      ENDD
      IF MQRLPT='N'
        STOR  ' '  TO MQRDSK
        DO WHIL MQRDSK<>'Y'  .AND. MQRDSK<>'N'
          STOR  'N'  TO MQRDSK
          @ 21,10 SAY  ' WANT REPORT SENT TO A FILE ?       '  GET MQRDSK
          READ
        ENDD
        IF MQRDSK='Y'
          STOR  '          '  TO MQRFILE
          DO WHIL MQRFILE='          '
            @ 22,10 SAY  ' ENTER FILE NAME '  GET MQRFILE
            READ
          ENDD
          STOR TRIM(MQRFILE) TO MQRFILE
        ENDI
      ENDI
      STOR  '        '  TO MQRPT
      DO WHIL MQRPT='   '
        @ 23,10 SAY  ' ENTER REPORT NAME '  GET MQRPT
        READ
      ENDD
      IF MQRLPT='Y'
        @ 23,10 SAY  ' PLEASE SET UP PRINTER           '
        SET CONS OFF
        WAIT
        SET CONS ON
        SET PRIN ON
      ENDI
      IF MQRDSK='Y'
        SET ALTE TO &MQRFILE
        SET ALTE ON
      ENDI
      ERAS
      REPO FORM &MQRPT
      SET PRIN OFF
      SET ALTE OFF
      IF MQRDSK='Y'
        RELE MQRDSK,MQRFILE
      ENDI
      RELE MQRLPT,MQRPT
    CASE !(MQCOMMAND)='Q'
      CANC
    CASE !(MQCOMMAND)='B'
      ERAS
      STOR 'Q' to dest
      DO WHIL dest>'B'
        @ 8,10 say  'Backups go on which drive?  A or B'
        @ 8,50 get dest
        READ
        STOR !(dest) to dest
        IF DEST='Q'
          CANC 
        ENDI
      ENDD
      SET ECHO ON
      SET TALK ON
      REST FROM CHECKS addi
      STOR dest-':'-'memory.mem' to where
      SAVE TO &where
      SELE PRIMARY
      USE CHECKS
      STOR dest-':'-'backup1' to where
      COPY TO &where
      SELE SECO
      USE SUBACCT
      STOR dest-':'-'backup2' to where
      COPY TO &where
      SELE PRIMARY
      RELE WHERE,dest
      SET echo off
      SET TALK off
    CASE !(MQCOMMAND)='S'
      ERAS
      @ 3,25 say 'Reconcile Bank Statement'
      STOR 5 to ln
      SET COLO off
      GO top
      DO WHIL .not. eof
        IF .not. ver
          @ LN,0 say ' '
          disp off ' ',date,num,type,code,descrip,amount
          STOR 'N' to checkit
          @ LN+1,68 get checkit
          READ
          DO CASE
            CASE !(checkit)='Q'
              RETU
            CASE !(checkit)='Y'
              REPL ver with t
          ENDC
          SKIP+1
          IF LN<21
            STOR LN+1 to LN
          ELSE
            @ 5,0 say chr(27)+'^2'
            STOR 5 to ln
          ENDI
        ELSE
          SKIP+1
        ENDI
      ENDD
      STOR 'N' to prn
      ACCE "Want a printed list of outstanding transactions?" to prn
      IF !(prn)="Y"
        ? 'Get printer ready......'
        SET eject off
        WAIT
        REPO form reconcil for .not. ver to print
      ELSE
        REPO form reconcil for .not. ver
      ENDI
      ? 'Be patient while I calculate what your balance should be.'
      ? 'Working . . . .'
      IF !(prn)="Y"
        SET PRIN on
      ENDI
      SUM amount to mbalance
      SUM AMOUNT FOR .NOT. VER .AND. AMOUNT>0 TO OCREDITS
      ?? '. . .'
      SUM AMOUNT FOR .NOT. VER .AND. AMOUNT<0 TO ODEBITS
      ?? '. . .'
      ? 'SYSTEM BALANCE = '
      ?? mbalance
      ? 'OUTSTANDING CREDITS = '
      ?? OCREDITS
      ? 'OUTSTANDING DEBITS = '
      ?? ODEBITS
      STOR mbalance-odebits-ocredits to banksb
      ACCE "Enter Bank Statement balance " to bankst
      STOR val(bankst) to bankis
      RELE bankst
      ? 'Bank statement balance should be '
      ?? banksb
      DO CASE
        CASE banksb=bankis
          ? 'Checkbook Balances !'
        CASE BANKSB>bankis
          ? 'The system balance excluding outstanding transactions is greater '
          ? 'than the balance indicated on your bank statement by '
          ?? banksb-bankis
        OTHE
          ? 'The system balance excluding outstanding transactions is lower '
          ? 'than the balance indicated on your bank statement by '
          ?? bankis-banksb
      ENDC
      @ 22,50 SAY 'STRIKE ANY KEY TO CONTINUE'
      WAIT
      RELE LN,CHECKIT,prn,BANKIS,BANKSB
      SET PRIN off
    CASE !(MQCOMMAND)='C'
      SET TALK OFF
      ACCE "IN WHAT ORDER? 1 AS ENTERED, 2 BY DATE" TO NDEX
      DO CASE
        CASE NDEX="1"
          STOR ' ' TO NDEX
        CASE NDEX="2"
          STOR 'CHECKS' TO NDEX
        OTHE
          STOR ' ' TO NDEX
      ENDC
      SET INDE TO &NDEX
      GO TOP
      STOR 0 TO TOTAL
      DO WHIL .NOT. EOF
        STOR TOTAL+AMOUNT TO TOTAL
        REPL BALANCE WITH TOTAL
        DISP OFF
        SKIP+1
      ENDD
      ? "Strike any key"
      WAIT
      RELE TOTAL,NDEX
      SET INDE TO CHECKS
    OTHE
      ERAS
      @ 12,30 SAY 'SAY WHAT ????????'
      WAIT
  ENDC
ENDD
RELE MQMORE,MQCOMMAND