Multiple names: ID2, SEARCH COCK
FILE INFORMATION
FILENAME(S):
• ID2<br>• SEARCH COCK
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-12-02 00:17:42
APPEARS ON: 2 disk(s)
FILE HASH
ccfcc2994e2e4aabf9ddfdbef8d5bbb7e52d6b9d06146026153ae9a9b6b45eeb
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK020A | ID2 | PRG | Maestro | 17 | 0 | DOWNLOAD FILE |
| DISK020A | SEARCH COCK | PRG | Maestro | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 C3 07 9E 32 30 38 30 3A 8F 14 14 14 |.......2080:....| 00000010: 14 20 53 45 43 54 4F 52 20 53 4F 46 54 00 00 00 |. SECTOR SOFT...| 00000020: 00 78 A9 34 85 01 A9 00 85 B0 85 B1 A8 38 A5 AE |.x.4.........8..| 00000030: E9 01 85 AE B0 02 C6 AF 38 A5 B0 E9 01 85 B0 B0 |........8.......| 00000040: 02 C6 B1 B1 AE 91 B0 A5 AE C9 23 D0 E0 A5 AF C9 |..........#.....| 00000050: 09 D0 DA A2 FF 9A B9 69 08 99 00 01 C8 D0 F7 A9 |.......i........| 00000060: 01 85 AE A9 08 85 AF 4C 00 01 E6 01 2C 20 D0 C6 |.......L...., ..| 00000070: 01 B1 B0 2A 2A 2A 2A 29 07 AA BD 2F 01 8D 1F 01 |...****).../....| 00000080: B1 B0 29 1F AA 20 37 01 20 00 01 A5 B0 05 B1 D0 |..).. 7. .......| 00000090: D9 A9 37 85 01 58 4C E2 FC 65 AF 5D A0 75 78 50 |..7..XL..e.].uxP| 000000A0: 52 E6 B0 D0 02 E6 B1 60 E6 AE D0 02 E6 AF 60 B1 |R......`......`.| 000000B0: B0 F0 01 E8 86 02 AA 4C 37 01 98 3C A9 FF 91 AE |.......L7..<....| 000000C0: 20 3E 01 CA D0 F8 60 B1 B0 20 37 01 4C 54 01 B1 | >....`.. 7.LT..| 000000D0: B0 24 BD 91 AE 20 3E 01 20 37 01 CA D0 F1 60 A9 |.$... >. 7....`.| 000000E0: 04 FC A9 08 85 02 B1 B0 91 AE C8 C4 02 D0 F7 18 |................| 000000F0: 98 65 AE 85 AE 90 02 E6 AF A0 00 CA D0 E8 18 A5 |.e..............| 00000100: 02 65 B0 85 B0 90 02 E6 B1 60 20 45 01 B1 B0 20 |.e.......` E... | 00000110: 54 01 C6 02 D0 F9 4C 37 01 20 45 01 20 65 01 C6 |T.....L7. E. e..| 00000120: 02 D0 F9 60 05 25 08 64 00 8F A3 2A 2A 2A 2A 2A |...`.%.d...*****| 00000130: 2A 2A 2A 46 2A 20 42 00 49 08 6E 00 8F 2A 20 44 |***F* B.I.n..* D| 00000140: 49 53 50 4C 41 59 20 41 4E 59 20 54 52 41 43 4B |ISPLAY ANY TRACK| 00000150: 20 24 20 53 45 43 54 4F 52 20 2A 00 6D 08 78 00 | $ SECTOR *.m.x.| 00000160: 8F 2A 20 4F 4E 20 54 48 45 20 44 49 53 4B 20 54 |.* ON THE DISK T| 00000170: 4F 20 54 48 45 20 53 43 52 42 45 01 4E 42 20 17 |O THE SCRBE.NB .| 00000180: 2A 00 91 08 82 00 8F 2A 20 4F 52 20 54 48 45 20 |*......* OR THE | 00000190: 50 52 49 4E 54 45 52 4D 20 07 2A 00 B5 08 8C 00 |PRINTERM .*.....| 000001A0: 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 08 00 D6 08 |..********F*....| 000001B0: 96 00 99 22 93 42 11 A2 D2 D2 D2 D2 D2 D2 D2 D2 |...".B..........| 000001C0: 46 D2 20 26 22 00 F4 08 A0 00 99 22 44 49 53 50 |F. &"......"DISP| 000001D0: 4C 41 59 20 42 4C 4F 43 4B 20 43 4F 4E 54 45 4E |LAY BLOCK CONTEN| 000001E0: 54 53 22 00 12 09 A5 00 99 22 A2 C5 C5 C5 C5 C5 |TS"......"......| 000001F0: C5 C5 C5 46 C5 07 22 00 36 09 AA 00 8F A3 2A 2A |...F..".6.....**| 00000200: 2A 2A 2A 2A 2A 2A 46 2A 1C 00 5A 09 B4 00 8F 2A |******F*..Z....*| 00000210: 20 53 45 54 20 50 52 4F 47 52 41 4D 20 43 4F 4E | SET PROGRAM CON| 00000220: 53 54 41 4E 54 47 20 07 2A 00 7E 09 BE 00 8F A3 |STANTG .*.~.....| 00000230: 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 35 00 AA 09 C8 |********F* 5....| 00000240: 00 53 50 24 B2 22 A0 22 3A 4E 4C 24 B2 C7 28 30 |.SP$.".":NL$..(0| 00000250: 29 3A 48 58 24 B2 22 30 31 32 33 34 35 36 37 38 |):HX$."012345678| 00000260: 39 41 42 43 44 45 46 22 00 D9 09 D2 00 46 53 24 |9ABCDEF".....FS$| 00000270: B2 42 22 20 29 3A 81 49 B2 36 34 20 A4 20 39 35 |.B" ):.I.64 . 95| 00000280: 3A 46 53 24 B2 46 53 24 AA 22 12 22 AA C7 28 49 |:FS$.FS$."."..(I| 00000290: 29 AA 22 92 22 3A 82 20 49 00 0D 0A DC 00 42 53 |).".":. I.....BS| 000002A0: 03 24 B2 22 42 20 0C 22 3A 81 20 49 B2 31 39 32 |.$."B .":. I.192| 000002B0: 20 A4 20 42 32 02 33 3A 42 53 02 24 B2 42 53 20 | . B2.3:BS.$.BS | 000002C0: 37 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 22 3A |7$."."..(I).".":| 000002D0: 82 20 49 00 20 0A F0 00 86 20 41 24 28 31 35 29 |. I. .... A$(15)| 000002E0: 2C 4E 42 28 32 29 00 2B 0A FB 00 44 24 B2 22 30 |,NB(2).+...D$."0| 000002F0: 22 00 5A 0A FD 00 99 22 48 20 05 12 53 92 43 52 |".Z...."H ..S.CR| 00000300: 42 45 02 4E 11 48 9D 15 4F 52 20 11 9D 12 50 92 |BE.N.H..OR ...P.| 00000310: 52 49 4E 54 45 52 22 00 71 0A FE 00 A1 42 4A 04 |RINTER".q....BJ.| 00000320: 24 3A 8B 20 42 4A 02 24 B2 42 22 0C 20 A7 32 35 |$:. BJ.$.B". .25| 00000330: 34 00 94 0A FF 00 8B 20 42 4A 08 24 B2 22 53 22 |4...... BJ.$."S"| 00000340: A7 99 22 48 20 05 11 12 53 43 52 42 45 0A 4E 92 |.."H ...SCRBE.N.| 00000350: 22 00 B8 0A 00 01 8B 20 42 4A 08 24 B2 22 50 22 |"...... BJ.$."P"| 00000360: A7 99 22 48 20 20 4A 11 12 50 52 49 4E 54 45 52 |.."H J..PRINTER| 00000370: 92 22 00 D2 0A 04 01 9F 31 35 2C 38 2C 31 35 2C |."......15,8,15,| 00000380: 22 49 22 AA 44 24 3A 8D 20 36 35 30 00 DB 0A 09 |"I".D$:. 650....| 00000390: 01 9F 34 2C 34 00 F1 0A 0E 01 9F 20 32 2C 38 2C |..4,4...... 2,8,| 000003A0: 32 2C 22 23 22 3A 8D 20 36 35 30 00 15 0B 18 01 |2,"#":. 650.....| 000003B0: 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 1D 00 39 0B |..********F*..9.| 000003C0: 22 01 8F 2A 20 4C 4F 41 44 20 54 52 41 43 4B 20 |"..* LOAD TRACK | 000003D0: 41 4E 44 20 53 45 43 54 4F 52 46 20 15 2A 00 5D |AND SECTORF .*.]| 000003E0: 0B 2C 01 8F 2A 20 49 4E 54 4F 20 44 49 53 4B 20 |.,..* INTO DISK | 000003F0: 42 55 42 46 02 45 52 4B 20 07 2A 00 81 0B 36 01 |BUBF.ERK .*...6.| 00000400: 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 08 00 9D 0B |..********F*....| 00000410: 40 01 85 22 11 42 1D 20 49 54 52 41 43 4B 2C 20 |@..".B. ITRACK, | 00000420: 53 45 43 54 4F 52 22 3B 54 2C 53 00 CD 0B 4A 01 |SECTOR";T,S...J.| 00000430: 8B 20 54 B2 30 20 B0 20 54 B1 33 35 20 A7 20 98 |. T.0 . T.35 . .| 00000440: 31 35 2C 22 49 22 44 24 3A A0 32 3A A0 34 3A A0 |15,"I"D$:.2:.4:.| 00000450: 31 35 3A 99 22 45 4E 44 22 3A 80 00 F7 0B 54 01 |15:."END":....T.| 00000460: 8B 20 42 4A 0B 24 B2 22 53 22 20 A7 20 99 22 11 |. BJ.$."S" . .".| 00000470: 42 1D 1B 54 52 41 43 4B 22 54 22 20 53 45 43 54 |B..TRACK"T" SECT| 00000480: 4F 52 22 53 22 11 22 00 23 0C 55 01 8B 20 42 4A |OR"S".".#.U.. BJ| 00000490: 20 44 24 B2 22 50 22 20 A7 20 98 34 3A 98 34 2C | D$."P" . .4:.4,| 000004A0: 22 54 52 41 43 4B 22 54 22 20 53 45 43 54 4F 52 |"TRACK"T" SECTOR| 000004B0: 22 53 3A 98 34 00 3E 0C 5E 01 98 31 35 2C 22 55 |"S:.4.>.^..15,"U| 000004C0: 31 3A 32 2C 22 44 24 3B 54 3B 53 3A 8D 36 35 30 |1:2,"D$;T;S:.650| 000004D0: 00 62 0C 68 01 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 |.b.h...********F| 000004E0: 2A 1E 00 86 0C 72 01 8F 2A 20 52 45 41 44 20 42 |*....r..* READ B| 000004F0: 59 54 45 20 30 20 4F 46 20 44 49 53 4B 20 42 55 |YTE 0 OF DISK BU| 00000500: 42 46 0A 45 52 20 2A 00 AA 0C 86 01 8F A3 2A 2A |BF.ER *.......**| 00000510: 2A 2A 2A 2A 2A 2A 46 2A 20 3F 00 BC 0C 90 01 98 |******F* ?......| 00000520: 31 35 2C 22 42 2D 50 3A 32 2C 31 22 00 D2 0C 9A |15,"B-P:2,1"....| 00000530: 01 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 |..15,"M-R".(0).(| 00000540: 35 29 00 F5 0C A4 01 A1 23 31 35 2C 41 24 28 30 |5)......#15,A$(0| 00000550: 29 3A 8B 41 24 28 30 29 B2 42 22 11 A7 41 24 28 |):.A$(0).B"..A$(| 00000560: 30 29 B2 4E 4C 24 00 07 0D AC 01 8B 20 42 4A 10 |0).NL$...... BJ.| 00000570: 24 B2 22 53 22 A7 34 33 30 00 19 0D AE 01 8B 20 |$."S".430...... | 00000580: 42 4A 0F 24 B2 22 50 22 A7 34 36 30 00 3D 0D AF |BJ.$."P".460.=..| 00000590: 01 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 1A 00 61 |...********F*..a| 000005A0: 0D B0 01 8F 2A 20 52 45 41 44 20 26 20 43 52 54 |....* READ & CRT| 000005B0: 20 44 49 53 50 4C 41 59 49 20 1C 2A 00 85 0D B1 | DISPLAYI .*....| 000005C0: 01 8F 2A 20 52 45 53 54 20 4F 46 20 54 48 45 20 |..* REST OF THE | 000005D0: 44 49 53 4B 20 42 55 42 46 02 45 52 44 20 07 2A |DISK BUBF.ERD .*| 000005E0: 00 A9 0D B2 01 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 |.......********F| 000005F0: 2A 15 00 C0 0D B4 01 4B B2 31 3A 4E 42 28 31 29 |*......K.1:NB(1)| 00000600: B2 C6 28 41 24 28 30 42 29 20 58 00 F3 0D B6 01 |..(A$(0B) X.....| 00000610: 81 20 4A B2 30 20 A4 20 36 33 3A 8B 20 4A B2 33 |. J.0 . 63:. J.3| 00000620: 32 20 A7 20 8D 20 37 31 30 3A 8B 20 5A 24 B2 22 |2 . . 710:. Z$."| 00000630: 4E 22 A7 20 4A B2 38 30 3A 89 20 34 35 38 00 01 |N". J.80:. 458..| 00000640: 0E B8 01 81 20 49 B2 4B 20 A4 20 33 00 26 0E BA |.... I.K . 3.&..| 00000650: 01 A1 23 32 2C 41 24 28 49 29 3A 8B 20 41 24 28 |..#2,A$(I):. A$(| 00000660: 49 29 B2 42 22 20 2B 20 A7 20 41 24 28 49 29 B2 |I).B" + . A$(I).| 00000670: 4E 4C 24 00 47 0E BC 01 8B 20 4B B2 31 20 AF 20 |NL$.G.... K.1 . | 00000680: 49 B3 32 20 A7 20 4E 42 28 32 29 B2 C6 28 41 24 |I.2 . NB(2)..(A$| 00000690: 28 49 42 29 14 00 53 0E BE 01 82 20 49 3A 4B B2 |(IB)..S.... I:K.| 000006A0: 30 00 7A 0E C0 01 41 24 B2 42 22 20 34 3A 42 24 |0.z...A$.B" 4:B$| 000006B0: B2 22 3A 22 3A 4E B2 4A AC 34 3A 8D 20 37 39 30 |.":":N.J.4:. 790| 000006C0: 3A 41 24 B2 41 24 AA 22 3A 22 00 99 0E C2 01 81 |:A$.A$.":"......| 000006D0: 20 49 B2 30 20 A4 20 33 3A 4E B2 C6 28 41 24 28 | I.0 . 3:N..(A$(| 000006E0: 49 42 29 20 2D 3A 8D 20 37 39 30 00 B5 0E C4 01 |IB) -:. 790.....| 000006F0: 43 24 B2 41 24 28 49 29 3A 8D 20 38 35 30 3A 42 |C$.A$(I):. 850:B| 00000700: 24 B2 42 24 AA 43 24 00 CF 0E C6 01 82 20 49 3A |$.B$.C$...... I:| 00000710: 8B 20 42 4A 1A 24 B2 22 53 22 20 A7 20 99 41 24 |. BJ.$."S" . .A$| 00000720: 42 24 00 DC 0E CA 01 82 20 4A 3A 89 35 37 31 C2 |B$...... J:.571.| 00000730: 04 0F CC 01 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A |......********F*| 00000740: 1C 00 24 0F CE 01 8F 2A 20 52 45 41 44 20 26 20 |..$....* READ & | 00000750: 50 52 49 4E 54 20 44 49 53 50 4C 41 59 47 20 07 |PRINT DISPLAYG .| 00000760: 2A 00 48 0F D0 01 8F A3 2A 2A 2A 2A 2A 2A 2A 2A |*.H.....********| 00000770: 46 2A 15 00 5F 0F D2 01 4B B2 31 3A 4E 42 28 31 |F*.._...K.1:NB(1| 00000780: 29 B2 C6 28 41 24 28 30 42 29 20 35 00 6E 0F D4 |)..(A$(0B) 5.n..| 00000790: 01 81 20 4A B2 30 20 A4 20 31 35 00 7D 0F D6 01 |.. J.0 . 15.}...| 000007A0: 81 20 49 B2 4B 20 A4 20 31 35 00 A2 0F D8 01 A1 |. I.K . 15......| 000007B0: 23 32 2C 41 24 28 49 29 3A 8B 20 41 24 28 49 29 |#2,A$(I):. A$(I)| 000007C0: B2 42 22 20 2B 20 A7 20 41 24 28 49 29 B2 4E 4C |.B" + . A$(I).NL| 000007D0: 24 00 C3 0F DA 01 8B 20 4B B2 31 20 AF 20 49 B3 |$...... K.1 . I.| 000007E0: 32 20 A7 20 4E 42 28 32 29 B2 C6 28 41 24 28 49 |2 . NB(2)..(A$(I| 000007F0: 42 29 14 00 CF 0F DC 01 82 20 49 3A 4B B2 30 00 |B)....... I:K.0.| 00000800: F7 0F DE 01 41 24 B2 42 22 20 36 3A 42 24 B2 22 |....A$.B" 6:B$."| 00000810: 3A 22 3A 4E B2 4A AC 31 36 3A 8D 20 37 39 30 3A |:":N.J.16:. 790:| 00000820: 41 24 B2 41 24 AA 22 3A 22 00 2C 10 E0 01 81 20 |A$.A$.":".,.... | 00000830: 49 B2 30 20 A4 20 31 35 3A 4E B2 C6 28 41 24 28 |I.0 . 15:N..(A$(| 00000840: 49 42 29 20 46 3A 8D 20 37 39 30 3A 8B 20 5A 24 |IB) F:. 790:. Z$| 00000850: B2 22 4E 22 A7 20 4A B2 34 30 3A 89 20 35 37 31 |."N". J.40:. 571| 00000860: 00 48 10 E2 01 43 24 B2 41 24 28 49 29 3A 8D 20 |.H...C$.A$(I):. | 00000870: 38 35 30 3A 42 24 B2 42 24 AA 43 24 00 50 10 E4 |850:B$.B$.C$.P..| 00000880: 01 82 20 49 00 68 10 E6 01 8B 20 42 4A 20 22 24 |.. I.h.... BJ "$| 00000890: B2 22 50 22 20 A7 20 98 34 2C 41 24 42 24 00 75 |."P" . .4,A$B$.u| 000008A0: 10 E8 01 82 20 4A 3A 89 35 37 31 00 99 10 3B 02 |.... J:.571...;.| 000008B0: 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 1D 00 BD 10 |..********F*....| 000008C0: 3C 02 8F 2A 20 4E 45 58 54 20 54 52 41 43 4B 20 |<..* NEXT TRACK | 000008D0: 41 4E 44 20 53 45 43 54 4F 52 46 20 07 2A 00 E1 |AND SECTORF .*..| 000008E0: 10 3D 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 |.=...********F* | 000008F0: 63 00 0C 11 3F 02 99 22 4E 45 58 54 20 54 52 41 |c...?.."NEXT TRA| 00000900: 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 22 4E 42 |CK AND SECTOR"NB| 00000910: 28 31 29 4E 42 28 32 29 20 22 11 22 00 35 11 44 |(1)NB(2) ".".5.D| 00000920: 02 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 4E |.."DO YOU WANT N| 00000930: 45 58 54 20 54 52 41 43 4B 20 41 4E 44 20 53 45 |EXT TRACK AND SE| 00000940: 43 54 4F 52 22 00 4B 11 4E 02 A1 20 5A 24 3A 8B |CTOR".K.N.. Z$:.| 00000950: 20 5A 24 B2 42 22 20 26 20 A7 35 39 30 00 6F 11 | Z$.B" & .590.o.| 00000960: 58 02 8B 20 5A 24 B2 22 59 22 20 A7 20 54 B2 4E |X.. Z$."Y" . T.N| 00000970: 42 28 31 29 3A 53 B2 4E 42 28 32 29 3A 89 42 33 |B(1):S.NB(2):.B3| 00000980: 20 24 30 00 82 11 62 02 8B 20 5A 24 B2 22 4E 22 | $0...b.. Z$."N"| 00000990: 20 A7 20 33 32 30 00 8C 11 6C 02 89 20 35 39 30 | . 320...l.. 590| 000009A0: 00 B0 11 76 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 |...v...********F| 000009B0: 2A 13 00 D4 11 80 02 8F 2A 20 53 55 42 52 4F 55 |*.......* SUBROU| 000009C0: 54 49 4E 45 53 A2 20 20 20 20 20 20 20 20 07 2A |TINES. .*| 000009D0: 00 F8 11 8A 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 |.......********F| 000009E0: 2A 09 00 1C 12 94 02 8F 2A 20 45 42 52 0A 4F 52 |*.......* EBR.OR| 000009F0: 20 52 4F 55 54 49 4E 45 4E 20 07 2A 00 40 12 9E | ROUTINEN .*.@..| 00000A00: 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 2E 00 |...********F* ..| 00000A10: 60 12 A8 02 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |`....15,EN,EM$,E| 00000A20: 54 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 20 8E 00 |T,ES:. EN.0 . ..| 00000A30: 80 12 B2 02 99 22 12 44 49 53 4B 20 45 42 52 1E |.....".DISK EBR.| 00000A40: 4F 52 92 22 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |OR."EN,EM$,ET,ES| 00000A50: 00 88 12 BC 02 90 3A 8E 00 AC 12 C6 02 8F A3 2A |......:........*| 00000A60: 2A 2A 2A 2A 2A 2A 2A 46 2A 0B 00 D0 12 D0 02 8F |*******F*.......| 00000A70: 2A 20 53 43 52 42 45 0D 4E 20 43 4F 4E 54 49 4E |* SCRBE.N CONTIN| 00000A80: 55 45 20 4D 45 42 53 03 41 47 45 44 20 07 2A 00 |UE MEBS.AGED .*.| 00000A90: F4 12 DA 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A |......********F*| 00000AA0: 08 00 0E 13 E4 02 99 22 11 44 1D 1C 43 4F 4E 54 |.......".D..CONT| 00000AB0: 49 4E 55 45 28 59 2F 4E 29 22 00 24 13 EE 02 A1 |INUE(Y/N)".$....| 00000AC0: 5A 24 3A 8B 20 5A 24 B2 42 22 20 52 20 A7 20 37 |Z$:. Z$.B" R . 7| 00000AD0: 35 30 00 35 13 F8 02 8B 20 5A 24 B2 22 4E 22 20 |50.5.... Z$."N" | 00000AE0: A7 20 8E 00 49 13 02 03 8B 20 5A 24 B3 B1 22 59 |. ..I.... Z$.."Y| 00000AF0: 22 20 A7 20 37 35 30 00 6A 13 0C 03 99 22 93 54 |" . 750.j....".T| 00000B00: 52 41 43 4B 22 20 54 20 22 20 53 45 43 54 4F 52 |RACK" T " SECTOR| 00000B10: 22 53 20 22 93 22 3A 8E 00 8E 13 16 03 8F A3 2A |"S ".":........*| 00000B20: 2A 2A 2A 2A 2A 2A 2A 46 2A 1E 00 B2 13 20 03 8F |*******F*.... ..| 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 45 20 07 2A 00 D6 13 2A |EX PRINTE .*...*| 00000B50: 03 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 5F 00 |...********F* _.| 00000B60: F9 13 34 03 41 31 B2 B5 28 4E AD 31 36 29 3A 41 |..4.A1..(N.16):A| 00000B70: 24 B2 41 24 AA CA 28 48 58 24 2C 41 31 AA 31 2C |$.A$..(HX$,A1.1,| 00000B80: 31 29 00 1F 14 3E 03 41 32 B2 B5 28 4E AB 31 36 |1)...>.A2..(N.16| 00000B90: AC 41 31 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 |.A1):A$.A$..(HX$| 00000BA0: 2C 41 32 AA 31 2C 31 29 00 2F 14 48 03 41 24 B2 |,A2.1,1)./.H.A$.| 00000BB0: 41 24 AA 53 50 24 3A 8E 00 53 14 52 03 8F A3 2A |A$.SP$:..S.R...*| 00000BC0: 2A 2A 2A 2A 2A 2A 2A 46 2A 20 20 00 77 14 5C 03 |*******F* .w.\.| 00000BD0: 8F 2A 20 44 49 53 4B 20 42 59 54 45 20 54 4F 20 |.* DISK BYTE TO | 00000BE0: 41 53 43 20 44 49 53 50 4C 41 59 43 20 12 2A 00 |ASC DISPLAYC .*.| 00000BF0: 9B 14 66 03 8F 2A 20 43 48 41 52 41 43 54 45 52 |..f..* CHARACTER| 00000C00: A2 20 20 20 20 20 20 20 20 42 20 07 2A 00 BF 14 |. B .*...| 00000C10: 70 03 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 44 |p...********F* D| 00000C20: 00 D9 14 7A 03 8B 20 C6 28 43 24 29 B3 33 32 20 |...z.. .(C$).32 | 00000C30: A7 20 43 24 B2 22 20 22 3A 8E 00 F9 14 84 03 8B |. C$." ":.......| 00000C40: 20 C6 28 43 24 29 B3 31 32 38 20 B0 20 C6 28 43 | .(C$).128 . .(C| 00000C50: 24 29 B1 31 35 39 20 A7 20 8E 00 19 15 8E 03 43 |$).159 . ......C| 00000C60: 24 B2 CA 28 42 53 14 24 2C 33 AC 28 C6 28 43 24 |$..(BS.$,3.(.(C$| 00000C70: 29 AB 31 32 37 29 2C 33 29 3A 8E C3 |).127),3):.. |
....C..2080:..... SECTOR SOFT....X.4.... .....8........F.8........F.......I#P...I .PZ....I....HP.........L...., PF...****) .../......).. 7. ......PY.7..XL..E.] UXP R..P...`..P...`........L7..<.... >.JP.`. . 7.LT...$... >. 7.JP.`...........HD.P.. .E....... .JP....E.......` E... T.F.P.L7 . E. E.F.P.`.%.D...********F* B.I.N..* D ISPLAY ANY TRACK $ SECTOR *.M.X..* ON TH E DISK TO THE SCRBE.NB .*......* OR THE PRINTERM .*.......********F*..V....".B.. RRRRRRRRFR &"... .."DISPLAY BLOCK CONTEN TS"......".EEEEEEEEFE.".6.....********F* ..Z....* SET PROGRAM CONSTANTG .*.~..... ********F* 5...H.SP$." ":NL$.G(0):HX$."0 123456789ABCDEF".Y.R.FS$.B" ):.I.64 . 95 :FS$.FS$.".".G(I).".":. I.....BS.$."B ." :. I.192 . B2.3:BS.$.BS 7$.".".G(I).".": . I. .... A$(15),NB(2).+...D$."0".Z...." H ..S.CRBE.N.H..OR ...P.RINTER".Q....BJ. $:. BJ.$.B". .254...... BJ.$."S".."H ... SCRBE.N."...... BJ.$."P".."H J..PRINTER .".R....15,8,15,"I".D$:. 650......4,4... ... 2,8,2,"#":. 650.......********F*..9. "..* LOAD TRACK AND SECTORF .*.].,..* IN TO DISK BUBF.ERK .*...6...********F*.... @..".B. ITRACK, SECTOR";T,S.M.J.. T.0 . T.35 . .15,"I"D$: 2: 4: 15:."END":....T. . BJ.$."S" . .".B..TRACK"T" SECTOR"S".". #.U.. BJ D$."P" . .4:.4,"TRACK"T" SECTOR "S:.4.>.^..15,"U1:2,"D$;T;S:.650.B.H...* *******F*....R..* READ BYTE 0 OF DISK BU BF.ER *.......********F* ?......15,"B-P: 2,1".R....15,"M-R"G(0)G(5)......#15,A$(0 ):.A$(0).B"..A$(0).NL$...... BJ.$."S".43 0...... BJ.$."P".460.=.....********F*..A ....* READ & CRT DISPLAYI .*......* REST OF THE DISK BUBF.ERD .*.......********F *......K.1:NB(1).F(A$(0B) X...... J.0 . 63:. J.32 . . 710:. Z$."N". J.80:. 458.. .... I.K . 3.&....#2,A$(I):. A$(I).B" + . A$(I).NL$.G.... K.1 . I.2 . NB(2).F(A$ (IB)..S.... I:K.0.Z...A$.B" 4:B$.":":N.J .4:. 790:A$.A$.":"...B.. I.0 . 3:N.F(A$( IB) -:. 790...D.C$.A$(I):. 850:B$.B$.C$. O.F.. I:. BJ.$."S" . .A$B$...J.. J:.571B ..L...********F*..$.N..* READ & PRINT DI SPLAYG .*.H.P...********F*.._.R.K.1:NB(1 ).F(A$(0B) 5.N.T.. J.0 . 15.}.V.. I.K . 15...X..#2,A$(I):. A$(I).B" + . A$(I).NL $.C.Z.. K.1 . I.2 . NB(2).F(A$(IB)..O... . I:K.0.....A$.B" 6:B$.":":N.J.16:. 790: A$.A$.":".,.... I.0 . 15:N.F(A$(IB) F:. 790:. Z$."N". J.40:. 571.H...C$.A$(I):. 850:B$.B$.C$.P.... I.H.... BJ "$."P" . . 4,A$B$.U.... J:.571...;...********F*.... <..* NEXT TRACK AND SECTORF .*...=...*** *****F* C...?.."NEXT TRACK AND SECTOR"NB (1)NB(2) ".".5.D.."DO YOU WANT NEXT TRAC K AND SECTOR".K.N.. Z$:. Z$.B" & .590.O. X.. Z$."Y" . T.NB(1):S.NB(2):.B3 $0...B. . Z$."N" . 320...L.. 590...V...********F *..T....* SUBROUTINES. .*.......* *******F*.......* EBR.OR ROUTINEN .*.@.. ...********F* ..`....15,EN,EM$,ET,ES:. E N.0 . .......".DISK EBR.OR."EN,EM$,ET,ES ......:....F...********F*..P.P..* SCRBE. N CONTINUE MEBS.AGED .*...Z...********F* .......".D..CONTINUE(Y/N)".$....Z$:. Z$. B" R . 750.5.... Z$."N" . ..I.... Z$.."Y " . 750.J....".TRACK" T " SECTOR"S ".":. .......********F*.... ..* DISK BYTE TO H EX PRINTE .*.V.*...********F* _...4.A1.. (N.16):A$.A$.J(HX$,A1.1,1)...>.A2..(N.16 .A1):A$.A$.J(HX$,A2.1,1)./.H.A$.A$.SP$:. .S.R...********F* .W.\..* DISK BYTE TO ASC DISPLAYC .*...F..* CHARACTER. B .*...P...********F* D.Y.Z.. F(C$).32 . C$." ":....... F(C$).128 . F(C$).159 . ......C$.J(BS.$,3.(F(C$).127),3):.C
> CLICK IMAGE PREVIEW FOR FULL MODAL