SEARCH BLOCK
FILE INFORMATION
FILENAME(S): SEARCH BLOCK
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-12-02 00:17:42
APPEARS ON: 1 disk(s)
FILE HASH
7db5b87add20e89a4b6eeca7bfc6d4c93bb5a7ecea7a28cb31ce0026c01ce53c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK020A | SEARCH BLOCK | PRG | Maestro | 17 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: B2 41 24 28 49 29 3A 8D 20 38 35 30 3A 42 24 B2 |.A$(I):. 850:B$.| 00000010: 42 24 AA 43 24 00 CF 0E C6 01 82 20 49 3A 8B 20 |B$.C$...... I:. | 00000020: 42 4A 1A 24 B2 22 53 22 20 A7 20 99 41 24 42 24 |BJ.$."S" . .A$B$| 00000030: 00 DC 0E CA 01 82 20 4A 3A 89 35 37 31 C2 04 0F |...... J:.571...| 00000040: CC 01 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 1C 00 |....********F*..| 00000050: 24 0F CE 01 8F 2A 20 52 45 41 44 20 26 20 50 52 |$....* READ & PR| 00000060: 49 4E 54 20 44 49 53 50 4C 41 59 47 20 07 2A 00 |INT DISPLAYG .*.| 00000070: 48 0F D0 01 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A |H.....********F*| 00000080: 15 00 5F 0F D2 01 4B B2 31 3A 4E 42 28 31 29 B2 |.._...K.1:NB(1).| 00000090: C6 28 41 24 28 30 42 29 20 35 00 6E 0F D4 01 81 |.(A$(0B) 5.n....| 000000A0: 20 4A B2 30 20 A4 20 31 35 00 7D 0F D6 01 81 20 | J.0 . 15.}.... | 000000B0: 49 B2 4B 20 A4 20 31 35 00 A2 0F D8 01 A1 23 32 |I.K . 15......#2| 000000C0: 2C 41 24 28 49 29 3A 8B 20 41 24 28 49 29 B2 42 |,A$(I):. A$(I).B| 000000D0: 22 20 2B 20 A7 20 41 24 28 49 29 B2 4E 4C 24 00 |" + . A$(I).NL$.| 000000E0: C3 0F DA 01 8B 20 4B B2 31 20 AF 20 49 B3 32 20 |..... K.1 . I.2 | 000000F0: A7 20 4E 42 28 32 29 B2 C6 28 41 24 28 49 42 29 |. NB(2)..(A$(IB)| 00000100: 14 00 CF 0F DC 01 82 20 49 3A 4B B2 30 00 F7 0F |....... I:K.0...| 00000110: DE 01 41 24 B2 42 22 20 36 3A 42 24 B2 22 3A 22 |..A$.B" 6:B$.":"| 00000120: 3A 4E B2 4A AC 31 36 3A 8D 20 37 39 30 3A 41 24 |:N.J.16:. 790:A$| 00000130: B2 41 24 AA 22 3A 22 00 2C 10 E0 01 81 20 49 B2 |.A$.":".,.... I.| 00000140: 30 20 A4 20 31 35 3A 4E B2 C6 28 41 24 28 49 42 |0 . 15:N..(A$(IB| 00000150: 29 20 46 3A 8D 20 37 39 30 3A 8B 20 5A 24 B2 22 |) F:. 790:. Z$."| 00000160: 4E 22 A7 20 4A B2 34 30 3A 89 20 35 37 31 00 48 |N". J.40:. 571.H| 00000170: 10 E2 01 43 24 B2 41 24 28 49 29 3A 8D 20 38 35 |...C$.A$(I):. 85| 00000180: 30 3A 42 24 B2 42 24 AA 43 24 00 50 10 E4 01 82 |0:B$.B$.C$.P....| 00000190: 20 49 00 68 10 E6 01 8B 20 42 4A 20 22 24 B2 22 | I.h.... BJ "$."| 000001A0: 50 22 20 A7 20 98 34 2C 41 24 42 24 00 75 10 E8 |P" . .4,A$B$.u..| 000001B0: 01 82 20 4A 3A 89 35 37 31 00 99 10 3B 02 8F A3 |.. J:.571...;...| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 1D 00 BD 10 3C 02 |********F*....<.| 000001D0: 8F 2A 20 4E 45 58 54 20 54 52 41 43 4B 20 41 4E |.* NEXT TRACK AN| 000001E0: 44 20 53 45 43 54 4F 52 46 20 07 2A 00 E1 10 3D |D SECTORF .*...=| 000001F0: 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 63 00 |...********F* c.| 00000200: 0C 11 3F 02 99 22 4E 45 58 54 20 54 52 41 43 4B |..?.."NEXT TRACK| 00000210: 20 41 4E 44 20 53 45 43 54 4F 52 22 4E 42 28 31 | AND SECTOR"NB(1| 00000220: 29 4E 42 28 32 29 20 22 11 22 00 35 11 44 02 99 |)NB(2) ".".5.D..| 00000230: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 4E 45 58 |"DO YOU WANT NEX| 00000240: 54 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 |T TRACK AND SECT| 00000250: 4F 52 22 00 4B 11 4E 02 A1 20 5A 24 3A 8B 20 5A |OR".K.N.. Z$:. Z| 00000260: 24 B2 42 22 20 26 20 A7 35 39 30 00 6F 11 58 02 |$.B" & .590.o.X.| 00000270: 8B 20 5A 24 B2 22 59 22 20 A7 20 54 B2 4E 42 28 |. Z$."Y" . T.NB(| 00000280: 31 29 3A 53 B2 4E 42 28 32 29 3A 89 42 33 20 24 |1):S.NB(2):.B3 $| 00000290: 30 00 82 11 62 02 8B 20 5A 24 B2 22 4E 22 20 A7 |0...b.. Z$."N" .| 000002A0: 20 33 32 30 00 8C 11 6C 02 89 20 35 39 30 00 B0 | 320...l.. 590..| 000002B0: 11 76 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 13 |.v...********F*.| 000002C0: 00 D4 11 80 02 8F 2A 20 53 55 42 52 4F 55 54 49 |......* SUBROUTI| 000002D0: 4E 45 53 A2 20 20 20 20 20 20 20 20 07 2A 00 F8 |NES. .*..| 000002E0: 11 8A 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 09 |.....********F*.| 000002F0: 00 1C 12 94 02 8F 2A 20 45 42 52 0A 4F 52 20 52 |......* EBR.OR R| 00000300: 4F 55 54 49 4E 45 4E 20 07 2A 00 40 12 9E 02 8F |OUTINEN .*.@....| 00000310: A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 2E 00 60 12 |.********F* ..`.| 00000320: A8 02 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |...15,EN,EM$,ET,| 00000330: 45 53 3A 8B 20 45 4E B2 30 20 A7 20 8E 00 80 12 |ES:. EN.0 . ....| 00000340: B2 02 99 22 12 44 49 53 4B 20 45 42 52 1E 4F 52 |...".DISK EBR.OR| 00000350: 92 22 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 88 |."EN,EM$,ET,ES..| 00000360: 12 BC 02 90 3A 8E 00 AC 12 C6 02 8F A3 2A 2A 2A |....:........***| 00000370: 2A 2A 2A 2A 2A 46 2A 0B 00 D0 12 D0 02 8F 2A 20 |*****F*.......* | 00000380: 53 43 52 42 45 0D 4E 20 43 4F 4E 54 49 4E 55 45 |SCRBE.N CONTINUE| 00000390: 20 4D 45 42 53 03 41 47 45 44 20 07 2A 00 F4 12 | MEBS.AGED .*...| 000003A0: DA 02 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 08 00 |....********F*..| 000003B0: 0E 13 E4 02 99 22 11 44 1D 1C 43 4F 4E 54 49 4E |.....".D..CONTIN| 000003C0: 55 45 28 59 2F 4E 29 22 00 24 13 EE 02 A1 5A 24 |UE(Y/N)".$....Z$| 000003D0: 3A 8B 20 5A 24 B2 42 22 20 52 20 A7 20 37 35 30 |:. Z$.B" R . 750| 000003E0: 00 35 13 F8 02 8B 20 5A 24 B2 22 4E 22 20 A7 20 |.5.... Z$."N" . | 000003F0: 8E 00 49 13 02 03 8B 20 5A 24 B3 B1 22 59 22 20 |..I.... Z$.."Y" | 00000400: A7 20 37 35 30 00 6A 13 0C 03 99 22 93 54 52 41 |. 750.j....".TRA| 00000410: 43 4B 22 20 54 20 22 20 53 45 43 54 4F 52 22 53 |CK" T " SECTOR"S| 00000420: 20 22 93 22 3A 8E 00 8E 13 16 03 8F A3 2A 2A 2A | ".":........***| 00000430: 2A 2A 2A 2A 2A 46 2A 1E 00 B2 13 20 03 8F 2A 20 |*****F*.... ..* | 00000440: 44 49 53 4B 20 42 59 54 45 20 54 4F 20 48 45 58 |DISK BYTE TO HEX| 00000450: 20 50 52 49 4E 54 45 20 07 2A 00 D6 13 2A 03 8F | PRINTE .*...*..| 00000460: A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 5F 00 F9 13 |.********F* _...| 00000470: 34 03 41 31 B2 B5 28 4E AD 31 36 29 3A 41 24 B2 |4.A1..(N.16):A$.| 00000480: 41 24 AA CA 28 48 58 24 2C 41 31 AA 31 2C 31 29 |A$..(HX$,A1.1,1)| 00000490: 00 1F 14 3E 03 41 32 B2 B5 28 4E AB 31 36 AC 41 |...>.A2..(N.16.A| 000004A0: 31 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C 41 |1):A$.A$..(HX$,A| 000004B0: 32 AA 31 2C 31 29 00 2F 14 48 03 41 24 B2 41 24 |2.1,1)./.H.A$.A$| 000004C0: AA 53 50 24 3A 8E 00 53 14 52 03 8F A3 2A 2A 2A |.SP$:..S.R...***| 000004D0: 2A 2A 2A 2A 2A 46 2A 20 20 00 77 14 5C 03 8F 2A |*****F* .w.\..*| 000004E0: 20 44 49 53 4B 20 42 59 54 45 20 54 4F 20 41 53 | DISK BYTE TO AS| 000004F0: 43 20 44 49 53 50 4C 41 59 43 20 12 2A 00 9B 14 |C DISPLAYC .*...| 00000500: 66 03 8F 2A 20 43 48 41 52 41 43 54 45 52 A2 20 |f..* CHARACTER. | 00000510: 20 20 20 20 20 20 20 42 20 07 2A 00 BF 14 70 03 | B .*...p.| 00000520: 8F A3 2A 2A 2A 2A 2A 2A 2A 2A 46 2A 20 44 00 D9 |..********F* D..| 00000530: 14 7A 03 8B 20 C6 28 43 24 29 B3 33 32 20 A7 20 |.z.. .(C$).32 . | 00000540: 43 24 B2 22 20 22 3A 8E 00 F9 14 84 03 8B 20 C6 |C$." ":....... .| 00000550: 28 43 24 29 B3 31 32 38 20 B0 20 C6 28 43 24 29 |(C$).128 . .(C$)| 00000560: B1 31 35 39 20 A7 20 8E 00 19 15 8E 03 43 24 B2 |.159 . ......C$.| 00000570: CA 28 42 53 14 24 2C 33 AC 28 C6 28 43 24 29 AB |.(BS.$,3.(.(C$).| 00000580: 31 32 37 29 2C 33 29 3A 8E C3 |127),3):.. |
.A$(I):. 850:B$.B$.C$.O.F.. I:. BJ.$."S" . .A$B$...J.. J:.571B..L...********F*.. $.N..* READ & PRINT DISPLAYG .*.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:.57 1...;...********F*....<..* NEXT TRACK AN D SECTORF .*...=...********F* C...?.."NE XT TRACK AND SECTOR"NB(1)NB(2) ".".5.D.. "DO YOU WANT NEXT TRACK 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....* SUBROUTI NES. .*.......********F*.......* EBR.OR ROUTINEN .*.@.....********F* ..`. ...15,EN,EM$,ET,ES:. EN.0 . .......".DIS K EBR.OR."EN,EM$,ET,ES......:....F...*** *****F*..P.P..* SCRBE.N CONTINUE MEBS.AG ED .*...Z...********F*.......".D..CONTIN UE(Y/N)".$....Z$:. Z$.B" R . 750.5.... Z $."N" . ..I.... Z$.."Y" . 750.J....".TRA CK" T " SECTOR"S ".":........********F*. ... ..* DISK BYTE TO HEX PRINTE .*.V.*.. .********F* _...4.A1..(N.16):A$.A$.J(HX$ ,A1.1,1)...>.A2..(N.16.A1):A$.A$.J(HX$,A 2.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