DISPLAY GCR
FILE INFORMATION
FILENAME(S): DISPLAY GCR
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 2 disk(s)
FILE HASH
f7723ead6913e3d6384e87a70e36b2811b242dd030e1db971399f2027aa581bd
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| T S S II V1 01 | DISPLAY GCR | PRG | Radd Maxx | 14 | 4 | DOWNLOAD FILE |
| KOPIDISK 16 1 | DISPLAY GCR | PRG | Curtcool, Frank | 8 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 01 00 8B C2 28 31 37 31 35 32 29 B3 |..#.....(17152).| 00000010: B1 33 32 A7 93 22 47 43 52 2E 43 4F 44 45 22 2C |.32.."GCR.CODE",| 00000020: 38 2C 31 00 39 08 02 00 97 35 33 32 38 30 2C 30 |8,1.9....53280,0| 00000030: 3A 97 35 33 32 38 31 2C 30 00 5E 08 03 00 99 22 |:.53281,0.^...."| 00000040: 93 11 05 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00000050: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 82 |............."..| 00000060: 08 04 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." | 00000070: 20 20 DD 9A 44 49 53 50 4C 41 59 20 47 43 52 05 | ..DISPLAY GCR.| 00000080: DD 22 00 A4 08 05 00 99 22 20 20 20 20 20 20 20 |."......" | 00000090: 20 20 20 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..........| 000000A0: C0 C0 BD 22 00 CB 08 06 00 99 22 11 11 1D 1D 1D |..."......".....| 000000B0: 1D 1D 1D 1D 1D 1D 1D 43 52 45 41 54 45 44 20 42 |.......CREATED B| 000000C0: 59 20 4A 49 4D 20 44 52 45 57 22 00 F2 08 07 00 |Y JIM DREW".....| 000000D0: 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 4F |."............CO| 000000E0: 50 59 52 49 47 48 54 20 28 43 29 20 20 31 39 38 |PYRIGHT (C) 198| 000000F0: 35 22 00 1C 09 08 00 99 22 11 1D 1D 1D 1D 1D 1D |5"......".......| 00000100: 46 49 4E 41 4C 20 53 4F 55 52 43 45 20 53 4F 46 |FINAL SOURCE SOF| 00000110: 54 57 41 52 45 2C 20 4C 54 44 2E 22 00 4D 09 09 |TWARE, LTD.".M..| 00000120: 00 99 22 11 11 11 9F 49 4E 53 45 52 54 20 44 49 |.."....INSERT DI| 00000130: 53 4B 20 54 4F 20 42 45 20 45 58 41 4D 49 4E 45 |SK TO BE EXAMINE| 00000140: 44 20 49 4E 54 4F 20 44 52 49 56 45 22 00 70 09 |D INTO DRIVE".p.| 00000150: 0A 00 99 22 11 41 4E 44 20 50 52 45 53 53 20 05 |...".AND PRESS .| 00000160: 5B 52 45 54 55 52 4E 5D 22 3A 97 31 39 38 2C 30 |[RETURN]":.198,0| 00000170: 00 86 09 0B 00 A1 41 24 3A 8B 41 24 B3 B1 C7 28 |......A$:.A$...(| 00000180: 31 33 29 A7 31 31 00 9B 09 0C 00 A0 31 35 3A 9F |13).11......15:.| 00000190: 31 35 2C 38 2C 31 35 2C 22 49 22 00 CF 09 0D 00 |15,8,15,"I".....| 000001A0: 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 33 |.15,"M-R".(0).(3| 000001B0: 29 3A A1 23 31 35 2C 41 24 3A 41 B2 C6 28 41 24 |):.#15,A$:A..(A$| 000001C0: AA C7 28 30 29 29 3A 8B 41 B2 33 32 A7 31 35 00 |..(0)):.A.32.15.| 000001D0: 00 0A 0E 00 81 58 B2 30 A4 35 37 3A 98 31 35 2C |.....X.0.57:.15,| 000001E0: 22 4D 2D 57 22 C7 28 58 29 C7 28 33 29 C7 28 31 |"M-W".(X).(3).(1| 000001F0: 29 C7 28 C2 28 31 37 31 35 32 AA 58 29 29 3A 82 |).(.(17152.X)):.| 00000200: 00 29 0A 0F 00 99 22 11 11 9F 45 4E 54 45 52 20 |.)...."...ENTER | 00000210: 54 52 41 43 4B 20 23 05 3A 22 3B 3A 9F 31 2C 30 |TRACK #.:";:.1,0| 00000220: 3A 84 31 2C 54 24 3A A0 31 00 5E 0A 10 00 99 22 |:.1,T$:.1.^...."| 00000230: 20 20 20 9F 45 4E 54 45 52 20 53 45 43 54 4F 52 | .ENTER SECTOR| 00000240: 20 23 05 3A 22 3B 3A 9F 31 2C 30 3A 84 31 2C 53 | #.:";:.1,0:.1,S| 00000250: 24 3A A0 31 3A 99 3A 54 B2 C5 28 54 24 29 00 6A |$:.1:.:T..(T$).j| 00000260: 0A 11 00 53 B2 C5 28 53 24 29 00 8C 0A 12 00 98 |...S..(S$)......| 00000270: 31 35 2C 22 4D 2D 57 22 C7 28 36 29 C7 28 30 29 |15,"M-W".(6).(0)| 00000280: C7 28 32 29 C7 28 54 29 C7 28 53 29 00 AC 0A 13 |.(2).(T).(S)....| 00000290: 00 98 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 |..15,"M-W".(0).(| 000002A0: 30 29 C7 28 31 29 C7 28 31 37 36 29 00 E1 0A 14 |0).(1).(176)....| 000002B0: 00 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 |..15,"M-R".(0).(| 000002C0: 30 29 3A A1 23 31 35 2C 41 24 3A 41 B2 C6 28 41 |0):.#15,A$:A..(A| 000002D0: 24 AA C7 28 30 29 29 3A 8B 41 B1 31 32 37 A7 32 |$..(0)):.A.127.2| 000002E0: 30 00 03 0B 15 00 98 31 35 2C 22 4D 2D 57 22 C7 |0......15,"M-W".| 000002F0: 28 36 29 C7 28 30 29 C7 28 32 29 C7 28 54 29 C7 |(6).(0).(2).(T).| 00000300: 28 53 29 00 23 0B 16 00 98 31 35 2C 22 4D 2D 57 |(S).#....15,"M-W| 00000310: 22 C7 28 30 29 C7 28 30 29 C7 28 31 29 C7 28 32 |".(0).(0).(1).(2| 00000320: 32 34 29 00 58 0B 17 00 98 31 35 2C 22 4D 2D 52 |24).X....15,"M-R| 00000330: 22 C7 28 30 29 C7 28 30 29 3A A1 23 31 35 2C 41 |".(0).(0):.#15,A| 00000340: 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 3A 8B |$:A..(A$..(0)):.| 00000350: 41 B1 31 32 37 A7 32 33 00 9A 0B 18 00 99 22 11 |A.127.23......".| 00000360: 9F 4F 55 54 50 55 54 20 54 4F 20 53 43 52 45 45 |.OUTPUT TO SCREE| 00000370: 4E 20 4F 52 20 50 52 49 4E 54 45 52 20 28 05 53 |N OR PRINTER (.S| 00000380: 20 9F 4F 52 20 05 50 9F 29 05 3A 53 9D 22 3B 3A | .OR .P.).:S.";:| 00000390: 9F 31 2C 30 3A 84 31 2C 51 24 00 B4 0B 19 00 A0 |.1,0:.1,Q$......| 000003A0: 31 3A 99 3A 8B 51 24 B2 22 53 22 A7 9F 34 2C 33 |1:.:.Q$."S"..4,3| 000003B0: 3A 89 32 37 00 BD 0B 1A 00 9F 34 2C 34 00 ED 0B |:.27......4,4...| 000003C0: 1B 00 98 34 2C 22 93 05 20 20 20 20 20 20 20 20 |...4,".. | 000003D0: 20 20 20 20 20 20 20 48 45 41 44 45 52 11 9F 22 | HEADER.."| 000003E0: 3A 98 34 2C 22 20 20 20 20 20 20 22 3B 00 23 0C |:.4," ";.#.| 000003F0: 1C 00 81 58 B2 30 A4 37 3A 98 31 35 2C 22 4D 2D |...X.0.7:.15,"M-| 00000400: 52 22 C7 28 58 29 C7 28 34 29 3A A1 23 31 35 2C |R".(X).(4):.#15,| 00000410: 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 3A |A$:A..(A$..(0)):| 00000420: 8D 35 39 00 29 0C 1D 00 82 00 5D 0C 1E 00 98 34 |.59.).....]....4| 00000430: 3A 98 34 2C 22 11 05 20 20 20 20 20 20 20 20 20 |:.4,".. | 00000440: 20 20 20 48 45 41 44 45 52 20 47 41 50 11 9F 22 | HEADER GAP.."| 00000450: 3A 98 34 2C 22 20 20 20 20 20 20 22 3B 00 90 0C |:.4," ";...| 00000460: 1F 00 81 58 B2 38 A4 31 38 3A 98 31 35 2C 22 4D |...X.8.18:.15,"M| 00000470: 2D 52 22 C7 28 58 29 C7 28 34 29 3A A1 23 31 35 |-R".(X).(4):.#15| 00000480: 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 |,A$:A..(A$..(0))| 00000490: 00 98 0C 20 00 8D 35 39 00 BB 0C 21 00 43 B2 43 |... ..59...!.C.C| 000004A0: AA 31 3A 8B 43 B2 38 A7 98 34 3A 98 34 2C 22 20 |.1:.C.8..4:.4," | 000004B0: 20 20 20 20 20 22 3B 3A 43 B2 30 00 C1 0C 22 00 | ";:C.0...".| 000004C0: 82 00 FD 0C 23 00 98 34 3A 98 34 2C 22 11 05 20 |....#..4:.4,".. | 000004D0: 20 20 20 20 53 59 4E 43 20 42 59 54 45 20 26 20 | SYNC BYTE & | 000004E0: 44 41 54 41 20 42 4C 4F 43 4B 20 49 44 11 9F 22 |DATA BLOCK ID.."| 000004F0: 3A 98 34 2C 22 20 20 20 20 20 20 22 3B 00 31 0D |:.4," ";.1.| 00000500: 24 00 81 58 B2 31 39 A4 32 30 3A 98 31 35 2C 22 |$..X.19.20:.15,"| 00000510: 4D 2D 52 22 C7 28 58 29 C7 28 34 29 3A A1 23 31 |M-R".(X).(4):.#1| 00000520: 35 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 |5,A$:A..(A$..(0)| 00000530: 29 00 39 0D 25 00 8D 35 39 00 3F 0D 26 00 82 00 |).9.%..59.?.&...| 00000540: 79 0D 27 00 98 34 3A 98 34 2C 22 11 05 20 20 20 |y.'..4:.4,".. | 00000550: 20 20 20 20 20 20 20 20 20 20 44 41 54 41 20 42 | DATA B| 00000560: 4C 4F 43 4B 20 11 9F 22 3A 98 34 2C 22 20 20 20 |LOCK ..":.4," | 00000570: 20 20 20 22 3B 3A 43 B2 30 00 AE 0D 28 00 81 58 | ";:C.0...(..X| 00000580: B2 32 31 A4 32 35 35 3A 98 31 35 2C 22 4D 2D 52 |.21.255:.15,"M-R| 00000590: 22 C7 28 58 29 C7 28 34 29 3A A1 23 31 35 2C 41 |".(X).(4):.#15,A| 000005A0: 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 00 B6 |$:A..(A$..(0))..| 000005B0: 0D 29 00 8D 35 39 00 D9 0D 2A 00 43 B2 43 AA 31 |.)..59...*.C.C.1| 000005C0: 3A 8B 43 B2 38 A7 98 34 3A 98 34 2C 22 20 20 20 |:.C.8..4:.4," | 000005D0: 20 20 20 22 3B 3A 43 B2 30 00 DF 0D 2B 00 82 00 | ";:C.0...+...| 000005E0: 12 0E 2C 00 81 58 B2 30 A4 38 38 3A 98 31 35 2C |..,..X.0.88:.15,| 000005F0: 22 4D 2D 52 22 C7 28 58 29 C7 28 35 29 3A A1 23 |"M-R".(X).(5):.#| 00000600: 31 35 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 |15,A$:A..(A$..(0| 00000610: 29 29 00 1A 0E 2D 00 8D 35 39 00 3D 0E 2E 00 43 |))...-..59.=...C| 00000620: B2 43 AA 31 3A 8B 43 B2 38 A7 98 34 3A 98 34 2C |.C.1:.C.8..4:.4,| 00000630: 22 20 20 20 20 20 20 22 3B 3A 43 B2 30 00 43 0E |" ";:C.0.C.| 00000640: 2F 00 82 00 7D 0E 30 00 98 34 3A 98 34 2C 22 11 |/...}.0..4:.4,".| 00000650: 05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000660: 44 41 54 41 20 47 41 50 20 11 9F 22 3A 98 34 2C |DATA GAP ..":.4,| 00000670: 22 20 20 20 20 20 20 22 3B 3A 43 B2 30 00 B2 0E |" ";:C.0...| 00000680: 31 00 81 58 B2 38 39 A4 31 31 35 3A 98 31 35 2C |1..X.89.115:.15,| 00000690: 22 4D 2D 52 22 C7 28 58 29 C7 28 35 29 3A A1 23 |"M-R".(X).(5):.#| 000006A0: 31 35 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 |15,A$:A..(A$..(0| 000006B0: 29 29 00 BA 0E 32 00 8D 35 39 00 DD 0E 33 00 43 |))...2..59...3.C| 000006C0: B2 43 AA 31 3A 8B 43 B2 38 A7 98 34 3A 98 34 2C |.C.1:.C.8..4:.4,| 000006D0: 22 20 20 20 20 20 20 22 3B 3A 43 B2 30 00 E3 0E |" ";:C.0...| 000006E0: 34 00 82 00 1D 0F 35 00 98 34 3A 98 34 2C 22 11 |4.....5..4:.4,".| 000006F0: 05 20 20 20 20 20 20 20 20 20 20 20 55 4E 55 53 |. UNUS| 00000700: 45 44 20 46 4F 52 4D 41 54 11 9F 22 3A 98 34 2C |ED FORMAT..":.4,| 00000710: 22 20 20 20 20 20 20 22 3B 3A 43 B2 30 00 53 0F |" ";:C.0.S.| 00000720: 36 00 81 58 B2 31 31 36 A4 32 35 35 3A 98 31 35 |6..X.116.255:.15| 00000730: 2C 22 4D 2D 52 22 C7 28 58 29 C7 28 35 29 3A A1 |,"M-R".(X).(5):.| 00000740: 23 31 35 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 |#15,A$:A..(A$..(| 00000750: 30 29 29 00 5B 0F 37 00 8D 35 39 00 7E 0F 38 00 |0)).[.7..59.~.8.| 00000760: 43 B2 43 AA 31 3A 8B 43 B2 38 A7 98 34 3A 98 34 |C.C.1:.C.8..4:.4| 00000770: 2C 22 20 20 20 20 20 20 22 3B 3A 43 B2 30 00 84 |," ";:C.0..| 00000780: 0F 39 00 82 00 8A 0F 3A 00 80 00 A4 0F 3B 00 48 |.9.....:.....;.H| 00000790: 24 B2 22 30 31 32 33 34 35 36 37 38 39 41 42 43 |$."0123456789ABC| 000007A0: 44 45 46 22 00 C1 0F 3C 00 44 B2 41 3A 48 B2 B5 |DEF"...<.D.A:H..| 000007B0: 28 44 AD 31 36 29 3A 4C B2 44 AB 28 48 AC 31 36 |(D.16):L.D.(H.16| 000007C0: 29 00 E1 0F 3D 00 48 44 24 B2 CA 28 48 24 2C 48 |)...=.HD$..(H$,H| 000007D0: AA 31 2C 31 29 AA CA 28 48 24 2C 4C AA 31 2C 31 |.1,1)..(H$,L.1,1| 000007E0: 29 00 F3 0F 3E 00 98 34 2C 48 44 24 3B 22 20 22 |)...>..4,HD$;" "| 000007F0: 3B 3A 8E 00 00 00 |;:.... |
..#....B(17152)..32.."GCR.CODE",8,1.9...
.53280,0:.53281,0.^...."...
............."......" ..DISP
LAY GCR.."......" ..........
...".K...."............CREATED BY JIM DR
EW"......"............COPYRIGHT (C) 198
5"......".......FINAL SOURCE SOFTWARE, L
TD.".M...."....INSERT DISK TO BE EXAMINE
D INTO DRIVE".P....".AND PRESS .[RETURN]
":.198,0......A$:.A$..G(13).11..... 15:.
15,8,15,"I".O....15,"M-R"G(0)G(3):.#15,A
$:A.F(A$.G(0)):.A.32.15......X.0.57:.15,
"M-W"G(X)G(3)G(1)G(B(17152.X)):..)....".
..ENTER TRACK #.:";:.1,0:.1,T$: 1.^...."
.ENTER SECTOR #.:";:.1,0:.1,S$: 1:.:T
.E(T$).J...S.E(S$)......15,"M-W"G(6)G(0)
G(2)G(T)G(S)......15,"M-W"G(0)G(0)G(1)G(
176)......15,"M-R"G(0)G(0):.#15,A$:A.F(A
$.G(0)):.A.127.20......15,"M-W"G(6)G(0)G
(2)G(T)G(S).#....15,"M-W"G(0)G(0)G(1)G(2
24).X....15,"M-R"G(0)G(0):.#15,A$:A.F(A$
.G(0)):.A.127.23......"..OUTPUT TO SCREE
N OR PRINTER (.S .OR .P.).:S.";:.1,0:.1,
Q$..... 1:.:.Q$."S"..4,3:.27......4,4...
...4,".. HEADER..":.4,"
";.#....X.0.7:.15,"M-R"G(X)G(4):.#15,
A$:A.F(A$.G(0)):.59.).....]....4:.4,"..
HEADER GAP..":.4," ";...
...X.8.18:.15,"M-R"G(X)G(4):.#15,A$:A.F(
A$.G(0))... ..59...!.C.C.1:.C.8..4:.4,"
";:C.0.A.".....#..4:.4,".. SYNC
BYTE & DATA BLOCK ID..":.4," ";.1.
$..X.19.20:.15,"M-R"G(X)G(4):.#15,A$:A.F
(A$.G(0)).9.%..59.?.&...Y.'..4:.4,"..
DATA BLOCK ..":.4," ";:C.
0...(..X.21.255:.15,"M-R"G(X)G(4):.#15,A
$:A.F(A$.G(0))...)..59.Y.*.C.C.1:.C.8..4
:.4," ";:C.0...+.....,..X.0.88:.15,
"M-R"G(X)G(5):.#15,A$:A.F(A$.G(0))...-..
59.=...C.C.1:.C.8..4:.4," ";:C.0.C.
/...}.0..4:.4,".. DATA GAP
..":.4," ";:C.0...1..X.89.115:.15,
"M-R"G(X)G(5):.#15,A$:A.F(A$.G(0))...2..
59...3.C.C.1:.C.8..4:.4," ";:C.0...
4.....5..4:.4,".. UNUSED FORMA
T..":.4," ";:C.0.S.6..X.116.255:.15
,"M-R"G(X)G(5):.#15,A$:A.F(A$.G(0)).[.7.
.59.~.8.C.C.1:.C.8..4:.4," ";:C.0..
.9.....:.....;.H$."0123456789ABCDEF".A.<
.D.A:H..(D.16):L.D.(H.16)...=.HD$.J(H$,H
.1,1).J(H$,L.1,1)...>..4,HD$;" ";:....
> CLICK IMAGE PREVIEW FOR FULL MODAL