REM "Out of the Red"
      REM Monthly Outgoings Calculator - tracks standing orders, direct debits
      REM and other monthly,yearly or occasional expenses
      REM Tells you how much of each month's income not to spend
      ON ERROR VDU3: REPORT:END: REM Printer off
      VDU3:REM Printer off
      flag=0:count=0
      MODE 0
      PRINT"Paged Mode is on. If Entries overspill onto further pages, press 'Shift Key'"
      PRINT"(up-arrow) to see next page."
      PRINT''"Printer on?": ans$=GET$
      CLS
      IF ans$="Y" OR ans$="y" THEN VDU2
      VDU14:REM Paged mode on
      PRINTTAB(32) "Standing Orders"
      @%=&20209
      tabval=38
      I=0: J=0 :K=0
      total=0 : total2=0 : total3=0
      INPUT'"Month (1-12): "m$
      PRINT
      :
      REM ***********BANK DEBITS (DD and SOs) EVERY MONTH ***************
      REPEAT
        READ day$,payee$,amt
        IF payee$<>"*":total=total+amt:PRINT day$;"/";m$,payee$ TAB(tabval)amt
      UNTIL payee$="*"
      flag=1
      :
      REM  *************** Bank Debits, Certain Months only ***************
      PRINT'"Extras this month (if any):"'
      REPEAT :count=count+1
        READ month$,payee$,amt
        IF payee$<>"*" AND VAL(month$)=VAL(m$) THEN total=total+amt:PRINT "-",payee$ TAB(tabval)amt
      UNTIL payee$="*"
      :
      REM   *********** Other Payments (Last Year's Amounts)*****************
      PRINT'"Expected Bills (if any) :"'
      REPEAT
        READ month$,payee$,amt
        IF payee$<>"*" AND month$=m$ THEN total=total+amt:PRINT "-",payee$ TAB(tabval)amt
      UNTIL payee$="*"
      flag=2
      :
      PRINT
      PRINTTAB(9)"Grand Total : "TAB(tabval)total
      PRINT''"Press 'Space' to Start Again"
      @%=10
      G=GET
      RUN
      
      REM Bank Standing orders
      REM Every Month
      REM add to or delete lines as below ie DATA <month number>,<description$>,<amount>
      DATA 1,Water Company, 27.60
      DATA 1,Council Tax,69.00
      DATA 6,Building Society Saving,110.00
      DATA 4,Union Membership,4.49
      DATA 4,Charity,40.00
      DATA 5,Gas,35.50
      DATA 16,Mortgage,530.00
      DATA 11,Electricity,23.00
      DATA 14,Isa Subscription,50.00
      DATA 28,Life Insurance,10.24
      DATA 28,Telephone,25.00
      :
      DATA *,*, 0
      REM Don't delete the line  DATA *,*,0 - its an end stop
      :
      :
      REM Other standing orders, only specified months
      REM add to or delete lines in form DATA <month number>,<description$>,<amount>
      DATA 2,AA subscription,96.00
      DATA 4,Hobby Club,21.00
      DATA 12,National Trust,52.50
      :
      DATA 0,*,0
      REM Don't delete the line  DATA 0,*,0 - its an end stop
      :
      :
      REM Other Expected Large Bills, by month (last years amts):
      
      REM edit, add  (or delete) lines in the form DATA <month number>,<description$>,<amount>
      
      DATA 1,Car2 Insurance,181.69
      DATA 1,Holiday prepayments,300.00
      DATA 2,Pet Insurance,63.26
      DATA 3,Gas Boiler Service,114.00
      DATA 6,2nd car tax, 155.0
      DATA 8,Holiday Expenses,350.00
      DATA 10,T.V. Licence,91.50
      DATA 10,1st Car Tax, 155.00
      DATA 0,*,0
      REM Don't delete the line  DATA 0,*,0 - its an end stop
      DATA 10,Household and Car1 Insurances, 632.28
      DATA 12,Christmas Extras,120.00