home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / FAMBUDGT.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  5.8 KB  |  514 lines
  1. >a1:" FAMILY BUDGET PROGRAM
  2. >a1:\wc21
  3. >a2:"Copyright, 1982, Perfect Software, Inc.
  4. >a3:"     FAMILY BUDGET     
  5. >b3:"                   
  6. >d3:"  JAN
  7. >e3:"  FEB
  8. >f3:"  MARCH
  9. >g3:"  APRIL
  10. >h3:"  MAY
  11. >i3:"  JUNE
  12. >j3:"  JULY
  13. >k3:" AUGUST
  14. >l3:"  SEPT
  15. >m3:"  OCT
  16. >n3:"  NOV
  17. >o3:"  DEC
  18. >a4:" FAMILY INCOME
  19. >d4:" -----
  20. >e4:" ----- 
  21. >f4:"  -----
  22. >g4:"  -----
  23. >h4:" -----
  24. >i4:"  -----
  25. >j4:" -----
  26. >k4:" ------
  27. >l4:" -----
  28. >m4:" -----
  29. >n4:" -----
  30. >o4:" -----
  31. >a5:"  Source
  32. >a6:"  Wages and Salary of:
  33. >a7:"   Husband
  34. >d7:0
  35. >e7:0
  36. >f7:0
  37. >g7:0
  38. >h7:0
  39. >i7:0
  40. >j7:0
  41. >k7:0
  42. >l7:0
  43. >m7:0
  44. >n7:0
  45. >o7:0
  46. >a8:"   Wife
  47. >b8:" 
  48. >d8:0
  49. >e8:0
  50. >f8:0
  51. >g8:0
  52. >h8:0
  53. >i8:0
  54. >j8:0
  55. >k8:0
  56. >l8:0
  57. >m8:0
  58. >n8:0
  59. >o8:0
  60. >a9:"   Other
  61. >b9:" 
  62. >d9:0
  63. >e9:0
  64. >f9:0
  65. >g9:0
  66. >h9:0
  67. >i9:0
  68. >j9:0
  69. >k9:0
  70. >l9:0
  71. >m9:0
  72. >n9:0
  73. >o9:0
  74. >a10:"  Earnings from:
  75. >a11:"   Consulting
  76. >d11:0
  77. >e11:0
  78. >f11:0
  79. >g11:0
  80. >h11:0
  81. >i11:0
  82. >j11:0
  83. >k11:0
  84. >l11:0
  85. >m11:0
  86. >n11:0
  87. >o11:0
  88. >a12:"   Rental Property
  89. >d12:0
  90. >e12:0
  91. >f12:0
  92. >g12:0
  93. >h12:0
  94. >i12:0
  95. >j12:0
  96. >k12:0
  97. >l12:0
  98. >m12:0
  99. >n12:0
  100. >o12:0
  101. >a13:"   Other
  102. >d13:0
  103. >e13:0
  104. >f13:0
  105. >g13:0
  106. >h13:0
  107. >i13:0
  108. >j13:0
  109. >k13:0
  110. >l13:0
  111. >m13:0
  112. >n13:0
  113. >o13:0
  114. >d14:"--------
  115. >e14:"--------
  116. >f14:"--------
  117. >g14:"--------
  118. >h14:"--------
  119. >i14:"--------
  120. >j14:"--------
  121. >k14:"--------
  122. >l14:"--------
  123. >m14:"--------
  124. >n14:"--------
  125. >o14:"--------
  126. >a14:\jlr
  127. >a15:" Total Income
  128. >d15:=sum(d7:d13)@
  129. >e15:=sum(e7:e13)@
  130. >f15:=sum(f7:f13)@
  131. >g15:=sum(g7:g13)@
  132. >h15:=sum(h7:h13)@
  133. >i15:=sum(i7:i13)@
  134. >j15:=sum(j7:j13)@
  135. >k15:=sum(k7:k13)@
  136. >l15:=sum(l7:l13)@
  137. >m15:=sum(m7:m13)@
  138. >n15:=sum(n7:n13)@
  139. >o15:=sum(o7:o13)@
  140. >a16:" 
  141. >a18:" EXPENDITURES
  142. >a19:"  Fixed Expenses
  143. >a20:"   Rent or Mortgage
  144. >d20:0
  145. >e20:0
  146. >f20:0
  147. >g20:0
  148. >h20:0
  149. >i20:0
  150. >j20:0
  151. >k20:0
  152. >l20:0
  153. >m20:0
  154. >n20:0
  155. >o20:0
  156. >a21:"   Car Payment
  157. >d21:0
  158. >e21:0
  159. >f21:0
  160. >g21:0
  161. >h21:0
  162. >i21:0
  163. >j21:0
  164. >k21:0
  165. >l21:0
  166. >m21:0
  167. >n21:0
  168. >o21:0
  169. >a22:"   Insurance:
  170. >a23:"    Auto
  171. >d23:0
  172. >e23:0
  173. >f23:0
  174. >g23:0
  175. >h23:0
  176. >i23:0
  177. >j23:0
  178. >k23:0
  179. >l23:0
  180. >m23:0
  181. >n23:0
  182. >o23:0
  183. >a24:"    Home
  184. >d24:0
  185. >e24:0
  186. >f24:0
  187. >g24:0
  188. >h24:0
  189. >i24:0
  190. >j24:0
  191. >k24:0
  192. >l24:0
  193. >m24:0
  194. >n24:0
  195. >o24:0
  196. >a25:"    Health
  197. >d25:0
  198. >e25:0
  199. >f25:0
  200. >g25:0
  201. >h25:0
  202. >i25:0
  203. >j25:0
  204. >k25:0
  205. >l25:0
  206. >m25:0
  207. >n25:0
  208. >o25:0
  209. >a26:"    Life
  210. >d26:0
  211. >e26:0
  212. >f26:0
  213. >g26:0
  214. >h26:0
  215. >i26:0
  216. >j26:0
  217. >k26:0
  218. >l26:0
  219. >m26:0
  220. >n26:0
  221. >o26:0
  222. >a27:"   Loans:
  223. >a28:"    Auto
  224. >d28:0
  225. >e28:0
  226. >f28:0
  227. >g28:0
  228. >h28:0
  229. >i28:0
  230. >j28:0
  231. >k28:0
  232. >l28:0
  233. >m28:0
  234. >n28:0
  235. >o28:0
  236. >a29:"    Appliances
  237. >d29:0
  238. >e29:0
  239. >f29:0
  240. >g29:0
  241. >h29:0
  242. >i29:0
  243. >j29:0
  244. >k29:0
  245. >l29:0
  246. >m29:0
  247. >n29:0
  248. >o29:0
  249. >a30:"    Other
  250. >d30:0
  251. >e30:0
  252. >f30:0
  253. >g30:0
  254. >h30:0
  255. >i30:0
  256. >j30:0
  257. >k30:0
  258. >l30:0
  259. >m30:0
  260. >n30:0
  261. >o30:0
  262. >d31:"--------
  263. >e31:"--------
  264. >f31:"--------
  265. >g31:"--------
  266. >h31:"--------
  267. >i31:"--------
  268. >j31:"--------
  269. >k31:"--------
  270. >l31:"--------
  271. >m31:"--------
  272. >n31:"--------
  273. >o31:"--------
  274. >a31:\jlr
  275. >a32:" Sub total (F.E.)
  276. >d32:=sum(d20:d30)@
  277. >e32:=sum(e20:e30)@
  278. >f32:=sum(f20:f30)@
  279. >g32:=sum(g20:g30)@
  280. >h32:=sum(h20:h30)@
  281. >i32:=sum(i20:i30)@
  282. >j32:=sum(j20:j30)@
  283. >k32:=sum(k20:k30)@
  284. >l32:=sum(l20:l30)@
  285. >m32:=sum(m20:m30)@
  286. >n32:=sum(n20:n30)@
  287. >o32:=sum(o20:o30)@
  288. >a34:"  Variable Expenses
  289. >a35:"   Utilities:
  290. >a36:"    Electric
  291. >d36:0
  292. >e36:0
  293. >f36:0
  294. >g36:0
  295. >h36:0
  296. >i36:0
  297. >j36:0
  298. >k36:0
  299. >l36:0
  300. >m36:0
  301. >n36:0
  302. >o36:0
  303. >a37:"    Water
  304. >d37:0
  305. >e37:0
  306. >f37:0
  307. >g37:0
  308. >h37:0
  309. >i37:0
  310. >j37:0
  311. >k37:0
  312. >l37:0
  313. >m37:0
  314. >n37:0
  315. >o37:0
  316. >a38:"    Gas
  317. >d38:0
  318. >e38:0
  319. >f38:0
  320. >g38:0
  321. >h38:0
  322. >i38:0
  323. >j38:0
  324. >k38:0
  325. >l38:0
  326. >m38:0
  327. >n38:0
  328. >o38:0
  329. >a39:"    Phone
  330. >d39:0
  331. >e39:0
  332. >f39:0
  333. >g39:0
  334. >h39:0
  335. >i39:0
  336. >j39:0
  337. >k39:0
  338. >l39:0
  339. >m39:0
  340. >n39:0
  341. >o39:0
  342. >a40:"    Cable Television
  343. >d40:0
  344. >e40:0
  345. >f40:0
  346. >g40:0
  347. >h40:0
  348. >i40:0
  349. >j40:0
  350. >k40:0
  351. >l40:0
  352. >m40:0
  353. >n40:0
  354. >o40:0
  355. >a41:"  Food
  356. >d41:0
  357. >e41:0
  358. >f41:0
  359. >g41:0
  360. >h41:0
  361. >i41:0
  362. >j41:0
  363. >k41:0
  364. >l41:0
  365. >m41:0
  366. >n41:0
  367. >o41:0
  368. >a42:"  Clothing    
  369. >d42:0
  370. >e42:0
  371. >f42:0
  372. >g42:0
  373. >h42:0
  374. >i42:0
  375. >j42:0
  376. >k42:0
  377. >l42:0
  378. >m42:0
  379. >n42:0
  380. >o42:0
  381. >a43:"  Transportation
  382. >d43:0
  383. >e43:0
  384. >f43:0
  385. >g43:0
  386. >h43:0
  387. >i43:0
  388. >j43:0
  389. >k43:0
  390. >l43:0
  391. >m43:0
  392. >n43:0
  393. >o43:0
  394. >a44:"  Furniture
  395. >d44:0
  396. >e44:0
  397. >f44:0
  398. >g44:0
  399. >h44:0
  400. >i44:0
  401. >j44:0
  402. >k44:0
  403. >l44:0
  404. >m44:0
  405. >n44:0
  406. >o44:0
  407. >a45:"  Entertainment
  408. >d45:0
  409. >e45:0
  410. >f45:0
  411. >g45:0
  412. >h45:0
  413. >i45:0
  414. >j45:0
  415. >k45:0
  416. >l45:0
  417. >m45:0
  418. >n45:0
  419. >o45:0
  420. >a46:"  Donations
  421. >d46:0
  422. >e46:0
  423. >f46:0
  424. >g46:0
  425. >h46:0
  426. >i46:0
  427. >j46:0
  428. >k46:0
  429. >l46:0
  430. >m46:0
  431. >n46:0
  432. >o46:0
  433. >a47:"  Subscriptions
  434. >d47:0
  435. >e47:0
  436. >f47:0
  437. >g47:0
  438. >h47:0
  439. >i47:0
  440. >j47:0
  441. >k47:0
  442. >l47:0
  443. >m47:0
  444. >n47:0
  445. >o47:0
  446. >a48:"  Miscellaneous
  447. >d48:0
  448. >e48:0
  449. >f48:0
  450. >g48:0
  451. >h48:0
  452. >i48:0
  453. >j48:0
  454. >k48:0
  455. >l48:0
  456. >m48:0
  457. >n48:0
  458. >o48:0
  459. >d49:"--------
  460. >e49:"--------
  461. >f49:"--------
  462. >g49:"--------
  463. >h49:"--------
  464. >i49:"--------
  465. >j49:"--------
  466. >k49:"--------
  467. >l49:"--------
  468. >m49:"--------
  469. >n49:"--------
  470. >o49:"--------
  471. >a49:\jlr
  472. >a50:" Sub total (V.E.)
  473. >d50:=sum(d36:d48)@
  474. >e50:=sum(e36:e48)@
  475. >f50:=sum(f36:f48)@
  476. >g50:=sum(g36:g48)@
  477. >h50:=sum(h36:h48)@
  478. >i50:=sum(i36:i48)@
  479. >j50:=sum(j36:j48)@
  480. >k50:=sum(k36:k48)@
  481. >l50:=sum(l36:l48)@
  482. >m50:=sum(m36:m48)@
  483. >n50:=sum(n36:n48)@
  484. >o50:=sum(o36:o48)@
  485. >a52:" TOTAL EXPENSES
  486. >d52:=d32+d50@
  487. >e52:=e32+e50@
  488. >f52:=f32+f50@
  489. >g52:=g32+g50@
  490. >h52:=h32+h50@
  491. >i52:=i32+i50@
  492. >j52:=j32+j50@
  493. >k52:=k32+k50@
  494. >l52:=l32+l50@
  495. >m52:=m32+m50@
  496. >n52:=n32+n50@
  497. >o52:=o32+o50@
  498. >a54:" SAVINGS or DEFICIT
  499. >d54:=d15-d52@
  500. >e54:=e15-e52@
  501. >f54:=f15-f52@
  502. >g54:=g15-g52@
  503. >h54:=h15-h52@
  504. >i54:=i15-i52@
  505. >j54:=j15-j52@
  506. >k54:=k15-k52@
  507. >l54:=l15-l52@
  508. >m54:=m15-m52@
  509. >n54:=n15-n52@
  510. >o54:=o15-o52@
  511. >a57:" CUMMULATIVE SAVINGS
  512. >c57:=sum(d54:o54)@
  513. >a1
  514.