0 CLS : F$ = "#####": DEFINT A-F, H-R, U-Z
1 TITLE$ = "The ******* Family's Cashflow for 1998"
2 PRINT TAB(19); TITLE$; TAB(70); DATE$: PRINT
3 PRINT "                 ";
4 PRINT "Jan  Feb  Mar  Apr  May  Jun  Jul  Aug  Sep  Oct  Nov  Dec Totl";
5 PRINT : PRINT
6 READ A$, B, C, D, E, F, G, H, I, J, K, L, M
7    IF A$ = "zzz" THEN 18             'Jumps out of loop if data terminates
8    T = B + C + D + E + F + G + H + I + J + K + L + M
9    TT = TT + T
10   PRINT A$;
11   PRINT USING F$; B; C; D; E; F; G; H; I; J; K; L; M; T
12   T = 0
13   LC = LC + 1: IF LC = 11 THEN PRINT : LC = 0: 'linecount printing loop & reset
14   SB = SB + B: SC = SC + C: SD = SD + D: SE = SE + E: SF = SF + F: SG = SG + G
15   SH = SH + H: SI = SI + I: SJ = SJ + J: SK = SK + K: SL = SL + L: SM = SM + M
16   GRANDTOTAL = SB + SC + SD + SE + SF + SG + SH + SI + SJ + SK + SL + SM
17   GOTO 6'^^^^^^^^^^Loop thru the data and add everything up
18 PRINT "               ";
19 PRINT " ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ----";
20 PRINT "       Totals  ";
21 PRINT USING F$; SB; SC; SD; SE; SF; SG; SH; SI; SJ; SK; SL; SM; TT;
22 PRINT
23 PRINT TAB(8); "YTD Net Income & Expense totals ="; : PRINT USING " $#####,"; GRANDTOTAL;
24 PRINT
25 DATA "FAMILY INCOME  ",,,,,,,,,,,,
26 DATA "  ***'s S.S.   ", 902, 902, 902, 902, 902, 902, 902, 902, 902, 902, 902,902
27 DATA "  ***'s Pension", 898, 898, 898, 898, 898, 898, 898, 898, 898, 898, 898,898
28 DATA "  ***'s Income ",    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,
29 DATA "  ***'s Other  ",   3,    ,    ,   3,    ,    ,   3,    ,    ,   3,    ,
30 DATA "  nnn's Note   ", 865, 865, 865, 865, 865, 865, 865, 865, 865, 865, 865,865
31 DATA "  nnn's Contrib",    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,
32 DATA "  nnn's Income ",    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,
33 DATA "  mmm's S.S.   ",    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,
34 DATA "  mmm's Income ", -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, -65
35 DATA "  mmm'S Other  ",    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,
36 DATA "EXPENSES       ",,,,,,,,,,,,
37 DATA "  House        ",,,,,,,,,,,,
38 DATA "    Mortgage   ",-865,-865,-865,-865,-865,-865,-865,-865,-865,-865,-865,-865
39 DATA "    Homeowners ", -40, -40, -40, -40, -40, -40, -40, -40, -40, -40,    ,
40 DATA "    Prop Taxes ",    ,    ,-660,   0,   0,   0,   0,   0,   0,   0,   0,-660
41 DATA "    Water&Power",-100,-100,-100,-100,-100,-100,-100,-100,-100,-100,-100,-100
42 DATA "    SoCalGas   ", -38, -38, -38, -38, -38, -38, -38, -38, -38, -38, -38, -38
43 DATA "    Telephone  ", -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, -55
44 DATA "    Cable      ", -33, -33, -33, -33, -33, -33, -33, -33, -33, -33, -33, -33
45 DATA "    Upkeep     ", -20, -20, -20, -20, -20, -20, -20, -20, -20, -20, -20, -20
46 DATA "    Yard       ",  -5,  -5,  -5,  -5,  -5,  -5,  -5,  -5,  -5,  -5,  -5,  -5
47 DATA "  Food         ",,,,,,,,,,,,
48 DATA "    Groceries  ",-475,-475,-475,-475,-475,-475,-475,-475,-475,-475,-475,-475
49 DATA "    Eating Out ",-250,-250,-250,-250,-250,-250,-250,-250,-250,-250,-250,-250
50 DATA "    Borders&Etc",-217,-217,-217,-217,-217,-217,-217,-217,-217,-217,-217,-217
51 DATA "  Automobiles  ",    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,
52 DATA "  92 Sentra    ",    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,
53 DATA "    Insurance  ", -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, -50
54 DATA "    Gasoline   ", -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, -50
55 DATA "    Lic&Maint. ", -30, -30, -30, -30, -30, -30, -30, -30, -30, -30, -30, -30
56 DATA "  98 Auto Lease",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300
57 DATA "    Gasoline   ", -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, -50
58 DATA "  MEDICAL      ",,,,,,,,,,,,
59 DATA "      Dentist  ", -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, -80
60 DATA "      Insurance", -75,    ,    , -75,    ,    , -75,    ,    , -75,    ,
61 DATA "  Credit Card  ",-100,-100,-100,-100,-100,-100,-100,-100,-100,-100,-100,-100
62 DATA "zzz",,,,,,,,,,,,
63 '        save "budget.bas", a
64 '      Design of spreadsheet not hardened yet.  do not use    dad.
65 '    save"cashflow.wkb",a