home *** CD-ROM | disk | FTP | other *** search
- STORE ' ' TO CHOICE
- DO WHILE.NOT.CHOICE='5'
- ERASE
- @ 5,15 SAY '(1) CHECK OFF CANCELED CHECKS'
- @ 7,15 SAY '(2) CHECK OFF CANCELED DEPOSITS'
- @ 9,15 SAY '(3) ENTER BANK CHARGES'
- @ 11,15 SAY '(4) COMPARE BANK BALANCE TO YOUR BALANCE'
- @ 13,15 SAY '(5) RETURN TO MAIN MENU'
- @ 20,15 SAY 'ENTER YOUR SELECTION' GET CHOICE
- READ
- DO CASE
- CASE CHOICE='1'
- DO BALMENU1
- CASE CHOICE='2'
- DO BALMENU2
- CASE CHOICE='3'
- DO BALMENU3
- CASE CHOICE='4'
- DO BALMENU4
- ENDCASE
- ENDDO
- RETURN
- XYZ[\]^_`abcdefghijkl