_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

DISK-TRICK

FILE INFORMATION

FILENAME(S): DISK-TRICK

FILE TYPE(S): PRG

FILE SIZE: 6.8K

FIRST SEEN: 2025-12-01 01:06:20

APPEARS ON: 1 disk(s)

FILE HASH

bdb69d8839efb2a9a215174392fe19fb819c981f9ba6138df4ed9612efb6dddb

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NYTTOPROGRAM 1 DISK-TRICK PRG hedning, groth 5 8 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 D6 08  96 00 99 22 93 11 11 D2  |*****......"....|
000000C0: D2 D2 D2 D2 D2 D2 D2 D2  D2 D2 D2 D2 D2 D2 D2 D2  |................|
000000D0: D2 D2 D2 D2 D2 22 00 F4  08 A0 00 99 22 44 49 53  |....."......"DIS|
000000E0: 50 4C 41 59 20 42 4C 4F  43 4B 20 43 4F 4E 54 45  |PLAY BLOCK CONTE|
000000F0: 4E 54 53 22 00 13 09 A5  00 99 22 C5 C5 C5 C5 C5  |NTS"......".....|
00000100: C5 C5 C5 C5 C5 C5 C5 C5  C5 C5 C5 C5 C5 C5 C5 C5  |................|
00000110: C5 22 3A 00 37 09 AA 00  8F 2A 2A 2A 2A 2A 2A 2A  |.":.7....*******|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 00  5B 09 B4 00 8F 2A 20 53  |*******.[....* S|
00000140: 45 54 20 50 52 4F 47 52  41 4D 20 43 4F 4E 53 54  |ET PROGRAM CONST|
00000150: 41 4E 54 20 20 20 20 20  20 20 2A 00 7F 09 BE 00  |ANT       *.....|
00000160: 8F 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.***************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00000180: AB 09 C8 00 53 50 24 B2  22 20 22 3A 4E 4C 24 B2  |....SP$." ":NL$.|
00000190: C7 28 30 29 3A 48 58 24  B2 22 30 31 32 33 34 35  |.(0):HX$."012345|
000001A0: 36 37 38 39 41 42 43 44  45 46 22 00 DA 09 D2 00  |6789ABCDEF".....|
000001B0: 46 53 24 B2 22 22 3A 81  49 B2 36 34 20 A4 20 39  |FS$."":.I.64 . 9|
000001C0: 35 3A 46 53 24 B2 46 53  24 AA 22 12 22 AA C7 28  |5:FS$.FS$."."..(|
000001D0: 49 29 AA 22 92 22 3A 82  20 49 00 0E 0A DC 00 53  |I).".":. I.....S|
000001E0: 53 24 B2 22 20 20 22 3A  81 20 49 B2 31 39 32 20  |S$."  ":. I.192 |
000001F0: A4 20 32 32 33 3A 53 53  24 B2 53 53 24 AA 22 12  |. 223:SS$.SS$.".|
00000200: 22 AA C7 28 49 29 AA 22  92 22 3A 82 20 49 00 21  |"..(I).".":. I.!|
00000210: 0A F0 00 86 20 41 24 28  31 35 29 2C 4E 42 28 32  |.... A$(15),NB(2|
00000220: 29 00 2C 0A FB 00 44 24  B2 22 30 22 00 5B 0A FD  |).,...D$."0".[..|
00000230: 00 99 22 20 20 20 20 20  20 20 20 12 53 92 43 52  |.."        .S.CR|
00000240: 45 45 4E 11 9D 9D 9D 9D  9D 9D 9D 9D 4F 52 20 11  |EEN.........OR .|
00000250: 9D 12 50 92 52 49 4E 54  45 52 22 00 72 0A FE 00  |..P.RINTER".r...|
00000260: A1 4A 4A 24 3A 8B 20 4A  4A 24 B2 22 22 20 A7 32  |.JJ$:. JJ$."" .2|
00000270: 35 34 00 95 0A FF 00 8B  20 4A 4A 24 B2 22 53 22  |54...... JJ$."S"|
00000280: A7 99 22 20 20 20 20 20  20 20 20 11 12 53 43 52  |.."        ..SCR|
00000290: 45 45 4E 92 22 00 B9 0A  00 01 8B 20 4A 4A 24 B2  |EEN."...... JJ$.|
000002A0: 22 50 22 A7 99 22 20 20  20 20 20 20 20 20 11 12  |"P".."        ..|
000002B0: 50 52 49 4E 54 45 52 92  22 00 D3 0A 04 01 9F 31  |PRINTER."......1|
000002C0: 35 2C 38 2C 31 35 2C 22  49 22 AA 44 24 3A 8D 20  |5,8,15,"I".D$:. |
000002D0: 36 35 30 00 DC 0A 09 01  9F 34 2C 34 00 F2 0A 0E  |650......4,4....|
000002E0: 01 9F 20 32 2C 38 2C 32  2C 22 23 22 3A 8D 20 36  |.. 2,8,2,"#":. 6|
000002F0: 35 30 00 16 0B 18 01 8F  2A 2A 2A 2A 2A 2A 2A 2A  |50......********|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000310: 2A 2A 2A 2A 2A 2A 00 3A  0B 22 01 8F 2A 20 4C 4F  |******.:."..* LO|
00000320: 41 44 20 54 52 41 43 4B  20 41 4E 44 20 53 45 43  |AD TRACK AND SEC|
00000330: 54 4F 52 20 20 20 20 20  20 2A 00 5E 0B 2C 01 8F  |TOR      *.^.,..|
00000340: 2A 20 49 4E 54 4F 20 44  49 53 4B 20 42 55 46 46  |* INTO DISK BUFF|
00000350: 45 52 20 20 20 20 20 20  20 20 20 20 20 2A 00 82  |ER           *..|
00000360: 0B 36 01 8F 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.6..************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000380: 2A 2A 00 9E 0B 40 01 85  22 11 1D 1D 54 52 41 43  |**...@.."...TRAC|
00000390: 4B 2C 20 53 45 43 54 4F  52 22 3B 54 2C 53 00 CE  |K, SECTOR";T,S..|
000003A0: 0B 4A 01 8B 20 54 B2 30  20 B0 20 54 B1 33 35 20  |.J.. T.0 . T.35 |
000003B0: A7 20 98 31 35 2C 22 49  22 44 24 3A A0 32 3A A0  |. .15,"I"D$:.2:.|
000003C0: 34 3A A0 31 35 3A 99 22  45 4E 44 22 3A 80 00 F8  |4:.15:."END":...|
000003D0: 0B 54 01 8B 20 4A 4A 24  B2 22 53 22 20 A7 20 99  |.T.. JJ$."S" . .|
000003E0: 22 11 1D 1D 54 52 41 43  4B 22 54 22 20 53 45 43  |"...TRACK"T" SEC|
000003F0: 54 4F 52 22 53 22 11 22  00 24 0C 55 01 8B 20 4A  |TOR"S".".$.U.. J|
00000400: 4A 24 B2 22 50 22 20 A7  20 98 34 3A 98 34 2C 22  |J$."P" . .4:.4,"|
00000410: 54 52 41 43 4B 22 54 22  20 53 45 43 54 4F 52 22  |TRACK"T" SECTOR"|
00000420: 53 3A 98 34 00 3F 0C 5E  01 98 31 35 2C 22 55 31  |S:.4.?.^..15,"U1|
00000430: 3A 32 2C 22 44 24 3B 54  3B 53 3A 8D 36 35 30 00  |:2,"D$;T;S:.650.|
00000440: 63 0C 68 01 8F 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |c.h..***********|
00000450: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000460: 2A 2A 2A 00 87 0C 72 01  8F 2A 20 52 45 41 44 20  |***...r..* READ |
00000470: 42 59 54 45 20 30 20 4F  46 20 44 49 53 4B 20 42  |BYTE 0 OF DISK B|
00000480: 55 46 46 45 52 20 2A 00  AB 0C 86 01 8F 2A 2A 2A  |UFFER *......***|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 BD 0C 90 01  |***********.....|
000004B0: 98 31 35 2C 22 42 2D 50  3A 32 2C 31 22 00 D3 0C  |.15,"B-P:2,1"...|
000004C0: 9A 01 98 31 35 2C 22 4D  2D 52 22 C7 28 30 29 C7  |...15,"M-R".(0).|
000004D0: 28 35 29 00 F6 0C A4 01  A1 23 31 35 2C 41 24 28  |(5)......#15,A$(|
000004E0: 30 29 3A 8B 41 24 28 30  29 B2 22 22 A7 41 24 28  |0):.A$(0)."".A$(|
000004F0: 30 29 B2 4E 4C 24 00 08  0D AC 01 8B 20 4A 4A 24  |0).NL$...... JJ$|
00000500: B2 22 53 22 A7 34 33 30  00 1A 0D AE 01 8B 20 4A  |."S".430...... J|
00000510: 4A 24 B2 22 50 22 A7 34  36 30 00 3E 0D AF 01 8F  |J$."P".460.>....|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 62  |**************.b|
00000540: 0D B0 01 8F 2A 20 52 45  41 44 20 26 20 43 52 54  |....* READ & CRT|
00000550: 20 44 49 53 50 4C 41 59  20 20 20 20 20 20 20 20  | DISPLAY        |
00000560: 20 2A 00 86 0D B1 01 8F  2A 20 52 45 53 54 20 4F  | *......* REST O|
00000570: 46 20 54 48 45 20 44 49  53 4B 20 42 55 46 46 45  |F THE DISK BUFFE|
00000580: 52 20 20 20 20 2A 00 AA  0D B2 01 8F 2A 2A 2A 2A  |R    *......****|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 C1 0D B4 01 4B  |**********.....K|
000005B0: B2 31 3A 4E 42 28 31 29  B2 C6 28 41 24 28 30 29  |.1:NB(1)..(A$(0)|
000005C0: 29 00 F4 0D B6 01 81 20  4A B2 30 20 A4 20 36 33  |)...... J.0 . 63|
000005D0: 3A 8B 20 4A B2 33 32 20  A7 20 8D 20 37 31 30 3A  |:. J.32 . . 710:|
000005E0: 8B 20 5A 24 B2 22 4E 22  A7 20 4A B2 38 30 3A 89  |. Z$."N". J.80:.|
000005F0: 20 34 35 38 00 02 0E B8  01 81 20 49 B2 4B 20 A4  | 458...... I.K .|
00000600: 20 33 00 27 0E BA 01 A1  23 32 2C 41 24 28 49 29  | 3.'....#2,A$(I)|
00000610: 3A 8B 20 41 24 28 49 29  B2 22 22 20 A7 20 41 24  |:. A$(I)."" . A$|
00000620: 28 49 29 B2 4E 4C 24 00  48 0E BC 01 8B 20 4B B2  |(I).NL$.H.... K.|
00000630: 31 20 AF 20 49 B3 32 20  A7 20 4E 42 28 32 29 B2  |1 . I.2 . NB(2).|
00000640: C6 28 41 24 28 49 29 29  00 54 0E BE 01 82 20 49  |.(A$(I)).T.... I|
00000650: 3A 4B B2 30 00 7B 0E C0  01 41 24 B2 22 22 3A 42  |:K.0.{...A$."":B|
00000660: 24 B2 22 3A 22 3A 4E B2  4A AC 34 3A 8D 20 37 39  |$.":":N.J.4:. 79|
00000670: 30 3A 41 24 B2 41 24 AA  22 3A 22 00 9A 0E C2 01  |0:A$.A$.":".....|
00000680: 81 20 49 B2 30 20 A4 20  33 3A 4E B2 C6 28 41 24  |. I.0 . 3:N..(A$|
00000690: 28 49 29 29 3A 8D 20 37  39 30 00 B6 0E C4 01 43  |(I)):. 790.....C|
000006A0: 24 B2 41 24 28 49 29 3A  8D 20 38 35 30 3A 42 24  |$.A$(I):. 850:B$|
000006B0: B2 42 24 AA 43 24 00 D0  0E C6 01 82 20 49 3A 8B  |.B$.C$...... I:.|
000006C0: 20 4A 4A 24 B2 22 53 22  20 A7 20 99 41 24 42 24  | JJ$."S" . .A$B$|
000006D0: 00 DD 0E CA 01 82 20 4A  3A 89 35 37 31 00 01 0F  |...... J:.571...|
000006E0: CC 01 8F 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |...*************|
000006F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000700: 2A 00 25 0F CE 01 8F 2A  20 52 45 41 44 20 26 20  |*.%....* READ & |
00000710: 50 52 49 4E 54 45 52 20  44 49 53 50 4C 41 59 20  |PRINTER DISPLAY |
00000720: 20 20 20 20 2A 00 49 0F  D0 01 8F 2A 2A 2A 2A 2A  |    *.I....*****|
00000730: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000740: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 60 0F D2 01 4B B2  |*********.`...K.|
00000750: 31 3A 4E 42 28 31 29 B2  C6 28 41 24 28 30 29 29  |1:NB(1)..(A$(0))|
00000760: 00 6F 0F D4 01 81 20 4A  B2 30 20 A4 20 31 35 00  |.o.... J.0 . 15.|
00000770: 7E 0F D6 01 81 20 49 B2  4B 20 A4 20 31 35 00 A3  |~.... I.K . 15..|
00000780: 0F D8 01 A1 23 32 2C 41  24 28 49 29 3A 8B 20 41  |....#2,A$(I):. A|
00000790: 24 28 49 29 B2 22 22 20  A7 20 41 24 28 49 29 B2  |$(I)."" . A$(I).|
000007A0: 4E 4C 24 00 C4 0F DA 01  8B 20 4B B2 31 20 AF 20  |NL$...... K.1 . |
000007B0: 49 B3 32 20 A7 20 4E 42  28 32 29 B2 C6 28 41 24  |I.2 . NB(2)..(A$|
000007C0: 28 49 29 29 00 D0 0F DC  01 82 20 49 3A 4B B2 30  |(I))...... I:K.0|
000007D0: 00 F8 0F DE 01 41 24 B2  22 22 3A 42 24 B2 22 3A  |.....A$."":B$.":|
000007E0: 22 3A 4E B2 4A AC 31 36  3A 8D 20 37 39 30 3A 41  |":N.J.16:. 790:A|
000007F0: 24 B2 41 24 AA 22 3A 22  00 2D 10 E0 01 81 20 49  |$.A$.":".-.... I|
00000800: B2 30 20 A4 20 31 35 3A  4E B2 C6 28 41 24 28 49  |.0 . 15:N..(A$(I|
00000810: 29 29 3A 8D 20 37 39 30  3A 8B 20 5A 24 B2 22 4E  |)):. 790:. Z$."N|
00000820: 22 A7 20 4A B2 34 30 3A  89 20 35 37 31 00 49 10  |". J.40:. 571.I.|
00000830: E2 01 43 24 B2 41 24 28  49 29 3A 8D 20 38 35 30  |..C$.A$(I):. 850|
00000840: 3A 42 24 B2 42 24 AA 43  24 00 51 10 E4 01 82 20  |:B$.B$.C$.Q.... |
00000850: 49 00 69 10 E6 01 8B 20  4A 4A 24 B2 22 50 22 20  |I.i.... JJ$."P" |
00000860: A7 20 98 34 2C 41 24 42  24 00 76 10 E8 01 82 20  |. .4,A$B$.v.... |
00000870: 4A 3A 89 35 37 31 00 9A  10 3B 02 8F 2A 2A 2A 2A  |J:.571...;..****|
00000880: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 BE 10 3C 02 8F  |**********...<..|
000008A0: 2A 20 4E 45 58 54 20 54  52 41 43 4B 20 41 4E 44  |* NEXT TRACK AND|
000008B0: 20 53 45 43 54 4F 52 20  20 20 20 20 20 2A 00 E2  | SECTOR      *..|
000008C0: 10 3D 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 0D 11 3F 02 99  22 4E 45 58 54 20 54 52  |**...?.."NEXT TR|
000008F0: 41 43 4B 20 41 4E 44 20  53 45 43 54 4F 52 22 4E  |ACK AND SECTOR"N|
00000900: 42 28 31 29 4E 42 28 32  29 20 22 11 22 00 36 11  |B(1)NB(2) ".".6.|
00000910: 44 02 99 22 44 4F 20 59  4F 55 20 57 41 4E 54 20  |D.."DO YOU WANT |
00000920: 4E 45 58 54 20 54 52 41  43 4B 20 41 4E 44 20 53  |NEXT TRACK AND S|
00000930: 45 43 54 4F 52 22 00 4C  11 4E 02 A1 20 5A 24 3A  |ECTOR".L.N.. Z$:|
00000940: 8B 20 5A 24 B2 22 22 20  A7 35 39 30 00 70 11 58  |. Z$."" .590.p.X|
00000950: 02 8B 20 5A 24 B2 22 59  22 20 A7 20 54 B2 4E 42  |.. Z$."Y" . T.NB|
00000960: 28 31 29 3A 53 B2 4E 42  28 32 29 3A 89 33 33 30  |(1):S.NB(2):.330|
00000970: 00 8D 11 62 02 8B 20 5A  24 B2 22 4E 22 20 A7 20  |...b.. Z$."N" . |
00000980: 33 32 31 A0 8D 1B 6C 02  89 20 35 39 30 00 B1 11  |321...l.. 590...|
00000990: 76 02 8F 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |v..*************|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000009B0: 2A 00 D5 11 80 02 8F 2A  20 53 55 42 52 4F 55 54  |*......* SUBROUT|
000009C0: 49 4E 45 53 20 20 20 20  20 20 20 20 20 20 20 20  |INES            |
000009D0: 20 20 20 20 2A 00 F9 11  8A 02 8F 2A 2A 2A 2A 2A  |    *......*****|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 1D 12 94 02 8F 2A  |*********......*|
00000A00: 20 45 52 52 4F 52 20 52  4F 55 54 49 4E 45 20 20  | ERROR ROUTINE  |
00000A10: 20 20 20 20 20 20 20 20  20 20 20 20 2A 00 41 12  |            *.A.|
00000A20: 9E 02 8F 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |...*************|
00000A30: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000A40: 2A 00 61 12 A8 02 84 31  35 2C 45 4E 2C 45 4D 24  |*.a....15,EN,EM$|
00000A50: 2C 45 54 2C 45 53 3A 8B  20 45 4E B2 30 20 A7 20  |,ET,ES:. EN.0 . |
00000A60: 8E 00 81 12 B2 02 99 22  12 44 49 53 4B 20 45 52  |.......".DISK ER|
00000A70: 52 4F 52 92 22 45 4E 2C  45 4D 24 2C 45 54 2C 45  |ROR."EN,EM$,ET,E|
00000A80: 53 00 87 12 BC 02 80 00  AB 12 C6 02 8F 2A 2A 2A  |S............***|
00000A90: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000AA0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 CF 12 D0 02  |***********.....|
00000AB0: 8F 2A 20 53 43 52 45 45  4E 20 43 4F 4E 54 49 4E  |.* SCREEN CONTIN|
00000AC0: 55 45 20 4D 45 53 53 41  47 45 20 20 20 20 2A 00  |UE MESSAGE    *.|
00000AD0: F3 12 DA 02 8F 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.....***********|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000AF0: 2A 2A 2A 00 0D 13 E4 02  99 22 11 1D 1D 1D 1D 43  |***......".....C|
00000B00: 4F 4E 54 49 4E 55 45 28  59 2F 4E 29 22 00 23 13  |ONTINUE(Y/N)".#.|
00000B10: EE 02 A1 5A 24 3A 8B 20  5A 24 B2 22 22 20 A7 20  |...Z$:. Z$."" . |
00000B20: 37 35 30 00 34 13 F8 02  8B 20 5A 24 B2 22 4E 22  |750.4.... Z$."N"|
00000B30: 20 A7 20 8E 00 48 13 02  03 8B 20 5A 24 B3 B1 22  | . ..H.... Z$.."|
00000B40: 59 22 20 A7 20 37 35 30  00 69 13 0C 03 99 22 93  |Y" . 750.i....".|
00000B50: 54 52 41 43 4B 22 20 54  20 22 20 53 45 43 54 4F  |TRACK" T " SECTO|
00000B60: 52 22 53 20 22 93 22 3A  8E 00 8D 13 16 03 8F 2A  |R"S ".":.......*|
00000B70: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000B80: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 B1 13  |*************...|
00000B90: 20 03 8F 2A 20 44 49 53  4B 20 42 59 54 45 20 54  | ..* DISK BYTE T|
00000BA0: 4F 20 48 45 58 20 50 52  49 4E 54 20 20 20 20 20  |O HEX PRINT     |
00000BB0: 2A 00 D5 13 2A 03 8F 2A  2A 2A 2A 2A 2A 2A 2A 2A  |*...*..*********|
00000BC0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000BD0: 2A 2A 2A 2A 2A 00 F8 13  34 03 41 31 B2 B5 28 4E  |*****...4.A1..(N|
00000BE0: AD 31 36 29 3A 41 24 B2  41 24 AA CA 28 48 58 24  |.16):A$.A$..(HX$|
00000BF0: 2C 41 31 AA 31 2C 31 29  00 1E 14 3E 03 41 32 B2  |,A1.1,1)...>.A2.|
00000C00: B5 28 4E AB 31 36 AC 41  31 29 3A 41 24 B2 41 24  |.(N.16.A1):A$.A$|
00000C10: AA CA 28 48 58 24 2C 41  32 AA 31 2C 31 29 00 2E  |..(HX$,A2.1,1)..|
00000C20: 14 48 03 41 24 B2 41 24  AA 53 50 24 3A 8E 00 52  |.H.A$.A$.SP$:..R|
00000C30: 14 52 03 8F 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.R..************|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000C50: 2A 2A 00 76 14 5C 03 8F  2A 20 44 49 53 4B 20 42  |**.v.\..* DISK B|
00000C60: 59 54 45 20 54 4F 20 41  53 43 20 44 49 53 50 4C  |YTE TO ASC DISPL|
00000C70: 41 59 20 20 20 2A 00 9A  14 66 03 8F 2A 20 43 48  |AY   *...f..* CH|
00000C80: 41 52 41 43 54 45 52 20  20 20 20 20 20 20 20 20  |ARACTER         |
00000C90: 20 20 20 20 20 20 20 20  20 2A 00 BE 14 70 03 8F  |         *...p..|
00000CA0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 D8  |**************..|
00000CC0: 14 7A 03 8B 20 C6 28 43  24 29 B3 33 32 20 A7 20  |.z.. .(C$).32 . |
00000CD0: 43 24 B2 22 20 22 3A 8E  00 F8 14 8E 03 8B 20 C6  |C$." ":....... .|
00000CE0: 28 43 24 29 B3 31 32 38  20 B0 20 C6 28 43 24 29  |(C$).128 . .(C$)|
00000CF0: B1 31 35 39 20 A7 20 8E  00 18 15 98 03 43 24 B2  |.159 . ......C$.|
00000D00: CA 28 53 53 24 2C 33 AC  28 C6 28 43 24 29 AB 31  |.(SS$,3.(.(C$).1|
00000D10: 32 37 29 2C 33 29 3A 8E  00 3A 15 E7 03 80 3A 20  |27),3):..:....: |
00000D20: 8F 20 50 52 4F 47 52 41  4D 20 31 3A 43 48 41 4E  |. PROGRAM 1:CHAN|
00000D30: 47 45 20 64 72 20 4E 41  4D 45 00 55 15 E8 03 85  |GE dr NAME.U....|
00000D40: 20 22 93 4E 45 57 20 44  49 53 4B 20 4E 41 4D 45  | ".NEW DISK NAME|
00000D50: 22 3B 44 4E 24 00 91 15  F2 03 8B 20 C3 28 44 4E  |";DN$...... .(DN|
00000D60: 24 29 B3 31 36 20 A7 20  44 4E 24 B2 44 4E 24 AA  |$).16 . DN$.DN$.|
00000D70: C7 28 31 36 30 29 3A 89  20 31 30 31 30 3A 8F 20  |.(160):. 1010:. |
00000D80: 53 54 52 45 54 43 48 20  54 4F 20 31 36 20 64 0B  |STRETCH TO 16 d.|
00000D90: 53 00 D2 15 FC 03 8B 20  C3 28 44 4E 24 29 20 B1  |S...... .(DN$) .|
00000DA0: 20 31 36 20 A7 20 44 4E  24 B2 C8 28 44 4E 24 2C  | 16 . DN$..(DN$,|
00000DB0: 31 36 29 3A 20 8F 20 53  48 4F 52 54 45 4E 20 4E  |16): . SHORTEN N|
00000DC0: 41 4D 45 20 54 4F 20 31  36 20 64 0B 41 43 54 45  |AME TO 16 d.ACTE|
00000DD0: 52 53 00 ED 15 E8 03 85  20 22 93 4E 45 57 20 44  |RS...... ".NEW D|
00000DE0: 49 53 4B 20 4E 41 4D 45  22 3B 44 4E 24 00 2B 16  |ISK NAME";DN$.+.|
00000DF0: F2 03 8B 20 C3 28 44 4E  24 29 B3 31 36 20 A7 20  |... .(DN$).16 . |
00000E00: 44 4E 24 B2 44 4E 24 AA  C7 28 31 36 30 29 3A 89  |DN$.DN$..(160):.|
00000E10: 20 31 30 31 30 3A 8F 20  53 54 52 45 54 43 48 20  | 1010:. STRETCH |
00000E20: 54 4F 20 31 36 20 43 48  41 52 53 00 6E 16 FC 03  |TO 16 CHARS.n...|
00000E30: 8B 20 C3 28 44 4E 24 29  20 B1 20 31 36 20 A7 20  |. .(DN$) . 16 . |
00000E40: 44 4E 24 B2 C8 28 44 4E  24 2C 31 36 29 3A 20 8F  |DN$..(DN$,16): .|
00000E50: 20 53 48 4F 52 54 45 4E  20 4E 41 4D 45 20 54 4F  | SHORTEN NAME TO|
00000E60: 20 31 36 20 43 48 41 52  41 43 54 45 52 53 00 9D  | 16 CHARACTERS..|
00000E70: 16 06 04 9F 20 31 35 2C  38 2C 31 35 2C 22 49 22  |.... 15,8,15,"I"|
00000E80: 3A 20 8F 20 4F 50 45 4E  20 44 49 53 4B 20 43 4F  |: . OPEN DISK CO|
00000E90: 4D 4D 41 4E 44 20 43 48  41 4E 4E 45 4C 00 CB 16  |MMAND CHANNEL...|
00000EA0: 10 04 9F 20 38 2C 38 2C  38 2C 22 23 22 3A 20 8F  |... 8,8,8,"#": .|
00000EB0: 20 4F 50 45 4E 20 44 49  52 45 43 54 20 41 43 43  | OPEN DIRECT ACC|
00000EC0: 45 53 53 20 43 48 41 4E  4E 45 4C 00 13 17 1A 04  |ESS CHANNEL.....|
00000ED0: 98 31 35 2C 20 22 55 31  3A 22 38 3B 30 3B 31 38  |.15, "U1:"8;0;18|
00000EE0: 3B 30 3A 20 8F 20 52 45  41 44 20 54 52 41 43 4B  |;0: . READ TRACK|
00000EF0: 20 31 38 2C 20 53 45 43  54 4F 52 20 30 20 49 4E  | 18, SECTOR 0 IN|
00000F00: 54 4F 20 43 48 41 4E 4E  45 4C 20 38 20 42 55 46  |TO CHANNEL 8 BUF|
00000F10: 46 45 52 00 5A 17 24 04  98 31 35 2C 20 22 42 2D  |FER.Z.$..15, "B-|
00000F20: 50 3A 22 38 3B 31 34 34  3A 20 8F 20 4D 4F 56 45  |P:"8;144: . MOVE|
00000F30: 20 42 55 46 46 45 52 2D  50 4F 49 4E 54 45 52 20  | BUFFER-POINTER |
00000F40: 54 4F 20 46 49 52 53 54  20 42 59 54 45 20 4F 46  |TO FIRST BYTE OF|
00000F50: 20 44 49 53 4B 20 4E 41  4D 45 00 9F 17 2E 04 98  | DISK NAME......|
00000F60: 38 2C 20 44 4E 24 3B 3A  20 8F 20 50 55 54 20 4E  |8, DN$;: . PUT N|
00000F70: 45 57 20 4E 41 4D 45 20  49 4E 20 43 48 41 4E 4E  |EW NAME IN CHANN|
00000F80: 45 4C 20 38 20 42 55 46  46 45 52 2C 20 52 45 50  |EL 8 BUFFER, REP|
00000F90: 4C 41 43 49 4E 47 20 4F  4C 44 20 4E 41 4D 45 00  |LACING OLD NAME.|
00000FA0: D6 17 38 04 98 31 35 2C  22 55 32 3A 22 38 3B 30  |..8..15,"U2:"8;0|
00000FB0: 3B 31 38 3B 30 3A 8F 20  57 52 49 54 45 20 42 55  |;18;0:. WRITE BU|
00000FC0: 46 46 45 52 20 57 49 54  48 20 4E 41 4D 45 20 43  |FFER WITH NAME C|
00000FD0: 48 41 4E 47 45 44 00 FC  17 42 04 A0 20 38 3A 8F  |HANGED...B.. 8:.|
00000FE0: 20 43 4C 4F 53 45 20 44  49 52 45 43 54 20 41 43  | CLOSE DIRECT AC|
00000FF0: 43 45 53 53 20 43 48 41  4E 4E 45 4C 00 1D 18 4C  |CESS CHANNEL...L|
00001000: 04 A0 31 35 3A 20 8F 20  43 4C 4F 53 45 20 43 4F  |..15: . CLOSE CO|
00001010: 4D 4D 41 4E 44 20 43 48  41 4E 4E 45 4C 00 4D 18  |MMAND CHANNEL.M.|
00001020: 56 04 89 20 31 30 30 3A  20 8F 20 52 45 53 54 41  |V.. 100: . RESTA|
00001030: 52 54 20 64 7D 20 54 26  53 20 50 52 4F 47 52 41  |RT d} T&S PROGRA|
00001040: 4D 20 49 46 20 41 50 50  45 4E 44 45 44 00 6E 18  |M IF APPENDED.n.|
00001050: CF 07 80 3A 20 8F 20 50  52 4F 47 52 41 4D 20 32  |...: . PROGRAM 2|
00001060: 3A 20 43 48 41 4E 47 45  20 64 72 20 49 44 00 87  |: CHANGE dr ID..|
00001070: 18 D0 07 85 20 22 93 4E  45 57 20 44 49 53 4B 20  |.... ".NEW DISK |
00001080: 49 44 22 3B 49 44 24 00  BD 18 DA 07 8B 20 C3 28  |ID";ID$...... .(|
00001090: 49 44 24 29 20 B3 B1 20  32 20 A7 20 32 30 30 30  |ID$) .. 2 . 2000|
000010A0: 3A 20 8F 20 52 45 4A 45  43 54 20 49 4D 50 52 4F  |: . REJECT IMPRO|
000010B0: 50 45 52 20 4C 45 4E 47  48 54 20 49 44 00 EC 18  |PER LENGHT ID...|
000010C0: E4 07 9F 20 31 35 2C 38  2C 31 35 2C 22 49 22 3A  |... 15,8,15,"I":|
000010D0: 20 8F 20 4F 50 45 4E 20  44 49 53 4B 20 43 4F 4D  | . OPEN DISK COM|
000010E0: 4D 41 4E 44 20 43 48 41  4E 4E 45 4C 00 19 19 EE  |MAND CHANNEL....|
000010F0: 07 9F 38 2C 38 2C 38 2C  22 23 22 3A 20 8F 20 4F  |..8,8,8,"#": . O|
00001100: 50 45 4E 20 44 49 52 45  43 54 20 41 43 43 45 53  |PEN DIRECT ACCES|
00001110: 53 20 43 48 41 4E 4E 45  4C 00 61 19 F8 07 98 31  |S CHANNEL.a....1|
00001120: 35 2C 20 22 55 31 3A 22  38 3B 30 3B 31 38 3B 30  |5, "U1:"8;0;18;0|
00001130: 3A 20 8F 20 52 45 41 44  20 54 52 41 43 4B 20 31  |: . READ TRACK 1|
00001140: 38 2C 20 53 45 43 54 4F  52 20 30 20 49 4E 54 4F  |8, SECTOR 0 INTO|
00001150: 20 43 48 41 4E 4E 45 4C  20 38 20 42 55 46 46 45  | CHANNEL 8 BUFFE|
00001160: 52 00 A6 19 02 08 98 31  35 2C 20 22 42 2D 50 3A  |R......15, "B-P:|
00001170: 22 38 3B 31 36 32 3A 20  8F 20 4D 4F 56 45 20 42  |"8;162: . MOVE B|
00001180: 55 46 46 45 52 2D 50 4F  49 4E 54 45 52 20 54 4F  |UFFER-POINTER TO|
00001190: 20 46 49 52 53 54 20 42  59 54 45 20 4F 46 20 44  | FIRST BYTE OF D|
000011A0: 49 53 4B 20 49 44 00 E7  19 0C 08 98 38 2C 20 49  |ISK ID......8, I|
000011B0: 44 24 3B 3A 20 8F 20 50  55 54 20 4E 45 57 20 49  |D$;: . PUT NEW I|
000011C0: 44 20 49 4E 20 43 48 41  4E 4E 45 4C 20 38 20 42  |D IN CHANNEL 8 B|
000011D0: 55 46 46 45 52 2C 20 52  45 50 4C 41 43 49 4E 47  |UFFER, REPLACING|
000011E0: 20 4F 4C 44 20 49 44 00  16 1A 16 08 98 31 35 2C  | OLD ID......15,|
000011F0: 20 22 55 32 3A 22 38 3B  30 3B 31 38 3B 30 3A 20  | "U2:"8;0;18;0: |
00001200: 8F 20 53 54 4F 52 45 20  42 55 46 46 45 52 20 54  |. STORE BUFFER T|
00001210: 4F 20 44 49 53 4B 00 3C  1A 20 08 A0 38 3A 20 8F  |O DISK.<. ..8: .|
00001220: 20 43 4C 4F 53 45 20 44  49 52 45 43 54 20 41 43  | CLOSE DIRECT AC|
00001230: 43 45 53 53 20 43 48 41  4E 4E 45 4C 00 5D 1A 2A  |CESS CHANNEL.].*|
00001240: 08 A0 31 35 3A 20 8F 20  43 4C 4F 53 45 20 43 4F  |..15: . CLOSE CO|
00001250: 4D 4D 41 4E 44 20 43 48  41 4E 4E 45 4C 00 8D 1A  |MMAND CHANNEL...|
00001260: 34 08 89 20 31 30 30 3A  20 8F 20 52 45 53 54 41  |4.. 100: . RESTA|
00001270: 52 54 20 64 7D 20 54 26  53 20 50 52 4F 47 52 41  |RT d} T&S PROGRA|
00001280: 4D 20 49 46 20 41 50 50  45 4E 44 45 44 00 B0 1A  |M IF APPENDED...|
00001290: B7 0B 80 3A 8F 20 50 52  4F 47 52 41 4D 20 33 2C  |...:. PROGRAM 3,|
000012A0: 20 55 4E 53 43 52 41 54  43 48 20 46 49 4C 45 53  | UNSCRATCH FILES|
000012B0: 00 DF 1A B8 0B 85 22 93  57 48 49 43 48 20 53 45  |......".WHICH SE|
000012C0: 43 54 4F 52 22 3B 53 24  3A 53 B2 C5 28 53 24 29  |CTOR";S$:S..(S$)|
000012D0: 3A 8B 53 B3 30 B0 53 B1  31 39 A7 33 30 30 30 00  |:.S.0.S.19.3000.|
000012E0: 17 1B C2 0B 99 22 11 11  57 48 41 54 20 49 53 20  |....."..WHAT IS |
000012F0: 54 48 45 20 46 49 52 53  54 20 42 59 54 45 22 3A  |THE FIRST BYTE":|
00001300: 99 22 4F 46 20 54 48 45  20 46 49 4C 45 20 59 4F  |."OF THE FILE YO|
00001310: 55 20 57 49 53 48 22 00  2C 1B C3 0B 99 22 54 4F  |U WISH".,...."TO|
00001320: 20 55 4E 53 43 52 41 54  43 48 3F 22 00 66 1B CC  | UNSCRATCH?".f..|
00001330: 0B 85 42 50 24 3A 42 50  B2 C5 28 42 50 24 29 3A  |..BP$:BP..(BP$):|
00001340: 8F 20 49 4E 50 55 54 20  46 49 4C 45 20 54 41 52  |. INPUT FILE TAR|
00001350: 47 45 54 20 42 59 54 45  20 46 4F 52 20 55 4E 53  |GET BYTE FOR UNS|
00001360: 43 52 41 54 43 48 00 B0  1B D6 0B 42 53 B2 28 42  |CRATCH.....BS.(B|
00001370: 50 B2 32 29 AA 28 42 50  B2 33 34 29 AA 28 42 50  |P.2).(BP.34).(BP|
00001380: B2 36 36 29 AA 28 42 50  B2 39 38 29 AA 28 42 50  |.66).(BP.98).(BP|
00001390: B2 31 33 30 29 AA 28 42  50 B2 31 36 32 29 AA 28  |.130).(BP.162).(|
000013A0: 42 50 B2 31 39 34 29 AA  28 42 50 B2 32 32 36 29  |BP.194).(BP.226)|
000013B0: 00 D8 1B DB 0B 8B 42 53  B3 B1 AB 31 A7 33 30 32  |......BS...1.302|
000013C0: 30 3A 8F 20 52 45 4A 45  43 54 20 49 4E 56 41 4C  |0:. REJECT INVAL|
000013D0: 49 44 20 49 4E 50 55 54  00 F3 1B E0 0B 99 22 11  |ID INPUT......".|
000013E0: 11 53 45 4C 45 43 54 20  46 49 4C 45 20 54 59 50  |.SELECT FILE TYP|
000013F0: 45 3A 22 00 0B 1C EA 0B  99 22 11 20 20 31 2E 20  |E:"......".  1. |
00001400: 53 45 51 55 45 4E 54 49  41 4C 22 00 1F 1C F4 0B  |SEQUENTIAL".....|
00001410: 99 22 20 20 32 2E 20 50  52 4F 47 52 41 4D 22 00  |."  2. PROGRAM".|
00001420: 30 1C FE 0B 99 22 20 20  33 2E 20 55 53 45 52 22  |0...."  3. USER"|
00001430: 00 45 1C 08 0C 99 22 20  20 34 2E 20 52 45 4C 41  |.E...."  4. RELA|
00001440: 54 49 56 45 22 00 59 1C  12 0C 99 22 11 11 57 48  |TIVE".Y...."..WH|
00001450: 49 43 48 20 4F 4E 45 3F  22 00 6D 1C 1C 0C A1 41  |ICH ONE?".m....A|
00001460: 24 3A 8B 41 24 B2 22 22  A7 33 31 30 30 00 A6 1C  |$:.A$."".3100...|
00001470: 26 0C 41 B2 C5 28 41 24  29 3A 20 8B 20 41 B3 31  |&.A..(A$): . A.1|
00001480: 20 B0 20 41 B1 34 20 A7  20 33 31 30 30 3A 20 8F  | . A.4 . 3100: .|
00001490: 20 52 45 4A 45 43 54 20  49 4E 56 41 4C 49 44 20  | REJECT INVALID |
000014A0: 43 48 4F 49 53 45 00 DC  1C 30 0C 42 B2 41 AA 31  |CHOISE...0.B.A.1|
000014B0: 32 38 3A 20 8F 20 53 45  54 20 49 4E 50 55 54 20  |28: . SET INPUT |
000014C0: 42 59 54 45 20 54 4F 20  4D 41 54 43 48 20 44 4F  |BYTE TO MATCH DO|
000014D0: 53 20 46 49 4C 45 20 43  4F 44 45 53 00 0C 1D 3A  |S FILE CODES...:|
000014E0: 0C 9F 31 35 2C 38 2C 31  35 2C 22 49 22 3A 8F 20  |..15,8,15,"I":. |
000014F0: 4F 50 45 4E 20 43 4F 4D  4D 41 4E 44 20 43 48 41  |OPEN COMMAND CHA|
00001500: 4E 4E 45 4C 20 54 4F 20  44 49 53 4B 00 40 1D 44  |NNEL TO DISK.@.D|
00001510: 0C 9F 38 2C 38 2C 38 2C  22 23 22 3A 8F 20 4F 50  |..8,8,8,"#":. OP|
00001520: 45 4E 20 44 49 52 45 43  54 20 41 43 43 45 53 53  |EN DIRECT ACCESS|
00001530: 20 43 48 41 4E 4E 45 4C  20 54 4F 20 44 49 53 4B  | CHANNEL TO DISK|
00001540: 00 87 1D 4E 0C 98 31 35  2C 22 55 31 3A 22 38 3B  |...N..15,"U1:"8;|
00001550: 30 3B 31 38 3B 53 3A 20  8F 20 4C 4F 41 44 20 53  |0;18;S: . LOAD S|
00001560: 45 43 54 4F 52 20 43 4F  4E 54 41 49 4E 49 4E 47  |ECTOR CONTAINING|
00001570: 20 46 49 4C 45 20 54 4F  20 42 45 20 55 4E 53 43  | FILE TO BE UNSC|
00001580: 52 41 54 43 48 45 44 00  C1 1D 58 0C 98 31 35 2C  |RATCHED...X..15,|
00001590: 22 42 2D 50 3A 22 38 3B  42 50 3A 8F 20 53 45 54  |"B-P:"8;BP:. SET|
000015A0: 20 42 55 46 46 45 52 20  50 4F 49 4E 54 45 52 20  | BUFFER POINTER |
000015B0: 54 4F 20 54 41 52 47 45  54 20 41 44 44 52 45 53  |TO TARGET ADDRES|
000015C0: 53 00 FC 1D 62 0C 98 38  2C C7 28 42 29 3B 3A 8F  |S...b..8,.(B);:.|
000015D0: 20 43 48 41 4E 47 45 20  54 41 52 47 45 54 20 46  | CHANGE TARGET F|
000015E0: 49 4C 45 20 43 4F 44 45  20 49 4E 20 43 48 41 4E  |ILE CODE IN CHAN|
000015F0: 4E 45 4C 20 38 20 42 55  46 46 45 52 00 3D 1E 6C  |NEL 8 BUFFER.=.l|
00001600: 0C 98 31 35 2C 22 55 32  3A 22 38 3B 30 3B 31 38  |..15,"U2:"8;0;18|
00001610: 3B 53 3A 8F 20 52 45 54  55 52 4E 20 43 48 41 4E  |;S:. RETURN CHAN|
00001620: 47 45 44 20 43 4F 4E 54  45 4E 54 53 20 54 4F 20  |GED CONTENTS TO |
00001630: 54 41 52 47 45 54 20 53  45 43 54 4F 52 00 62 1E  |TARGET SECTOR.b.|
00001640: 76 0C A0 38 3A 8F 20 43  4C 4F 53 45 20 44 49 52  |v..8:. CLOSE DIR|
00001650: 45 43 54 20 41 43 43 45  53 53 20 43 48 41 4E 4E  |ECT ACCESS CHANN|
00001660: 45 4C 00 83 1E 80 0C A0  31 35 3A 20 8F 20 43 4C  |EL......15: . CL|
00001670: 4F 53 45 20 43 4F 4D 4D  41 4E 44 20 43 48 41 4E  |OSE COMMAND CHAN|
00001680: 4E 45 4C 00 BB 1E 8A 0C  89 20 31 30 30 3A 8F 20  |NEL...... 100:. |
00001690: 52 45 53 54 41 52 54 20  64 7D 20 54 26 53 20 50  |RESTART d} T&S P|
000016A0: 52 4F 47 52 41 4D 20 57  48 45 4E 20 46 49 52 53  |ROGRAM WHEN FIRS|
000016B0: 54 20 52 45 4D 20 52 45  64 0F 44 00 F7 1E 9F 0F  |T REM REd.D.....|
000016C0: 80 3A 8F 20 50 52 4F 47  52 41 4D 20 34 2C 20 53  |.:. PROGRAM 4, S|
000016D0: 43 52 41 54 43 48 20 4F  52 20 53 43 52 41 54 43  |CRATCH OR SCRATC|
000016E0: 48 20 41 4E 44 20 4C 45  41 56 45 20 4F 4E 20 64  |H AND LEAVE ON d|
000016F0: 4A 45 43 54 4F 52 59 00  0E 1F A0 0F 99 22 93 53  |JECTORY......".S|
00001700: 45 4C 45 43 54 20 4F 50  54 49 4F 4E 3A 22 00 2A  |ELECT OPTION:".*|
00001710: 1F AA 0F 99 22 11 31 2E  20 43 4F 4D 50 4C 45 54  |....".1. COMPLET|
00001720: 45 20 53 43 52 41 54 43  48 22 00 47 1F B4 0F 99  |E SCRATCH".G....|
00001730: 22 32 2E 20 53 43 52 41  54 43 48 2C 20 42 55 54  |"2. SCRATCH, BUT|
00001740: 20 4C 45 41 56 45 22 00  5E 1F B5 0F 99 22 20 20  | LEAVE".^...."  |
00001750: 20 4F 4E 20 44 49 52 45  43 54 4F 52 59 22 00 72  | ON DIRECTORY".r|
00001760: 1F BE 0F 99 22 11 11 57  48 49 43 48 20 4F 4E 45  |...."..WHICH ONE|
00001770: 3F 22 00 86 1F C8 0F A1  41 24 3A 8B 41 24 B2 22  |?"......A$:.A$."|
00001780: 22 A7 34 30 34 30 00 B8  1F D2 0F 41 B2 C5 28 41  |".4040.....A..(A|
00001790: 24 29 3A 8B 41 B3 31 B0  41 B1 32 A7 34 30 34 30  |$):.A.1.A.2.4040|
000017A0: 3A 20 8F 20 52 45 4A 45  43 54 20 49 4E 56 41 4C  |: . REJECT INVAL|
000017B0: 49 44 20 49 4E 50 55 54  00 E1 1F DC 0F 8B 41 B2  |ID INPUT......A.|
000017C0: 31 A7 42 B2 30 3A 8F 20  53 45 54 20 54 4F 20 50  |1.B.0:. SET TO P|
000017D0: 45 52 4D 41 4E 45 4E 54  4C 59 20 44 45 4C 45 54  |ERMANENTLY DELET|
000017E0: 45 00 0C 20 E6 0F 8B 41  B2 32 A7 42 B2 31 32 38  |E.. ...A.2.B.128|
000017F0: 3A 8F 20 53 45 54 20 54  4F 20 4C 45 41 56 45 20  |:. SET TO LEAVE |
00001800: 4F 4E 20 44 49 52 45 43  54 4F 52 59 00 3C 20 F0  |ON DIRECTORY.< .|
00001810: 0F 85 22 11 11 57 48 49  43 48 20 53 45 43 54 4F  |.."..WHICH SECTO|
00001820: 52 22 3B 53 24 3A 53 B2  C5 28 53 24 29 3A 8B 53  |R";S$:S..(S$):.S|
00001830: B3 30 B0 53 B1 31 39 A7  34 30 38 30 00 74 20 FA  |.0.S.19.4080.t .|
00001840: 0F 99 22 11 11 57 48 41  54 20 49 53 20 54 48 45  |.."..WHAT IS THE|
00001850: 20 46 49 52 53 54 20 42  59 54 45 22 3A 99 22 4F  | FIRST BYTE":."O|
00001860: 46 20 54 48 45 20 46 49  4C 45 20 59 4F 55 20 57  |F THE FILE YOU W|
00001870: 49 53 48 22 00 87 20 FB  0F 99 22 54 4F 20 53 43  |ISH".. ..."TO SC|
00001880: 52 41 54 43 48 3F 22 00  BF 20 04 10 85 42 50 24  |RATCH?".. ...BP$|
00001890: 3A 42 50 B2 C5 28 42 50  24 29 3A 8F 20 49 4E 50  |:BP..(BP$):. INP|
000018A0: 55 54 20 46 49 4C 45 20  54 41 52 47 45 54 20 42  |UT FILE TARGET B|
000018B0: 59 54 45 20 46 4F 52 20  53 43 52 41 54 43 48 00  |YTE FOR SCRATCH.|
000018C0: 09 21 0E 10 42 53 B2 28  42 50 B2 32 29 AA 28 42  |.!..BS.(BP.2).(B|
000018D0: 50 B2 33 34 29 AA 28 42  50 B2 36 36 29 AA 28 42  |P.34).(BP.66).(B|
000018E0: 50 B2 39 38 29 AA 28 42  50 B2 31 33 30 29 AA 28  |P.98).(BP.130).(|
000018F0: 42 50 B2 31 36 32 29 AA  28 42 50 B2 31 39 34 29  |BP.162).(BP.194)|
00001900: AA 28 42 50 B2 32 32 36  29 00 30 21 18 10 8B 42  |.(BP.226).0!...B|
00001910: 53 B3 B1 AB 31 A7 34 31  30 30 3A 8F 20 52 45 4A  |S...1.4100:. REJ|
00001920: 45 43 54 49 4E 56 41 4C  49 44 20 49 4E 50 55 54  |ECTINVALID INPUT|
00001930: 00 60 21 22 10 9F 31 35  2C 38 2C 31 35 2C 22 49  |.`!"..15,8,15,"I|
00001940: 22 3A 8F 20 4F 50 45 4E  20 43 4F 4D 4D 41 4E 44  |":. OPEN COMMAND|
00001950: 20 43 48 41 4E 4E 45 4C  20 54 4F 20 44 49 53 4B  | CHANNEL TO DISK|
00001960: 00 94 21 2C 10 9F 38 2C  38 2C 38 2C 22 23 22 3A  |..!,..8,8,8,"#":|
00001970: 8F 20 4F 50 45 4E 20 44  49 52 45 43 54 20 41 43  |. OPEN DIRECT AC|
00001980: 43 45 53 53 20 43 48 41  4E 4E 45 4C 20 54 4F 20  |CESS CHANNEL TO |
00001990: 44 49 53 4B 00 D8 21 36  10 98 31 35 2C 22 55 31  |DISK..!6..15,"U1|
000019A0: 3A 22 38 3B 30 3B 31 38  3B 53 3A 8F 20 4C 4F 41  |:"8;0;18;S:. LOA|
000019B0: 44 20 53 45 43 54 4F 52  20 43 4F 4E 54 41 49 4E  |D SECTOR CONTAIN|
000019C0: 49 4E 47 20 46 49 4C 45  20 54 4F 20 42 45 20 53  |ING FILE TO BE S|
000019D0: 43 52 41 54 43 48 45 44  00 12 22 40 10 98 31 35  |CRATCHED.."@..15|
000019E0: 2C 22 42 2D 50 3A 22 38  3B 42 50 3A 8F 20 53 45  |,"B-P:"8;BP:. SE|
000019F0: 54 20 42 55 46 46 45 52  20 50 4F 49 4E 54 45 52  |T BUFFER POINTER|
00001A00: 20 54 4F 20 54 41 52 47  45 54 20 41 44 44 52 45  | TO TARGET ADDRE|
00001A10: 53 53 00 4D 22 4A 10 98  38 2C C7 28 42 29 3B 3A  |SS.M"J..8,.(B);:|
00001A20: 8F 20 43 48 41 4E 47 45  20 54 41 52 47 45 54 20  |. CHANGE TARGET |
00001A30: 46 49 4C 45 20 43 4F 44  45 20 49 4E 20 43 48 41  |FILE CODE IN CHA|
00001A40: 4E 4E 45 4C 20 38 20 42  55 46 46 45 52 00 8E 22  |NNEL 8 BUFFER.."|
00001A50: 54 10 98 31 35 2C 22 55  32 3A 22 38 3B 30 3B 31  |T..15,"U2:"8;0;1|
00001A60: 38 3B 53 3A 8F 20 52 45  54 55 52 4E 20 43 48 41  |8;S:. RETURN CHA|
00001A70: 4E 47 45 44 20 43 4F 4E  54 45 4E 54 53 20 54 4F  |NGED CONTENTS TO|
00001A80: 20 54 41 52 47 45 54 20  53 45 43 54 4F 52 00 B3  | TARGET SECTOR..|
00001A90: 22 5E 10 A0 38 3A 8F 20  43 4C 4F 53 45 20 44 49  |"^..8:. CLOSE DI|
00001AA0: 52 45 43 54 20 41 43 43  45 53 53 20 43 48 41 4E  |RECT ACCESS CHAN|
00001AB0: 4E 45 4C 00 D3 22 68 10  A0 31 35 3A 8F 20 43 4C  |NEL.."h..15:. CL|
00001AC0: 4F 53 45 20 43 4F 4D 4D  41 4E 44 20 43 48 41 4E  |OSE COMMAND CHAN|
00001AD0: 4E 45 4C 00 0B 23 72 10  89 20 31 30 30 3A 8F 20  |NEL..#r.. 100:. |
00001AE0: 52 45 53 54 41 52 54 20  64 7D 20 54 26 53 20 50  |RESTART d} T&S P|
00001AF0: 52 4F 47 52 41 4D 20 57  48 45 4E 20 46 49 52 53  |ROGRAM WHEN FIRS|
00001B00: 54 20 52 45 4D 20 52 45  64 0F 44 00 00 00        |T REM REd.D...  |

