4-11
FILE INFORMATION
FILENAME(S): 4-11
FILE TYPE(S): PRG
FILE SIZE: 975b
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
8f01736cb4cab614ad8d88a53017f403ee7ba23d89aa2a86f745091ba3f782c8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 4-11 | PRG | DuncanTwain | 19 | 6 | DOWNLOAD FILE |
| PROG 64 WEST | 4-11 | PRG | DuncanTwain | 19 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2C 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..,.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 57 08 01 |************.W..| 00000030: 00 8F 20 2A 20 46 52 41 43 54 49 4F 4E 53 20 41 |.. * FRACTIONS A| 00000040: 50 50 52 4F 58 49 4D 41 54 49 4E 47 20 41 20 4E |PPROXIMATING A N| 00000050: 55 4D 42 45 52 20 2A 00 82 08 02 00 8F 20 2A 2A |UMBER *...... **| 00000060: 2A 2A 28 43 29 2A 2A 52 2A 57 45 53 54 2A 2A 2A |**(C)**R*WEST***| 00000070: 31 39 38 35 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |1985************| 00000080: 2A 2A 00 AC 08 03 00 8F 20 20 20 54 52 59 20 45 |**...... TRY E| 00000090: 2E 47 2E 20 33 2E 31 34 31 35 39 32 36 20 49 2E |.G. 3.1415926 I.| 000000A0: 45 2E 20 50 49 20 20 20 20 20 20 2A 00 D6 08 04 |E. PI *....| 000000B0: 00 8F 20 20 20 4F 52 20 31 2E 34 31 34 32 31 20 |.. OR 1.41421 | 000000C0: 28 53 51 55 41 52 45 20 52 4F 4F 54 20 4F 46 20 |(SQUARE ROOT OF | 000000D0: 32 29 20 20 20 2A 00 01 09 05 00 8F 20 20 20 4F |2) *...... O| 000000E0: 52 20 41 20 43 55 52 52 45 4E 43 59 20 43 4F 4E |R A CURRENCY CON| 000000F0: 56 45 52 53 49 4F 4E 20 46 41 43 54 4F 52 20 20 |VERSION FACTOR | 00000100: 2A 00 2C 09 06 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.,.... ********| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5B 09 64 |************.[.d| 00000130: 00 8F 20 2A 20 49 4E 50 55 54 20 4E 55 4D 42 45 |.. * INPUT NUMBE| 00000140: 52 3B 20 43 4F 4E 56 45 52 54 20 49 54 20 54 4F |R; CONVERT IT TO| 00000150: 20 46 52 41 43 54 49 4F 4E 20 2A 00 6E 09 6E 00 | FRACTION *.n.n.| 00000160: 85 20 41 3A 20 54 B2 41 3A 20 20 42 B2 31 00 A7 |. A: T.A: B.1..| 00000170: 09 78 00 8B 20 B6 28 54 AB B5 28 54 AA 2E 30 30 |.x.. .(T..(T..00| 00000180: 30 31 29 29 B1 2E 30 30 31 20 A7 20 54 B2 54 AC |01))..001 . T.T.| 00000190: 31 30 3A 20 42 B2 B5 28 42 AC 31 30 AA 2E 31 29 |10: B..(B.10..1)| 000001A0: 3A 20 89 20 31 32 30 00 B5 09 82 00 54 B2 B5 28 |: . 120.....T..(| 000001B0: 54 AA 2E 31 29 00 CD 09 8C 00 86 20 41 28 35 30 |T..1)...... A(50| 000001C0: 29 2C 54 28 35 30 29 2C 42 28 35 30 29 00 EB 09 |),T(50),B(50)...| 000001D0: 96 00 41 28 31 29 B2 B5 28 54 AD 42 29 3A 20 54 |..A(1)..(T.B): T| 000001E0: B2 54 AB B5 28 54 AD 42 29 AC 42 00 19 0A C8 00 |.T..(T.B).B.....| 000001F0: 8F 20 2A 20 43 41 4C 43 55 4C 41 54 45 20 43 4F |. * CALCULATE CO| 00000200: 4E 54 49 4E 55 45 44 20 46 52 41 43 54 49 4F 4E |NTINUED FRACTION| 00000210: 20 49 4E 20 41 28 29 20 2A 00 21 0A D2 00 58 B2 | IN A() *.!...X.| 00000220: 31 00 38 0A DC 00 58 B2 58 AA 31 3A 20 41 28 58 |1.8...X.X.1: A(X| 00000230: 29 B2 B5 28 42 AD 54 29 00 53 0A E6 00 42 31 B2 |)..(B.T).S...B1.| 00000240: 54 3A 20 54 B2 42 AB 41 28 58 29 AC 54 3A 20 42 |T: T.B.A(X).T: B| 00000250: B2 42 31 00 6B 0A F0 00 8B 20 42 B3 B1 31 20 AF |.B1.k.... B..1 .| 00000260: 20 54 B3 B1 30 20 89 20 32 32 30 00 A8 0A FA 00 | T..0 . 220.....| 00000270: 8B 20 58 B1 31 36 20 A7 20 58 B2 31 36 20 20 20 |. X.16 . X.16 | 00000280: 20 20 20 20 20 20 20 20 3A 8F 20 46 49 47 55 52 | :. FIGUR| 00000290: 45 53 20 54 4F 4F 20 4C 41 52 47 45 20 41 52 4F |ES TOO LARGE ARO| 000002A0: 55 4E 44 20 48 45 52 45 00 D0 0A 2C 01 8F 20 2A |UND HERE...,.. *| 000002B0: 20 43 41 4C 43 55 4C 41 54 45 20 54 4F 50 2F 42 | CALCULATE TOP/B| 000002C0: 4F 54 54 4F 4D 20 41 50 50 52 4F 58 4E 53 20 2A |OTTOM APPROXNS *| 000002D0: 00 E6 0A 36 01 54 28 31 29 B2 41 28 31 29 3A 20 |...6.T(1).A(1): | 000002E0: 42 28 31 29 B2 31 00 1B 0B 40 01 54 28 32 29 B2 |B(1).1...@.T(2).| 000002F0: 41 28 31 29 AC 41 28 32 29 AA 31 3A 20 42 28 32 |A(1).A(2).1: B(2| 00000300: 29 B2 41 28 32 29 3A 8F 20 43 41 4C 43 55 4C 41 |).A(2):. CALCULA| 00000310: 54 45 20 46 49 52 53 54 20 32 2C 00 4F 0B 4A 01 |TE FIRST 2,.O.J.| 00000320: 81 20 4A B2 33 20 A4 20 58 20 20 20 20 20 20 20 |. J.3 . X | 00000330: 20 20 20 20 20 20 20 20 3A 8F 20 55 53 45 20 54 | :. USE T| 00000340: 48 45 4D 20 54 4F 20 43 4F 4E 54 49 4E 55 45 00 |HEM TO CONTINUE.| 00000350: 6D 0B 54 01 54 28 4A 29 B2 41 28 4A 29 AC 54 28 |m.T.T(J).A(J).T(| 00000360: 4A AB 31 29 20 AA 20 54 28 4A AB 32 29 00 8B 0B |J.1) . T(J.2)...| 00000370: 5E 01 42 28 4A 29 B2 41 28 4A 29 AC 42 28 4A AB |^.B(J).A(J).B(J.| 00000380: 31 29 20 AA 20 42 28 4A AB 32 29 00 91 0B 68 01 |1) . B(J.2)...h.| 00000390: 82 00 A9 0B 90 01 8F 20 2A 20 50 52 49 4E 54 20 |....... * PRINT | 000003A0: 52 45 53 55 4C 54 53 20 2A 00 C6 0B 9A 01 81 20 |RESULTS *...... | 000003B0: 4A B2 31 20 A4 20 58 3A 20 99 20 54 28 4A 29 22 |J.1 . X: . T(J)"| 000003C0: 2F 22 42 28 4A 29 00 CC 0B A4 01 82 00 00 00 |/"B(J)......... |
..,.... ********************************
****.W.... * FRACTIONS APPROXIMATING A N
UMBER *...... ****(C)**R*WEST***1985****
**********...... TRY E.G. 3.1415926 I.
E. PI *.V.... OR 1.41421 (SQUARE
ROOT OF 2) *...... OR A CURRENCY CON
VERSION FACTOR *.,.... ****************
********************.[.D.. * INPUT NUMBE
R; CONVERT IT TO FRACTION *.N.N.. A: T.A
: B.1...X.. .(T..(T..0001))..001 . T.T.
10: B..(B.10..1): . 120.....T..(T..1).M.
... A(50),T(50),B(50).....A(1)..(T.B): T
.T..(T.B).B...H.. * CALCULATE CONTINUED
FRACTION IN A() *.!.R.X.1.8...X.X.1: A(X
)..(B.T).S...B1.T: T.B.A(X).T: B.B1.K...
. B..1 . T..0 . 220...... X.16 . X.16
:. FIGURES TOO LARGE AROUND HERE
.P.,.. * CALCULATE TOP/BOTTOM APPROXNS *
...6.T(1).A(1): B(1).1...@.T(2).A(1).A(2
).1: B(2).A(2):. CALCULATE FIRST 2,.O.J.
. J.3 . X :. USE THEM TO C
ONTINUE.M.T.T(J).A(J).T(J.1) . T(J.2)...
^.B(J).A(J).B(J.1) . B(J.2)...H........
* PRINT RESULTS *.F.... J.1 . X: . T(J)"
/"B(J).L.......
> CLICK IMAGE PREVIEW FOR FULL MODAL