CHAIN TRACER
FILE INFORMATION
FILENAME(S): CHAIN TRACER
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
799ded346006cf1a41c0cc0e7cf279419faa59c8be1d2a4950fd8fd8fbca8340
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | CHAIN TRACER | PRG | DuncanTwain | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 30 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..0.... THE TRAN| 00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 34 20 |SACTOR VOLUME 4 | 00000020: 49 53 53 55 45 20 30 31 20 50 41 47 45 20 32 36 |ISSUE 01 PAGE 26| 00000030: 00 61 04 64 00 8F 20 44 34 30 34 30 3D 34 20 3A |.a.d.. D4040=4 :| 00000040: 20 52 45 4D 20 52 45 4D 4F 56 45 20 52 45 4D 20 | REM REMOVE REM | 00000050: 46 4F 52 20 55 53 45 20 57 49 54 48 20 34 30 34 |FOR USE WITH 404| 00000060: 30 00 91 04 6E 00 5A 24 B2 C7 28 30 29 20 3A 20 |0...n.Z$..(0) : | 00000070: 86 20 54 25 28 32 30 2C 20 31 30 30 29 2C 20 53 |. T%(20, 100), S| 00000080: 25 28 32 30 2C 20 31 30 30 29 2C 20 44 28 32 30 |%(20, 100), D(20| 00000090: 29 00 BD 04 78 00 85 22 46 49 4C 45 4E 41 4D 45 |)...x.."FILENAME| 000000A0: 2C 20 46 49 4C 45 23 22 3B 46 24 2C 46 20 3A 20 |, FILE#";F$,F : | 000000B0: 46 49 24 B2 46 24 AA 22 2C 53 2C 52 22 00 FF 04 |FI$.F$.",S,R"...| 000000C0: 82 00 9F 32 2C 38 2C 32 2C 22 23 22 20 3A 20 9F |...2,8,2,"#" : .| 000000D0: 31 35 2C 38 2C 31 35 20 20 20 20 20 20 20 20 20 |15,8,15 | 000000E0: 20 3A 8F 20 4F 50 45 4E 20 44 49 52 45 43 54 20 | :. OPEN DIRECT | 000000F0: 41 4E 44 20 43 4D 44 20 43 48 41 4E 4E 45 4C 00 |AND CMD CHANNEL.| 00000100: 31 05 8C 00 9F 35 2C 38 2C 35 2C 28 46 49 24 29 |1....5,8,5,(FI$)| 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 3A 8F 20 4F 50 45 4E 20 41 4E | :. OPEN AN| 00000130: 44 00 66 05 96 00 99 20 44 53 24 20 3A 20 A0 35 |D.f.... DS$ : .5| 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 20 20 3A 8F 20 43 4C 4F 53 45 20 46 49 4C 45 | :. CLOSE FILE| 00000160: 20 27 46 49 24 27 00 84 05 A0 00 98 31 35 2C 20 | 'FI$'......15, | 00000170: 22 4D 2D 52 22 C7 28 31 34 32 AA 44 34 29 3B C7 |"M-R".(142.D4);.| 00000180: 28 36 37 29 00 B3 05 AA 00 A1 23 31 35 2C 20 41 |(67)......#15, A| 00000190: 24 20 3A 20 45 B2 C6 28 41 24 AA 5A 24 29 20 20 |$ : E..(A$.Z$) | 000001A0: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 45 52 52 | :. ERR| 000001B0: 4F 52 3F 00 DB 05 B4 00 8B 20 45 B2 32 35 35 20 |OR?...... E.255 | 000001C0: A7 20 99 22 12 4E 4F 54 20 46 4F 55 4E 44 22 20 |. .".NOT FOUND" | 000001D0: 3A 20 99 20 3A 20 89 20 34 35 30 00 F9 05 BE 00 |: . : . 450.....| 000001E0: 98 31 35 2C 20 22 4D 2D 52 22 C7 28 31 34 36 AA |.15, "M-R".(146.| 000001F0: 44 34 29 3B C7 28 36 37 29 00 2F 06 C8 00 A1 23 |D4);.(67)./....#| 00000200: 31 35 2C 20 41 24 20 3A 20 53 B2 C6 28 41 24 AA |15, A$ : S..(A$.| 00000210: 5A 24 29 20 20 20 20 20 20 20 20 20 20 20 20 3A |Z$) :| 00000220: 8F 20 53 45 43 54 4F 52 20 49 4E 20 44 49 52 00 |. SECTOR IN DIR.| 00000230: 4D 06 D2 00 98 31 35 2C 20 22 4D 2D 52 22 C7 28 |M....15, "M-R".(| 00000240: 31 34 39 AA 44 34 29 3B C7 28 36 37 29 00 82 06 |149.D4);.(67)...| 00000250: DC 00 A1 23 31 35 2C 20 41 24 20 3A 20 54 B2 C6 |...#15, A$ : T..| 00000260: 28 41 24 AA 5A 24 29 20 20 20 20 20 20 20 20 20 |(A$.Z$) | 00000270: 20 20 20 3A 8F 20 54 52 41 43 4B 20 49 4E 20 44 | :. TRACK IN D| 00000280: 49 52 00 A0 06 E6 00 98 31 35 2C 20 22 4D 2D 52 |IR......15, "M-R| 00000290: 22 C7 28 31 35 30 AA 44 34 29 3B C7 28 36 37 29 |".(150.D4);.(67)| 000002A0: 00 DB 06 F0 00 A1 23 31 35 2C 20 41 24 20 3A 20 |......#15, A$ : | 000002B0: 4F B2 C6 28 41 24 AA 5A 24 29 20 20 20 20 20 20 |O..(A$.Z$) | 000002C0: 20 20 20 20 20 20 3A 8F 20 4F 46 46 53 45 54 20 | :. OFFSET | 000002D0: 49 4E 54 4F 20 53 45 43 54 4F 52 00 F9 06 FA 00 |INTO SECTOR.....| 000002E0: 98 31 35 2C 20 22 4D 2D 52 22 C7 28 31 34 34 AA |.15, "M-R".(144.| 000002F0: 44 34 29 3B C7 28 36 37 29 00 2B 07 04 01 A1 23 |D4);.(67).+....#| 00000300: 31 35 2C 20 41 24 20 3A 20 44 B2 C6 28 41 24 AA |15, A$ : D..(A$.| 00000310: 5A 24 29 20 3A 20 44 28 46 29 B2 44 20 20 20 3A |Z$) : D(F).D :| 00000320: 8F 20 44 52 49 56 45 20 4E 55 4D 00 60 07 0E 01 |. DRIVE NUM.`...| 00000330: 8B 20 54 B2 30 20 A7 20 54 B2 33 39 20 20 20 20 |. T.0 . T.39 | 00000340: 3A 8F 20 54 3D 31 38 20 46 4F 52 20 34 30 34 30 |:. T=18 FOR 4040| 00000350: 2C 20 37 36 20 46 4F 52 20 39 30 36 30 2F 39 30 |, 76 FOR 9060/90| 00000360: 00 8A 07 18 01 99 22 45 4E 54 52 59 20 44 49 52 |......"ENTRY DIR| 00000370: 20 54 52 41 43 4B 20 26 20 53 45 43 54 4F 52 20 | TRACK & SECTOR | 00000380: 3D 22 3B 54 3B 22 2C 22 3B 53 00 AE 07 22 01 99 |=";T;",";S..."..| 00000390: 22 20 20 20 20 20 20 4F 46 46 53 45 54 20 49 4E |" OFFSET IN| 000003A0: 54 4F 20 53 45 43 54 4F 52 20 3D 22 3B 4F 00 D2 |TO SECTOR =";O..| 000003B0: 07 2C 01 99 22 20 20 20 20 20 20 20 20 20 20 20 |.,.." | 000003C0: 20 20 20 20 20 20 20 20 44 52 49 56 45 20 3D 22 | DRIVE ="| 000003D0: 3B 44 00 E9 07 36 01 98 31 35 2C 20 22 55 31 3A |;D...6..15, "U1:| 000003E0: 22 3B 32 3B 44 3B 54 3B 53 00 22 08 40 01 98 31 |";2;D;T;S.".@..1| 000003F0: 35 2C 20 22 42 2D 50 22 3B 32 3B 4F AA 31 20 20 |5, "B-P";2;O.1 | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.| 00000410: 20 50 4F 53 49 54 49 4F 4E 20 49 4E 54 4F 20 44 | POSITION INTO D| 00000420: 49 52 00 5A 08 4A 01 4E B2 30 20 20 20 20 20 20 |IR.Z.J.N.0 | 00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000440: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 41 | :. A| 00000450: 52 52 41 59 20 49 4E 44 45 58 00 8E 08 54 01 A1 |RRAY INDEX...T..| 00000460: 23 32 2C 20 41 24 20 20 20 20 20 20 20 20 20 20 |#2, A$ | 00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000480: 20 20 3A 8F 20 47 45 54 20 54 52 41 43 4B 00 9D | :. GET TRACK..| 00000490: 08 5E 01 54 B2 C6 28 41 24 AA 5A 24 29 00 D2 08 |.^.T..(A$.Z$)...| 000004A0: 68 01 A1 23 32 2C 20 41 24 20 20 20 20 20 20 20 |h..#2, A$ | 000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004C0: 20 20 20 20 20 3A 8F 20 47 45 54 20 53 45 43 54 | :. GET SECT| 000004D0: 4F 52 00 E1 08 72 01 53 B2 C6 28 41 24 AA 5A 24 |OR...r.S..(A$.Z$| 000004E0: 29 00 1C 09 7C 01 54 25 28 46 2C 20 4E 29 B2 54 |)...|.T%(F, N).T| 000004F0: 20 3A 20 53 25 28 46 2C 20 4E 29 B2 53 20 20 20 | : S%(F, N).S | 00000500: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 53 54 | :. ST| 00000510: 4F 52 45 20 49 4E 20 41 52 52 41 59 00 56 09 86 |ORE IN ARRAY.V..| 00000520: 01 8B 20 54 B2 30 20 A7 20 34 35 30 20 20 20 20 |.. T.0 . 450 | 00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000540: 20 20 3A 8F 20 54 52 41 43 4B 3D 30 3F 20 59 45 | :. TRACK=0? YE| 00000550: 53 2C 20 45 4E 44 00 75 09 90 01 99 22 53 45 43 |S, END.u...."SEC| 00000560: 2E 22 3B 4E 3B 22 4F 46 20 46 49 4C 45 20 41 54 |.";N;"OF FILE AT| 00000570: 22 3B 54 2C 53 00 7F 09 9A 01 4E B2 4E AA 31 00 |";T,S.....N.N.1.| 00000580: BB 09 A4 01 98 31 35 2C 20 22 55 31 3A 22 3B 32 |.....15, "U1:";2| 00000590: 3B 44 3B 54 3B 53 20 20 20 20 20 20 20 20 20 20 |;D;T;S | 000005A0: 20 20 20 20 3A 8F 20 52 45 41 44 20 53 55 42 53 | :. READ SUBS| 000005B0: 45 51 55 45 4E 54 20 42 4C 4B 53 00 F0 09 AE 01 |EQUENT BLKS.....| 000005C0: 98 31 35 2C 20 22 42 2D 50 3A 22 3B 32 3B 30 20 |.15, "B-P:";2;0 | 000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005E0: 3A 8F 20 50 4F 53 27 4E 20 54 4F 20 5A 45 52 4F |:. POS'N TO ZERO| 000005F0: 00 FA 09 B8 01 89 20 33 34 30 00 09 0A C2 01 A0 |...... 340......| 00000600: 20 32 20 3A 20 A0 20 31 35 00 00 00 | 2 : . 15... |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 01
PAGE 26.A.D.. D4040=4 : REM REMOVE REM
FOR USE WITH 4040...N.Z$.G(0) : . T%(20,
100), S%(20, 100), D(20)...X.."FILENAME
, FILE#";F$,F : FI$.F$.",S,R"......2,8,2
,"#" : .15,8,15 :. OPEN DIRECT
AND CMD CHANNEL.1....5,8,5,(FI$)
:. OPEN AND.F.... DS$ : 5
:. CLOSE FILE 'FI$'..
. ..15, "M-R"G(142.D4);G(67)......#15, A
$ : E.F(A$.Z$) :. ERROR?.....
. E.255 . .".NOT FOUND" : . : . 450.....
.15, "M-R"G(146.D4);G(67)./.H..#15, A$ :
S.F(A$.Z$) :. SECTOR IN DIR.
M.R..15, "M-R"G(149.D4);G(67)......#15,
A$ : T.F(A$.Z$) :. TRACK IN D
IR. ....15, "M-R"G(150.D4);G(67)......#1
5, A$ : O.F(A$.Z$) :. OFFSET
INTO SECTOR......15, "M-R"G(144.D4);G(67
).+....#15, A$ : D.F(A$.Z$) : D(F).D :
. DRIVE NUM.`.... T.0 . T.39 :. T=18
FOR 4040, 76 FOR 9060/90......"ENTRY DIR
TRACK & SECTOR =";T;",";S...".." O
FFSET INTO SECTOR =";O.R.,.."
DRIVE =";D...6..15, "U1:";2;D;T;
S.".@..15, "B-P";2;O.1 :.
POSITION INTO DIR.Z.J.N.0
:. ARRAY INDEX...T..
#2, A$ :. GET
TRACK...^.T.F(A$.Z$).R.H..#2, A$
:. GET SECTOR...R.S
.F(A$.Z$)...|.T%(F, N).T : S%(F, N).S
:. STORE IN ARRAY.V.... T.0 .
450 :. TRACK=0? YE
S, END.U...."SEC.";N;"OF FILE AT";T,S..
..N.N.1......15, "U1:";2;D;T;S
:. READ SUBSEQUENT BLKS......15, "B-
P:";2;0 :. POS'N TO ZERO
...... 340...B. 2 : 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL