perm filename LOOP.PUB[2,TES] blob
sn#028295 filedate 1973-03-01 generic text, type T, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
RECORD PAGE DESCRIPTION
00001 00001
00002 00002 .TURN ON "∂","→","←", "⊂", "⊃", "{", "}","\"
00012 ENDMK
⊗;
.TURN ON "∂","→","←", "⊂", "⊃", "{", "}","\";
.NOFILL COUNT PAGE FROM 1; TABS 4,5,22;
.PAGE FRAME 54 HIGH 119 WIDE;
.TITLE AREA HEADING LINES 3 TO 6;
.TITLE AREA FORWARD LINES 1 TO 2;
.AREA FOODA LINES 7 TO 54 CHARS 1 TO 28;
.AREA TRANSA LINES 7 TO 54 CHARS 30 TO 57;
.AREA HOUSEA LINES 7 TO 54 CHARS 59 TO 86;
.AREA OTHERA LINES 7 TO 54 CHARS 88 TO 115;
.BEFORE PAGE ⊂BEGIN PLACE HEADING
.TABS 30,59,88;
{DATE}←FINANCIAL RECORD FOR {MONTH}→PAGE {PAGE!}
DATE FOOD\DATE TRANSPORTATION\DATE HOUSEHOLD\DATE OTHER
.END⊃;
.MACRO SETSUMMARY ⊂
.BEGIN
.TABS 24,26;
.PLACE FOODA;IF LINES<11 THEN NEXT PAGE;
.PLACE TRANSA;IF LINES<11 THEN NEXT PAGE;
.PLACE HOUSEA;IF LINES<11 THEN NEXT PAGE;
.PLACE OTHERA;IF LINES<11 THEN NEXT PAGE;
.BG←TOPLINE+LINES-11;
.AREA SUM1 LINES BG TO BG+10 CHARS 1 TO 32;
.AREA SUM2 LINES BG TO BG+10 CHARS 36 TO 67;
.AREA SUM3 LINES BG TO BG+10 CHARS 71 TO 102; ⊃;
.MONTH← "IGNORE";
.NEXT PAGE;
.MONTH←"OCTOBER, 1972"
.PLACE FORWARD
BALANCE BROUGHT FORWARD 0.00
.PLACE OTHERA
→30\\#0 ADJUSTMENT PUR\→5.80
.SETSUMMARY;
.PLACE SUM1
INCOME\AMOUNT
ANN\→0.00
DAN\→0.00
OTHER\→1902.63
CASH\→0.00
TOTAL INCOME=\→1902.63
.PLACE SUM2
SPENDING SUMMARY\AMOUNT
FOOD\→0.00
TRANSPORTATION\→0.00
HOUSEHOLD\→0.00
OTHER\→5.80
TAX-DEDUCTIBLE\→0.00
UNKNOWN\→0.00
TOTAL OUTGO=\→5.80
.PLACE SUM3
\AMOUNT
TOTAL INCOME\→1902.63
TOTAL SPENDING\→5.80
PROFIT\→1896.83
CHECKING BALANCE\→0.00
SAVINGS BALANCE\→0.00
CREDIT UNION BALANCE\→0.00
CASH BALANCE\→0.00
BALANCE BROUGHT FORWARD\→0.00
.END; NEXT PAGE;
.MONTH←"NOVEMBER, 1972"
.PLACE FORWARD
BALANCE BROUGHT FORWARD 0.00
.PLACE OTHERA
→4\\#876 SUBURBAN NEW\→5.00
.PLACE OTHERA
→4\\#877 CROCKER CITI\→6.00
.PLACE OTHERA
→4\\#878 PALO ALTO ME\→10.00
.PLACE HOUSEA
→4\\#879 PALO ALTO MU\→12.35
.PLACE HOUSEA
→4\\#880 PACIFIC TELE\→10.39
.PLACE TRANSA
→4\\#881 TEXACO INC \→15.25
.PLACE OTHERA
→4\\#882 MISCELLANEOU\→26.00
.PLACE TRANSA
→4\\#883 SHELL OIL \→8.81
.PLACE OTHERA
→7\\#722 BO EROSS -- \→7.79
.PLACE HOUSEA
→11\\#884 JAMES HALL--\→180.00
.PLACE OTHERA
→16\\#723 RF SPROULL L\→700.00
.PLACE OTHERA
→27\\#886 AMTRAK TICKE\→405.10
.PLACE OTHERA
→1\\#869 (ANN) ACE ME\→2.00
.PLACE FOODA
→4\\#870 MIDTOWN MARK\→13.75
.PLACE OTHERA
→5\\#871 COLLIN STREE\→11.30
.PLACE OTHERA
→5\\#872 SF CHRONICLE\→4.75
.PLACE OTHERA
→5\\#873 MIDTOWN PHAR\→6.64
.PLACE FOODA
→26\\#904 CONTINENTAL\→8.95
.PLACE OTHERA
→31\\PRINTING CHECKS\→2.40
.PLACE OTHERA
→31\\NEW YORK LIFE -- \→13.20
.SETSUMMARY;
.PLACE SUM1
INCOME\AMOUNT
ANN\→949.58
DAN\→355.00
OTHER\→0.00
CASH\→0.00
TOTAL INCOME=\→1304.58
.PLACE SUM2
SPENDING SUMMARY\AMOUNT
FOOD\→22.70
TRANSPORTATION\→24.06
HOUSEHOLD\→202.74
OTHER\→1174.18
TAX-DEDUCTIBLE\→0.00
UNKNOWN\→26.00
TOTAL OUTGO=\→1449.68
.PLACE SUM3
\AMOUNT
TOTAL INCOME\→1304.58
TOTAL SPENDING\→1449.68
DEFICIT\→145.10
CHECKING BALANCE\→0.00
SAVINGS BALANCE\→0.00
CREDIT UNION BALANCE\→0.00
CASH BALANCE\→234.05
BALANCE BROUGHT FORWARD\→234.05
.END; NEXT PAGE;
.MONTH←"DECEMBER, 1972"
.PLACE FORWARD
BALANCE BROUGHT FORWARD 234.05
.PLACE OTHERA
→5\\#830 MISCELLANEOU\→10.33
.PLACE OTHERA
→5\\#829 MISCELLANEOU\→285.61
.PLACE HOUSEA
→5\\#830 PALO ALTO MU\→26.04
.PLACE TRANSA
→5\\#831 SHELL OIL \→3.00
.PLACE OTHERA
→5\\#832 CALIFORNIA C\→56.00
.PLACE OTHERA
→5\\#834 GEICO\→46.14
.PLACE OTHERA
→5\\#835 DMV BMW REG\→26.00
.PLACE OTHERA
→5\\#836 DMV VW REG\→20.00
.PLACE HOUSEA
→5\\#837 PACIFIC TELE\→14.47
.PLACE TRANSA
→5\\#838 TEXACO INC \→5.15
.PLACE OTHERA
→5\\#839 TB CHRISTMAS\→5.00
.PLACE OTHERA
→6\\#840 BULLOCKS -- \→22.05
.PLACE OTHERA
→9\\#841 EXQUISITE CL\→7.57
.PLACE OTHERA
→11\\#843 BO EROSS STA\→2.24
.PLACE OTHERA
→12\\#846 TED PANOFSKY\→400.00
.PLACE OTHERA
→3\\#906 (ANN) SF CHR\→4.75
.PLACE FOODA
→7\\#908 MIDTOWN MARK\→16.75
.PLACE HOUSEA
→9\\#909 JAMES HALL--\→180.00
.PLACE OTHERA
→10\\#910 TOYS R US\→7.50
.PLACE FOODA
→10\\#911 CENTURY LIQU\→12.53
.PLACE FOODA
→16\\#913 SAFEWAY \→43.81
.PLACE OTHERA
→18\\#914 LUCKY BOOKS\→5.35
.PLACE OTHERA
→18\\#915 ARROW BOOKS\→6.05
.PLACE OTHERA
→31\\NEW YORK LIFE -- \→13.20
.SETSUMMARY;
.PLACE SUM1
INCOME\AMOUNT
ANN\→947.18
DAN\→355.00
OTHER\→155.09
CASH\→0.00
TOTAL INCOME=\→1457.27
.PLACE SUM2
SPENDING SUMMARY\AMOUNT
FOOD\→73.09
TRANSPORTATION\→8.15
HOUSEHOLD\→220.51
OTHER\→621.85
TAX-DEDUCTIBLE\→0.00
UNKNOWN\→295.94
TOTAL OUTGO=\→1219.54
.PLACE SUM3
\AMOUNT
TOTAL INCOME\→1457.27
TOTAL SPENDING\→1219.54
PROFIT\→237.73
CHECKING BALANCE\→0.00
SAVINGS BALANCE\→74.85
CREDIT UNION BALANCE\→80.24
CASH BALANCE\→557.60
BALANCE BROUGHT FORWARD\→712.69
.END; NEXT PAGE;
.MONTH←"JANUARY, 1972"
.PLACE FORWARD
BALANCE BROUGHT FORWARD 712.69
.PLACE OTHERA
→5\\#917 TEACHERS SUP\→21.26
.PLACE OTHERA
→13\\#849 DE ANZA COLL\→10.00
.PLACE OTHERA
→21\\#888 VOID\→0.00
.PLACE OTHERA
→28\\#890 VIC SCHWARTZ\→6.00
.PLACE OTHERA
→30\\#891 MISCELLANEOU\→372.68
.PLACE HOUSEA
→30\\#892 PALO ALTO MU\→21.64
.PLACE HOUSEA
→30\\#893 PACIFIC TELE\→38.12
.PLACE TRANSA
→30\\#894 SHELL OIL \→18.58
.PLACE OTHERA
→30\\#895 MISCELLANEOU\→200.04
.PLACE OTHERA
→30\\#896 LEARNING MAG\→6.00
.PLACE OTHERA
→30\\#897 MISCELLANEOU\→33.58
.PLACE OTHERA
→30\\#898 GEICO\→46.15
.PLACE OTHERA
→30\\#899 NML INS. PRE\→72.65
.SETSUMMARY;
.PLACE SUM1
INCOME\AMOUNT
ANN\→943.18
DAN\→355.00
OTHER\→2481.19
CASH\→0.00
TOTAL INCOME=\→3779.37
.PLACE SUM2
SPENDING SUMMARY\AMOUNT
FOOD\→0.00
TRANSPORTATION\→18.58
HOUSEHOLD\→59.76
OTHER\→162.06
TAX-DEDUCTIBLE\→0.00
UNKNOWN\→606.30
TOTAL OUTGO=\→846.70
.PLACE SUM3
\AMOUNT
TOTAL INCOME\→3779.37
TOTAL SPENDING\→846.70
PROFIT\→2932.67
CHECKING BALANCE\→1708.25
SAVINGS BALANCE\→74.85
CREDIT UNION BALANCE\→80.24
CASH BALANCE\→677.60
BALANCE BROUGHT FORWARD\→2540.94
.END; NEXT PAGE;