..%.D..******************************.I.
N..* DISPLAY ANY TRACK $ SECTOR *.M.X..*
 ON THE DISK TO THE SCREEN  *......* OR 
THE PRINTER             *......*********
*********************.V...."...RRRRRRRRR
RRRRRRRRRRRRR"... .."DISPLAY BLOCK CONTE
NTS"......"EEEEEEEEEEEEEEEEEEEEEE":.7...
.******************************.[....* S
ET PROGRAM CONSTANT       *.....*******
***********************...H.SP$." ":NL$.
G(0):HX$."0123456789ABCDEF".Z.R.FS$."":.
I.64 . 95:FS$.FS$.".".G(I).".":. I.....S
S$."  ":. I.192 . 223:SS$.SS$.".".G(I)."
.":. I.!.... A$(15),NB(2).,...D$."0".[..
.."        .S.CREEN.........OR ...P.RINT
ER".R....JJ$:. JJ$."" .254...... JJ$."S"
.."        ..SCREEN."...... JJ$."P".."  
      ..PRINTER.".S....15,8,15,"I".D$:. 
650......4,4...... 2,8,2,"#":. 650......
******************************.:."..* LO
AD TRACK AND SECTOR      *.^.,..* INTO D
ISK BUFFER           *...6..************
******************...@.."...TRACK, SECTO
R";T,S.N.J.. T.0 . T.35 . .15,"I"D$: 2: 
4: 15:."END":....T.. JJ$."S" . ."...TRAC
K"T" SECTOR"S".".$.U.. JJ$."P" . .4:.4,"
TRACK"T" SECTOR"S:.4.?.^..15,"U1:2,"D$;T
;S:.650.C.H..***************************
***...R..* READ BYTE 0 OF DISK BUFFER *.
.....******************************.....
.15,"B-P:2,1".S....15,"M-R"G(0)G(5).....
.#15,A$(0):.A$(0)."".A$(0).NL$...... JJ$
."S".430...... JJ$."P".460.>....********
**********************.B....* READ & CRT
 DISPLAY         *......* REST OF THE DI
SK BUFFER    *......********************
**********.A...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$.H.... K.1 . I.2 . NB(2).
F(A$(I)).T.... 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$.P
.F.. I:. JJ$."S" . .A$B$...J.. J:.571...
L..******************************.%.N..*
 READ & PRINTER DISPLAY     *.I.P..*****
*************************.`.R.K.1:NB(1).
F(A$(0)).O.T.. J.0 . 15.~.V.. I.K . 15..
.X..#2,A$(I):. A$(I)."" . A$(I).NL$.D.Z.
. K.1 . I.2 . NB(2).F(A$(I)).P.... I:K.0
.....A$."":B$.":":N.J.16:. 790:A$.A$.":"
.-.... I.0 . 15:N.F(A$(I)):. 790:. Z$."N
". J.40:. 571.I...C$.A$(I):. 850:B$.B$.C
$.Q.... I.I.... JJ$."P" . .4,A$B$.V.... 
J:.571...;..****************************
**...<..* NEXT TRACK AND SECTOR      *..
.=..******************************...?..
"NEXT TRACK AND SECTOR"NB(1)NB(2) ".".6.
D.."DO YOU WANT NEXT TRACK AND SECTOR".L
.N.. Z$:. Z$."" .590.P.X.. Z$."Y" . T.NB
(1):S.NB(2):.330...B.. Z$."N" . 321 ..L.
. 590...V..*****************************
*.U....* SUBROUTINES                *...
...******************************......*
 ERROR ROUTINE              *.A....*****
*************************.A....15,EN,EM$
,ET,ES:. EN.0 . .......".DISK ERROR."EN,
EM$,ET,ES.........F..*******************
***********.O.P..* SCREEN CONTINUE MESSA
GE    *...Z..***************************
***......".....CONTINUE(Y/N)".#....Z$:. 
Z$."" . 750.4.... Z$."N" . ..H.... Z$.."
Y" . 750.I....".TRACK" T " SECTOR"S ".":
.......******************************...
 ..* DISK BYTE TO HEX PRINT     *.U.*..*
*****************************...4.A1..(N
.16):A$.A$.J(HX$,A1.1,1)...>.A2..(N.16.A
1):A$.A$.J(HX$,A2.1,1)...H.A$.A$.SP$:..R
.R..******************************.V.\..
* DISK BYTE TO ASC DISPLAY   *...F..* CH
ARACTER                  *...P..********
**********************.X.Z.. F(C$).32 . 
C$." ":....... F(C$).128 . F(C$).159 . .
.....C$.J(SS$,3.(F(C$).127),3):..:....: 
. PROGRAM 1:CHANGE DR NAME.U.... ".NEW D
ISK NAME";DN$...... C(DN$).16 . DN$.DN$.
G(160):. 1010:. STRETCH TO 16 D.S.R.... 
C(DN$) . 16 . DN$.H(DN$,16): . SHORTEN N
AME TO 16 D.ACTERS...... ".NEW DISK NAME
";DN$.+.... C(DN$).16 . DN$.DN$.G(160):.
 1010:. STRETCH TO 16 CHARS.N.... C(DN$)
 . 16 . DN$.H(DN$,16): . SHORTEN NAME TO
 16 CHARACTERS...... 15,8,15,"I": . OPEN
 DISK COMMAND CHANNEL.K.... 8,8,8,"#": .
 OPEN DIRECT ACCESS CHANNEL......15, "U1
:"8;0;18;0: . READ TRACK 18, SECTOR 0 IN
TO CHANNEL 8 BUFFER.Z.$..15, "B-P:"8;144
: . MOVE BUFFER-POINTER TO FIRST BYTE OF
 DISK NAME......8, DN$;: . PUT NEW NAME 
IN CHANNEL 8 BUFFER, REPLACING OLD NAME.
V.8..15,"U2:"8;0;18;0:. WRITE BUFFER WIT
H NAME CHANGED...B.  8:. CLOSE DIRECT AC
CESS CHANNEL...L. 15: . CLOSE COMMAND CH
ANNEL.M.V.. 100: . RESTART D} T&S PROGRA
M IF APPENDED.N.O..: . PROGRAM 2: CHANGE
 DR ID...P.. ".NEW DISK ID";ID$...Z.. C(
ID$) .. 2 . 2000: . REJECT IMPROPER LENG
HT ID...... 15,8,15,"I": . OPEN DISK COM
MAND CHANNEL......8,8,8,"#": . OPEN DIRE
CT ACCESS CHANNEL.A....15, "U1:"8;0;18;0
: . READ TRACK 18, SECTOR 0 INTO CHANNEL
 8 BUFFER......15, "B-P:"8;162: . MOVE B
UFFER-POINTER TO FIRST BYTE OF DISK ID..
....8, ID$;: . PUT NEW ID IN CHANNEL 8 B
UFFER, REPLACING OLD ID......15, "U2:"8;
0;18;0: . STORE BUFFER TO DISK.<. . 8: .
 CLOSE DIRECT ACCESS CHANNEL.].*. 15: . 
CLOSE COMMAND CHANNEL...4.. 100: . RESTA
RT D} T&S PROGRAM IF APPENDED......:. PR
OGRAM 3, UNSCRATCH FILES......".WHICH SE
CTOR";S$:S.E(S$):.S.0.S.19.3000...B.."..
WHAT IS THE FIRST BYTE":."OF THE FILE YO
U WISH".,.C.."TO UNSCRATCH?".F.L..BP$:BP
.E(BP$):. INPUT FILE TARGET BYTE FOR UNS
CRATCH...V.BS.(BP.2).(BP.34).(BP.66).(BP
.98).(BP.130).(BP.162).(BP.194).(BP.226)
.X....BS...1.3020:. REJECT INVALID INPUT
......"..SELECT FILE TYPE:"......".  1. 
SEQUENTIAL"......"  2. PROGRAM".0...."  
3. USER".E...."  4. RELATIVE".Y...."..WH
ICH ONE?".M....A$:.A$."".3100...&.A.E(A$
): . A.1 . A.4 . 3100: . REJECT INVALID 
CHOISE...0.B.A.128: . SET INPUT BYTE TO 
MATCH DOS FILE CODES...:..15,8,15,"I":. 
OPEN COMMAND CHANNEL TO DISK.@.D..8,8,8,
"#":. OPEN DIRECT ACCESS CHANNEL TO DISK
...N..15,"U1:"8;0;18;S: . LOAD SECTOR CO
NTAINING FILE TO BE UNSCRATCHED.A.X..15,
"B-P:"8;BP:. SET BUFFER POINTER TO TARGE
T ADDRESS...B..8,G(B);:. CHANGE TARGET F
ILE CODE IN CHANNEL 8 BUFFER.=.L..15,"U2
:"8;0;18;S:. RETURN CHANGED CONTENTS TO 
TARGET SECTOR.B.V. 8:. CLOSE DIRECT ACCE
SS CHANNEL..... 15: . CLOSE COMMAND CHAN
NEL...... 100:. RESTART D} T&S PROGRAM W
HEN FIRST REM RED.D......:. PROGRAM 4, S
CRATCH OR SCRATCH AND LEAVE ON DJECTORY.
.. ..".SELECT OPTION:".*....".1. COMPLET
E SCRATCH".G...."2. SCRATCH, BUT LEAVE".
^...."   ON DIRECTORY".R...."..WHICH ONE
?"...H..A$:.A$."".4040...R.A.E(A$):.A.1.
A.2.4040: . REJECT INVALID INPUT......A.
1.B.0:. SET TO PERMANENTLY DELETE.. ...A
.2.B.128:. SET TO LEAVE ON DIRECTORY.< .
.."..WHICH SECTOR";S$:S.E(S$):.S.0.S.19.
4080.T ..."..WHAT IS THE FIRST BYTE":."O
F THE FILE YOU WISH".. ..."TO SCRATCH?".
. ...BP$:BP.E(BP$):. INPUT FILE TARGET B
YTE FOR SCRATCH..!..BS.(BP.2).(BP.34).(B
P.66).(BP.98).(BP.130).(BP.162).(BP.194)
.(BP.226).0!...BS...1.4100:. REJECTINVAL
ID INPUT.`!"..15,8,15,"I":. OPEN COMMAND
 CHANNEL TO DISK..!,..8,8,8,"#":. OPEN D
IRECT ACCESS CHANNEL TO DISK.X!6..15,"U1
:"8;0;18;S:. LOAD SECTOR CONTAINING FILE
 TO BE SCRATCHED.."@..15,"B-P:"8;BP:. SE
T BUFFER POINTER TO TARGET ADDRESS.M"J..
8,G(B);:. CHANGE TARGET FILE CODE IN CHA
NNEL 8 BUFFER.."T..15,"U2:"8;0;18;S:. RE
TURN CHANGED CONTENTS TO TARGET SECTOR..
"^. 8:. CLOSE DIRECT ACCESS CHANNEL.S"H.
 15:. CLOSE COMMAND CHANNEL..#R.. 100:. 
RESTART D} T&S PROGRAM WHEN FIRST REM RE
D.D...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL