T&S AUTOREAD
FILE INFORMATION
FILENAME(S): T&S AUTOREAD
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 16:18:14
APPEARS ON: 1 disk(s)
FILE HASH
f450aa32f53a1d73b07f122852f5fb887fa579b08d29d8435d6ac8b3932a9a65
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TOOLS | T&S AUTOREAD | PRG | BrainSkull, Leopold Zyka | 24 | 4 | 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 40 08 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 08 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 08 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 08 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 08 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 08 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 09 A0 00 99 22 44 49 53 50 4C 41 59 20 |"......"DISPLAY | 00000100: 42 4C 4F 43 4B 20 43 4F 4E 54 45 4E 54 53 22 00 |BLOCK CONTENTS".| 00000110: 2E 09 A5 00 99 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |....."..........| 00000120: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 00 52 |............":.R| 00000130: 09 AA 00 8F 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 2A 2A |****************| 00000150: 2A 2A 00 76 09 B4 00 8F 2A 20 53 45 54 20 50 52 |**.v....* 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 09 BE 00 8F 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 2A 2A 2A 2A 00 C6 09 C8 00 53 |**********.....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 09 D2 00 46 53 24 B2 22 |BCDEF".....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 0A DC 00 53 53 24 B2 22 20 |":. I.)...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 0A F0 00 86 20 |).".":. I.<.... | 00000230: 41 24 28 31 35 29 2C 4E 42 28 32 29 00 47 0A FB |A$(15),NB(2).G..| 00000240: 00 44 24 B2 22 30 22 00 76 0A FD 00 99 22 20 20 |.D$."0".v...." | 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 0A FE 00 A1 4A 4A 24 3A |INTER"......JJ$:| 00000280: 8B 20 4A 4A 24 B2 22 22 20 A7 32 35 34 00 B0 0A |. JJ$."" .254...| 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 0A 00 01 8B 20 4A 4A 24 B2 22 50 22 A7 99 |...... 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 0A 04 01 9F 31 35 2C 38 2C 31 |ER."......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: 0A 09 01 9F 34 2C 34 00 0D 0B 0E 01 9F 20 32 2C |....4,4...... 2,| 00000300: 38 2C 32 2C 22 23 22 3A 8D 20 36 35 30 00 17 0B |8,2,"#":. 650...| 00000310: 13 01 53 53 B2 32 30 00 3B 0B 18 01 8F 2A 2A 2A |..SS.20.;....***| 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 0B 22 01 |***********._.".| 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 0B 2C 01 58 41 B2 30 00 8C 0B 36 01 8F 2A 2A |h.,.XA.0...6..**| 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 0B 40 |************...@| 00000390: 01 81 54 B2 31 35 A4 33 35 00 A9 0B 4A 01 8B 54 |..T.15.35...J..T| 000003A0: B1 31 37 A7 53 53 B2 31 38 00 B9 0B 4C 01 8B 54 |.17.SS.18...L..T| 000003B0: B1 32 34 A7 53 53 B2 31 37 00 C9 0B 4E 01 8B 54 |.24.SS.17...N..T| 000003C0: B1 33 30 A7 53 53 B2 31 36 00 D6 0B 50 01 81 53 |.30.SS.16...P..S| 000003D0: B2 58 41 A4 53 53 00 00 0C 54 01 8B 20 4A 4A 24 |.XA.SS...T.. 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 0C 55 01 8B 20 4A 4A 24 B2 22 50 22 20 A7 |.,.U.. 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 0C 5E | SECTOR"S:.4.G.^| 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 0C 68 01 8F 2A 2A 2A |;S:.650.k.h..***| 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 0C 72 01 |***********...r.| 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 0C 86 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********| 000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004B0: 2A 2A 2A 00 C5 0C 90 01 98 31 35 2C 22 42 2D 50 |***......15,"B-P| 000004C0: 3A 32 2C 31 22 00 DB 0C 9A 01 98 31 35 2C 22 4D |:2,1"......15,"M| 000004D0: 2D 52 22 C7 28 30 29 C7 28 35 29 00 FE 0C A4 01 |-R".(0).(5).....| 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: 0D AC 01 8B 20 4A 4A 24 B2 22 53 22 A7 34 33 30 |.... JJ$."S".430| 00000510: 00 22 0D AE 01 8B 20 4A 4A 24 B2 22 50 22 A7 34 |.".... JJ$."P".4| 00000520: 36 30 00 46 0D AF 01 8F 2A 2A 2A 2A 2A 2A 2A 2A |60.F....********| 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 0D B0 01 8F 2A 20 52 45 |******.j....* 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 0D B1 01 8F | *......| 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: 0D B2 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************| 000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005B0: 2A 2A 00 C9 0D B4 01 4B B2 31 3A 4E 42 28 31 29 |**.....K.1:NB(1)| 000005C0: B2 C6 28 41 24 28 30 29 29 00 FC 0D B6 01 81 20 |..(A$(0))...... | 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 0E B8 |. J.80:. 458....| 00000600: 01 81 20 49 B2 4B 20 A4 20 33 00 2F 0E BA 01 A1 |.. I.K . 3./....| 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 0E BC 01 8B 20 4B B2 31 20 AF 20 49 B3 32 20 |P.... 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 0E BE 01 82 20 49 3A 4B B2 30 00 83 0E C0 |.\.... I:K.0....| 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 0E C2 01 81 20 49 B2 30 20 A4 20 |":"...... 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 0E C4 01 43 24 B2 41 24 28 49 29 3A |90.....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: 0E C6 01 82 20 49 3A 8B 20 4A 4A 24 B2 22 53 22 |.... I:. JJ$."S"| 000006D0: 20 A7 20 99 41 24 42 24 00 E5 0E CA 01 82 20 4A | . .A$B$...... J| 000006E0: 3A 89 35 37 31 00 09 0F CC 01 8F 2A 2A 2A 2A 2A |:.571......*****| 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 0F CE 01 8F 2A |*********.-....*| 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 0F |DISPLAY *.Q.| 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 0F D2 01 4B B2 31 3A 4E 42 28 31 29 B2 |*.h...K.1:NB(1).| 00000760: C6 28 41 24 28 30 29 29 00 77 0F D4 01 81 20 4A |.(A$(0)).w.... J| 00000770: B2 30 20 A4 20 31 35 00 86 0F D6 01 81 20 49 B2 |.0 . 15...... I.| 00000780: 4B 20 A4 20 31 35 00 AB 0F D8 01 A1 23 32 2C 41 |K . 15......#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 0F DA 01 |. A$(I).NL$.....| 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 0F DC |(2)..(A$(I))....| 000007D0: 01 82 20 49 3A 4B B2 30 00 00 10 DE 01 41 24 B2 |.. I:K.0.....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 10 E0 01 81 20 49 B2 30 20 A4 20 31 35 3A |.5.... 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 10 E2 01 43 24 B2 41 24 28 |. 571.Q...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 10 E4 01 82 20 49 00 71 10 E6 01 8B 20 |$.Y.... I.q.... | 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 10 E8 01 82 20 4A 3A 89 35 37 31 00 A2 |$.~.... J:.571..| 00000880: 10 3B 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;..************| 00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008A0: 2A 2A 00 C6 10 3C 02 8F 2A 20 4E 45 58 54 20 54 |**...<..* 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 10 3D 02 8F 2A 2A 2A 2A | *...=..****| 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 10 3F 02 8F |**********...?..| 000008F0: 00 F7 10 44 02 82 53 00 00 11 49 02 58 41 B2 30 |...D..S...I.XA.0| 00000900: 00 07 11 4E 02 82 54 00 0D 11 58 02 80 00 20 11 |...N..T...X... .| 00000910: 62 02 8B 20 5A 24 B2 22 4E 22 20 A7 20 33 32 30 |b.. Z$."N" . 320| 00000920: 00 2A 11 6C 02 89 20 35 39 30 00 4E 11 76 02 8F |.*.l.. 590.N.v..| 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: 11 80 02 8F 2A 20 53 55 42 52 4F 55 54 49 4E 45 |....* SUBROUTINE| 00000960: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S | 00000970: 20 2A 00 96 11 8A 02 8F 2A 2A 2A 2A 2A 2A 2A 2A | *......********| 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 11 94 02 8F 2A 20 45 52 |******......* 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 11 9E 02 8F | *......| 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: 11 A8 02 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |....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: 12 B2 02 99 22 12 44 49 53 4B 20 45 52 52 4F 52 |....".DISK ERROR| 00000A10: 92 22 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 24 |."EN,EM$,ET,ES.$| 00000A20: 12 BC 02 80 00 48 12 C6 02 8F 2A 2A 2A 2A 2A 2A |.....H....******| 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 12 D0 02 8F 2A 20 |********.l....* | 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 12 DA |MESSAGE *....| 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 12 E4 02 99 22 11 1D 1D 1D 1D 43 4F 4E 54 |......".....CONT| 00000AA0: 49 4E 55 45 28 59 2F 4E 29 22 00 C0 12 EE 02 A1 |INUE(Y/N)"......| 00000AB0: 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 20 37 35 30 |Z$:. Z$."" . 750| 00000AC0: 00 D1 12 F8 02 8B 20 5A 24 B2 22 4E 22 20 A7 20 |...... Z$."N" . | 00000AD0: 8E 00 E5 12 02 03 8B 20 5A 24 B3 B1 22 59 22 20 |....... Z$.."Y" | 00000AE0: A7 20 37 35 30 00 06 13 0C 03 99 22 93 54 52 41 |. 750......".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 13 16 03 8F 2A 2A 2A 2A | ".":..*....****| 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 13 20 03 8F |**********.N. ..| 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: 13 2A 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.*..************| 00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B70: 2A 2A 00 95 13 34 03 41 31 B2 B5 28 4E AD 31 36 |**...4.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 13 3E 03 41 32 B2 B5 28 4E |.1,1)...>.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 13 48 03 |HX$,A2.1,1)...H.| 00000BC0: 41 24 B2 41 24 AA 53 50 24 3A 8E 00 EF 13 52 03 |A$.A$.SP$:....R.| 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 14 5C 03 8F 2A 20 44 49 53 4B 20 42 59 54 45 |..\..* 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 14 66 03 8F 2A 20 43 48 41 52 41 | *.7.f..* 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 14 70 03 8F 2A 2A 2A | *.[.p..***| 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 14 7A 03 |***********.u.z.| 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 14 8E 03 8B 20 C6 28 43 24 |" ":....... .(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 14 98 03 43 24 B2 CA 28 53 |9 . ......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 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
"... .."DISPLAY BLOCK CONTENTS"......"EE
EEEEEEEEEEEEEEEEEEEE":.R....************
******************.V....* SET PROGRAM CO
NSTANT *......********************
**********.F.H.SP$." ":NL$.G(0):HX$."012
3456789ABCDEF"...R.FS$."":.I.64 . 95:FS$
.FS$.".".G(I).".":. I.)...SS$." ":. I.1
92 . 223:SS$.SS$.".".G(I).".":. I.<....
A$(15),NB(2).G...D$."0".V...." .S
.CREEN.........OR ...P.RINTER"......JJ$:
. JJ$."" .254...... JJ$."S".." ..
SCREEN.".T.... JJ$."P".." ..PRINT
ER."......15,8,15,"I".D$:. 650......4,4.
..... 2,8,2,"#":. 650.....SS.20.;....***
***************************._."..* LOAD
TRACK AND SECTOR *.H.,.XA.0...6..**
****************************...@..T.15.3
5...J..T.17.SS.18...L..T.24.SS.17.I.N..T
.30.SS.16.V.P..S.XA.SS...T.. JJ$."S" . .
"...TRACK"T" SECTOR"S".".,.U.. JJ$."P" .
.4:.4,"TRACK"T" SECTOR"S:.4.G.^..15,"U1
:2,"D$;T;S:.650.K.H..*******************
***********...R..* READ BYTE 0 OF DISK B
UFFER *......***************************
***.E....15,"B-P:2,1"......15,"M-R"G(0)G
(5)......#15,A$(0):.A$(0)."".A$(0).NL$..
.... JJ$."S".430.".... JJ$."P".460.F....
******************************.J....* RE
AD & CRT DISPLAY *......* REST O
F THE DISK BUFFER *......************
******************.I...K.1:NB(1).F(A$(0)
)...... J.0 . 63:. J.32 . . 710:. Z$."N"
. J.80:. 458...... I.K . 3./....#2,A$(I)
:. A$(I)."" . A$(I).NL$.P.... K.1 . I.2
. NB(2).F(A$(I)).\.... I:K.0.....A$."":B
$.":":N.J.4:. 790:A$.A$.":"...B.. I.0 .
3:N.F(A$(I)):. 790...D.C$.A$(I):. 850:B$
.B$.C$.X.F.. I:. JJ$."S" . .A$B$...J.. J
:.571...L..*****************************
*.-.N..* READ & PRINTER DISPLAY *.Q.
P..******************************.H.R.K.
1:NB(1).F(A$(0)).W.T.. J.0 . 15...V.. I.
K . 15...X..#2,A$(I):. A$(I)."" . A$(I).
NL$.L.Z.. K.1 . I.2 . NB(2).F(A$(I)).X..
.. I:K.0.....A$."":B$.":":N.J.16:. 790:A
$.A$.":".5.... I.0 . 15:N.F(A$(I)):. 790
:. Z$."N". J.40:. 571.Q...C$.A$(I):. 850
:B$.B$.C$.Y.... I.Q.... JJ$."P" . .4,A$B
$.~.... J:.571...;..********************
**********.F.<..* NEXT TRACK AND SECTOR
*...=..****************************
**...?.....D..S...I.XA.0...N..T...X... .
B.. Z$."N" . 320.*.L.. 590.N.V..********
**********************.R....* SUBROUTINE
S *......****************
**************......* ERROR ROUTINE
*......************************
******......15,EN,EM$,ET,ES:. EN.0 . ...
....".DISK ERROR."EN,EM$,ET,ES.$.....H.F
..******************************.L.P..*
SCREEN CONTINUE MESSAGE *...Z..******
************************......".....CONT
INUE(Y/N)"......Z$:. Z$."" . 750.Q.... Z
$."N" . ....... Z$.."Y" . 750......".TRA
CK" T " SECTOR"S ".":..*....************
******************.N. ..* DISK BYTE TO H
EX PRINT *.R.*..********************
**********...4.A1..(N.16):A$.A$.J(HX$,A1
.1,1)...>.A2..(N.16.A1):A$.A$.J(HX$,A2.1
,1).K.H.A$.A$.SP$:....R..***************
***************...\..* DISK BYTE TO ASC
DISPLAY *.7.F..* CHARACTER
*.[.P..***************************
***.U.Z.. F(C$).32 . C$." ":....... F(C$
).128 . F(C$).159 . ......C$.J(SS$,3.(F(
C$).127),3):.....
> CLICK IMAGE PREVIEW FOR FULL MODAL