Personal Net Worth

Source Code

  100 REM PERSONAL NET WORTH(NETWORTH)
  101 REM PRINTER VERSION (2040)
  110 DATA "CASH ON HAND"
  120 DATA "IN BANK ACCOUNTS             "
  130 DATA "IN IRA/KEOGH PLANS"
  140 DATA "IN RETIREMENT PLANS"
  150 DATA "CASH VALUE OF SAVINGS BONDS"
  160 DATA "OF LIFE INSURANCE"
  170 DATA "OF STOCKS"
  180 DATA "OTHER CASH VALUE ASSETS"
  190 DATA "OF REAL ESTATE"
  200 DATA "OF CARS"
  210 DATA "OF BOATS,PLANES,ETC."
  220 DATA "OF BUSINESS EQUITY"
  230 DATA "REPLACEMANT COST OF CLOTHING"
  240 DATA "OF FURNITURE"
  250 DATA "OF HOBBY EQUIPMENT"
  260 DATA "OF JEWLERY AND FURS"
  270 DATA "OF ART WORKS AND ANTIQUES"
  280 DATA "OF TOOLS AND MACHINERY"
  290 DATA "OF COLLECTIONS"
  300 DATA "OTHER ASSETS OF VALUE"
  310 DATA "SHORT TERM DEBTS DUE"
  320 DATA "BALANCE ON MORTGAGE"
  330 DATA "ON CAR LOANS"
  340 DATA "ON PERSONAL LOANS"
  350 DATA "ON RETAIL CREDIT"
  360 DATA "ON OTHER LONG TERM DEBT"
  370 DATA "OTHER LIABILITIES"
  380 REM _________________
  390 DIM C(9)
  391 DIM C$(12,32)
  392 DIM A(13)
  393 DIM A$(12,32)
  394 DIM L(8)
  395 DIM L$(7,32)
  410 FOR X=1 TO 8: READ C$(X): NEXT X
  420 FOR X=1 TO 12: READ A$(X): NEXT X
  430 FOR X=1 TO 7: READ L$(X): NEXT X
  440 REM ----------------------
  450 LET M$="\\                         \\$$###,###"
  460 LET T=30: GO SUB 1000
  470 PRINT "CURRENT ASSETS:": PRINT ;
  480 FOR X=1 TO 8
  490 PRINT C$(X);TAB 32;
  500 INPUT C(X)
  520 NEXT X
  530 GO SUB 1000: REM NEW SCREEN
  540 PRINT "OTHER ASSETS:": PRINT 
  550 FOR X=1 TO 12
  560 PRINT A$(X);TAB 32;
  570 INPUT A(X)
  590 NEXT X
  600 GO SUB 1000: REM NEWSCREEN
  610 PRINT "LIABILITIES:": PRINT 
  620 FOR X=1 TO 7
  630 PRINT L$(X);TAB (32);
  640 INPUT L(X)
  660 NEXT X
  670 REM ---------------------
  680 GO SUB 1000: REM NEW SCREEN
  690 PRINT "ASSETS:"
  700 FOR X=1 TO 8
  710 IF C(X)=0 THEN GO TO 730
  720 PRINT C$(X);TAB (22);C(X): PRINT 
  721 LPRINT C$(X);TAB (22);C(X): PRINT 
  725 LET C(9)=C(9)+C(X)
  730 NEXT X
  740 PRINT TAB (20);"_________"
  741 LPRINT TAB (20);"_________"
  750 PRINT "TOTAL CURRENT ASSETS";TAB (22);
  751 LPRINT "TOTAL CURRENT ASSETS";TAB (22);
  760 PRINT C(9): PRINT 
  761 LPRINT C(9): LPRINT 
  770 FOR X=1 TO 12
  780 IF A(X)=0 THEN GO TO 800
  790 PRINT A$(X);TAB (24);A(X)
  791 LPRINT A$(X);TAB (24);A(X)
  792 LET A(13)=A(13)+A(X)
  800 NEXT X
  810 PRINT TAB (20);"_________"
  811 LPRINT TAB (20);"_________"
  820 PRINT "TOTAL OTHER ASSETS";TAB (22) 
  821 LPRINT "TOTAL OTHER ASSETS";TAB (22) 
  830 PRINT TAB 22;A(13)
  831 LPRINT TAB 22;A(13)
  840 PRINT TAB (17);"============="
  841 LPRINT TAB (17);"============="
  850 PRINT "TOTAL ASSETS";TAB (22);
  851 LPRINT "TOTAL ASSETS";TAB (22);
  860 PRINT C(9)+A(13)
  861 LPRINT C(9)+A(13)
  870 LET X$=INKEY$: IF X$="" THEN GO TO 870
  880 REM -----------------------
  890 GO SUB 1000: REM NEW SCREEN
  900 PRINT "LIABILITIES:"
  901 LPRINT "LIABILITIES:"
  910 FOR X=1 TO 7
  920 IF L(X)=0 THEN GO TO 940
  929 LPRINT L$(X);TAB 24;L(X)
  930 PRINT L$(X);TAB 24;L(X)
  931 LET L(8)=L(8)+L(X)
  940 NEXT X
  941 PRINT TAB 18;"___________"
  942 LPRINT TAB 18;"___________"
  960 PRINT "TOTAL LIABILITIES       ";L(8)
  961 LPRINT "TOTAL LIABILITIES       ";L(8)
  970 LET X=A(13)+C(9)-L(8)
  971 PRINT : PRINT TAB 18;"=============="
  972 LPRINT : LPRINT TAB 18;"=============="
  980 PRINT "NET WORTH";TAB 24;X
  981 LPRINT "NET WORTH";TAB 24;X
  990 STOP 
 1000 REM SCREEN ADVANCE SUBROUTINE
 1010 CLS : PRINT "PERSONAL NET WORTH:"
 1011 CLS : LPRINT "PERSONAL NET WORTH:"
 1020 PRINT 
 1021 LPRINT 
 1030 RETURN