BAM/DISP
FILE INFORMATION
FILENAME(S): BAM/DISP
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 19:47:10
APPEARS ON: 1 disk(s)
FILE HASH
fdda4a6492a6f8a299a8016b8e762b9150155335c74bc0f305fc2b3da2001f7d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A9 2 | BAM/DISP | PRG | Curtcool, Frank | 7 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 97 20 35 33 32 38 31 2C 31 31 |....... 53281,11| 00000010: 3A 97 35 33 32 38 30 2C 39 3A 99 22 9E 22 00 2A |:.53280,9:.".".*| 00000020: 08 14 00 89 20 31 30 30 30 30 00 4E 08 64 00 8F |.... 10000.N.d..| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 |**************.r| 00000050: 08 6E 00 8F 2A 20 44 49 53 50 4C 41 59 20 41 4E |.n..* DISPLAY AN| 00000060: 59 20 54 52 41 43 4B 20 24 20 53 45 43 54 4F 52 |Y TRACK $ SECTOR| 00000070: 20 2A 00 96 08 78 00 8F 2A 20 4F 4E 20 54 48 45 | *...x..* ON THE| 00000080: 20 44 49 53 4B 20 54 4F 20 54 48 45 20 53 43 52 | DISK TO THE SCR| 00000090: 45 45 4E 20 20 2A 00 BA 08 82 00 8F 2A 20 4F 52 |EEN *......* OR| 000000A0: 20 54 48 45 20 50 52 49 4E 54 45 52 20 20 20 20 | THE PRINTER | 000000B0: 20 20 20 20 20 20 20 20 20 2A 00 DE 08 8C 00 8F | *......| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FF |**************..| 000000E0: 08 96 00 99 22 93 11 11 D2 D2 D2 D2 D2 D2 D2 D2 |...."...........| 000000F0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 22 00 |..............".| 00000100: 1D 09 A0 00 99 22 44 49 53 50 4C 41 59 20 42 4C |....."DISPLAY BL| 00000110: 4F 43 4B 20 43 4F 4E 54 45 4E 54 53 22 00 3C 09 |OCK CONTENTS".<.| 00000120: A5 00 99 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |..."............| 00000130: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 00 60 09 AA |..........":.`..| 00000140: 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000160: 00 84 09 B4 00 8F 2A 20 53 45 54 20 50 52 4F 47 |......* SET PROG| 00000170: 52 41 4D 20 43 4F 4E 53 54 41 4E 54 20 20 20 20 |RAM CONSTANT | 00000180: 20 20 20 2A 00 A8 09 BE 00 8F 2A 2A 2A 2A 2A 2A | *......******| 00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 D4 09 C8 00 53 50 24 |********.....SP$| 000001B0: B2 22 20 22 3A 4E 4C 24 B2 C7 28 30 29 3A 48 58 |." ":NL$..(0):HX| 000001C0: 24 B2 22 30 31 32 33 34 35 36 37 38 39 41 42 43 |$."0123456789ABC| 000001D0: 44 45 46 22 00 03 0A D2 00 46 53 24 B2 22 22 3A |DEF".....FS$."":| 000001E0: 81 49 B2 36 34 20 A4 20 39 35 3A 46 53 24 B2 46 |.I.64 . 95:FS$.F| 000001F0: 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 22 3A |S$."."..(I).".":| 00000200: 82 20 49 00 37 0A DC 00 53 53 24 B2 22 20 20 22 |. I.7...SS$." "| 00000210: 3A 81 20 49 B2 31 39 32 20 A4 20 32 32 33 3A 53 |:. I.192 . 223:S| 00000220: 53 24 B2 53 53 24 AA 22 12 22 AA C7 28 49 29 AA |S$.SS$."."..(I).| 00000230: 22 92 22 3A 82 20 49 00 4A 0A F0 00 86 20 41 24 |".":. I.J.... A$| 00000240: 28 31 35 29 2C 4E 42 28 32 29 00 55 0A FB 00 44 |(15),NB(2).U...D| 00000250: 24 B2 22 30 22 00 84 0A FD 00 99 22 20 20 20 20 |$."0"......" | 00000260: 20 20 20 20 12 53 92 43 52 45 45 4E 11 9D 9D 9D | .S.CREEN....| 00000270: 9D 9D 9D 9D 9D 4F 52 20 11 9D 12 50 92 52 49 4E |.....OR ...P.RIN| 00000280: 54 45 52 22 00 9B 0A FE 00 A1 4A 4A 24 3A 8B 20 |TER"......JJ$:. | 00000290: 4A 4A 24 B2 22 22 20 A7 32 35 34 00 BE 0A FF 00 |JJ$."" .254.....| 000002A0: 8B 20 4A 4A 24 B2 22 53 22 A7 99 22 20 20 20 20 |. JJ$."S".." | 000002B0: 20 20 20 20 11 12 53 43 52 45 45 4E 92 22 00 E2 | ..SCREEN."..| 000002C0: 0A 00 01 8B 20 4A 4A 24 B2 22 50 22 A7 99 22 20 |.... JJ$."P".." | 000002D0: 20 20 20 20 20 20 20 11 12 50 52 49 4E 54 45 52 | ..PRINTER| 000002E0: 92 22 00 FC 0A 04 01 9F 31 35 2C 38 2C 31 35 2C |."......15,8,15,| 000002F0: 22 49 22 AA 44 24 3A 8D 20 36 35 30 00 05 0B 09 |"I".D$:. 650....| 00000300: 01 9F 34 2C 34 00 1B 0B 0E 01 9F 20 32 2C 38 2C |..4,4...... 2,8,| 00000310: 32 2C 22 23 22 3A 8D 20 36 35 30 00 3F 0B 18 01 |2,"#":. 650.?...| 00000320: 8F 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 2A 2A 2A 2A 00 |***************.| 00000340: 63 0B 22 01 8F 2A 20 4C 4F 41 44 20 54 52 41 43 |c."..* LOAD TRAC| 00000350: 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 20 20 20 |K AND SECTOR | 00000360: 20 20 2A 00 87 0B 2C 01 8F 2A 20 49 4E 54 4F 20 | *...,..* INTO | 00000370: 44 49 53 4B 20 42 55 46 46 45 52 20 20 20 20 20 |DISK BUFFER | 00000380: 20 20 20 20 20 20 2A 00 AB 0B 36 01 8F 2A 2A 2A | *...6..***| 00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C7 0B 40 01 |***********...@.| 000003B0: 85 22 11 1D 1D 54 52 41 43 4B 2C 20 53 45 43 54 |."...TRACK, SECT| 000003C0: 4F 52 22 3B 54 2C 53 00 F0 0B 4A 01 8B 20 54 B2 |OR";T,S...J.. T.| 000003D0: 30 20 B0 20 54 B1 33 35 20 A7 20 98 31 35 2C 22 |0 . T.35 . .15,"| 000003E0: 49 22 44 24 3A A0 32 3A A0 34 3A A0 31 35 3A 8A |I"D$:.2:.4:.15:.| 000003F0: 00 1B 0C 54 01 8B 20 4A 4A 24 B2 22 53 22 20 A7 |...T.. JJ$."S" .| 00000400: 20 99 22 93 11 1D 1D 54 52 41 43 4B 22 54 22 20 | ."....TRACK"T" | 00000410: 53 45 43 54 4F 52 22 53 22 11 22 00 47 0C 55 01 |SECTOR"S".".G.U.| 00000420: 8B 20 4A 4A 24 B2 22 50 22 20 A7 20 98 34 3A 98 |. JJ$."P" . .4:.| 00000430: 34 2C 22 54 52 41 43 4B 22 54 22 20 53 45 43 54 |4,"TRACK"T" SECT| 00000440: 4F 52 22 53 3A 98 34 00 62 0C 5E 01 98 31 35 2C |OR"S:.4.b.^..15,| 00000450: 22 55 31 3A 32 2C 22 44 24 3B 54 3B 53 3A 8D 36 |"U1:2,"D$;T;S:.6| 00000460: 35 30 00 86 0C 68 01 8F 2A 2A 2A 2A 2A 2A 2A 2A |50...h..********| 00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000480: 2A 2A 2A 2A 2A 2A 00 AA 0C 72 01 8F 2A 20 52 45 |******...r..* RE| 00000490: 41 44 20 42 59 54 45 20 30 20 4F 46 20 44 49 53 |AD BYTE 0 OF DIS| 000004A0: 4B 20 42 55 46 46 45 52 20 2A 00 CE 0C 86 01 8F |K BUFFER *......| 000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E0 |**************..| 000004D0: 0C 90 01 98 31 35 2C 22 42 2D 50 3A 32 2C 31 22 |....15,"B-P:2,1"| 000004E0: 00 F6 0C 9A 01 98 31 35 2C 22 4D 2D 52 22 C7 28 |......15,"M-R".(| 000004F0: 30 29 C7 28 35 29 00 19 0D A4 01 A1 23 31 35 2C |0).(5)......#15,| 00000500: 41 24 28 30 29 3A 8B 41 24 28 30 29 B2 22 22 A7 |A$(0):.A$(0)."".| 00000510: 41 24 28 30 29 B2 4E 4C 24 00 2B 0D AC 01 8B 20 |A$(0).NL$.+.... | 00000520: 4A 4A 24 B2 22 53 22 A7 34 33 30 00 3D 0D AE 01 |JJ$."S".430.=...| 00000530: 8B 20 4A 4A 24 B2 22 50 22 A7 34 36 30 00 61 0D |. JJ$."P".460.a.| 00000540: AF 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000560: 2A 00 85 0D B0 01 8F 2A 20 52 45 41 44 20 26 20 |*......* READ & | 00000570: 43 52 54 20 44 49 53 50 4C 41 59 20 20 20 20 20 |CRT DISPLAY | 00000580: 20 20 20 20 2A 00 A9 0D B1 01 8F 2A 20 52 45 53 | *......* RES| 00000590: 54 20 4F 46 20 54 48 45 20 44 49 53 4B 20 42 55 |T OF THE DISK BU| 000005A0: 46 46 45 52 20 20 20 20 2A 00 CD 0D B2 01 8F 2A |FFER *......*| 000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E4 0D |*************...| 000005D0: B4 01 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 41 24 |..K.1:NB(1)..(A$| 000005E0: 28 30 29 29 00 17 0E B5 01 81 20 4A B2 30 20 A4 |(0))...... J.0 .| 000005F0: 20 33 31 3A 8B 20 4A B2 31 36 20 A7 20 8D 20 37 | 31:. J.16 . . 7| 00000600: 31 30 3A 8B 20 5A 24 B2 22 4E 22 A7 20 4A B2 38 |10:. Z$."N". J.8| 00000610: 30 3A 89 20 34 35 38 00 25 0E B8 01 81 20 49 B2 |0:. 458.%.... I.| 00000620: 4B 20 A4 20 37 00 4A 0E BA 01 A1 23 32 2C 41 24 |K . 7.J....#2,A$| 00000630: 28 49 29 3A 8B 20 41 24 28 49 29 B2 22 22 20 A7 |(I):. A$(I)."" .| 00000640: 20 41 24 28 49 29 B2 4E 4C 24 00 6B 0E BC 01 8B | A$(I).NL$.k....| 00000650: 20 4B B2 31 20 AF 20 49 B3 32 20 A7 20 4E 42 28 | K.1 . I.2 . NB(| 00000660: 32 29 B2 C6 28 41 24 28 49 29 29 00 77 0E BE 01 |2)..(A$(I)).w...| 00000670: 82 20 49 3A 4B B2 30 00 9E 0E C0 01 41 24 B2 22 |. I:K.0.....A$."| 00000680: 22 3A 42 24 B2 22 3A 22 3A 4E B2 4A AC 38 3A 8D |":B$.":":N.J.8:.| 00000690: 20 37 39 30 3A 41 24 B2 41 24 AA 22 3A 22 00 BD | 790:A$.A$.":"..| 000006A0: 0E C2 01 81 20 49 B2 30 20 A4 20 37 3A 4E B2 C6 |.... I.0 . 7:N..| 000006B0: 28 41 24 28 49 29 29 3A 8D 20 37 39 30 00 D9 0E |(A$(I)):. 790...| 000006C0: C4 01 43 24 B2 41 24 28 49 29 3A 8D 20 38 35 30 |..C$.A$(I):. 850| 000006D0: 3A 42 24 B2 42 24 AA 43 24 00 F3 0E C6 01 82 20 |:B$.B$.C$...... | 000006E0: 49 3A 8B 20 4A 4A 24 B2 22 53 22 20 A7 20 99 41 |I:. JJ$."S" . .A| 000006F0: 24 42 24 00 00 0F CA 01 82 20 4A 3A 89 35 37 31 |$B$...... J:.571| 00000700: 00 24 0F CC 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.$....**********| 00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000720: 2A 2A 2A 2A 00 48 0F CE 01 8F 2A 20 52 45 41 44 |****.H....* READ| 00000730: 20 26 20 50 52 49 4E 54 45 52 20 44 49 53 50 4C | & PRINTER DISPL| 00000740: 41 59 20 20 20 20 20 2A 00 6C 0F D0 01 8F 2A 2A |AY *.l....**| 00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 83 0F D2 |************....| 00000770: 01 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 41 24 28 |.K.1:NB(1)..(A$(| 00000780: 30 29 29 00 92 0F D4 01 81 20 4A B2 30 20 A4 20 |0))...... J.0 . | 00000790: 31 35 00 A1 0F D6 01 81 20 49 B2 4B 20 A4 20 31 |15...... I.K . 1| 000007A0: 35 00 C6 0F D8 01 A1 23 32 2C 41 24 28 49 29 3A |5......#2,A$(I):| 000007B0: 8B 20 41 24 28 49 29 B2 22 22 20 A7 20 41 24 28 |. A$(I)."" . A$(| 000007C0: 49 29 B2 4E 4C 24 00 E7 0F DA 01 8B 20 4B B2 31 |I).NL$...... K.1| 000007D0: 20 AF 20 49 B3 32 20 A7 20 4E 42 28 32 29 B2 C6 | . I.2 . NB(2)..| 000007E0: 28 41 24 28 49 29 29 00 F3 0F DC 01 82 20 49 3A |(A$(I))...... I:| 000007F0: 4B B2 30 00 1B 10 DE 01 41 24 B2 22 22 3A 42 24 |K.0.....A$."":B$| 00000800: B2 22 3A 22 3A 4E B2 4A AC 31 36 3A 8D 20 37 39 |.":":N.J.16:. 79| 00000810: 30 3A 41 24 B2 41 24 AA 22 3A 22 00 50 10 E0 01 |0:A$.A$.":".P...| 00000820: 81 20 49 B2 30 20 A4 20 31 35 3A 4E B2 C6 28 41 |. I.0 . 15:N..(A| 00000830: 24 28 49 29 29 3A 8D 20 37 39 30 3A 8B 20 5A 24 |$(I)):. 790:. Z$| 00000840: B2 22 4E 22 A7 20 4A B2 34 30 3A 89 20 35 37 31 |."N". J.40:. 571| 00000850: 00 6C 10 E2 01 43 24 B2 41 24 28 49 29 3A 8D 20 |.l...C$.A$(I):. | 00000860: 38 35 30 3A 42 24 B2 42 24 AA 43 24 00 74 10 E4 |850:B$.B$.C$.t..| 00000870: 01 82 20 49 00 8C 10 E6 01 8B 20 4A 4A 24 B2 22 |.. I...... JJ$."| 00000880: 50 22 20 A7 20 98 34 2C 41 24 42 24 00 99 10 E8 |P" . .4,A$B$....| 00000890: 01 82 20 4A 3A 89 35 37 31 00 BD 10 3B 02 8F 2A |.. J:.571...;..*| 000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 10 |*************...| 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 20 20 20 20 20 20 |AND SECTOR | 000008E0: 2A 00 05 11 3D 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*...=..*********| 000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000900: 2A 2A 2A 2A 2A 00 31 11 3F 02 99 22 11 4E 45 58 |*****.1.?..".NEX| 00000910: 54 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 |T TRACK AND SECT| 00000920: 4F 52 22 4E 42 28 31 29 4E 42 28 32 29 20 22 11 |OR"NB(1)NB(2) ".| 00000930: 22 00 5A 11 44 02 99 22 44 4F 20 59 4F 55 20 57 |".Z.D.."DO YOU W| 00000940: 41 4E 54 20 4E 45 58 54 20 54 52 41 43 4B 20 41 |ANT NEXT TRACK A| 00000950: 4E 44 20 53 45 43 54 4F 52 22 00 70 11 4E 02 A1 |ND SECTOR".p.N..| 00000960: 20 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 35 39 30 | Z$:. Z$."" .590| 00000970: 00 94 11 58 02 8B 20 5A 24 B2 22 59 22 20 A7 20 |...X.. Z$."Y" . | 00000980: 54 B2 4E 42 28 31 29 3A 53 B2 4E 42 28 32 29 3A |T.NB(1):S.NB(2):| 00000990: 89 33 33 30 00 A7 11 62 02 8B 20 5A 24 B2 22 4E |.330...b.. Z$."N| 000009A0: 22 20 A7 20 33 32 30 00 B1 11 6C 02 89 20 35 39 |" . 320...l.. 59| 000009B0: 30 00 D5 11 76 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0...v..*********| 000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009D0: 2A 2A 2A 2A 2A 00 F9 11 80 02 8F 2A 20 53 55 42 |*****......* SUB| 000009E0: 52 4F 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 |ROUTINES | 000009F0: 20 20 20 20 20 20 20 20 2A 00 1D 12 8A 02 8F 2A | *......*| 00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 12 |*************.A.| 00000A20: 94 02 8F 2A 20 45 52 52 4F 52 20 52 4F 55 54 49 |...* ERROR ROUTI| 00000A30: 4E 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NE | 00000A40: 2A 00 65 12 9E 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.e....*********| 00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A60: 2A 2A 2A 2A 2A 00 85 12 A8 02 84 31 35 2C 45 4E |*****......15,EN| 00000A70: 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 20 45 4E B2 |,EM$,ET,ES:. EN.| 00000A80: 30 20 A7 20 8E 00 A5 12 B2 02 99 22 12 44 49 53 |0 . .......".DIS| 00000A90: 4B 20 45 52 52 4F 52 92 22 45 4E 2C 45 4D 24 2C |K ERROR."EN,EM$,| 00000AA0: 45 54 2C 45 53 00 AB 12 BC 02 80 00 CF 12 C6 02 |ET,ES...........| 00000AB0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000AD0: F3 12 D0 02 8F 2A 20 53 43 52 45 45 4E 20 43 4F |.....* SCREEN CO| 00000AE0: 4E 54 49 4E 55 45 20 4D 45 53 53 41 47 45 20 20 |NTINUE MESSAGE | 00000AF0: 20 20 2A 00 17 13 DA 02 8F 2A 2A 2A 2A 2A 2A 2A | *......*******| 00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B10: 2A 2A 2A 2A 2A 2A 2A 00 31 13 E4 02 99 22 11 1D |*******.1...."..| 00000B20: 1D 1D 1D 43 4F 4E 54 49 4E 55 45 28 59 2F 4E 29 |...CONTINUE(Y/N)| 00000B30: 22 00 47 13 EE 02 A1 5A 24 3A 8B 20 5A 24 B2 22 |".G....Z$:. Z$."| 00000B40: 22 20 A7 20 37 35 30 00 58 13 F8 02 8B 20 5A 24 |" . 750.X.... Z$| 00000B50: B2 22 4E 22 20 A7 20 8E 00 6C 13 02 03 8B 20 5A |."N" . ..l.... Z| 00000B60: 24 B3 B1 22 59 22 20 A7 20 37 35 30 00 91 13 0C |$.."Y" . 750....| 00000B70: 03 99 22 93 11 1D 1D 1D 54 52 41 43 4B 22 20 54 |..".....TRACK" T| 00000B80: 20 22 20 53 45 43 54 4F 52 22 53 20 22 11 22 3A | " SECTOR"S ".":| 00000B90: 8E 00 B5 13 16 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.......*********| 00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BB0: 2A 2A 2A 2A 2A 00 D9 13 20 03 8F 2A 20 44 49 53 |*****... ..* DIS| 00000BC0: 4B 20 42 59 54 45 20 54 4F 20 48 45 58 20 50 52 |K BYTE TO HEX PR| 00000BD0: 49 4E 54 20 20 20 20 20 2A 00 FD 13 2A 03 8F 2A |INT *...*..*| 00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 14 |*************. .| 00000C00: 34 03 41 31 B2 B5 28 4E AD 31 36 29 3A 41 24 B2 |4.A1..(N.16):A$.| 00000C10: 41 24 AA CA 28 48 58 24 2C 41 31 AA 31 2C 31 29 |A$..(HX$,A1.1,1)| 00000C20: 00 46 14 3E 03 41 32 B2 B5 28 4E AB 31 36 AC 41 |.F.>.A2..(N.16.A| 00000C30: 31 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C 41 |1):A$.A$..(HX$,A| 00000C40: 32 AA 31 2C 31 29 00 56 14 48 03 41 24 B2 41 24 |2.1,1).V.H.A$.A$| 00000C50: AA 53 50 24 3A 8E 00 7A 14 52 03 8F 2A 2A 2A 2A |.SP$:..z.R..****| 00000C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 14 5C 03 8F |**********...\..| 00000C80: 2A 20 44 49 53 4B 20 42 59 54 45 20 54 4F 20 41 |* DISK BYTE TO A| 00000C90: 53 43 20 44 49 53 50 4C 41 59 20 20 20 2A 00 C2 |SC DISPLAY *..| 00000CA0: 14 66 03 8F 2A 20 43 48 41 52 41 43 54 45 52 20 |.f..* CHARACTER | 00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CC0: 20 2A 00 E6 14 70 03 8F 2A 2A 2A 2A 2A 2A 2A 2A | *...p..********| 00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000CE0: 2A 2A 2A 2A 2A 2A 00 00 15 7A 03 8B 20 C6 28 43 |******...z.. .(C| 00000CF0: 24 29 B3 33 32 20 A7 20 43 24 B2 22 20 22 3A 8E |$).32 . C$." ":.| 00000D00: 00 20 15 8E 03 8B 20 C6 28 43 24 29 B3 31 32 38 |. .... .(C$).128| 00000D10: 20 B0 20 C6 28 43 24 29 B1 31 35 39 20 A7 20 8E | . .(C$).159 . .| 00000D20: 00 40 15 98 03 43 24 B2 CA 28 53 53 24 2C 33 AC |.@...C$..(SS$,3.| 00000D30: 28 C6 28 43 24 29 AB 31 32 37 29 2C 33 29 3A 8E |(.(C$).127),3):.| 00000D40: 00 54 15 E8 03 44 24 B2 22 30 22 3A 9F 31 35 2C |.T...D$."0":.15,| 00000D50: 38 2C 31 35 00 81 15 F2 03 98 31 35 2C 22 49 22 |8,15......15,"I"| 00000D60: 44 24 3A 4E 55 24 B2 22 49 4B 4B 45 20 20 54 49 |D$:NU$."IKKE TI| 00000D70: 4C 47 5B 4E 47 45 4C 49 47 45 20 22 3A 5A 34 B2 |LG[NGELIGE ":Z4.| 00000D80: 31 00 90 15 FC 03 9F 32 2C 38 2C 32 2C 22 23 22 |1......2,8,2,"#"| 00000D90: 00 B5 15 06 04 59 24 B2 22 13 11 11 11 11 11 11 |.....Y$.".......| 00000DA0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000DB0: 11 11 11 11 22 00 E8 15 10 04 58 24 B2 22 1D 1D |....".....X$."..| 00000DC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000DD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000DE0: 1D 1D 1D 1D 1D 1D 1D 22 00 14 16 1A 04 96 20 A5 |......."...... .| 00000DF0: 53 28 5A 29 20 B2 20 32 AE 28 53 AB B5 28 53 AD |S(Z) . 2.(S..(S.| 00000E00: 38 29 AC 38 29 20 AF 20 28 53 42 28 B5 28 53 AD |8).8) . (SB(.(S.| 00000E10: 38 29 29 29 00 2C 16 24 04 98 31 35 2C 22 55 31 |8))).,.$..15,"U1| 00000E20: 3A 22 3B 32 3B 44 24 3B 31 38 3B 30 00 3E 16 2E |:";2;D$;18;0.>..| 00000E30: 04 98 31 35 2C 22 42 2D 50 22 3B 32 3B 31 00 48 |..15,"B-P";2;1.H| 00000E40: 16 38 04 99 22 93 22 3B 00 5B 16 42 04 59 B2 32 |.8..".";.[.B.Y.2| 00000E50: 33 3A 58 B2 31 3A 8D 31 34 38 30 00 7F 16 4C 04 |3:X.1:.1480...L.| 00000E60: 81 49 B2 30 A4 32 30 3A 99 3A 99 22 91 91 22 C9 |.I.0.20:.:."..".| 00000E70: 28 C4 28 49 29 AA 22 20 22 2C 33 29 3B 3A 82 00 |(.(I)." ",3);:..| 00000E80: 8A 16 56 04 A1 23 32 2C 41 24 00 95 16 60 04 A1 |..V..#2,A$...`..| 00000E90: 23 32 2C 41 24 00 A0 16 6A 04 A1 23 32 2C 41 24 |#2,A$...j..#2,A$| 00000EA0: 00 A9 16 74 04 54 53 B2 30 00 B5 16 7E 04 81 54 |...t.TS.0...~..T| 00000EB0: B2 31 A4 33 35 00 D5 16 88 04 A1 23 32 2C 53 43 |.1.35......#2,SC| 00000EC0: 24 3A 53 43 B2 C6 28 C9 28 C7 28 30 29 AA 53 43 |$:SC..(.(.(0).SC| 00000ED0: 24 2C 31 29 29 00 E2 16 92 04 54 53 B2 54 53 AA |$,1)).....TS.TS.| 00000EE0: 53 43 00 FC 16 9C 04 A1 23 32 2C 41 24 3A 8B 41 |SC......#2,A$:.A| 00000EF0: 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 0C 17 A6 |$."".A$..(0)....| 00000F00: 04 53 42 28 30 29 B2 C6 28 41 24 29 00 26 17 B0 |.SB(0)..(A$).&..| 00000F10: 04 A1 23 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 |..#2,A$:.A$."".A| 00000F20: 24 B2 C7 28 30 29 00 36 17 BA 04 53 42 28 31 29 |$..(0).6...SB(1)| 00000F30: B2 C6 28 41 24 29 00 50 17 C4 04 A1 23 32 2C 41 |..(A$).P....#2,A| 00000F40: 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 |$:.A$."".A$..(0)| 00000F50: 00 60 17 CE 04 53 42 28 32 29 B2 C6 28 41 24 29 |.`...SB(2)..(A$)| 00000F60: 00 75 17 D8 04 59 B2 32 34 3A 58 B2 54 AA 33 3A |.u...Y.24:X.T.3:| 00000F70: 8D 31 34 38 30 00 9E 17 E2 04 99 C8 28 C9 28 C4 |.1480.......(.(.| 00000F80: 28 54 29 2C 32 29 2C 31 29 22 11 9D 22 C9 28 C4 |(T),2),1)"..".(.| 00000F90: 28 54 29 2C 31 29 3B 22 9D 91 91 91 22 3B 00 A4 |(T),1);"....";..| 00000FA0: 17 EC 04 3A 00 AA 17 F6 04 3A 00 B6 17 00 05 81 |...:.....:......| 00000FB0: 53 B2 30 A4 32 30 00 C5 17 0A 05 8B 54 B3 31 38 |S.0.20......T.18| 00000FC0: A7 31 33 33 30 00 E9 17 14 05 8B 54 B1 33 30 AF |.1330......T.30.| 00000FD0: 53 B2 31 37 A7 3A 99 CA 28 4E 55 24 2C 5A 34 2C |S.17.:..(NU$,Z4,| 00000FE0: 31 29 3B 3A 89 31 33 37 30 00 0D 18 1E 05 8B 54 |1);:.1370......T| 00000FF0: B1 32 34 AF 53 B2 31 38 A7 3A 99 CA 28 4E 55 24 |.24.S.18.:..(NU$| 00001000: 2C 5A 34 2C 31 29 3B 3A 89 31 33 37 30 00 30 18 |,Z4,1);:.1370.0.| 00001010: 28 05 8B 54 B1 32 34 AF 53 B2 31 39 A7 99 CA 28 |(..T.24.S.19...(| 00001020: 4E 55 24 2C 5A 34 2C 31 29 3B 3A 89 31 33 37 30 |NU$,Z4,1);:.1370| 00001030: 00 5B 18 32 05 8B 54 B1 31 37 AF 53 B2 32 30 A7 |.[.2..T.17.S.20.| 00001040: 99 CA 28 4E 55 24 2C 5A 34 2C 31 29 3B 3A 5A 34 |..(NU$,Z4,1);:Z4| 00001050: B2 5A 34 AA 31 3A 89 31 33 37 30 00 61 18 3C 05 |.Z4.1:.1370.a.<.| 00001060: 3A 00 7D 18 46 05 8B 20 A5 53 28 53 29 B2 30 20 |:.}.F.. .S(S).0 | 00001070: A7 20 99 22 2A 22 3B 3A 89 31 33 37 30 00 88 18 |. ."*";:.1370...| 00001080: 50 05 99 22 92 2E 22 3B 00 94 18 5A 05 99 22 91 |P.."..";...Z..".| 00001090: 9D 92 22 3B 00 9D 18 64 05 82 53 2C 54 00 A7 18 |..";...d..S,T...| 000010A0: 6E 05 99 22 13 22 3B 00 BB 18 78 05 98 31 35 2C |n..".";...x..15,| 000010B0: 22 42 2D 50 22 3B 32 3B 31 34 34 00 DF 18 82 05 |"B-P";2;144.....| 000010C0: 4E 24 B2 22 22 3A 81 49 B2 31 A4 32 30 3A A1 23 |N$."":.I.1.20:.#| 000010D0: 32 2C 41 24 3A 4E 24 B2 4E 24 AA 41 24 3A 82 00 |2,A$:N$.N$.A$:..| 000010E0: FD 18 8C 05 99 22 20 20 22 4E 24 22 20 22 54 53 |....." "N$" "TS| 000010F0: 22 42 4C 4F 43 4B 53 20 46 52 45 45 22 00 0C 19 |"BLOCKS FREE"...| 00001100: 96 05 98 31 35 2C 22 49 22 AA 44 24 00 20 19 A0 |...15,"I".D$. ..| 00001110: 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 34 34 30 |..A$:.A$."".1440| 00001120: 00 33 19 AA 05 8B 41 24 B2 22 52 22 A7 8A 20 31 |.3....A$."R".. 1| 00001130: 30 30 30 00 39 19 B4 05 8A 00 3F 19 BE 05 3A 00 |000.9.....?...:.| 00001140: 57 19 C8 05 99 C8 28 59 24 2C 59 29 C8 28 58 24 |W.....(Y$,Y).(X$| 00001150: 2C 58 29 22 9D 22 3B 00 5D 19 D2 05 8E 00 66 19 |,X)".";.].....f.| 00001160: 10 27 99 22 93 22 00 8C 19 1A 27 99 22 11 11 11 |.'."."....'."...| 00001170: 11 11 11 1D 1D 1D 1D 1D 1D 44 49 53 50 4C 41 59 |.........DISPLAY| 00001180: 20 54 20 41 4E 44 20 53 20 3D 20 31 00 AE 19 24 | T AND S = 1...$| 00001190: 27 99 22 11 11 1D 1D 1D 1D 1D 1D 56 49 45 57 20 |'."........VIEW | 000011A0: 42 41 4D 20 20 20 20 20 20 20 20 3D 20 32 00 C7 |BAM = 2..| 000011B0: 19 2E 27 97 20 31 39 38 2C 30 3A 92 20 31 39 38 |..'. 198,0:. 198| 000011C0: 2C 31 3A A1 20 41 24 00 DA 19 38 27 8B 20 41 24 |,1:. A$...8'. A$| 000011D0: B2 22 31 22 20 A7 20 31 30 30 00 EE 19 42 27 8B |."1" . 100...B'.| 000011E0: 20 41 24 B2 22 32 22 20 A7 20 31 30 30 30 00 FA | A$."2" . 1000..| 000011F0: 19 4C 27 89 20 31 30 30 33 30 00 00 47 |.L'. 10030..G |
....... 53281,11:.53280,9:.".".*.... 100
00.N.D..******************************.R
.N..* DISPLAY ANY TRACK $ SECTOR *...X..
* ON THE DISK TO THE SCREEN *......* OR
THE PRINTER *......********
**********************......"...RRRRRRRR
RRRRRRRRRRRRRR"... .."DISPLAY BLOCK CONT
ENTS".<...."EEEEEEEEEEEEEEEEEEEEEE":.`..
..******************************......*
SET PROGRAM CONSTANT *......******
************************.T.H.SP$." ":NL$
.G(0):HX$."0123456789ABCDEF"...R.FS$."":
.I.64 . 95:FS$.FS$.".".G(I).".":. I.7...
SS$." ":. I.192 . 223:SS$.SS$.".".G(I).
".":. I.J.... A$(15),NB(2).U...D$."0"...
..." .S.CREEN.........OR ...P.RIN
TER"......JJ$:. JJ$."" .254...... JJ$."S
".." ..SCREEN."...... JJ$."P".."
..PRINTER."......15,8,15,"I".D$:.
650......4,4...... 2,8,2,"#":. 650.?...
.******************************.C."..* L
OAD TRACK AND SECTOR *...,..* INTO
DISK BUFFER *...6..***********
*******************.G.@.."...TRACK, SECT
OR";T,S...J.. T.0 . T.35 . .15,"I"D$: 2:
4: 15:....T.. JJ$."S" . ."....TRACK"T"
SECTOR"S".".G.U.. JJ$."P" . .4:.4,"TRACK
"T" SECTOR"S:.4.B.^..15,"U1:2,"D$;T;S:.6
50...H..******************************..
.R..* READ BYTE 0 OF DISK BUFFER *.N....
******************************......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.A....*************
*****************......* READ & CRT DISP
LAY *......* REST OF THE DISK BU
FFER *.M....*************************
*****.....K.1:NB(1).F(A$(0))...... J.0 .
31:. J.16 . . 710:. Z$."N". J.80:. 458.
%.... I.K . 7.J....#2,A$(I):. A$(I)."" .
A$(I).NL$.K.... K.1 . I.2 . NB(2).F(A$(
I)).W.... I:K.0.....A$."":B$.":":N.J.8:.
790:A$.A$.":"...B.. I.0 . 7:N.F(A$(I)):
. 790.Y.D.C$.A$(I):. 850:B$.B$.C$...F..
I:. JJ$."S" . .A$B$...J.. J:.571.$.L..**
****************************.H.N..* READ
& PRINTER DISPLAY *.L.P..**********
********************...R.K.1:NB(1).F(A$(
0))...T.. J.0 . 15...V.. I.K . 15.F.X..#
2,A$(I):. A$(I)."" . A$(I).NL$...Z.. K.1
. I.2 . NB(2).F(A$(I))...... I:K.0.....
A$."":B$.":":N.J.16:. 790:A$.A$.":".P...
. I.0 . 15:N.F(A$(I)):. 790:. Z$."N". J.
40:. 571.L...C$.A$(I):. 850:B$.B$.C$.T..
.. I...... JJ$."P" . .4,A$B$...... J:.57
1...;..******************************...
<..* NEXT TRACK AND SECTOR *...=..*
*****************************.1.?..".NEX
T TRACK AND SECTOR"NB(1)NB(2) ".".Z.D.."
DO YOU WANT NEXT TRACK AND SECTOR".P.N..
Z$:. Z$."" .590...X.. Z$."Y" . T.NB(1):
S.NB(2):.330...B.. Z$."N" . 320...L.. 59
0.U.V..******************************...
...* SUBROUTINES *......*
*****************************.A....* ERR
OR ROUTINE *.E....*********
*********************......15,EN,EM$,ET,
ES:. EN.0 . .......".DISK ERROR."EN,EM$,
ET,ES.......O.F..***********************
*******...P..* SCREEN CONTINUE MESSAGE
*...Z..******************************.
1....".....CONTINUE(Y/N)".G....Z$:. Z$."
" . 750.X.... Z$."N" . ..L.... Z$.."Y" .
750......".....TRACK" T " SECTOR"S ".":
.......******************************.Y.
..* DISK BYTE TO HEX PRINT *...*..*
*****************************. .4.A1..(N
.16):A$.A$.J(HX$,A1.1,1).F.>.A2..(N.16.A
1):A$.A$.J(HX$,A2.1,1).V.H.A$.A$.SP$:..Z
.R..******************************...\..
* DISK BYTE TO ASC DISPLAY *.B.F..* CH
ARACTER *...P..********
**********************...Z.. F(C$).32 .
C$." ":.. .... F(C$).128 . F(C$).159 . .
.@...C$.J(SS$,3.(F(C$).127),3):..T...D$.
"0":.15,8,15......15,"I"D$:NU$."IKKE TI
LG[NGELIGE ":Z4.1......2,8,2,"#".....Y$.
"...........................".....X$."..
......................................."
...... .S(Z) . 2.(S..(S.8).8) . (SB(.(S.
8))).,.$..15,"U1:";2;D$;18;0.>....15,"B-
P";2;1.H.8..".";.[.B.Y.23:X.1:.1480..L.
.I.0.20:.:.".."I(D(I)." ",3);:....V..#2,
A$...`..#2,A$. .J..#2,A$...T.TS.0...~..T
.1.35.U....#2,SC$:SC.F(I(G(0).SC$,1))...
..TS.TS.SC......#2,A$:.A$."".A$.G(0)....
.SB(0).F(A$).&....#2,A$:.A$."".A$.G(0).6
...SB(1).F(A$).P.D..#2,A$:.A$."".A$.G(0)
.`.N.SB(2).F(A$).U.X.Y.24:X.T.3:.1480...
...H(I(D(T),2),1)".."I(D(T),1);"....";..
...:.....:......S.0.20.E....T.18.1330...
...T.30.S.17.:.J(NU$,Z4,1);:.1370......T
.24.S.18.:.J(NU$,Z4,1);:.1370.0.(..T.24.
S.19..J(NU$,Z4,1);:.1370.[.2..T.17.S.20.
.J(NU$,Z4,1);:Z4.Z4.1:.1370.A.<.:.}.F..
.S(S).0 . ."*";:.1370...P.."..";...Z..".
..";...D..S,T...N..".";...X..15,"B-P";2;
144.....N$."":.I.1.20:.#2,A$:N$.N$.A$:..
....." "N$" "TS"BLOCKS FREE"......15,"I
".D$. . ..A$:.A$."".1440.3....A$."R".. 1
000.9.....?...:.W.H..H(Y$,Y)H(X$,X)".";.
].R...F..'."."....'."............DISPLAY
T AND S = 1...$'."........VIEW BAM
= 2.G..'. 198,0:. 198,1:. A$.Z.8'. A$
."1" . 100...B'. A$."2" . 1000...L'. 100
30..G
> CLICK IMAGE PREVIEW FOR FULL MODAL