T&S AUTOREAD
FILE INFORMATION
FILENAME(S): T&S AUTOREAD
FILE TYPE(S): DEL
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 19:11:10
APPEARS ON: 1 disk(s)
FILE HASH
005a10bf7835b7d00b3842284dd9de4f5219ac0f90195486a412c0ec004e2ffa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASS PRESENTS | T&S AUTOREAD | DEL | Commodore 64 Extras | 33 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 25 40 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 40 40 69 00 8F 20 53 41 56 45 |*****.@@i.. SAVE| 00000030: 22 54 26 53 20 41 55 54 4F 52 45 41 44 22 2C 38 |"T&S AUTOREAD",8| 00000040: 00 64 40 6E 00 8F 2A 20 44 49 53 50 4C 41 59 20 |.d@n..* DISPLAY | 00000050: 41 4E 59 20 54 52 41 43 4B 20 24 20 53 45 43 54 |ANY TRACK $ SECT| 00000060: 4F 52 20 2A 00 88 40 78 00 8F 2A 20 4F 4E 20 54 |OR *..@x..* ON T| 00000070: 48 45 20 44 49 53 4B 20 54 4F 20 54 48 45 20 53 |HE DISK TO THE S| 00000080: 43 52 45 45 4E 20 20 2A 00 AC 40 82 00 8F 2A 20 |CREEN *..@...* | 00000090: 4F 52 20 54 48 45 20 50 52 49 4E 54 45 52 20 20 |OR THE PRINTER | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 D0 40 8C | *..@.| 000000B0: 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 00 F1 40 96 00 99 22 93 11 11 D2 D2 D2 D2 D2 D2 |..@...".........| 000000E0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................| 000000F0: 22 00 0F 41 A0 00 99 22 44 49 53 50 4C 41 59 20 |"..A..."DISPLAY | 00000100: 42 4C 4F 43 4B 20 43 4F 4E 54 45 4E 54 53 22 00 |BLOCK CONTENTS".| 00000110: 2E 41 A5 00 99 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |.A..."..........| 00000120: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 00 52 |............":.R| 00000130: 41 AA 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |A...************| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000150: 2A 2A 00 76 41 B4 00 8F 2A 20 53 45 54 20 50 52 |**.vA...* SET PR| 00000160: 4F 47 52 41 4D 20 43 4F 4E 53 54 41 4E 54 20 20 |OGRAM CONSTANT | 00000170: 20 20 20 20 20 2A 00 9A 41 BE 00 8F 2A 2A 2A 2A | *..A...****| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C6 41 C8 00 53 |**********..A..S| 000001A0: 50 24 B2 22 20 22 3A 4E 4C 24 B2 C7 28 30 29 3A |P$." ":NL$..(0):| 000001B0: 48 58 24 B2 22 30 31 32 33 34 35 36 37 38 39 41 |HX$."0123456789A| 000001C0: 42 43 44 45 46 22 00 F5 41 D2 00 46 53 24 B2 22 |BCDEF"..A..FS$."| 000001D0: 22 3A 81 49 B2 36 34 20 A4 20 39 35 3A 46 53 24 |":.I.64 . 95:FS$| 000001E0: B2 46 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 |.FS$."."..(I).".| 000001F0: 22 3A 82 20 49 00 29 42 DC 00 53 53 24 B2 22 20 |":. I.)B..SS$." | 00000200: 20 22 3A 81 20 49 B2 31 39 32 20 A4 20 32 32 33 | ":. I.192 . 223| 00000210: 3A 53 53 24 B2 53 53 24 AA 22 12 22 AA C7 28 49 |:SS$.SS$."."..(I| 00000220: 29 AA 22 92 22 3A 82 20 49 00 3C 42 F0 00 86 20 |).".":. I.<B... | 00000230: 41 24 28 31 35 29 2C 4E 42 28 32 29 00 47 42 FB |A$(15),NB(2).GB.| 00000240: 00 44 24 B2 22 30 22 00 76 42 FD 00 99 22 20 20 |.D$."0".vB..." | 00000250: 20 20 20 20 20 20 12 53 92 43 52 45 45 4E 11 9D | .S.CREEN..| 00000260: 9D 9D 9D 9D 9D 9D 9D 4F 52 20 11 9D 12 50 92 52 |.......OR ...P.R| 00000270: 49 4E 54 45 52 22 00 8D 42 FE 00 A1 4A 4A 24 3A |INTER"..B...JJ$:| 00000280: 8B 20 4A 4A 24 B2 22 22 20 A7 32 35 34 00 B0 42 |. JJ$."" .254..B| 00000290: FF 00 8B 20 4A 4A 24 B2 22 53 22 A7 99 22 20 20 |... JJ$."S".." | 000002A0: 20 20 20 20 20 20 11 12 53 43 52 45 45 4E 92 22 | ..SCREEN."| 000002B0: 00 D4 42 00 01 8B 20 4A 4A 24 B2 22 50 22 A7 99 |..B... JJ$."P"..| 000002C0: 22 20 20 20 20 20 20 20 20 11 12 50 52 49 4E 54 |" ..PRINT| 000002D0: 45 52 92 22 00 EE 42 04 01 9F 31 35 2C 38 2C 31 |ER."..B...15,8,1| 000002E0: 35 2C 22 49 22 AA 44 24 3A 8D 20 36 35 30 00 F7 |5,"I".D$:. 650..| 000002F0: 42 09 01 9F 34 2C 34 00 0D 43 0E 01 9F 20 32 2C |B...4,4..C... 2,| 00000300: 38 2C 32 2C 22 23 22 3A 8D 20 36 35 30 00 17 43 |8,2,"#":. 650..C| 00000310: 13 01 53 53 B2 32 30 00 3B 43 18 01 8F 2A 2A 2A |..SS.20.;C...***| 00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5F 43 22 01 |***********._C".| 00000340: 8F 2A 20 4C 4F 41 44 20 54 52 41 43 4B 20 41 4E |.* LOAD TRACK AN| 00000350: 44 20 53 45 43 54 4F 52 20 20 20 20 20 20 2A 00 |D SECTOR *.| 00000360: 68 43 2C 01 58 41 B2 30 00 8C 43 36 01 8F 2A 2A |hC,.XA.0..C6..**| 00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 99 43 40 |************..C@| 00000390: 01 81 54 B2 31 35 A4 33 35 00 A9 43 4A 01 8B 54 |..T.15.35..CJ..T| 000003A0: B1 31 37 A7 53 53 B2 31 38 00 B9 43 4C 01 8B 54 |.17.SS.18..CL..T| 000003B0: B1 32 34 A7 53 53 B2 31 37 00 C9 43 4E 01 8B 54 |.24.SS.17..CN..T| 000003C0: B1 33 30 A7 53 53 B2 31 36 00 D6 43 50 01 81 53 |.30.SS.16..CP..S| 000003D0: B2 58 41 A4 53 53 00 00 44 54 01 8B 20 4A 4A 24 |.XA.SS..DT.. JJ$| 000003E0: B2 22 53 22 20 A7 20 99 22 11 1D 1D 54 52 41 43 |."S" . ."...TRAC| 000003F0: 4B 22 54 22 20 53 45 43 54 4F 52 22 53 22 11 22 |K"T" SECTOR"S"."| 00000400: 00 2C 44 55 01 8B 20 4A 4A 24 B2 22 50 22 20 A7 |.,DU.. JJ$."P" .| 00000410: 20 98 34 3A 98 34 2C 22 54 52 41 43 4B 22 54 22 | .4:.4,"TRACK"T"| 00000420: 20 53 45 43 54 4F 52 22 53 3A 98 34 00 47 44 5E | SECTOR"S:.4.GD^| 00000430: 01 98 31 35 2C 22 55 31 3A 32 2C 22 44 24 3B 54 |..15,"U1:2,"D$;T| 00000440: 3B 53 3A 8D 36 35 30 00 6B 44 68 01 8F 2A 2A 2A |;S:.650.kDh..***| 00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 44 72 01 |***********..Dr.| 00000470: 8F 2A 20 52 45 41 44 20 42 59 54 45 20 30 20 4F |.* READ BYTE 0 O| 00000480: 46 20 44 49 53 4B 20 42 55 46 46 45 52 20 2A 00 |F DISK BUFFER *.| 00000490: B3 44 86 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.D...***********| 000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004B0: 2A 2A 2A 00 C5 44 90 01 98 31 35 2C 22 42 2D 50 |***..D...15,"B-P| 000004C0: 3A 32 2C 31 22 00 DB 44 9A 01 98 31 35 2C 22 4D |:2,1"..D...15,"M| 000004D0: 2D 52 22 C7 28 30 29 C7 28 35 29 00 FE 44 A4 01 |-R".(0).(5)..D..| 000004E0: A1 23 31 35 2C 41 24 28 30 29 3A 8B 41 24 28 30 |.#15,A$(0):.A$(0| 000004F0: 29 B2 22 22 A7 41 24 28 30 29 B2 4E 4C 24 00 10 |)."".A$(0).NL$..| 00000500: 45 AC 01 8B 20 4A 4A 24 B2 22 53 22 A7 34 33 30 |E... JJ$."S".430| 00000510: 00 22 45 AE 01 8B 20 4A 4A 24 B2 22 50 22 A7 34 |."E... JJ$."P".4| 00000520: 36 30 00 46 45 AF 01 8F 2A 2A 2A 2A 2A 2A 2A 2A |60.FE...********| 00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000540: 2A 2A 2A 2A 2A 2A 00 6A 45 B0 01 8F 2A 20 52 45 |******.jE...* RE| 00000550: 41 44 20 26 20 43 52 54 20 44 49 53 50 4C 41 59 |AD & CRT DISPLAY| 00000560: 20 20 20 20 20 20 20 20 20 2A 00 8E 45 B1 01 8F | *..E...| 00000570: 2A 20 52 45 53 54 20 4F 46 20 54 48 45 20 44 49 |* REST OF THE DI| 00000580: 53 4B 20 42 55 46 46 45 52 20 20 20 20 2A 00 B2 |SK BUFFER *..| 00000590: 45 B2 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E...************| 000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005B0: 2A 2A 00 C9 45 B4 01 4B B2 31 3A 4E 42 28 31 29 |**..E..K.1:NB(1)| 000005C0: B2 C6 28 41 24 28 30 29 29 00 FC 45 B6 01 81 20 |..(A$(0))..E... | 000005D0: 4A B2 30 20 A4 20 36 33 3A 8B 20 4A B2 33 32 20 |J.0 . 63:. J.32 | 000005E0: A7 20 8D 20 37 31 30 3A 8B 20 5A 24 B2 22 4E 22 |. . 710:. Z$."N"| 000005F0: A7 20 4A B2 38 30 3A 89 20 34 35 38 00 0A 46 B8 |. J.80:. 458..F.| 00000600: 01 81 20 49 B2 4B 20 A4 20 33 00 2F 46 BA 01 A1 |.. I.K . 3./F...| 00000610: 23 32 2C 41 24 28 49 29 3A 8B 20 41 24 28 49 29 |#2,A$(I):. A$(I)| 00000620: B2 22 22 20 A7 20 41 24 28 49 29 B2 4E 4C 24 00 |."" . A$(I).NL$.| 00000630: 50 46 BC 01 8B 20 4B B2 31 20 AF 20 49 B3 32 20 |PF... K.1 . I.2 | 00000640: A7 20 4E 42 28 32 29 B2 C6 28 41 24 28 49 29 29 |. NB(2)..(A$(I))| 00000650: 00 5C 46 BE 01 82 20 49 3A 4B B2 30 00 83 46 C0 |.\F... I:K.0..F.| 00000660: 01 41 24 B2 22 22 3A 42 24 B2 22 3A 22 3A 4E B2 |.A$."":B$.":":N.| 00000670: 4A AC 34 3A 8D 20 37 39 30 3A 41 24 B2 41 24 AA |J.4:. 790:A$.A$.| 00000680: 22 3A 22 00 A2 46 C2 01 81 20 49 B2 30 20 A4 20 |":"..F... I.0 . | 00000690: 33 3A 4E B2 C6 28 41 24 28 49 29 29 3A 8D 20 37 |3:N..(A$(I)):. 7| 000006A0: 39 30 00 BE 46 C4 01 43 24 B2 41 24 28 49 29 3A |90..F..C$.A$(I):| 000006B0: 8D 20 38 35 30 3A 42 24 B2 42 24 AA 43 24 00 D8 |. 850:B$.B$.C$..| 000006C0: 46 C6 01 82 20 49 3A 8B 20 4A 4A 24 B2 22 53 22 |F... I:. JJ$."S"| 000006D0: 20 A7 20 99 41 24 42 24 00 E5 46 CA 01 82 20 4A | . .A$B$..F... J| 000006E0: 3A 89 35 37 31 00 09 47 CC 01 8F 2A 2A 2A 2A 2A |:.571..G...*****| 000006F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2D 47 CE 01 8F 2A |*********.-G...*| 00000710: 20 52 45 41 44 20 26 20 50 52 49 4E 54 45 52 20 | READ & PRINTER | 00000720: 44 49 53 50 4C 41 59 20 20 20 20 20 2A 00 51 47 |DISPLAY *.QG| 00000730: D0 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000750: 2A 00 68 47 D2 01 4B B2 31 3A 4E 42 28 31 29 B2 |*.hG..K.1:NB(1).| 00000760: C6 28 41 24 28 30 29 29 00 77 47 D4 01 81 20 4A |.(A$(0)).wG... J| 00000770: B2 30 20 A4 20 31 35 00 86 47 D6 01 81 20 49 B2 |.0 . 15..G... I.| 00000780: 4B 20 A4 20 31 35 00 AB 47 D8 01 A1 23 32 2C 41 |K . 15..G...#2,A| 00000790: 24 28 49 29 3A 8B 20 41 24 28 49 29 B2 22 22 20 |$(I):. A$(I)."" | 000007A0: A7 20 41 24 28 49 29 B2 4E 4C 24 00 CC 47 DA 01 |. A$(I).NL$..G..| 000007B0: 8B 20 4B B2 31 20 AF 20 49 B3 32 20 A7 20 4E 42 |. K.1 . I.2 . NB| 000007C0: 28 32 29 B2 C6 28 41 24 28 49 29 29 00 D8 47 DC |(2)..(A$(I))..G.| 000007D0: 01 82 20 49 3A 4B B2 30 00 00 48 DE 01 41 24 B2 |.. I:K.0..H..A$.| 000007E0: 22 22 3A 42 24 B2 22 3A 22 3A 4E B2 4A AC 31 36 |"":B$.":":N.J.16| 000007F0: 3A 8D 20 37 39 30 3A 41 24 B2 41 24 AA 22 3A 22 |:. 790:A$.A$.":"| 00000800: 00 35 48 E0 01 81 20 49 B2 30 20 A4 20 31 35 3A |.5H... I.0 . 15:| 00000810: 4E B2 C6 28 41 24 28 49 29 29 3A 8D 20 37 39 30 |N..(A$(I)):. 790| 00000820: 3A 8B 20 5A 24 B2 22 4E 22 A7 20 4A B2 34 30 3A |:. Z$."N". J.40:| 00000830: 89 20 35 37 31 00 51 48 E2 01 43 24 B2 41 24 28 |. 571.QH..C$.A$(| 00000840: 49 29 3A 8D 20 38 35 30 3A 42 24 B2 42 24 AA 43 |I):. 850:B$.B$.C| 00000850: 24 00 59 48 E4 01 82 20 49 00 71 48 E6 01 8B 20 |$.YH... I.qH... | 00000860: 4A 4A 24 B2 22 50 22 20 A7 20 98 34 2C 41 24 42 |JJ$."P" . .4,A$B| 00000870: 24 00 7E 48 E8 01 82 20 4A 3A 89 35 37 31 00 A2 |$.~H... J:.571..| 00000880: 48 3B 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |H;..************| 00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008A0: 2A 2A 00 C6 48 3C 02 8F 2A 20 4E 45 58 54 20 54 |**..H<..* NEXT T| 000008B0: 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 |RACK AND SECTOR | 000008C0: 20 20 20 20 20 2A 00 EA 48 3D 02 8F 2A 2A 2A 2A | *..H=..****| 000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 48 3F 02 8F |**********..H?..| 000008F0: 00 F7 48 44 02 82 53 00 00 49 49 02 58 41 B2 30 |..HD..S..II.XA.0| 00000900: 00 07 49 4E 02 82 54 00 0D 49 58 02 80 00 20 49 |..IN..T..IX... I| 00000910: 62 02 8B 20 5A 24 B2 22 4E 22 20 A7 20 33 32 30 |b.. Z$."N" . 320| 00000920: 00 2A 49 6C 02 89 20 35 39 30 00 4E 49 76 02 8F |.*Il.. 590.NIv..| 00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 |**************.r| 00000950: 49 80 02 8F 2A 20 53 55 42 52 4F 55 54 49 4E 45 |I...* SUBROUTINE| 00000960: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S | 00000970: 20 2A 00 96 49 8A 02 8F 2A 2A 2A 2A 2A 2A 2A 2A | *..I...********| 00000980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000990: 2A 2A 2A 2A 2A 2A 00 BA 49 94 02 8F 2A 20 45 52 |******..I...* ER| 000009A0: 52 4F 52 20 52 4F 55 54 49 4E 45 20 20 20 20 20 |ROR ROUTINE | 000009B0: 20 20 20 20 20 20 20 20 20 2A 00 DE 49 9E 02 8F | *..I...| 000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FE |**************..| 000009E0: 49 A8 02 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |I...15,EN,EM$,ET| 000009F0: 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 20 8E 00 1E |,ES:. EN.0 . ...| 00000A00: 4A B2 02 99 22 12 44 49 53 4B 20 45 52 52 4F 52 |J...".DISK ERROR| 00000A10: 92 22 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 24 |."EN,EM$,ET,ES.$| 00000A20: 4A BC 02 80 00 48 4A C6 02 8F 2A 2A 2A 2A 2A 2A |J....HJ...******| 00000A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 00 6C 4A D0 02 8F 2A 20 |********.lJ...* | 00000A50: 53 43 52 45 45 4E 20 43 4F 4E 54 49 4E 55 45 20 |SCREEN CONTINUE | 00000A60: 4D 45 53 53 41 47 45 20 20 20 20 2A 00 90 4A DA |MESSAGE *..J.| 00000A70: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A90: 00 AA 4A E4 02 99 22 11 1D 1D 1D 1D 43 4F 4E 54 |..J...".....CONT| 00000AA0: 49 4E 55 45 28 59 2F 4E 29 22 00 C0 4A EE 02 A1 |INUE(Y/N)"..J...| 00000AB0: 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 20 37 35 30 |Z$:. Z$."" . 750| 00000AC0: 00 D1 4A F8 02 8B 20 5A 24 B2 22 4E 22 20 A7 20 |..J... Z$."N" . | 00000AD0: 8E 00 E5 4A 02 03 8B 20 5A 24 B3 B1 22 59 22 20 |...J... Z$.."Y" | 00000AE0: A7 20 37 35 30 00 06 4B 0C 03 99 22 93 54 52 41 |. 750..K...".TRA| 00000AF0: 43 4B 22 20 54 20 22 20 53 45 43 54 4F 52 22 53 |CK" T " SECTOR"S| 00000B00: 20 22 93 22 3A 8E 00 2A 4B 16 03 8F 2A 2A 2A 2A | ".":..*K...****| 00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4E 4B 20 03 8F |**********.NK ..| 00000B30: 2A 20 44 49 53 4B 20 42 59 54 45 20 54 4F 20 48 |* DISK BYTE TO H| 00000B40: 45 58 20 50 52 49 4E 54 20 20 20 20 20 2A 00 72 |EX PRINT *.r| 00000B50: 4B 2A 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |K*..************| 00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B70: 2A 2A 00 95 4B 34 03 41 31 B2 B5 28 4E AD 31 36 |**..K4.A1..(N.16| 00000B80: 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C 41 31 |):A$.A$..(HX$,A1| 00000B90: AA 31 2C 31 29 00 BB 4B 3E 03 41 32 B2 B5 28 4E |.1,1)..K>.A2..(N| 00000BA0: AB 31 36 AC 41 31 29 3A 41 24 B2 41 24 AA CA 28 |.16.A1):A$.A$..(| 00000BB0: 48 58 24 2C 41 32 AA 31 2C 31 29 00 CB 4B 48 03 |HX$,A2.1,1)..KH.| 00000BC0: 41 24 B2 41 24 AA 53 50 24 3A 8E 00 EF 4B 52 03 |A$.A$.SP$:...KR.| 00000BD0: 8F 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 2A 2A 00 |***************.| 00000BF0: 13 4C 5C 03 8F 2A 20 44 49 53 4B 20 42 59 54 45 |.L\..* DISK BYTE| 00000C00: 20 54 4F 20 41 53 43 20 44 49 53 50 4C 41 59 20 | TO ASC DISPLAY | 00000C10: 20 20 2A 00 37 4C 66 03 8F 2A 20 43 48 41 52 41 | *.7Lf..* CHARA| 00000C20: 43 54 45 52 20 20 20 20 20 20 20 20 20 20 20 20 |CTER | 00000C30: 20 20 20 20 20 20 2A 00 5B 4C 70 03 8F 2A 2A 2A | *.[Lp..***| 00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 75 4C 7A 03 |***********.uLz.| 00000C60: 8B 20 C6 28 43 24 29 B3 33 32 20 A7 20 43 24 B2 |. .(C$).32 . C$.| 00000C70: 22 20 22 3A 8E 00 95 4C 8E 03 8B 20 C6 28 43 24 |" ":...L... .(C$| 00000C80: 29 B3 31 32 38 20 B0 20 C6 28 43 24 29 B1 31 35 |).128 . .(C$).15| 00000C90: 39 20 A7 20 8E 00 B5 4C 98 03 43 24 B2 CA 28 53 |9 . ...L..C$..(S| 00000CA0: 53 24 2C 33 AC 28 C6 28 43 24 29 AB 31 32 37 29 |S$,3.(.(C$).127)| 00000CB0: 2C 33 29 3A 8E 00 00 00 |,3):.... |
.@%@D..******************************.@@
I.. SAVE"T&S AUTOREAD",8.D@N..* DISPLAY
ANY TRACK $ SECTOR *..@X..* ON THE DISK
TO THE SCREEN *..@...* OR THE PRINTER
*.P@...**********************
********..@..."...RRRRRRRRRRRRRRRRRRRRRR
"..A .."DISPLAY BLOCK CONTENTS"..A..."EE
EEEEEEEEEEEEEEEEEEEE":.RA...************
******************.VA...* SET PROGRAM CO
NSTANT *..A...********************
**********.FAH.SP$." ":NL$.G(0):HX$."012
3456789ABCDEF"..AR.FS$."":.I.64 . 95:FS$
.FS$.".".G(I).".":. I.)B..SS$." ":. I.1
92 . 223:SS$.SS$.".".G(I).".":. I.<B...
A$(15),NB(2).GB..D$."0".VB..." .S
.CREEN.........OR ...P.RINTER"..B...JJ$:
. JJ$."" .254..B... JJ$."S".." ..
SCREEN.".TB... JJ$."P".." ..PRINT
ER."..B...15,8,15,"I".D$:. 650..B...4,4.
.C... 2,8,2,"#":. 650..C..SS.20.;C...***
***************************._C"..* LOAD
TRACK AND SECTOR *.HC,.XA.0..C6..**
****************************..C@..T.15.3
5..CJ..T.17.SS.18..CL..T.24.SS.17.ICN..T
.30.SS.16.VCP..S.XA.SS..DT.. JJ$."S" . .
"...TRACK"T" SECTOR"S".".,DU.. JJ$."P" .
.4:.4,"TRACK"T" SECTOR"S:.4.GD^..15,"U1
:2,"D$;T;S:.650.KDH..*******************
***********..DR..* READ BYTE 0 OF DISK B
UFFER *..D...***************************
***.ED...15,"B-P:2,1"..D...15,"M-R"G(0)G
(5)..D...#15,A$(0):.A$(0)."".A$(0).NL$..
E... JJ$."S".430."E... JJ$."P".460.FE...
******************************.JE...* RE
AD & CRT DISPLAY *..E...* REST O
F THE DISK BUFFER *..E...************
******************.IE..K.1:NB(1).F(A$(0)
)..E... J.0 . 63:. J.32 . . 710:. Z$."N"
. J.80:. 458..F... I.K . 3./F...#2,A$(I)
:. A$(I)."" . A$(I).NL$.PF... K.1 . I.2
. NB(2).F(A$(I)).\F... I:K.0..F..A$."":B
$.":":N.J.4:. 790:A$.A$.":"..FB.. I.0 .
3:N.F(A$(I)):. 790..FD.C$.A$(I):. 850:B$
.B$.C$.XFF.. I:. JJ$."S" . .A$B$..FJ.. J
:.571..GL..*****************************
*.-GN..* READ & PRINTER DISPLAY *.QG
P..******************************.HGR.K.
1:NB(1).F(A$(0)).WGT.. J.0 . 15..GV.. I.
K . 15..GX..#2,A$(I):. A$(I)."" . A$(I).
NL$.LGZ.. K.1 . I.2 . NB(2).F(A$(I)).XG.
.. I:K.0..H..A$."":B$.":":N.J.16:. 790:A
$.A$.":".5H... I.0 . 15:N.F(A$(I)):. 790
:. Z$."N". J.40:. 571.QH..C$.A$(I):. 850
:B$.B$.C$.YH... I.QH... JJ$."P" . .4,A$B
$.~H... J:.571..H;..********************
**********.FH<..* NEXT TRACK AND SECTOR
*..H=..****************************
**..H?....HD..S..II.XA.0..IN..T..IX... I
B.. Z$."N" . 320.*IL.. 590.NIV..********
**********************.RI...* SUBROUTINE
S *..I...****************
**************..I...* ERROR ROUTINE
*..I...************************
******..I...15,EN,EM$,ET,ES:. EN.0 . ...
J...".DISK ERROR."EN,EM$,ET,ES.$J....HJF
..******************************.LJP..*
SCREEN CONTINUE MESSAGE *..JZ..******
************************..J...".....CONT
INUE(Y/N)"..J...Z$:. Z$."" . 750.QJ... Z
$."N" . ...J... Z$.."Y" . 750..K...".TRA
CK" T " SECTOR"S ".":..*K...************
******************.NK ..* DISK BYTE TO H
EX PRINT *.RK*..********************
**********..K4.A1..(N.16):A$.A$.J(HX$,A1
.1,1)..K>.A2..(N.16.A1):A$.A$.J(HX$,A2.1
,1).KKH.A$.A$.SP$:...KR..***************
***************..L\..* DISK BYTE TO ASC
DISPLAY *.7LF..* CHARACTER
*.[LP..***************************
***.ULZ.. F(C$).32 . C$." ":...L... F(C$
).128 . F(C$).159 . ...L..C$.J(SS$,3.(F(
C$).127),3):....
> CLICK IMAGE PREVIEW FOR FULL MODAL