home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BS2FR202 / BS2FR202.ZIP / RECHKBK.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-01-30  |  534 b   |  12 lines
  1. 10  ' RECHKBK - v. 1.001 - 1/30/94 - Ira F. Kavaler
  2. 20  CLS: INPUT "What is the last balance on your statement";B: TD=0
  3. 30  INPUT "Enter the amount of any one outstanding deposit or 0 if none/no more";D
  4. 40  IF D>0 THEN TD=TD+D: GOTO 30
  5. 50  S1=B-TD: INPUT "Enter the number of outstanding checks";QC: TC=0
  6. 60  IF QC=0 THEN 80
  7. 65  FOR I=1 TO QC: INPUT "Enter one outstanding check";C
  8. 70  TC=TC+C: NEXT I
  9. 80  S2=S1-TC: INPUT "Enter any total sevice charges";SC
  10. 90  INPUT "Enter any earned interest";EI: T=S2-SC-EI
  11. 100  PRINT: PRINT "Your check book final balance should be";T: END
  12.