home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / dbaseii / checkbk2.lbr / BALMENU1.CMD < prev    next >
Encoding:
Text File  |  1986-08-06  |  1.0 KB  |  39 lines
  1. STORE ' ' TO ENABLE
  2. STORE 0 TO NUMBER,TOTAL
  3. DO WHILE.NOT.ENABLE='X'
  4.   ERASE
  5.   STORE '    ' TO FINDER
  6.   @ 5,10 SAY 'ENTER CHECK NUMBER' GET FINDER
  7.   READ
  8.   FIND &FINDER
  9.   @ 7,10 SAY 'CHECK PAID TO' GET PAIDTO
  10.   @ 9,10 SAY 'THE AMOUNT IS' GET AMOUNT
  11.   @ 7,50 SAY 'DATED' GET DATE
  12.   CLEAR GETS
  13.   @ 9,50 SAY 'CANCEL (Y/N)' GET CANCEL
  14.   READ
  15.   IF CANCEL
  16.     STORE TOTAL+AMOUNT TO TOTAL
  17.     STORE NUMBER+1 TO NUMBER
  18.     @ 12,10 SAY 'NUMBER OF CHECKS CANCELED' GET NUMBER
  19.     @ 12,40 SAY 'TOTALING' GET TOTAL
  20.   ENDIF
  21.   CLEAR GETS
  22.   @ 15,10 SAY 'ENTER X WHEN FINISHED-RETURN TO CONTINUE' GET ENABLE
  23.   READ
  24. ENDDO
  25. RETURN
  26.  SAY 'ENTER CHECK NUMBER' GET FINDER
  27.   READ
  28.   FIND &FINDER
  29.   @ 7,10 SAY 'CHECK PAID TO' GET PAIDTO
  30.   @ 9,10 SAY 'THE AMOUNT IS' GET AMOUNT
  31.   @ 7,50 SAY 'DATED' GET DATE
  32.   CLEAR GETS
  33.   @ 9,50 SAY 'CANCEL (Y/N)' GET CANCEL
  34.   READ
  35.   IF CANCEL
  36.     STORE TOTAL+AMOUNT TO TOTAL
  37.     STORE NUMBER+1 TO NUMBER
  38.     @ 12,10 SAY 'NUMBER OF CHECKS CANCELED' GET NUMBER
  39.     @ 12,40 SAY '