I learned to program in BASIC on one similar to that
. My memory has faded over the 40+ years since then.
I'm going to go off topic on this one, It's just for
@dademoss.
I wrote this one in 1995 to calculate the compression ratios for high-compression engines given all of the important measurements were made.
There wasn't one available then.
Leaning slightly to the chevy engines, but it can calculate others 8-cyl. engines easily given the correct info.
It wasn't that complicated. The formulas came straight out of the book.
It was no longer than this:
5 CLS 'ENGINE
10 PRINT " ENGINE COMPRESSION CALCULATOR"
15 PRINT " SELECT ENGINE TYPE:"
20 PRINT "(O) FOR OTHER, NON-STANDARD"
30 PRINT "(A) 302 SB V8 (B) 305 SB V8"
35 PRINT "(C) 307 SB V8 (D) 327 SB V8"
40 PRINT "(E) 350 SB V8 (F) 400 SB V8"
42 PRINT "(G) 383 SB V8 (H) 372 SB V8"
45 PRINT "(I) 396 BB V8 (J) 402 BB V8"
50 PRINT "(K) 427 BB V8 (L) 454 BB V8"
52 PRINT "(M) 400 Block, 302 crank"
54 PRINT "(N) 400 Block, 327 crank"
65 C = 8
60 X$ = INKEY$
61 IF X$ = "" THEN 60
62 IF X$ = "a" THEN B = 4.001: S = 3: GOTO 140
64 IF X$ = "b" THEN B = 3.736: S = 3.48: GOTO 140
66 IF X$ = "c" THEN B = 3.876: S = 3.25: GOTO 140
68 IF X$ = "d" THEN B = 4.001: S = 3.25: GOTO 140
70 IF X$ = "e" THEN B = 4.001: S = 3.48: GOTO 140
72 IF X$ = "f" THEN B = 4.126: S = 3.75: GOTO 140
73 IF X$ = "g" THEN B = 4.001: S = 3.75: GOTO 140
74 IF X$ = "h" THEN B = 4.126: S = 3.48: GOTO 140
75 IF X$ = "I" THEN B = 4.094: S = 3.76: GOTO 140
76 IF X$ = "J" THEN B = 4.125: S = 3.76: GOTO 140
78 IF X$ = "k" THEN B = 4.251: S = 3.76: GOTO 140
80 IF X$ = "l" THEN B = 4.251: S = 4: GOTO 140
82 IF X$ = "m" THEN B = 4.126: S = 3: GOTO 140
84 IF X$ = "n" THEN B = 4.126: S = 3.25: GOTO 140
100 'NON-STANDARD SPECS ENTRY
110 INPUT "BORE"; B
120 INPUT "STROKE"; S
130 INPUT "CYLINDERS"; C
140 D = .7854 * B * B * S * C
150 CC = (D * 16.4): PRINT "DISPLACEMENT IS", D; "CU IN."; CC; "CC'S"
160 V1 = D / C * 16.4
170 INPUT "DECK CLEARANCE"; DC
180 V2 = .7854 * B * B * DC * 16.4
190 INPUT "HEAD GASKET THICKNESS"; T
200 V3 = .7854 * B * B * T * 16.4
210 INPUT "HEAD CHAMBER VOLUME (CC'S)"; CV
220 INPUT "PISTON DOME VOLUME (CC'S)"; DV: DV = DV + .0001
230 V4 = CV - DV
240 CR = (V1 + V2 + V3 + V4) / (V2 + V3 + V4)
250 PRINT "COMPRESSION RATIO IS", CR; "TO 1"
260 PRINT "COMPRESSION PRESSURE ABOUT"; (CR - 1) * 14.7; "PSI"
270 PRINT "TO CHANGE COMP. FACTORS TYPE 'C' TYPE 'R' TO RESTART OTHER TO END"
280 N$ = INKEY$
290 IF N$ = "c" THEN 170
295 IF N$ = "r" THEN 5
300 IF N$ = "" THEN 280
310 END
It still works fine even today. It lets you tweak specs and immediately see the change in C/R.
Find a Qbasic or equivalent and give it a spin. It ain't busy, and you can consider it in public domain by now.
(5 bonus points for the first guy that can paste screenshots of it running.
)