4-10

FILE INFORMATION

FILENAME(S): 4-10

FILE TYPE(S): PRG

FILE SIZE: 816b

FIRST SEEN: 2025-11-30 21:12:26

APPEARS ON: 2 disk(s)

FILE HASH

3234975013b6e7bf89bd7dceef163380d484a4cef8027dd4f00abf9fb1f5820b

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOTUS SOFT	4-10	PRG	DuncanTwain	19	4	DOWNLOAD FILE
PROG 64 WEST	4-10	PRG	DuncanTwain	19	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 00 00 8F 20  2A 2A 2A 20 27 53 4F 4C  |..).... *** 'SOL|
00000010: 56 45 52 27 20 46 4F 52  20 43 4F 4D 4D 4F 44 4F  |VER' FOR COMMODO|
00000020: 52 45 20 36 34 20 2A 2A  2A 00 2F 08 01 00 3A 00  |RE 64 ***./...:.|
00000030: 65 08 02 00 8F 20 2A 2A  2A 20 45 58 41 4D 50 4C  |e.... *** EXAMPL|
00000040: 45 3A 20 20 44 45 46 20  46 4E 20 59 28 58 29 3D  |E:  DEF FN Y(X)=|
00000050: 58 2A 58 20 2D 20 32 20  53 4F 4C 56 45 53 20 53  |X*X - 2 SOLVES S|
00000060: 51 52 28 32 29 00 A7 08  03 00 8F 20 2A 2A 2A 20  |QR(2)...... *** |
00000070: 45 58 41 4D 50 4C 45 3A  20 20 44 45 46 20 46 4E  |EXAMPLE:  DEF FN|
00000080: 20 59 28 58 29 3D 58 5E  33 20 2B 20 35 2A 58 5E  | Y(X)=X^3 + 5*X^|
00000090: 32 20 2D 20 33 20 53 4F  4C 56 45 53 20 58 5E 33  |2 - 3 SOLVES X^3|
000000A0: 2B 35 58 5E 32 3D 33 00  E8 08 04 00 8F 20 2A 2A  |+5X^2=3...... **|
000000B0: 2A 20 45 58 41 4D 50 4C  45 3A 20 20 44 45 46 20  |* EXAMPLE:  DEF |
000000C0: 46 4E 20 59 28 58 29 3D  45 58 50 28 58 2A 58 2B  |FN Y(X)=EXP(X*X+|
000000D0: 58 29 2D 32 20 53 4F 4C  56 45 53 20 45 58 50 28  |X)-2 SOLVES EXP(|
000000E0: 58 2A 58 2B 58 29 3D 32  00 33 09 05 00 8F 20 2A  |X*X+X)=2.3.... *|
000000F0: 2A 2A 20 43 4F 4D 50 4F  55 4E 44 20 49 4E 54 45  |** COMPOUND INTE|
00000100: 52 45 53 54 20 45 58 41  4D 50 4C 45 20 48 45 52  |REST EXAMPLE HER|
00000110: 45 20 4E 45 45 44 53 20  45 58 54 52 41 20 56 41  |E NEEDS EXTRA VA|
00000120: 52 49 41 42 4C 45 53 20  4E 2C 53 2C 20 41 4E 44  |RIABLES N,S, AND|
00000130: 20 50 2E 00 39 09 06 00  3A 00 72 09 07 00 8F 20  | P..9...:.r.... |
00000140: 2A 2A 2A 20 55 53 45 53  20 41 20 52 45 50 45 41  |*** USES A REPEA|
00000150: 54 49 4E 47 20 50 52 4F  43 45 53 53 20 54 4F 20  |TING PROCESS TO |
00000160: 43 4F 4E 56 45 52 47 45  20 54 4F 20 52 45 53 55  |CONVERGE TO RESU|
00000170: 4C 54 00 78 09 08 00 3A  00 9E 09 0A 00 96 20 A5  |LT.x...:...... .|
00000180: 20 59 28 58 29 20 B2 20  50 AC 28 31 AB 31 AD 28  | Y(X) . P.(1.1.(|
00000190: 31 AA 58 29 AE 4E 29 AD  20 58 20 AB 20 53 00 B8  |1.X).N). X . S..|
000001A0: 09 0B 00 85 20 22 4E 4F  2E 20 4F 46 20 50 41 59  |.... "NO. OF PAY|
000001B0: 4D 45 4E 54 53 22 3B 4E  00 CC 09 0C 00 85 20 22  |MENTS";N...... "|
000001C0: 54 4F 54 41 4C 20 53 55  4D 22 3B 53 00 E6 09 0D  |TOTAL SUM";S....|
000001D0: 00 85 20 22 45 41 43 48  20 50 41 59 4D 45 4E 54  |.. "EACH PAYMENT|
000001E0: 20 49 53 22 3B 50 00 30  0A 14 00 47 55 45 53 53  | IS";P.0...GUESS|
000001F0: B2 2E 31 20 20 3A 8F 20  53 54 41 52 54 20 47 55  |..1  :. START GU|
00000200: 45 53 53 20 41 54 20 31  30 25 20 50 45 52 20 49  |ESS AT 10% PER I|
00000210: 4E 54 45 52 56 41 4C 20  4F 52 20 4F 54 48 45 52  |NTERVAL OR OTHER|
00000220: 20 50 4C 41 55 53 49 42  4C 45 20 56 41 4C 55 45  | PLAUSIBLE VALUE|
00000230: 00 68 0A 1E 00 44 58 B2  31 AD 31 30 32 34 20 3A  |.h...DX.1.1024 :|
00000240: 8F 20 53 4D 41 4C 4C 20  49 4E 43 52 45 4D 45 4E  |. SMALL INCREMEN|
00000250: 54 20 57 49 54 48 4F 55  54 20 52 4F 55 4E 44 49  |T WITHOUT ROUNDI|
00000260: 4E 47 20 45 52 52 4F 52  00 97 0A 28 00 47 52 41  |NG ERROR...(.GRA|
00000270: 44 49 45 4E 54 20 B2 20  28 A5 20 59 28 47 55 45  |DIENT . (. Y(GUE|
00000280: 53 53 AA 44 58 29 20 AB  20 A5 20 59 28 47 55 45  |SS.DX) . . Y(GUE|
00000290: 53 53 29 29 AD 44 58 00  BD 0A 32 00 47 55 45 53  |SS)).DX...2.GUES|
000002A0: 53 B2 47 55 45 53 53 20  AB 20 A5 20 59 28 47 55  |S.GUESS . . Y(GU|
000002B0: 45 53 53 29 AD 47 52 41  44 49 45 4E 54 00 F8 0A  |ESS).GRADIENT...|
000002C0: 3C 00 8B 20 B6 28 47 55  45 53 53 AB 47 31 29 B3  |<.. .(GUESS.G1).|
000002D0: 2E 30 30 30 30 31 20 A7  20 99 20 22 49 4E 54 45  |.00001 . . "INTE|
000002E0: 52 45 53 54 3D 22 20 47  55 45 53 53 AC 31 30 30  |REST=" GUESS.100|
000002F0: 20 22 25 22 20 3A 20 80  00 2D 0B 46 00 47 31 B2  | "%" : ..-.F.G1.|
00000300: 47 55 45 53 53 3A 20 89  20 34 30 3A 20 20 8F 20  |GUESS: . 40:  . |
00000310: 41 44 44 20 50 52 49 4E  54 20 47 31 20 54 4F 20  |ADD PRINT G1 TO |
00000320: 57 41 54 43 48 20 47 55  45 53 53 45 53 00 00 00  |WATCH GUESSES...|

..).... *** 'SOLVER' FOR COMMODORE 64 **
*./...:.E.... *** EXAMPLE:  DEF FN Y(X)=
X*X - 2 SOLVES SQR(2)...... *** EXAMPLE:
  DEF FN Y(X)=X^3 + 5*X^2 - 3 SOLVES X^3
+5X^2=3...... *** EXAMPLE:  DEF FN Y(X)=
EXP(X*X+X)-2 SOLVES EXP(X*X+X)=2.3.... *
** COMPOUND INTEREST EXAMPLE HERE NEEDS 
EXTRA VARIABLES N,S, AND P..9...:.R.... 
*** USES A REPEATING PROCESS TO CONVERGE
 TO RESULT.X...:...... . Y(X) . P.(1.1.(
1.X).N). X . S...... "NO. OF PAYMENTS";N
.L.... "TOTAL SUM";S...... "EACH PAYMENT
 IS";P.0...GUESS..1  :. START GUESS AT 1
0% PER INTERVAL OR OTHER PLAUSIBLE VALUE
.H...DX.1.1024 :. SMALL INCREMENT WITHOU
T ROUNDING ERROR...(.GRADIENT . (. Y(GUE
SS.DX) . . Y(GUESS)).DX...2.GUESS.GUESS 
. . Y(GUESS).GRADIENT...<.. .(GUESS.G1).
.00001 . . "INTEREST=" GUESS.100 "%" : .
.-.F.G1.GUESS: . 40:  . ADD PRINT G1 TO 
WATCH GUESSES...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL