READ INFOCOM

FILE INFORMATION

FILENAME(S): READ INFOCOM

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-30 21:15:11

APPEARS ON: 1 disk(s)

FILE HASH

7813f35648cec53cfb84fa9f7d4e2152570986aabfdd2348e2cc3c6283670a2f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSACTOR DISK	READ INFOCOM	PRG	DuncanTwain	25	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 16 08 0A 00 8F 20  20 20 52 45 41 44 20 49  |.......   READ I|
00000010: 4E 46 4F 43 4F 4D 00 25  08 0F 00 8F 20 20 20 31  |NFOCOM.%....   1|
00000020: 2F 33 2F 38 37 00 3E 08  14 00 8F 20 20 20 54 48  |/3/87.>....   TH|
00000030: 4F 4D 41 53 20 57 2E 20  47 55 52 4C 45 59 00 53  |OMAS W. GURLEY.S|
00000040: 08 19 00 8F 20 20 20 50  2E 4F 2E 20 42 4F 58 20  |....   P.O. BOX |
00000050: 31 33 33 00 75 08 1E 00  8F 20 20 20 57 49 4C 4C  |133.u....   WILL|
00000060: 53 20 50 4F 49 4E 54 2C  20 54 45 58 41 53 2C 20  |S POINT, TEXAS, |
00000070: 37 35 31 36 39 00 7B 08  23 00 3A 00 81 08 28 00  |75169.{.#.:...(.|
00000080: 3A 00 A9 08 64 00 97 35  35 2C 30 3A 97 35 36 2C  |:...d..55,0:.56,|
00000090: 34 32 3A 9C 3A 8F 20 4C  4F 57 45 52 20 54 4F 50  |42:.:. LOWER TOP|
000000A0: 20 4F 46 20 42 41 53 49  43 00 F0 08 6E 00 41 41  | OF BASIC...n.AA|
000000B0: B2 30 3A 41 42 B2 30 3A  41 43 B2 30 3A 41 44 B2  |.0:AB.0:AC.0:AD.|
000000C0: 30 3A 4D B2 30 3A 4E B2  30 3A 4F B2 30 3A 4E 58  |0:M.0:N.0:O.0:NX|
000000D0: B2 30 3A 4E 4E B2 30 3A  86 4C 28 36 29 3A 8F 20  |.0:NN.0:.L(6):. |
000000E0: 44 45 46 49 4E 45 20 56  41 52 49 41 42 4C 45 53  |DEFINE VARIABLES|
000000F0: 00 15 09 78 00 99 22 11  11 11 20 20 20 20 20 20  |...x.."...      |
00000100: 20 20 20 20 20 20 20 20  52 45 41 44 20 49 4E 46  |        READ INF|
00000110: 4F 43 4F 4D 22 00 36 09  82 00 99 22 11 11 11 53  |OCOM".6...."...S|
00000120: 54 41 52 54 20 22 3B 3A  20 85 22 41 44 44 52 45  |TART ";: ."ADDRE|
00000130: 53 53 22 3B 4E 58 00 65  09 8C 00 99 22 49 4E 43  |SS";NX.e...."INC|
00000140: 52 45 4D 45 4E 54 20 20  31 20 20 20 20 20 32 22  |REMENT  1     2"|
00000150: 3A 20 85 4E 4E 3A 20 8B  4E 4E B3 31 B0 4E 4E B1  |: .NN: .NN.1.NN.|
00000160: 32 A7 31 34 30 00 A0 09  96 00 8B 4E 58 B2 30 A7  |2.140......NX.0.|
00000170: 4E 58 B2 31 30 38 31 36  3A 8F 20 53 54 41 52 54  |NX.10816:. START|
00000180: 20 4F 46 20 53 48 4F 52  54 20 51 55 49 43 4B 20  | OF SHORT QUICK |
00000190: 53 45 41 52 43 48 20 57  4F 52 44 20 4C 49 53 54  |SEARCH WORD LIST|
000001A0: 00 DE 09 A0 00 8B C2 28  31 39 37 29 B2 34 A7 99  |.......(197).4..|
000001B0: 22 41 44 44 52 45 53 53  20 49 53 20 22 4E 58 3A  |"ADDRESS IS "NX:|
000001C0: 20 89 31 33 30 3A 8F 20  43 48 41 4E 47 45 20 41  | .130:. CHANGE A|
000001D0: 44 44 52 45 53 53 20 57  49 54 48 20 46 31 00 0C  |DDRESS WITH F1..|
000001E0: 0A AA 00 41 41 B2 C2 28  4E 58 29 3A 41 42 B2 C2  |...AA..(NX):AB..|
000001F0: 28 4E 58 AA 31 29 3A 41  43 B2 C2 28 4E 58 AA 32  |(NX.1):AC..(NX.2|
00000200: 29 3A 41 44 B2 C2 28 4E  58 AA 33 29 00 1C 0A B4  |):AD..(NX.3)....|
00000210: 00 4D B2 30 3A 4E B2 30  3A 4F B2 30 00 58 0A BE  |.M.0:N.0:O.0.X..|
00000220: 00 8F 20 20 20 39 35 20  39 34 20 39 37 20 39 36  |..   95 94 97 96|
00000230: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000240: 20 20 20 20 20 20 20 20  20 20 20 20 20 41 41 20  |             AA |
00000250: 41 42 20 41 43 20 41 44  00 A1 0A C8 00 4C 28 31  |AB AC AD.....L(1|
00000260: 29 B2 B5 28 28 41 41 AB  32 30 29 AD 34 29 AA 36  |)..((AA.20).4).6|
00000270: 34 3A 8F 20 54 48 45 20  27 2B 36 34 27 20 41 4E  |4:. THE '+64' AN|
00000280: 44 20 27 2B 35 39 27 20  52 45 53 54 4F 52 45 20  |D '+59' RESTORE |
00000290: 41 4C 50 48 41 42 45 54  20 50 4F 53 49 54 49 4F  |ALPHABET POSITIO|
000002A0: 4E 00 D7 0A D2 00 4C 28  33 29 B2 28 41 42 20 AF  |N.....L(3).(AB .|
000002B0: 20 33 31 29 AA 35 39 3A  8F 20 27 41 4E 44 20 33  | 31).59:. 'AND 3|
000002C0: 31 27 20 44 52 4F 50 53  20 54 4F 50 20 54 48 52  |1' DROPS TOP THR|
000002D0: 45 45 20 42 49 54 53 00  11 0B DC 00 4D B2 B5 28  |EE BITS.....M..(|
000002E0: 28 41 42 20 AF 20 32 34  30 29 AD 33 32 29 AA 35  |(AB . 240).32).5|
000002F0: 39 3A 8F 20 27 41 4E 44  20 32 34 30 27 20 54 41  |9:. 'AND 240' TA|
00000300: 4B 45 53 20 54 4F 50 20  42 49 54 53 20 4F 4E 4C  |KES TOP BITS ONL|
00000310: 59 00 47 0B E6 00 8B 28  41 41 20 AF 20 31 29 B2  |Y.G....(AA . 1).|
00000320: 31 20 A7 20 4E B2 38 3A  8F 20 52 45 53 54 4F 52  |1 . N.8:. RESTOR|
00000330: 45 20 43 41 52 52 59 20  4F 4E 20 53 45 43 4F 4E  |E CARRY ON SECON|
00000340: 44 20 27 52 4F 4C 27 00  7D 0B F0 00 8B 28 41 41  |D 'ROL'.}....(AA|
00000350: 20 AF 20 32 29 B2 32 20  A7 20 4F B2 31 36 3A 8F  | . 2).2 . O.16:.|
00000360: 20 52 45 53 54 4F 52 45  20 43 41 52 52 59 20 4F  | RESTORE CARRY O|
00000370: 4E 20 46 49 52 53 54 20  27 52 4F 4C 27 00 A2 0B  |N FIRST 'ROL'...|
00000380: FA 00 4C 28 32 29 B2 4D  AA 4E AA 4F 3A 8F 20 41  |..L(2).M.N.O:. A|
00000390: 44 44 20 43 41 52 52 49  45 53 20 42 41 43 4B 20  |DD CARRIES BACK |
000003A0: 49 4E 00 B4 0B 04 01 8F  20 53 45 43 4F 4E 44 20  |IN...... SECOND |
000003B0: 48 41 4C 46 00 D5 0B 0E  01 4D B2 30 3A 4E B2 30  |HALF.....M.0:N.0|
000003C0: 3A 4F B2 30 3A 8F 20 43  41 4E 43 45 4C 20 43 41  |:O.0:. CANCEL CA|
000003D0: 52 52 49 45 53 00 EE 0B  18 01 4C 28 34 29 B2 B5  |RRIES.....L(4)..|
000003E0: 28 28 41 43 AB 32 30 29  AD 34 29 AA 36 34 00 04  |((AC.20).4).64..|
000003F0: 0C 22 01 4C 28 36 29 B2  28 41 44 20 AF 20 33 31  |.".L(6).(AD . 31|
00000400: 29 AA 35 39 00 1E 0C 2C  01 4D B2 B5 28 28 41 44  |).59...,.M..((AD|
00000410: 20 AF 20 32 34 30 29 AD  33 32 29 AA 35 39 00 34  | . 240).32).59.4|
00000420: 0C 36 01 8B 28 41 43 20  AF 20 31 29 B2 31 20 A7  |.6..(AC . 1).1 .|
00000430: 20 4E B2 38 00 4B 0C 40  01 8B 29 41 43 20 AF 20  | N.8.K.@..)AC . |
00000440: 32 29 B2 32 20 A7 20 4F  B2 31 36 00 5A 0C 4A 01  |2).2 . O.16.Z.J.|
00000450: 4C 28 35 29 B2 4D AA 4E  AA 30 00 65 0C 54 01 99  |L(5).M.N.0.e.T..|
00000460: 3A 99 20 4E 58 00 A7 0C  5E 01 81 58 B2 31 A4 36  |:. NX...^..X.1.6|
00000470: 3A 41 B2 4C 28 58 29 20  AF 20 32 32 33 3A 8B 41  |:A.L(X) . 223:.A|
00000480: B3 36 35 B0 41 B1 39 30  A7 41 B2 34 36 3A 8F 20  |.65.A.90.A.46:. |
00000490: 27 2E 27 20 3D 20 49 4E  56 41 4C 49 44 20 43 48  |'.' = INVALID CH|
000004A0: 41 52 41 43 54 45 52 00  E5 0C 68 01 8F 20 54 48  |ARACTER...h.. TH|
000004B0: 45 20 27 41 4E 44 27 20  32 32 33 20 43 4C 45 41  |E 'AND' 223 CLEA|
000004C0: 52 53 20 42 49 54 20 35  20 54 4F 20 4D 41 4B 45  |RS BIT 5 TO MAKE|
000004D0: 20 4C 4F 57 45 52 20 43  41 53 45 20 43 48 41 52  | LOWER CASE CHAR|
000004E0: 41 43 54 45 52 00 F2 0C  72 01 4C 28 58 29 B2 41  |ACTER...r.L(X).A|
000004F0: 3A 82 00 0B 0D 7C 01 81  58 B2 31 A4 36 3A 99 C7  |:....|..X.1.6:..|
00000500: 28 4C 28 58 29 29 3B 3A  82 3A 99 00 34 0D 86 01  |(L(X));:.:..4...|
00000510: 8B C2 28 36 35 34 29 B2  31 A7 33 39 30 3A 8F 20  |..(654).1.390:. |
00000520: 48 4F 4C 44 20 57 49 54  48 20 53 48 49 46 54 20  |HOLD WITH SHIFT |
00000530: 4C 4F 43 4B 00 46 0D 90  01 4E 58 B2 4E 58 AA 4E  |LOCK.F...NX.NX.N|
00000540: 4E 3A 89 31 36 30 00 00  00                       |N:.160...       |

