GEOTERM.PATCH

FILE INFORMATION

FILENAME(S): GEOTERM.PATCH

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 16:59:42

APPEARS ON: 2 disk(s)

FILE HASH

56b2b4d2785fe5ce80a17d8be7538e1fb9703b4070f59c83ec4629c947cadf95

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C FILES1	GEOTERM.PATCH	PRG	High Voltage Complete C64 Collection	20	12	DOWNLOAD FILE
GEOWORLD3A	GEOTERM.PATCH	PRG	DuncanTwain	28	13	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 28 1C 00 00 8F 20  20 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  00 4F 1C 01 00 8F 20 20  |********.O....  |
00000030: 2A 2A 2A 20 20 20 47 45  4F 54 45 52 4D 20 4D 4F  |***   GEOTERM MO|
00000040: 44 45 4D 20 50 41 54 43  48 20 20 20 2A 2A 2A 00  |DEM PATCH   ***.|
00000050: 76 1C 02 00 8F 20 20 2A  2A 2A 20 20 20 20 20 42  |v....  ***     B|
00000060: 59 20 42 49 4C 4C 20 43  4F 4C 45 4D 41 4E 20 20  |Y BILL COLEMAN  |
00000070: 20 20 20 2A 2A 2A 00 9D  1C 03 00 8F 20 20 2A 2A  |   ***......  **|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 A3 1C  |*************...|
000000A0: 04 00 3A 00 D3 1C 05 00  86 20 5A 28 32 35 36 29  |..:...... Z(256)|
000000B0: 3A 99 22 47 45 4F 54 45  52 4D 20 44 45 46 41 55  |:."GEOTERM DEFAU|
000000C0: 4C 54 20 4D 4F 44 45 4D  20 50 41 54 43 48 45 52  |LT MODEM PATCHER|
000000D0: 22 3A 99 00 FE 1C 06 00  85 20 22 44 52 49 56 45  |":....... "DRIVE|
000000E0: 20 28 38 2D 31 31 29 22  3B 44 52 3A 8B 20 44 52  | (8-11)";DR:. DR|
000000F0: B3 38 20 B0 20 44 52 B1  31 31 20 A7 20 36 00 42  |.8 . DR.11 . 6.B|
00000100: 1D 07 00 54 52 B2 31 38  3A 53 45 B2 31 3A 85 20  |...TR.18:SE.1:. |
00000110: 22 49 53 20 49 54 20 41  20 31 35 38 31 20 28 59  |"IS IT A 1581 (Y|
00000120: 2F 4E 29 22 3B 41 24 3A  8B 20 C8 28 41 24 2C 31  |/N)";A$:. .(A$,1|
00000130: 29 B2 22 59 22 20 A7 20  54 52 B2 34 30 3A 53 45  |)."Y" . TR.40:SE|
00000140: B2 33 00 86 1D 08 00 43  36 B2 31 3A 85 20 22 50  |.3.....C6.1:. "P|
00000150: 41 54 43 48 49 4E 47 20  54 48 45 20 31 32 38 20  |ATCHING THE 128 |
00000160: 56 45 52 53 49 4F 4E 20  28 59 2F 4E 29 22 3B 41  |VERSION (Y/N)";A|
00000170: 24 3A 8B 20 C8 28 41 24  2C 31 29 B2 22 59 22 20  |$:. .(A$,1)."Y" |
00000180: A7 20 43 36 B2 30 00 C6  1D 09 00 4D 4F B2 30 3A  |. C6.0.....MO.0:|
00000190: 85 20 22 48 41 59 45 53  20 4F 52 20 47 45 4E 45  |. "HAYES OR GENE|
000001A0: 52 49 43 20 33 30 30 20  28 48 2F 47 29 22 3B 41  |RIC 300 (H/G)";A|
000001B0: 24 3A 8B 20 C8 28 41 24  2C 31 29 B2 22 47 22 20  |$:. .(A$,1)."G" |
000001C0: A7 20 4D 4F B2 31 00 FB  1D 0A 00 99 3A 99 22 49  |. MO.1......:."I|
000001D0: 4E 53 45 52 54 20 44 49  53 4B 20 43 4F 4E 54 41  |NSERT DISK CONTA|
000001E0: 49 4E 49 4E 47 20 47 45  4F D4 45 52 4D 20 49 4E  |INING GEO.ERM IN|
000001F0: 20 54 48 45 20 46 49 52  53 54 22 00 23 1E 0B 00  | THE FIRST".#...|
00000200: 99 22 50 4F 53 49 54 49  4F 4E 2E 20 20 54 48 45  |."POSITION.  THE|
00000210: 4E 20 50 52 45 53 53 20  41 4E 59 20 4B 45 59 2E  |N PRESS ANY KEY.|
00000220: 2E 2E 22 00 39 1E 0C 00  A1 20 41 24 3A 8B 20 41  |..".9.... A$:. A|
00000230: 24 B2 22 22 20 A7 20 31  32 00 5F 1E 0D 00 9F 20  |$."" . 12._.... |
00000240: 31 35 2C 44 52 2C 31 35  3A 9F 20 32 2C 44 52 2C  |15,DR,15:. 2,DR,|
00000250: 32 2C 22 23 22 3A 4E B2  34 3A 8D 20 31 30 30 00  |2,"#":N.4:. 100.|
00000260: 8D 1E 0E 00 54 52 B2 5A  28 33 29 3A 53 45 B2 5A  |....TR.Z(3):SE.Z|
00000270: 28 34 29 3A 4E B2 32 31  3A 8D 20 31 30 30 3A 8F  |(4):N.21:. 100:.|
00000280: 20 49 4E 44 45 58 20 53  45 43 54 4F 52 00 BA 1E  | INDEX SECTOR...|
00000290: 0F 00 54 52 B2 5A 28 32  30 29 3A 53 45 B2 5A 28  |..TR.Z(20):SE.Z(|
000002A0: 32 31 29 3A 4E B2 32 35  35 3A 8D 20 31 30 30 3A  |21):N.255:. 100:|
000002B0: 8F 20 4D 4F 44 55 4C 45  20 39 00 C8 1E 10 00 8B  |. MODULE 9......|
000002C0: 20 43 36 20 A7 20 32 34  00 EB 1E 11 00 8B 20 4D  | C6 . 24...... M|
000002D0: 4F 20 A7 20 8B 20 5A 28  31 39 32 29 B2 30 20 A7  |O . . Z(192).0 .|
000002E0: 20 5A 28 31 39 32 29 B2  32 35 35 00 08 1F 12 00  | Z(192).255.....|
000002F0: 8B 20 5A 28 31 39 36 29  B2 31 36 39 20 A7 20 5A  |. Z(196).169 . Z|
00000300: 28 31 39 36 29 B2 37 36  00 24 1F 13 00 8B 20 5A  |(196).76.$.... Z|
00000310: 28 31 39 37 29 B2 39 30  20 A7 20 5A 28 31 39 37  |(197).90 . Z(197|
00000320: 29 B2 38 36 00 41 1F 14  00 8B 20 5A 28 31 39 38  |).86.A.... Z(198|
00000330: 29 B2 31 33 33 20 A7 20  5A 28 31 39 38 29 B2 38  |).133 . Z(198).8|
00000340: 33 00 4A 1F 15 00 89 20  32 38 00 50 1F 16 00 3A  |3.J.... 28.P...:|
00000350: 00 64 1F 17 00 8F 20 2A  2A 20 36 34 20 56 45 52  |.d.... ** 64 VER|
00000360: 53 49 4F 4E 00 87 1F 18  00 8B 20 4D 4F 20 A7 20  |SION...... MO . |
00000370: 8B 20 5A 28 31 38 33 29  B2 30 20 A7 20 5A 28 31  |. Z(183).0 . Z(1|
00000380: 38 33 29 B2 32 35 35 00  A4 1F 19 00 8B 20 5A 28  |83).255...... Z(|
00000390: 31 38 37 29 B2 31 36 39  20 A7 20 5A 28 31 38 37  |187).169 . Z(187|
000003A0: 29 B2 37 36 00 C1 1F 1A  00 8B 20 5A 28 31 38 38  |).76...... Z(188|
000003B0: 29 B2 36 37 20 A7 20 5A  28 31 38 38 29 B2 32 30  |).67 . Z(188).20|
000003C0: 35 00 DE 1F 1B 00 8B 20  5A 28 31 38 39 29 B2 31  |5...... Z(189).1|
000003D0: 33 33 20 A7 20 5A 28 31  38 39 29 B2 36 30 00 F3  |33 . Z(189).60..|
000003E0: 1F 1C 00 8D 20 32 30 30  3A A0 20 32 3A A0 20 31  |.... 200:. 2:. 1|
000003F0: 35 3A 80 00 F9 1F 1D 00  3A 00 0E 20 1E 00 8F 20  |5:......:.. ... |
00000400: 2A 2A 20 52 45 41 44 20  53 45 43 54 4F 52 00 24  |** READ SECTOR.$|
00000410: 20 64 00 98 31 35 2C 22  55 31 22 32 3B 30 3B 54  | d..15,"U1"2;0;T|
00000420: 52 3B 53 45 00 4D 20 65  00 81 20 58 B2 30 20 A4  |R;SE.M e.. X.0 .|
00000430: 20 4E 3A A1 23 32 2C 41  24 3A 5A 28 58 29 B2 C6  | N:.#2,A$:Z(X)..|
00000440: 28 41 24 AA C7 28 30 29  29 3A 82 3A 8E 00 53 20  |(A$..(0)):.:..S |
00000450: 66 00 3A 00 69 20 67 00  8F 20 2A 2A 20 57 52 49  |f.:.i g.. ** WRI|
00000460: 54 45 20 53 45 43 54 4F  52 00 7B 20 C8 00 98 31  |TE SECTOR.{ ...1|
00000470: 35 2C 22 42 2D 50 3A 22  32 3B 30 00 99 20 C9 00  |5,"B-P:"2;0.. ..|
00000480: 81 20 58 B2 30 20 A4 20  32 35 35 3A 98 32 2C C7  |. X.0 . 255:.2,.|
00000490: 28 5A 28 58 29 29 3B 3A  82 00 B1 20 CA 00 98 31  |(Z(X));:... ...1|
000004A0: 35 2C 22 55 32 22 32 3B  30 3B 54 52 3B 53 45 3A  |5,"U2"2;0;TR;SE:|
000004B0: 8E 00 00 00                                       |....            |

..(....  *******************************
.O....  ***   GEOTERM MODEM PATCH   ***.
V....  ***     BY BILL COLEMAN     ***..
....  *******************************...
..:.S.... Z(256):."GEOTERM DEFAULT MODEM
 PATCHER":....... "DRIVE (8-11)";DR:. DR
.8 . DR.11 . 6.B...TR.18:SE.1:. "IS IT A
 1581 (Y/N)";A$:. H(A$,1)."Y" . TR.40:SE
.3.....C6.1:. "PATCHING THE 128 VERSION 
(Y/N)";A$:. H(A$,1)."Y" . C6.0.F...MO.0:
. "HAYES OR GENERIC 300 (H/G)";A$:. H(A$
,1)."G" . MO.1......:."INSERT DISK CONTA
INING GEOTERM IN THE FIRST".#...."POSITI
ON.  THEN PRESS ANY KEY...".9.... A$:. A
$."" . 12._.... 15,DR,15:. 2,DR,2,"#":N.
4:. 100.....TR.Z(3):SE.Z(4):N.21:. 100:.
 INDEX SECTOR.....TR.Z(20):SE.Z(21):N.25
5:. 100:. MODULE 9.H.... C6 . 24...... M
O . . Z(192).0 . Z(192).255...... Z(196)
.169 . Z(196).76.$.... Z(197).90 . Z(197
).86.A.... Z(198).133 . Z(198).83.J.... 
28.P...:.D.... ** 64 VERSION...... MO . 
. Z(183).0 . Z(183).255...... Z(187).169
 . Z(187).76.A.... Z(188).67 . Z(188).20
5...... Z(189).133 . Z(189).60...... 200
:  2:  15:......:.. ... ** READ SECTOR.$
 D..15,"U1"2;0;TR;SE.M E.. X.0 . N:.#2,A
$:Z(X).F(A$.G(0)):.:..S F.:.I G.. ** WRI
TE SECTOR.{ H..15,"B-P:"2;0.. I.. X.0 . 
255:.2,G(Z(X));:... J..15,"U2"2;0;TR;SE:
....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL