DISPLAY T&S
FILE INFORMATION
FILENAME(S): DISPLAY T&S
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-01 01:09:50
APPEARS ON: 1 disk(s)
FILE HASH
33144800b3f8f3fd281e3cd62d40ac67e1c0560ff5480399085b0b5110eef6ea
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HELP PRG | DISPLAY T&S | PRG | hedning, Martin L0fgren | 19 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%.d..*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 00 49 08 6E 00 8F 2A 20 44 49 53 |*****.I.n..* DIS| 00000030: 50 4C 41 59 20 41 4E 59 20 54 52 41 43 4B 20 24 |PLAY ANY TRACK $| 00000040: 20 53 45 43 54 4F 52 20 2A 00 6D 08 78 00 8F 2A | SECTOR *.m.x..*| 00000050: 20 4F 4E 20 54 48 45 20 44 49 53 4B 20 54 4F 20 | ON THE DISK TO | 00000060: 54 48 45 20 53 43 52 45 45 4E 20 20 2A 00 91 08 |THE SCREEN *...| 00000070: 82 00 8F 2A 20 4F 52 20 54 48 45 20 50 52 49 4E |...* OR THE PRIN| 00000080: 54 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 |TER | 00000090: 2A 00 B5 08 8C 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 00 DE 08 96 00 99 22 93 11 11 1D |*****......"....| 000000C0: 1D 1D 1D 1D 1D 1D 1D D2 D2 D2 D2 D2 D2 D2 D2 D2 |................| 000000D0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 22 00 04 |............."..| 000000E0: 09 A0 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 44 49 53 |...."........DIS| 000000F0: 50 4C 41 59 20 42 4C 4F 43 4B 20 43 4F 4E 54 45 |PLAY BLOCK CONTE| 00000100: 4E 54 53 22 00 2A 09 A5 00 99 22 1D 1D 1D 1D 1D |NTS".*....".....| 00000110: 1D 1D 1D C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................| 00000120: C5 C5 C5 C5 C5 C5 C5 C5 C5 22 00 4E 09 AA 00 8F |.........".N....| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 |**************.r| 00000150: 09 B4 00 8F 2A 53 45 54 20 50 52 4F 47 52 41 4D |....*SET PROGRAM| 00000160: 20 43 4F 4E 53 54 41 4E 54 20 20 20 20 20 20 20 | CONSTANT | 00000170: 20 2A 00 96 09 BE 00 8F 2A 2A 2A 2A 2A 2A 2A 2A | *......********| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 2A 2A 2A 2A 2A 00 C2 09 C8 00 53 50 24 B2 22 |******.....SP$."| 000001A0: 20 22 3A 4E 4C 24 B2 C7 28 30 29 3A 48 58 24 B2 | ":NL$..(0):HX$.| 000001B0: 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 |"0123456789ABCDE| 000001C0: 46 22 00 F1 09 D2 00 46 53 24 B2 22 22 3A 81 49 |F".....FS$."":.I| 000001D0: B2 36 34 20 A4 20 39 35 3A 46 53 24 B2 46 53 24 |.64 . 95:FS$.FS$| 000001E0: AA 22 12 22 AA C7 28 49 29 AA 22 92 22 3A 82 20 |."."..(I).".":. | 000001F0: 49 00 25 0A DC 00 53 53 24 B2 22 20 20 22 3A 81 |I.%...SS$." ":.| 00000200: 20 49 B2 31 39 32 20 A4 20 32 32 33 3A 53 53 24 | I.192 . 223:SS$| 00000210: B2 53 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 |.SS$."."..(I).".| 00000220: 22 3A 82 20 49 00 38 0A F0 00 86 20 41 24 28 31 |":. I.8.... A$(1| 00000230: 35 29 2C 4E 42 28 32 29 00 43 0A FB 00 44 24 B2 |5),NB(2).C...D$.| 00000240: 22 30 22 00 79 0A FD 00 99 22 20 20 20 20 20 20 |"0".y...." | 00000250: 20 20 20 20 20 20 20 20 20 12 53 92 43 52 45 45 | .S.CREE| 00000260: 4E 11 9D 9D 9D 9D 4F 52 20 11 9D 9D 9D 9D 9D 12 |N.....OR .......| 00000270: 50 92 52 49 4E 54 45 52 22 00 90 0A FE 00 A1 4A |P.RINTER"......J| 00000280: 4A 24 3A 8B 20 4A 4A 24 B2 22 22 20 A7 32 35 34 |J$:. JJ$."" .254| 00000290: 00 B3 0A FF 00 8B 20 4A 4A 24 B2 22 53 22 A7 99 |...... JJ$."S"..| 000002A0: 22 20 20 20 20 20 20 20 20 11 12 53 43 52 45 45 |" ..SCREE| 000002B0: 4E 92 22 00 D7 0A 00 01 8B 20 4A 4A 24 B2 22 50 |N."...... JJ$."P| 000002C0: 22 A7 99 22 20 20 20 20 20 20 20 20 11 12 50 52 |".." ..PR| 000002D0: 49 4E 54 45 52 92 22 00 F1 0A 04 01 9F 31 35 2C |INTER."......15,| 000002E0: 38 2C 31 35 2C 22 49 22 AA 44 24 3A 8D 20 36 35 |8,15,"I".D$:. 65| 000002F0: 30 00 FA 0A 09 01 9F 34 2C 34 00 10 0B 0E 01 9F |0......4,4......| 00000300: 20 32 2C 38 2C 32 2C 22 23 22 3A 8D 20 36 35 30 | 2,8,2,"#":. 650| 00000310: 00 34 0B 18 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.4....**********| 00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000330: 2A 2A 2A 2A 00 58 0B 22 01 8F 2A 20 4C 4F 41 44 |****.X."..* LOAD| 00000340: 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F | TRACK AND SECTO| 00000350: 52 20 20 20 20 20 20 2A 00 7C 0B 2C 01 8F 2A 20 |R *.|.,..* | 00000360: 49 4E 54 4F 20 44 49 53 4B 20 42 55 46 46 45 52 |INTO DISK BUFFER| 00000370: 20 20 20 20 20 20 20 20 20 20 20 2A 00 A0 0B 36 | *...6| 00000380: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003A0: 00 BC 0B 40 01 85 22 11 1D 1D 54 52 41 43 4B 2C |...@.."...TRACK,| 000003B0: 20 53 45 43 54 4F 52 22 3B 54 2C 53 00 EC 0B 4A | SECTOR";T,S...J| 000003C0: 01 8B 20 54 B2 30 20 B0 20 54 B1 33 35 20 A7 20 |.. T.0 . T.35 . | 000003D0: 98 31 35 2C 22 49 22 44 24 3A A0 32 3A A0 34 3A |.15,"I"D$:.2:.4:| 000003E0: A0 31 35 3A 99 22 45 4E 44 22 3A 80 00 16 0C 54 |.15:."END":....T| 000003F0: 01 8B 20 4A 4A 24 B2 22 53 22 20 A7 20 99 22 11 |.. JJ$."S" . .".| 00000400: 1D 1D 54 52 41 43 4B 22 54 22 20 53 45 43 54 4F |..TRACK"T" SECTO| 00000410: 52 22 53 22 11 22 00 42 0C 55 01 8B 20 4A 4A 24 |R"S".".B.U.. JJ$| 00000420: B2 22 50 22 20 A7 20 98 34 3A 98 34 2C 22 54 52 |."P" . .4:.4,"TR| 00000430: 41 43 4B 22 54 22 20 53 45 43 54 4F 52 22 53 3A |ACK"T" SECTOR"S:| 00000440: 98 34 00 5D 0C 5E 01 98 31 35 2C 22 55 31 3A 32 |.4.].^..15,"U1:2| 00000450: 2C 22 44 24 3B 54 3B 53 3A 8D 36 35 30 00 81 0C |,"D$;T;S:.650...| 00000460: 68 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |h..*************| 00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000480: 2A 00 A5 0C 72 01 8F 2A 20 52 45 41 44 20 42 59 |*...r..* READ BY| 00000490: 54 45 20 30 20 4F 46 20 44 49 53 4B 20 42 55 46 |TE 0 OF DISK BUF| 000004A0: 46 45 52 20 2A 00 C9 0C 86 01 8F 2A 2A 2A 2A 2A |FER *......*****| 000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DB 0C 90 01 98 31 |*********......1| 000004D0: 35 2C 22 42 2D 50 3A 32 2C 31 22 00 F1 0C 9A 01 |5,"B-P:2,1".....| 000004E0: 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 35 |.15,"M-R".(0).(5| 000004F0: 29 00 14 0D A4 01 A1 23 31 35 2C 41 24 28 30 29 |)......#15,A$(0)| 00000500: 3A 8B 41 24 28 30 29 B2 22 22 A7 41 24 28 30 29 |:.A$(0)."".A$(0)| 00000510: B2 4E 4C 24 00 26 0D AC 01 8B 20 4A 4A 24 B2 22 |.NL$.&.... JJ$."| 00000520: 53 22 A7 34 33 30 00 38 0D AE 01 8B 20 4A 4A 24 |S".430.8.... JJ$| 00000530: B2 22 50 22 A7 34 36 30 00 5C 0D AF 01 8F 2A 2A |."P".460.\....**| 00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 80 0D B0 |************....| 00000560: 01 8F 2A 20 52 45 41 44 20 26 20 43 52 54 20 44 |..* READ & CRT D| 00000570: 49 53 50 4C 41 59 20 20 20 20 20 20 20 20 20 2A |ISPLAY *| 00000580: 00 A4 0D B1 01 8F 2A 20 52 45 53 54 20 4F 46 20 |......* REST OF | 00000590: 54 48 45 20 44 49 53 4B 20 42 55 46 46 45 52 20 |THE DISK BUFFER | 000005A0: 20 20 20 2A 00 C8 0D B2 01 8F 2A 2A 2A 2A 2A 2A | *......******| 000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 0D B4 01 4B B2 31 |********.....K.1| 000005D0: 3A 4E 42 28 31 29 B2 C6 28 41 24 28 30 29 29 00 |:NB(1)..(A$(0)).| 000005E0: 12 0E B6 01 81 20 4A B2 30 20 A4 20 36 33 3A 8B |..... J.0 . 63:.| 000005F0: 20 4A B2 33 32 20 A7 20 8D 20 37 31 30 3A 8B 20 | J.32 . . 710:. | 00000600: 5A 24 B2 22 4E 22 A7 20 4A B2 38 30 3A 89 20 34 |Z$."N". J.80:. 4| 00000610: 35 38 00 20 0E B8 01 81 20 49 B2 4B 20 A4 20 33 |58. .... I.K . 3| 00000620: 00 45 0E BA 01 A1 23 32 2C 41 24 28 49 29 3A 8B |.E....#2,A$(I):.| 00000630: 20 41 24 28 49 29 B2 22 22 20 A7 20 41 24 28 49 | A$(I)."" . A$(I| 00000640: 29 B2 4E 4C 24 00 66 0E BC 01 8B 20 4B B2 31 20 |).NL$.f.... K.1 | 00000650: AF 20 49 B3 32 20 A7 20 4E 42 28 32 29 B2 C6 28 |. I.2 . NB(2)..(| 00000660: 41 24 28 49 29 29 00 72 0E BE 01 82 20 49 3A 4B |A$(I)).r.... I:K| 00000670: B2 30 00 99 0E C0 01 41 24 B2 22 22 3A 42 24 B2 |.0.....A$."":B$.| 00000680: 22 3A 22 3A 4E B2 4A AC 34 3A 8D 20 37 39 30 3A |":":N.J.4:. 790:| 00000690: 41 24 B2 41 24 AA 22 3A 22 00 B8 0E C2 01 81 20 |A$.A$.":"...... | 000006A0: 49 B2 30 20 A4 20 33 3A 4E B2 C6 28 41 24 28 49 |I.0 . 3:N..(A$(I| 000006B0: 29 29 3A 8D 20 37 39 30 00 D4 0E C4 01 43 24 B2 |)):. 790.....C$.| 000006C0: 41 24 28 49 29 3A 8D 20 38 35 30 3A 42 24 B2 42 |A$(I):. 850:B$.B| 000006D0: 24 AA 43 24 00 EE 0E C6 01 82 20 49 3A 8B 20 4A |$.C$...... I:. J| 000006E0: 4A 24 B2 22 53 22 20 A7 20 99 41 24 42 24 00 FB |J$."S" . .A$B$..| 000006F0: 0E CA 01 82 20 4A 3A 89 35 37 31 00 1F 0F CC 01 |.... J:.571.....| 00000700: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000720: 43 0F CE 01 8F 2A 20 52 45 41 44 20 26 20 50 52 |C....* READ & PR| 00000730: 49 4E 54 45 52 20 44 49 53 50 4C 41 59 20 20 20 |INTER DISPLAY | 00000740: 20 20 2A 00 67 0F D0 01 8F 2A 2A 2A 2A 2A 2A 2A | *.g....*******| 00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000760: 2A 2A 2A 2A 2A 2A 2A 00 7E 0F D2 01 4B B2 31 3A |*******.~...K.1:| 00000770: 4E 42 28 31 29 B2 C6 28 41 24 28 30 29 29 00 8D |NB(1)..(A$(0))..| 00000780: 0F D4 01 81 20 4A B2 30 20 A4 20 31 35 00 9C 0F |.... J.0 . 15...| 00000790: D6 01 81 20 49 B2 4B 20 A4 20 31 35 00 C1 0F D8 |... I.K . 15....| 000007A0: 01 A1 23 32 2C 41 24 28 49 29 3A 8B 20 41 24 28 |..#2,A$(I):. A$(| 000007B0: 49 29 B2 22 22 20 A7 20 41 24 28 49 29 B2 4E 4C |I)."" . A$(I).NL| 000007C0: 24 00 E2 0F DA 01 8B 20 4B B2 31 20 AF 20 49 B3 |$...... K.1 . I.| 000007D0: 32 20 A7 20 4E 42 28 32 29 B2 C6 28 41 24 28 49 |2 . NB(2)..(A$(I| 000007E0: 29 29 00 EE 0F DC 01 82 20 49 3A 4B B2 30 00 10 |))...... I:K.0..| 000007F0: 10 DE 01 41 24 B2 22 3A 22 3A 4E B2 4A AC 31 36 |...A$.":":N.J.16| 00000800: 3A 8D 20 37 39 30 3A 41 24 B2 41 24 AA 22 3A 22 |:. 790:A$.A$.":"| 00000810: 00 45 10 E0 01 81 20 49 B2 30 20 A4 20 31 35 3A |.E.... I.0 . 15:| 00000820: 4E B2 C6 28 41 24 28 49 29 29 3A 8D 20 37 39 30 |N..(A$(I)):. 790| 00000830: 3A 8B 20 5A 24 B2 22 4E 22 A7 20 4A B2 34 30 3A |:. Z$."N". J.40:| 00000840: 89 20 35 37 31 00 61 10 E2 01 43 24 B2 41 24 28 |. 571.a...C$.A$(| 00000850: 49 29 3A 8D 20 38 35 30 3A 42 24 B2 42 24 AA 43 |I):. 850:B$.B$.C| 00000860: 24 00 69 10 E4 01 82 20 49 00 81 10 E6 01 8B 20 |$.i.... I...... | 00000870: 4A 4A 24 B2 22 50 22 20 A7 20 98 34 2C 41 24 42 |JJ$."P" . .4,A$B| 00000880: 24 00 8E 10 E8 01 82 20 4A 3A 89 35 37 31 00 B2 |$...... J:.571..| 00000890: 10 3B 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;..************| 000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008B0: 2A 2A 00 D6 10 3C 02 8F 2A 20 4E 45 58 54 20 54 |**...<..* NEXT T| 000008C0: 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 |RACK AND SECTOR | 000008D0: 20 20 20 20 20 2A 00 FA 10 3D 02 8F 2A 2A 2A 2A | *...=..****| 000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 25 11 3F 02 99 |**********.%.?..| 00000900: 22 4E 45 58 54 20 54 52 41 43 4B 20 41 4E 44 20 |"NEXT TRACK AND | 00000910: 53 45 43 54 4F 52 22 4E 42 28 31 29 4E 42 28 32 |SECTOR"NB(1)NB(2| 00000920: 29 20 22 11 22 00 4E 11 44 02 99 22 44 4F 20 59 |) ".".N.D.."DO Y| 00000930: 4F 55 20 57 41 4E 54 20 4E 45 58 54 20 54 52 41 |OU WANT NEXT TRA| 00000940: 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 22 00 64 |CK AND SECTOR".d| 00000950: 11 4E 02 A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 20 |.N.. Z$:. Z$."" | 00000960: A7 35 39 30 00 88 11 58 02 8B 20 5A 24 B2 22 59 |.590...X.. Z$."Y| 00000970: 22 20 A7 20 54 B2 4E 42 28 31 29 3A 53 B2 4E 42 |" . T.NB(1):S.NB| 00000980: 28 32 29 3A 89 33 33 30 00 9B 11 62 02 8B 20 5A |(2):.330...b.. Z| 00000990: 24 B2 22 4E 22 20 A7 20 33 32 30 00 A5 11 6C 02 |$."N" . 320...l.| 000009A0: 89 20 35 39 30 00 C9 11 76 02 8F 2A 2A 2A 2A 2A |. 590...v..*****| 000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 11 80 02 8F 2A |*********......*| 000009D0: 20 53 55 42 52 4F 55 54 49 4E 45 53 20 20 20 20 | SUBROUTINES | 000009E0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 11 12 | *...| 000009F0: 8A 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A10: 2A 00 35 12 94 02 8F 2A 20 45 52 52 4F 52 20 52 |*.5....* ERROR R| 00000A20: 4F 55 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 |OUTINE | 00000A30: 20 20 20 20 2A 00 59 12 9E 02 8F 2A 2A 2A 2A 2A | *.Y....*****| 00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 79 12 A8 02 84 31 |*********.y....1| 00000A60: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.| 00000A70: 20 45 4E B2 30 20 A7 20 8E 00 99 12 B2 02 99 22 | EN.0 . ......."| 00000A80: 12 44 49 53 4B 20 45 52 52 4F 52 92 22 45 4E 2C |.DISK ERROR."EN,| 00000A90: 45 4D 24 2C 45 54 2C 45 53 00 9F 12 BC 02 80 00 |EM$,ET,ES.......| 00000AA0: C3 12 C6 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********| 00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AC0: 2A 2A 2A 00 E7 12 D0 02 8F 2A 20 53 43 52 45 45 |***......* SCREE| 00000AD0: 4E 20 43 4F 4E 54 49 4E 55 45 20 4D 45 53 53 41 |N CONTINUE MESSA| 00000AE0: 47 45 20 20 20 20 2A 00 0B 13 DA 02 8F 2A 2A 2A |GE *......***| 00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 25 13 E4 02 |***********.%...| 00000B10: 99 22 11 1D 1D 1D 1D 43 4F 4E 54 49 4E 55 45 28 |.".....CONTINUE(| 00000B20: 59 2F 4E 29 22 00 3B 13 EE 02 A1 5A 24 3A 8B 20 |Y/N)".;....Z$:. | 00000B30: 5A 24 B2 22 22 20 A7 20 37 35 30 00 4C 13 F8 02 |Z$."" . 750.L...| 00000B40: 8B 20 5A 24 B2 22 4E 22 20 A7 20 8E 00 60 13 02 |. Z$."N" . ..`..| 00000B50: 03 8B 20 5A 24 B3 B1 22 59 22 20 A7 20 37 35 30 |.. Z$.."Y" . 750| 00000B60: 00 81 13 0C 03 99 22 93 54 52 41 43 4B 22 20 54 |......".TRACK" T| 00000B70: 20 22 20 53 45 43 54 4F 52 22 53 20 22 93 22 3A | " SECTOR"S ".":| 00000B80: 8E 00 A5 13 16 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.......*********| 00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BA0: 2A 2A 2A 2A 2A 00 C9 13 20 03 8F 2A 20 44 49 53 |*****... ..* DIS| 00000BB0: 4B 20 42 59 54 45 20 54 4F 20 48 45 58 20 50 52 |K BYTE TO HEX PR| 00000BC0: 49 4E 54 20 20 20 20 20 2A 00 ED 13 2A 03 8F 2A |INT *...*..*| 00000BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 10 14 |*************...| 00000BF0: 34 03 41 31 B2 B5 28 4E AD 31 36 29 3A 41 24 B2 |4.A1..(N.16):A$.| 00000C00: 41 24 AA CA 28 48 58 24 2C 41 31 AA 31 2C 31 29 |A$..(HX$,A1.1,1)| 00000C10: 00 36 14 3E 03 41 32 B2 B5 28 4E AB 31 36 AC 41 |.6.>.A2..(N.16.A| 00000C20: 31 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C 41 |1):A$.A$..(HX$,A| 00000C30: 32 AA 31 2C 31 29 00 46 14 48 03 41 24 B2 41 24 |2.1,1).F.H.A$.A$| 00000C40: AA 53 50 24 3A 8E 00 6A 14 52 03 8F 2A 2A 2A 2A |.SP$:..j.R..****| 00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8E 14 5C 03 8F |**********...\..| 00000C70: 2A 20 44 49 53 4B 20 42 59 54 45 20 54 4F 20 41 |* DISK BYTE TO A| 00000C80: 53 43 20 44 49 53 50 4C 41 59 20 20 20 2A 00 B2 |SC DISPLAY *..| 00000C90: 14 66 03 8F 2A 20 43 48 41 52 41 43 54 45 52 20 |.f..* CHARACTER | 00000CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CB0: 20 2A 00 D6 14 70 03 8F 2A 2A 2A 2A 2A 2A 2A 2A | *...p..********| 00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000CD0: 2A 2A 2A 2A 2A 2A 00 F0 14 7A 03 8B 20 C6 28 43 |******...z.. .(C| 00000CE0: 24 29 B3 33 32 20 A7 20 43 24 B2 22 20 22 3A 8E |$).32 . C$." ":.| 00000CF0: 00 10 15 8E 03 8B 20 C6 28 43 24 29 B3 31 32 38 |...... .(C$).128| 00000D00: 20 B0 20 C6 28 43 24 29 B1 31 35 39 20 A7 20 8E | . .(C$).159 . .| 00000D10: 00 30 15 98 03 43 24 B2 CA 28 53 53 24 2C 33 AC |.0...C$..(SS$,3.| 00000D20: 28 C6 28 43 24 29 AB 31 32 37 29 2C 33 29 3A 8E |(.(C$).127),3):.| 00000D30: 00 00 00 |... |
..%.D..******************************.I.
N..* DISPLAY ANY TRACK $ SECTOR *.M.X..*
ON THE DISK TO THE SCREEN *......* OR
THE PRINTER *......*********
*********************......"...........R
RRRRRRRRRRRRRRRRRRRRR"... .."........DIS
PLAY BLOCK CONTENTS".*...."........EEEEE
EEEEEEEEEEEEEEEEE".N....****************
**************.R....*SET PROGRAM CONSTAN
T *......************************
******.B.H.SP$." ":NL$.G(0):HX$."0123456
789ABCDEF"...R.FS$."":.I.64 . 95:FS$.FS$
.".".G(I).".":. I.%...SS$." ":. I.192 .
223:SS$.SS$.".".G(I).".":. I.8.... A$(1
5),NB(2).C...D$."0".Y...."
.S.CREEN.....OR .......P.RINTER"......J
J$:. JJ$."" .254...... JJ$."S".."
..SCREEN.".W.... JJ$."P".." ..PR
INTER."......15,8,15,"I".D$:. 650......4
,4...... 2,8,2,"#":. 650.4....**********
********************.X."..* LOAD TRACK A
ND SECTOR *.|.,..* INTO DISK BUFFER
*. .6..**********************
********...@.."...TRACK, SECTOR";T,S...J
.. T.0 . T.35 . .15,"I"D$: 2: 4: 15:."EN
D":....T.. JJ$."S" . ."...TRACK"T" SECTO
R"S".".B.U.. JJ$."P" . .4:.4,"TRACK"T" S
ECTOR"S:.4.].^..15,"U1:2,"D$;T;S:.650...
H..******************************...R..*
READ BYTE 0 OF DISK BUFFER *.I....*****
*************************......15,"B-P:2
,1"......15,"M-R"G(0)G(5)......#15,A$(0)
:.A$(0)."".A$(0).NL$.&.... JJ$."S".430.8
.... JJ$."P".460.\....******************
************......* READ & CRT DISPLAY
*......* REST OF THE DISK BUFFER
*.H....******************************
.....K.1:NB(1).F(A$(0))...... J.0 . 63:.
J.32 . . 710:. Z$."N". J.80:. 458. ....
I.K . 3.E....#2,A$(I):. A$(I)."" . A$(I
).NL$.F.... K.1 . I.2 . NB(2).F(A$(I)).R
.... I:K.0.....A$."":B$.":":N.J.4:. 790:
A$.A$.":"...B.. I.0 . 3:N.F(A$(I)):. 790
.T.D.C$.A$(I):. 850:B$.B$.C$...F.. I:. J
J$."S" . .A$B$...J.. J:.571...L..*******
***********************.C.N..* READ & PR
INTER DISPLAY *.G.P..***************
***************.~.R.K.1:NB(1).F(A$(0))..
.T.. J.0 . 15...V.. I.K . 15.A.X..#2,A$(
I):. A$(I)."" . A$(I).NL$...Z.. K.1 . I.
2 . NB(2).F(A$(I))...... I:K.0.....A$.":
":N.J.16:. 790:A$.A$.":".E.... I.0 . 15:
N.F(A$(I)):. 790:. Z$."N". J.40:. 571.A.
..C$.A$(I):. 850:B$.B$.C$.I.... I......
JJ$."P" . .4,A$B$...... J:.571...;..****
**************************.V.<..* NEXT T
RACK AND SECTOR *...=..************
******************.%.?.."NEXT TRACK AND
SECTOR"NB(1)NB(2) ".".N.D.."DO YOU WANT
NEXT TRACK AND SECTOR".D.N.. Z$:. Z$.""
.590...X.. Z$."Y" . T.NB(1):S.NB(2):.330
...B.. Z$."N" . 320...L.. 590.I.V..*****
*************************......* SUBROUT
INES *......*************
*****************.5....* ERROR ROUTINE
*.Y....*********************
*********.Y....15,EN,EM$,ET,ES:. EN.0 .
.......".DISK ERROR."EN,EM$,ET,ES.......
C.F..******************************...P.
.* SCREEN CONTINUE MESSAGE *...Z..***
***************************.%....".....C
ONTINUE(Y/N)".;....Z$:. Z$."" . 750.L...
. Z$."N" . ..`.... Z$.."Y" . 750......".
TRACK" T " SECTOR"S ".":.......*********
*********************.I. ..* DISK BYTE T
O HEX PRINT *...*..*****************
*************...4.A1..(N.16):A$.A$.J(HX$
,A1.1,1).6.>.A2..(N.16.A1):A$.A$.J(HX$,A
2.1,1).F.H.A$.A$.SP$:..J.R..************
******************...\..* DISK BYTE TO A
SC DISPLAY *...F..* CHARACTER
*.V.P..************************
******...Z.. F(C$).32 . C$." ":....... F
(C$).128 . F(C$).159 . ..0...C$.J(SS$,3.
(F(C$).127),3):....
> CLICK IMAGE PREVIEW FOR FULL MODAL