1040 Form

This program implements an income tax return assistant that handles data entry, tax calculation, data review, and tape storage for US tax forms 1040 and Schedule A. It uses a 107-element numeric array L() to store line-item amounts and a parallel 107-element string array C$() of 18-character descriptions for each tax line. Navigation is driven by a two-level menu system: a main menu with five options and a sub-menu for selecting between Form 1040 and Schedule A, with GOSUB dispatch performed via VAL K$*1000 and VAL K$*100+2000 arithmetic on the keypress. Initialization at line 9000 prompts the user to enter all 107 line descriptions interactively in FAST mode before use, with the instruction at line 51 directing users to GO TO 9000 first. The SAVE at line 4050 preserves the entire program and its data arrays to tape under the name “TAX”.

---

Program Analysis

Program Structure

The program is organized into clearly delineated routines, each prefixed by an inverse-video REM label. The main loop runs from lines 100–200, presenting a five-option menu and dispatching to one of five subroutines. A second-level dispatcher at line 7000 handles form selection (1040 or Schedule A). The overall flow is:

1. Lines 51–52: Bootstrap message and STOP — user must first run line 9000.
2. Lines 100–200: Main menu loop.
3. Lines 1000–1120: Option 1 — Enter Data.
4. Lines 2000–2248: Option 2 — Calculate Tax (Form 1040 at 2100, Schedule A at 2200).
5. Lines 3000–3080: Option 3 — Review Data.
6. Lines 4000–4060: Option 4 — Record Data (SAVE to tape).
7. Lines 5000–5030: Option 5 — Erase All Entries.
8. Lines 6000–6030: Shared pause/continue subroutine.
9. Lines 7000–7214: Form selection subroutine and form setup routines.
10. Lines 9000–9090: Initialization — dimensions arrays and prompts for 107 line descriptions.

Menu Dispatch via Arithmetic on INKEY$

The program uses a compact but powerful idiom for computed GOSUB dispatch. At line 180, GOSUB VAL K$*1000 converts the character “1”–”5″ to the integer 1000–5000, jumping directly to the correct routine. Similarly, GOSUB VAL K$*100+2000 at line 2020 and GOSUB VAL K$*100+7000 at line 7090 select sub-forms. This eliminates a chain of IF/THEN statements and is a recognized memory and speed optimization in Sinclair BASIC.

Data Model

Two parallel arrays form the core data structure:

• L(107) — numeric array holding the dollar amount for each of 107 tax line items.
• C$(107,18) — string array holding an 18-character description for each line item, entered by the user at initialization time.

A offset variable Z is used to map logical line numbers (as entered by the user) to physical array indices. For Form 1040, Z=0; for Schedule A, Z=66, allowing Schedule A entries 1–41 to occupy L(67)–L(107).

Form Setup Routines

Lines 7100–7130 (Form 1040) and 7200–7214 (Schedule A) configure four variables used by the Review Data and Enter Data routines:

Variable	Purpose
Z	Array offset (0 for 1040, 66 for Schedule A)
P	Number of sections to display in review
J(N)	Start line number for section N
K(N)	End line number for section N

This gives the Review Data routine (lines 3000–3080) a generic paginated display loop that works for both forms without hardcoded ranges.

Tax Calculation Logic

The Form 1040 calculation (lines 2100–2182) manually replicates the aggregation rules of the actual IRS Form 1040, using FOR loops to sum ranges of L()L(21), L(30), L(31)). A rounding idiom appears at line 2160: INT(100*X+.5)/10 — note this divides by 10 rather than 100, which appears to be an intentional scaling (perhaps converting cents to a percentage or applying a rate), though it could also be a bug depending on intended semantics. The refund/amount-owed logic at lines 2156–2172 correctly handles negative results by branching and zeroing out the opposing field.

Initialization and FAST Mode

Line 9000 begins the initialization sequence, which must be run manually via GO TO 9000. It dimensions all four arrays, then enters FAST mode (line 9012) before looping through all 107 entries to accept user-typed descriptions via INPUT C$(I). FAST mode suppresses the display interrupt, greatly accelerating the input loop. After completion, SLOW is restored at line 9055 and execution falls through to the main menu. Lines 9070–9090 (CLEAR, SAVE, LIST) appear to be a development artifact for saving the initialized program state; CLEAR before SAVE would erase variables, so these lines are presumably not reached in normal operation.

Notable Techniques and Idioms

• The PAUSE 40000 / INKEY$ pattern is used throughout as a keypress wait at lines 155, 160, 4030, 7032, and 7034.
• STR$ I at line 3025 converts the line number to a string for display, avoiding a separate PRINT of a numeric variable.
• The SAVE "TAX" at line 4050 saves the entire program including current variable state, providing a simple data persistence mechanism without any file format overhead.
• Inverse-video REM labels (e.g., %E%N%T%E%R% %D%A%T%A) serve as section markers that are visually distinct in the listing.

Anomalies and Potential Issues

• Line 5030 prints “ALL ENTRIES ERASED” but does not return or GOTO anywhere — it falls through to line 5999 (a REM), then to line 6000. This accidentally calls the pause/continue routine after erasing, which may or may not be intentional.
• The rounding expression at line 2160, INT(100*X+.5)/10, divides by 10 instead of 100. If the intent was to round to the nearest cent, the divisor should be 100. As written, it multiplies by 10 instead of rounding to two decimal places.
• DIM I$(3) at line 9010 dimensions a string array of three 1-character elements, but the program uses I$ as a simple string variable (e.g., LET I$=STR$ I at line 3025). In Sinclair BASIC, once a variable is dimensioned as an array, the simple variable of the same name is inaccessible; this would cause an error at line 3025 unless I$ was intended to be I$(N).
• Line 9080 saves the file as "1030%5" where %5 is inverse “5”. This appears to be a development save with a specific filename.