.......   READ INFOCOM.%....   1/3/87.>.
...   THOMAS W. GURLEY.S....   P.O. BOX 
133.U....   WILLS POINT, TEXAS, 75169.{.
#.:...(.:...D..55,0:.56,42:.:. LOWER TOP
 OF BASIC...N.AA.0:AB.0:AC.0:AD.0:M.0:N.
0:O.0:NX.0:NN.0:.L(6):. DEFINE VARIABLES
...X.."...              READ INFOCOM".6.
..."...START ";: ."ADDRESS";NX.E...."INC
REMENT  1     2": .NN: .NN.1.NN.2.140. .
...NX.0.NX.10816:. START OF SHORT QUICK 
SEARCH WORD LIST... ..B(197).4.."ADDRESS
 IS "NX: .130:. CHANGE ADDRESS WITH F1..
...AA.B(NX):AB.B(NX.1):AC.B(NX.2):AD.B(N
X.3).....M.0:N.0:O.0.X....   95 94 97 96
                             AA AB AC AD
...H.L(1)..((AA.20).4).64:. THE '+64' AN
D '+59' RESTORE ALPHABET POSITION.W.R.L(
3).(AB . 31).59:. 'AND 31' DROPS TOP THR
EE BITS.....M..((AB . 240).32).59:. 'AND
 240' TAKES TOP BITS ONLY.G....(AA . 1).
1 . N.8:. RESTORE CARRY ON SECOND 'ROL'.
}....(AA . 2).2 . O.16:. RESTORE CARRY O
N FIRST 'ROL'.....L(2).M.N.O:. ADD CARRI
ES BACK IN...... SECOND HALF.U...M.0:N.0
:O.0:. CANCEL CARRIES.....L(4)..((AC.20)
.4).64...".L(6).(AD . 31).59...,.M..((AD
 . 240).32).59.4.6..(AC . 1).1 . N.8.K.@
..)AC . 2).2 . O.16.Z.J.L(5).M.N.0.E.T..
:. NX...^..X.1.6:A.L(X) . 223:.A.65.A.90
.A.46:. '.' = INVALID CHARACTER...H.. TH
E 'AND' 223 CLEARS BIT 5 TO MAKE LOWER C
ASE CHARACTER...R.L(X).A:....|..X.1.6:.G
(L(X));:.:..4....B(654).1.390:. HOLD WIT
H SHIFT LOCK.F...NX.NX.NN:.160...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL