DISPLAY T&S
FILE INFORMATION
FILENAME(S): DISPLAY T&S
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 21:07:17
APPEARS ON: 1 disk(s)
FILE HASH
13f6106c66ea020629e85c6ded9d36dee238bb34a88d128a32f537dc39352bb4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WERKSCHIJF | DISPLAY T&S | PRG | DuncanTwain | 15 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 25 04 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 04 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 04 78 00 8F 2A | SECTOR *.m.x..*| 00000050: 20 4F 4E 20 54 48 45 20 34 30 34 30 20 54 4F 20 | ON THE 4040 TO | 00000060: 54 48 45 20 53 43 52 45 45 4E 20 20 2A 00 91 04 |THE SCREEN *...| 00000070: 82 00 8F 2A 20 4F 52 20 54 48 45 20 43 42 4D 20 |...* OR THE CBM | 00000080: 50 52 49 4E 54 45 52 20 20 20 20 20 20 20 20 20 |PRINTER | 00000090: 2A 00 B5 04 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 E2 04 96 00 99 22 93 11 11 1D |*****......"....| 000000C0: 1D 1D 1D 1D A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 000000D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 000000E0: A4 22 00 0A 05 A0 00 99 22 20 20 20 20 20 12 20 |."......" . | 000000F0: 44 49 53 50 4C 41 59 20 42 4C 4F 43 4B 20 43 4F |DISPLAY BLOCK CO| 00000100: 4E 54 45 4E 54 53 20 11 11 22 00 2E 05 AA 00 8F |NTENTS .."......| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 |**************.R| 00000130: 05 B4 00 8F 2A 20 53 45 54 20 50 52 4F 47 52 41 |....* SET PROGRA| 00000140: 4D 20 43 4F 4E 53 54 41 4E 54 20 20 20 20 20 20 |M CONSTANT | 00000150: 20 2A 00 76 05 BE 00 8F 2A 2A 2A 2A 2A 2A 2A 2A | *.v....********| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000170: 2A 2A 2A 2A 2A 2A 00 A2 05 C8 00 53 50 24 B2 22 |******.....SP$."| 00000180: 20 22 3A 4E 4C 24 B2 C7 28 30 29 3A 48 58 24 B2 | ":NL$..(0):HX$.| 00000190: 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 |"0123456789ABCDE| 000001A0: 46 22 00 D1 05 D2 00 46 53 24 B2 22 22 3A 81 49 |F".....FS$."":.I| 000001B0: B2 36 34 20 A4 20 39 35 3A 46 53 24 B2 46 53 24 |.64 . 95:FS$.FS$| 000001C0: AA 22 12 22 AA C7 28 49 29 AA 22 92 22 3A 82 20 |."."..(I).".":. | 000001D0: 49 00 05 06 DC 00 53 53 24 B2 22 20 20 22 3A 81 |I.....SS$." ":.| 000001E0: 20 49 B2 31 39 32 20 A4 20 32 32 33 3A 53 53 24 | I.192 . 223:SS$| 000001F0: B2 53 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 |.SS$."."..(I).".| 00000200: 22 3A 82 20 49 00 18 06 F0 00 86 20 41 24 28 31 |":. I...... A$(1| 00000210: 35 29 2C 4E 42 28 32 29 00 28 06 FA 00 85 22 44 |5),NB(2).(...."D| 00000220: 52 49 56 45 22 3B 44 24 00 51 06 FB 00 99 22 44 |RIVE";D$.Q...."D| 00000230: 49 53 50 4C 41 59 20 4F 4E 20 12 53 92 43 52 45 |ISPLAY ON .S.CRE| 00000240: 45 4E 20 4F 52 20 12 50 A2 52 49 4E 54 45 52 22 |EN OR .P.RINTER"| 00000250: 3B 00 68 06 FC 00 A1 4A 4A 24 3A 8B 20 4A 4A 24 |;.h....JJ$:. JJ$| 00000260: B2 22 22 20 A7 32 35 32 00 83 06 FD 00 8B 20 4A |."" .252...... J| 00000270: 4A 24 B2 22 53 22 A7 99 22 11 12 53 43 52 45 45 |J$."S".."..SCREE| 00000280: 4E 92 22 00 9F 06 FE 00 8B 20 4A 4A 24 B2 22 50 |N."...... JJ$."P| 00000290: 22 A7 99 22 11 12 50 52 49 4E 54 45 52 92 22 00 |".."..PRINTER.".| 000002A0: B9 06 04 01 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |.....15,8,15,"I"| 000002B0: AA 44 24 3A 8D 20 36 35 30 00 C2 06 09 01 9F 34 |.D$:. 650......4| 000002C0: 2C 34 00 DC 06 0E 01 9F 20 32 2C 38 2C 32 2C 22 |,4...... 2,8,2,"| 000002D0: 23 22 AA 22 30 22 3A 8D 20 36 35 30 00 00 07 18 |#"."0":. 650....| 000002E0: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000300: 00 24 07 22 01 8F 2A 20 4C 4F 41 44 20 54 52 41 |.$."..* LOAD TRA| 00000310: 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 20 20 |CK AND SECTOR | 00000320: 20 20 20 2A 00 48 07 2C 01 8F 2A 20 49 4E 54 4F | *.H.,..* INTO| 00000330: 20 44 49 53 4B 20 42 55 46 46 45 52 20 20 20 20 | DISK BUFFER | 00000340: 20 20 20 20 20 20 20 2A 00 6C 07 36 01 8F 2A 2A | *.l.6..**| 00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 85 07 40 |************...@| 00000370: 01 85 22 54 52 41 43 4B 2C 20 53 45 43 54 4F 52 |.."TRACK, SECTOR| 00000380: 22 3B 54 2C 53 00 B5 07 4A 01 8B 20 54 B2 30 20 |";T,S...J.. T.0 | 00000390: B0 20 54 B1 33 35 20 A7 20 98 31 35 2C 22 49 22 |. T.35 . .15,"I"| 000003A0: 44 24 3A A0 32 3A A0 34 3A A0 31 35 3A 99 22 45 |D$:.2:.4:.15:."E| 000003B0: 4E 44 22 3A 80 00 DC 07 54 01 8B 20 4A 4A 24 B2 |ND":....T.. JJ$.| 000003C0: 22 53 22 20 A7 20 99 22 54 52 41 43 4B 22 54 22 |"S" . ."TRACK"T"| 000003D0: 20 53 45 43 54 4F 52 22 53 22 11 22 00 02 08 55 | SECTOR"S"."...U| 000003E0: 01 8B 20 4A 4A 24 B2 22 50 22 20 A7 20 98 34 2C |.. JJ$."P" . .4,| 000003F0: 22 54 52 41 43 4B 22 54 22 20 53 45 43 54 4F 52 |"TRACK"T" SECTOR| 00000400: 22 53 00 1D 08 5E 01 98 31 35 2C 22 55 31 3A 32 |"S...^..15,"U1:2| 00000410: 2C 22 44 24 3B 54 3B 53 3A 8D 36 35 30 00 41 08 |,"D$;T;S:.650.A.| 00000420: 68 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |h..*************| 00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000440: 2A 00 65 08 72 01 8F 2A 20 52 45 41 44 20 42 59 |*.e.r..* READ BY| 00000450: 54 45 20 30 20 4F 46 20 44 49 53 4B 20 42 55 46 |TE 0 OF DISK BUF| 00000460: 46 45 52 20 2A 00 89 08 86 01 8F 2A 2A 2A 2A 2A |FER *......*****| 00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9B 08 90 01 98 31 |*********......1| 00000490: 35 2C 22 42 2D 50 3A 32 2C 31 22 00 B2 08 9A 01 |5,"B-P:2,1".....| 000004A0: 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 31 |.15,"M-R".(0).(1| 000004B0: 37 29 00 D5 08 A4 01 A1 23 31 35 2C 41 24 28 30 |7)......#15,A$(0| 000004C0: 29 3A 8B 41 24 28 30 29 B2 22 22 A7 41 24 28 30 |):.A$(0)."".A$(0| 000004D0: 29 B2 4E 4C 24 00 F9 08 AE 01 8F 2A 2A 2A 2A 2A |).NL$......*****| 000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1D 09 B8 01 8F 2A |*********......*| 00000500: 20 52 45 41 44 20 26 20 44 49 53 50 4C 41 59 20 | READ & DISPLAY | 00000510: 54 48 45 20 52 45 53 54 20 4F 46 20 2A 00 41 09 |THE REST OF *.A.| 00000520: C2 01 8F 2A 20 54 48 45 20 44 49 53 4B 20 42 55 |...* THE DISK BU| 00000530: 46 46 45 52 20 20 20 20 20 20 20 20 20 20 20 20 |FFER | 00000540: 2A 00 65 09 CC 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.e....*********| 00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000560: 2A 2A 2A 2A 2A 00 7C 09 D6 01 4B B2 31 3A 4E 42 |*****.|...K.1:NB| 00000570: 28 31 29 B2 C6 28 41 24 28 30 29 29 00 AF 09 E0 |(1)..(A$(0))....| 00000580: 01 81 20 4A B2 30 20 A4 20 33 31 3A 8B 20 4A B2 |.. J.0 . 31:. J.| 00000590: 31 36 20 A7 20 8D 20 37 31 30 3A 8B 20 5A 24 B2 |16 . . 710:. Z$.| 000005A0: 22 4E 22 A7 20 4A B2 34 30 3A 89 20 35 37 30 00 |"N". J.40:. 570.| 000005B0: BD 09 EA 01 81 20 49 B2 4B 20 A4 20 37 00 E2 09 |..... I.K . 7...| 000005C0: F4 01 A1 23 32 2C 41 24 28 49 29 3A 8B 20 41 24 |...#2,A$(I):. A$| 000005D0: 28 49 29 B2 22 22 20 A7 20 41 24 28 49 29 B2 4E |(I)."" . A$(I).N| 000005E0: 4C 24 00 03 0A FE 01 8B 20 4B B2 31 20 AF 20 49 |L$...... K.1 . I| 000005F0: B3 32 20 A7 20 4E 42 28 32 29 B2 C6 28 41 24 28 |.2 . NB(2)..(A$(| 00000600: 49 29 29 00 0F 0A 08 02 82 20 49 3A 4B B2 30 00 |I))...... I:K.0.| 00000610: 38 0A 12 02 41 24 B2 22 22 3A 42 24 B2 22 3A 20 |8...A$."":B$.": | 00000620: 22 3A 4E B2 4A AC 38 3A 8D 20 37 39 30 3A 41 24 |":N.J.8:. 790:A$| 00000630: B2 41 24 AA 22 3A 20 22 00 57 0A 1C 02 81 20 49 |.A$.": ".W.... I| 00000640: B2 30 20 A4 20 37 3A 4E B2 C6 28 41 24 28 49 29 |.0 . 7:N..(A$(I)| 00000650: 29 3A 8D 20 37 39 30 00 73 0A 26 02 43 24 B2 41 |):. 790.s.&.C$.A| 00000660: 24 28 49 29 3A 8D 20 38 35 30 3A 42 24 B2 42 24 |$(I):. 850:B$.B$| 00000670: AA 43 24 00 8D 0A 30 02 82 20 49 3A 8B 20 4A 4A |.C$...0.. I:. JJ| 00000680: 24 B2 22 53 22 20 A7 20 99 41 24 42 24 00 A5 0A |$."S" . .A$B$...| 00000690: 31 02 8B 20 4A 4A 24 B2 22 50 22 20 A7 20 98 34 |1.. JJ$."P" . .4| 000006A0: 2C 41 24 42 24 00 AD 0A 3A 02 82 20 4A 00 D1 0A |,A$B$...:.. J...| 000006B0: 3B 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;..*************| 000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006D0: 2A 00 F5 0A 3C 02 8F 2A 20 4E 45 58 54 20 54 52 |*...<..* NEXT TR| 000006E0: 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 20 |ACK AND SECTOR | 000006F0: 20 20 20 20 2A 00 19 0B 3D 02 8F 2A 2A 2A 2A 2A | *...=..*****| 00000700: 2A 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 00 44 0B 3F 02 99 22 |*********.D.?.."| 00000720: 4E 45 58 54 20 54 52 41 43 4B 20 41 4E 44 20 53 |NEXT TRACK AND S| 00000730: 45 43 54 4F 52 22 4E 42 28 31 29 4E 42 28 32 29 |ECTOR"NB(1)NB(2)| 00000740: 20 22 11 22 00 6D 0B 44 02 99 22 44 4F 20 59 4F | ".".m.D.."DO YO| 00000750: 55 20 57 41 4E 54 20 4E 45 58 54 20 54 52 41 43 |U WANT NEXT TRAC| 00000760: 4B 20 41 4E 44 20 53 45 43 54 4F 52 22 00 83 0B |K AND SECTOR"...| 00000770: 4E 02 A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 |N.. Z$:. Z$."" .| 00000780: 35 39 30 00 A7 0B 58 02 8B 20 5A 24 B2 22 59 22 |590...X.. Z$."Y"| 00000790: 20 A7 20 54 B2 4E 42 28 31 29 3A 53 B2 4E 42 28 | . T.NB(1):S.NB(| 000007A0: 32 29 3A 89 33 33 30 00 BA 0B 62 02 8B 20 5A 24 |2):.330...b.. Z$| 000007B0: B2 22 4E 22 20 A7 20 33 32 30 00 C4 0B 6C 02 89 |."N" . 320...l..| 000007C0: 20 35 39 30 00 E8 0B 76 02 8F 2A 2A 2A 2A 2A 2A | 590...v..******| 000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 0C 80 02 8F 2A 20 |********......* | 000007F0: 53 55 42 52 4F 55 54 49 4E 45 53 20 20 20 20 20 |SUBROUTINES | 00000800: 20 20 20 20 20 20 20 20 20 20 20 2A 00 30 0C 8A | *.0..| 00000810: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000830: 00 54 0C 94 02 8F 2A 20 45 52 52 4F 52 20 52 4F |.T....* ERROR RO| 00000840: 55 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 20 |UTINE | 00000850: 20 20 20 2A 00 78 0C 9E 02 8F 2A 2A 2A 2A 2A 2A | *.x....******| 00000860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000870: 2A 2A 2A 2A 2A 2A 2A 2A 00 98 0C A8 02 84 31 35 |********......15| 00000880: 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 20 |,EN,EM$,ET,ES:. | 00000890: 45 4E B2 30 20 A7 20 8E 00 B8 0C B2 02 99 22 12 |EN.0 . .......".| 000008A0: 44 49 53 4B 20 45 52 52 4F 52 92 22 45 4E 2C 45 |DISK ERROR."EN,E| 000008B0: 4D 24 2C 45 54 2C 45 53 00 BE 0C BC 02 80 00 E2 |M$,ET,ES........| 000008C0: 0C C6 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************| 000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008E0: 2A 2A 00 06 0D D0 02 8F 2A 20 53 43 52 45 45 4E |**......* SCREEN| 000008F0: 20 43 4F 4E 54 49 4E 55 45 20 4D 53 53 47 20 20 | CONTINUE MSSG | 00000900: 20 20 20 20 20 2A 00 2A 0D DA 02 8F 2A 2A 2A 2A | *.*....****| 00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 0D E4 02 99 |**********.A....| 00000930: 22 11 12 43 4F 4E 54 49 4E 55 45 28 59 2F 4E 29 |"..CONTINUE(Y/N)| 00000940: 22 00 57 0D EE 02 A1 5A 24 3A 8B 20 5A 24 B2 22 |".W....Z$:. Z$."| 00000950: 22 20 A7 20 37 35 30 00 68 0D F8 02 8B 20 5A 24 |" . 750.h.... Z$| 00000960: B2 22 4E 22 20 A7 20 8E 00 7C 0D 02 03 8B 20 5A |."N" . ..|.... Z| 00000970: 24 B3 B1 22 59 22 20 A7 20 37 35 30 00 9D 0D 0C |$.."Y" . 750....| 00000980: 03 99 22 93 54 52 41 43 4B 22 20 54 20 22 20 53 |..".TRACK" T " S| 00000990: 45 43 54 4F 52 22 53 20 22 93 22 3A 8E 00 C1 0D |ECTOR"S ".":....| 000009A0: 16 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009C0: 2A 00 E5 0D 20 03 8F 2A 20 44 49 53 4B 20 42 59 |*... ..* DISK BY| 000009D0: 54 45 20 54 4F 20 48 45 58 20 50 52 49 4E 54 20 |TE TO HEX PRINT | 000009E0: 20 20 20 20 2A 00 09 0E 2A 03 8F 2A 2A 2A 2A 2A | *...*..*****| 000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 0E 34 03 41 31 |*********.,.4.A1| 00000A10: B2 B5 28 4E AD 31 36 29 3A 41 24 B2 41 24 AA CA |..(N.16):A$.A$..| 00000A20: 28 48 58 24 2C 41 31 AA 31 2C 31 29 00 52 0E 3E |(HX$,A1.1,1).R.>| 00000A30: 03 41 32 B2 B5 28 4E AB 31 36 AC 41 31 29 3A 41 |.A2..(N.16.A1):A| 00000A40: 24 B2 41 24 AA CA 28 48 58 24 2C 41 32 AA 31 2C |$.A$..(HX$,A2.1,| 00000A50: 31 29 00 62 0E 48 03 41 24 B2 41 24 AA 53 50 24 |1).b.H.A$.A$.SP$| 00000A60: 3A 8E 00 86 0E 52 03 8F 2A 2A 2A 2A 2A 2A 2A 2A |:....R..********| 00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A80: 2A 2A 2A 2A 2A 2A 00 AA 0E 5C 03 8F 2A 20 44 49 |******...\..* DI| 00000A90: 53 4B 20 42 59 54 45 20 54 4F 20 41 53 43 20 44 |SK BYTE TO ASC D| 00000AA0: 49 53 50 4C 41 59 20 20 20 2A 00 CE 0E 66 03 8F |ISPLAY *...f..| 00000AB0: 2A 20 43 48 41 52 41 43 54 45 52 20 20 20 20 20 |* CHARACTER | 00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 F2 | *..| 00000AD0: 0E 70 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.p..************| 00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AF0: 2A 2A 00 1A 0F 7A 03 8B 20 C6 28 43 24 29 B3 33 |**...z.. .(C$).3| 00000B00: 32 20 A7 20 43 24 B2 CA 28 46 24 2C 33 AC C6 28 |2 . C$..(F$,3..(| 00000B10: 43 24 29 AA 31 2C 33 29 3A 8E 00 48 0F 84 03 8B |C$).1,3):..H....| 00000B20: 20 C6 28 43 24 29 B2 33 34 20 B0 20 C6 28 43 24 | .(C$).34 . .(C$| 00000B30: 29 B2 39 38 20 A7 20 43 24 B2 43 24 AA C7 28 32 |).98 . C$.C$..(2| 00000B40: 30 29 AA C7 28 33 34 29 00 68 0F 8E 03 8B 20 C6 |0)..(34).h.... .| 00000B50: 28 43 24 29 B3 31 32 38 20 B0 20 C6 28 43 24 29 |(C$).128 . .(C$)| 00000B60: B1 31 35 39 20 A7 20 8E 00 88 0F 98 03 43 24 B2 |.159 . ......C$.| 00000B70: CA 28 53 53 24 2C 33 AC 28 C6 28 43 24 29 AB 31 |.(SS$,3.(.(C$).1| 00000B80: 32 37 29 2C 33 29 3A 8E 00 00 00 |27),3):.... |
..%.D..******************************.I.
N..* DISPLAY ANY TRACK $ SECTOR *.M.X..*
ON THE 4040 TO THE SCREEN *......* OR
THE CBM PRINTER *......*********
*********************......"............
........................."... .." .
DISPLAY BLOCK CONTENTS .."......********
**********************.R....* SET PROGRA
M CONSTANT *.V....****************
**************...H.SP$." ":NL$.G(0):HX$.
"0123456789ABCDEF".Q.R.FS$."":.I.64 . 95
:FS$.FS$.".".G(I).".":. I.....SS$." ":.
I.192 . 223:SS$.SS$.".".G(I).".":. I...
... A$(15),NB(2).(...."DRIVE";D$.Q...."D
ISPLAY ON .S.CREEN OR .P.RINTER";.H....J
J$:. JJ$."" .252...... JJ$."S".."..SCREE
N."...... JJ$."P".."..PRINTER."......15,
8,15,"I".D$:. 650.B....4,4...... 2,8,2,"
#"."0":. 650......**********************
********.$."..* LOAD TRACK AND SECTOR
*.H.,..* INTO DISK BUFFER *
.L.6..******************************...@
.."TRACK, SECTOR";T,S...J.. T.0 . T.35 .
.15,"I"D$: 2: 4: 15:."END":....T.. JJ$.
"S" . ."TRACK"T" SECTOR"S"."...U.. JJ$."
P" . .4,"TRACK"T" SECTOR"S...^..15,"U1:2
,"D$;T;S:.650.A.H..*********************
*********.E.R..* READ BYTE 0 OF DISK BUF
FER *......*****************************
*......15,"B-P:2,1"......15,"M-R"G(0)G(1
7).U....#15,A$(0):.A$(0)."".A$(0).NL$...
...******************************......*
READ & DISPLAY THE REST OF *.A.B..* THE
DISK BUFFER *.E.L..*********
*********************.|.V.K.1:NB(1).F(A$
(0))...... J.0 . 31:. J.16 . . 710:. Z$.
"N". J.40:. 570...... I.K . 7......#2,A$
(I):. A$(I)."" . A$(I).NL$...... K.1 . I
.2 . NB(2).F(A$(I))...... I:K.0.8...A$."
":B$.": ":N.J.8:. 790:A$.A$.": ".W.... I
.0 . 7:N.F(A$(I)):. 790.S.&.C$.A$(I):. 8
50:B$.B$.C$...0.. I:. JJ$."S" . .A$B$...
1.. JJ$."P" . .4,A$B$...:.. J.Q.;..*****
*************************...<..* NEXT TR
ACK AND SECTOR *...=..*************
*****************.D.?.."NEXT TRACK AND S
ECTOR"NB(1)NB(2) ".".M.D.."DO YOU WANT N
EXT TRACK AND SECTOR"...N.. Z$:. Z$."" .
590...X.. Z$."Y" . T.NB(1):S.NB(2):.330.
..B.. Z$."N" . 320.D.L.. 590...V..******
************************......* SUBROUTI
NES *.0....**************
****************.T....* ERROR ROUTINE
*.X....**********************
********......15,EN,EM$,ET,ES:. EN.0 . .
......".DISK ERROR."EN,EM$,ET,ES........
.F..******************************...P..
* SCREEN CONTINUE MSSG *.*.Z..****
**************************.A...."..CONTI
NUE(Y/N)".W....Z$:. Z$."" . 750.H.... Z$
."N" . ..|.... Z$.."Y" . 750......".TRAC
K" T " SECTOR"S ".":..A....*************
*****************... ..* DISK BYTE TO HE
X PRINT *...*..*********************
*********.,.4.A1..(N.16):A$.A$.J(HX$,A1.
1,1).R.>.A2..(N.16.A1):A$.A$.J(HX$,A2.1,
1).B.H.A$.A$.SP$:....R..****************
**************...\..* DISK BYTE TO ASC D
ISPLAY *.N.F..* CHARACTER
*...P..****************************
**...Z.. F(C$).32 . C$.J(F$,3.F(C$).1,3)
:..H.... F(C$).34 . F(C$).98 . C$.C$.G(2
0).G(34).H.... F(C$).128 . F(C$).159 . .
.....C$.J(SS$,3.(F(C$).127),3):....
> CLICK IMAGE PREVIEW FOR FULL MODAL