Personal Net Worth

This program calculates and displays a personal net worth statement by collecting values for current assets, other assets, and liabilities across three input screens. It organizes 27 financial categories — spanning cash, investments, real estate, personal property, and various debt types — read from DATA statements into three separate string and numeric arrays. Output is sent simultaneously to both the screen and a printer via paired PRINT/LPRINT statements throughout the display routine. Zero-value entries are suppressed from the summary screens using conditional GO TO jumps, keeping the report uncluttered. The program contains a few typographical errors in the DATA strings, including “REPLACEMANT” and “JEWLERY.”

---

Program Analysis

Program Structure

The program is divided into four logical phases: data initialization, data entry, asset display/printing, and liability display/printing with final net worth calculation. A subroutine at line 1000 handles screen clearing and header printing, called via GO SUB 1000 at several points to simulate pagination.

1. Lines 100–380: REM headers and DATA statements defining 27 category labels.
2. Lines 390–430: Array declarations and READ loops populating string arrays.
3. Lines 450–660: Three sequential input screens for current assets, other assets, and liabilities.
4. Lines 670–861: Asset summary — displays and prints non-zero entries with running totals.
5. Lines 870–990: Liability summary, net worth calculation, and STOP.
6. Lines 1000–1030: Screen/printer header subroutine.

Array Organization

Array	Size	Purpose
C$()	12×32	Current asset category labels (8 used)
C()	9	Current asset values; C(9) accumulates total
A$()	12×32	Other asset category labels (12 used)
A()	13	Other asset values; A(13) accumulates total
L$()	7×32	Liability category labels (7 used)
L()	8	Liability values; L(8) accumulates total

The last element of each numeric array serves as a running accumulator rather than using a separate variable. This is a common BASIC memory economy technique — the accumulator slots (C(9), A(13), L(8)) are never initialized explicitly, relying on the default zero value assigned to numeric array elements at declaration time.

Dual Screen/Printer Output

Every display statement in the summary section (lines 700–981) is immediately followed by a corresponding LPRINT statement, producing a hardcopy report in parallel with the screen output. This pairing is consistent but verbose, effectively doubling the line count of the output section. The subroutine at line 1000 also duplicates its CLS/PRINT pair with LPRINT, though the CLS on line 1011 is redundant since a second CLS after the first has no visible effect — only the printer header matters there.

Key BASIC Idioms

• Zero suppression: Lines 710, 780, and 920 use IF value=0 THEN GO TO to skip printing categories the user left empty, keeping the report tidy.
• Keypress gate: Line 870 uses the busy-wait idiom LET X$=INKEY$: IF X$="" THEN GO TO 870 to pause between the assets and liabilities screens, giving the user time to read the output.
• TAB alignment: TAB is used extensively to align numeric output into columns, with values placed at positions 22 or 24 depending on the section.
• Unused variable: M$ is set at line 450 to a format string resembling a currency template but is never referenced again. It appears to be a leftover from a different version of the program.

Bugs and Anomalies

• Typographical errors in DATA: Line 230 contains “REPLACEMANT” (should be “REPLACEMENT”) and line 260 contains “JEWLERY” (should be “JEWELRY”). These will appear verbatim in all output.
• Array over-declaration: C$() is declared as DIM C$(12,32) but only 8 strings are read into it. Similarly A$() is declared with 12 rows, exactly matching its use, but C$() wastes 4 unused rows of 32 characters each.
• Redundant CLS in subroutine: Line 1011 issues another CLS immediately after line 1010 already cleared the screen, which is harmless but unnecessary.
• Missing PRINT on line 721: Line 721 contains LPRINT ... : PRINT — the trailing PRINT (no arguments) after the LPRINT will emit a blank line to the screen, which may not be intended at that point since the screen blank line is already output on line 720.
• Assets total display split: Lines 820–831 print “TOTAL OTHER ASSETS” and then TAB 22; A(13) on separate PRINT statements, which means the label and value appear on different lines on screen, unlike other totals that use a semicolon to keep them on one line.