E.BLOCK DISPLAY.
FILE INFORMATION
FILENAME(S): E.BLOCK DISPLAY.
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-10-20 14:32:09
APPEARS ON: 1 disk(s)
FILE HASH
208a88e900cf42523666f2095523ef94f7d8b477da9d96595c1163f72bad9532
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLIC ISSUE 15 | E.BLOCK DISPLAY. | PRG | Treasure Chest - Klaus Der Suhler | 20 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 4E 46 9E 32 30 36 31 00 00 00 20 5B |....NF.2061... [|
00000010: FF CA 8E 20 D0 8E 21 D0 A0 28 A9 01 99 FF D7 B9 |... ..!..(......|
00000020: 53 08 99 FF 03 88 D0 F2 78 84 01 A2 07 BD CD 08 |S.......x.......|
00000030: 95 2D CA 10 F8 9A B9 D5 08 99 F7 00 C8 D0 F7 A2 |.-..............|
00000040: 20 CE 48 08 CE 4B 08 B9 EB 28 99 00 00 C8 D0 F7 | .H..K...(......|
00000050: CA D0 EE F0 2D 20 02 19 07 20 03 0F 0D 10 01 03 |....- ... ......|
00000060: 14 0F 12 2B 20 28 03 29 31 39 38 39 20 0E 01 06 |...+ (.)1989 ...|
00000070: 20 0F 06 20 02 01 02 19 07 01 0E 07 20 A9 E7 20 | .. ........ .. |
00000080: FA 00 20 03 01 C9 E7 F0 18 A6 30 D0 F2 B9 6A DF |.. .......0...j.|
00000090: 91 2D C8 D0 F8 B5 31 95 2D E8 E0 04 D0 F7 4C 27 |.-....1.-.....L'|
000000A0: 01 20 03 01 F0 D7 48 29 C0 85 F9 68 29 3F 85 0F |. ....H)...h)?..|
000000B0: 84 0E A2 03 20 03 01 4A 26 0E 4A 26 0E 20 F7 00 |.... ..J&.J&. ..|
000000C0: CA D0 F1 A5 0E 20 F7 00 C6 0F D0 E4 F0 B4 6A DF |..... ........j.|
000000D0: 8B E0 01 08 69 E0 18 69 00 91 2D E6 2D D0 02 E6 |....i..i..-.-...|
000000E0: 2E 60 C6 01 CE 18 D4 EE 18 D4 E6 01 E6 2F D0 02 |.`.........../..|
000000F0: E6 30 B1 2F 60 20 03 01 AA 20 03 01 91 2D C8 D0 |.0./` ... ...-..|
00000100: FB E6 2E CA D0 F6 20 03 01 A6 30 F0 0D C9 C3 F0 |...... ...0.....|
00000110: 14 C9 DD F0 29 20 FA 00 D0 EC A9 37 85 01 58 20 |....) .....7..X |
00000120: 59 A6 4C AE A7 20 03 01 AA F0 CA 29 FC F0 0B 20 |Y.L.. .....)... |
00000130: 03 01 20 FA 00 CA D0 FA F0 CC A9 C3 D0 F4 20 03 |.. ........... .|
00000140: 01 AA F0 18 29 FC F0 10 20 03 01 85 F9 20 03 01 |....)... .... ..|
00000150: 20 F7 00 CA D0 FA F0 AE A9 DD D0 D6 20 03 01 AA | ........... ...|
00000160: 20 03 01 8D 8E 01 20 03 01 91 2D 18 69 00 C8 D0 | ..... ...-.i...|
00000170: F8 E6 2E CA D0 F3 F0 8E 22 12 46 31 92 3D 41 47 |........".F1.=AG|
00000180: 41 49 4E 20 20 12 46 33 92 3D 45 4E 44 22 3B 00 |AIN .F3.=END";.|
00000190: 2C 2A 26 11 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 |,*&..AN$:.AN$.""|
000001A0: A7 34 33 39 30 00 3F 2A 30 11 8B 41 4E 24 B2 22 |.4390.?*0..AN$."|
000001B0: 85 22 A7 8A 34 30 31 30 00 45 2A 3A 11 8A 00 5E |."..4010.E*:...^|
000001C0: 2A 94 11 81 41 B2 38 32 38 A4 38 36 37 3A 87 42 |*...A.828.867:.B|
000001D0: 3A 97 41 2C 42 3A 82 00 A9 2A 9E 11 83 E7 11 83 |:.A,B:...*......|
000001E0: C4 D9 B3 CC B3 CB B1 C6 E3 B2 CA D7 B2 C5 C1 B3 |................|
000001F0: C8 CF C8 B2 DB D4 B1 D7 D4 B2 D7 CC B0 B1 D3 E0 |................|
00000200: C9 C3 C0 C9 C3 E0 C9 D3 DC CF C8 B1 C3 D0 B1 D7 |................|
00000210: D5 B2 36 00 F4 2A A8 11 83 E7 11 83 C4 D9 B3 D8 |..6..*..........|
00000220: B3 CB B0 C8 C7 B2 CA D7 B2 C5 C1 B3 C0 C5 E3 D4 |................|
00000230: C3 B1 D0 B1 CF C8 C5 DB E0 C9 D7 D4 C9 C3 C0 C9 |................|
00000240: C3 E0 C9 D3 DC CF C8 B1 C3 D0 B1 D7 D5 B2 36 00 |..............6.|
00000250: FC 2A B2 11 8C 3A 8E 00 00 00 21 08 64 00 8B C2 |.*...:....!.d...|
00000260: 28 35 36 29 B2 31 32 37 A7 97 35 36 2C 31 36 30 |(56).127..56,160|
00000270: 3A 9C 3A 58 B2 B8 28 30 29 00 45 08 6E 00 8F 2A |:.:X..(0).E.n..*|
00000280: 20 44 49 53 50 4C 41 59 20 41 4E 59 20 54 52 41 | DISPLAY ANY TRA|
00000290: 43 4B 20 24 20 53 45 43 54 4F 52 20 2A 00 69 08 |CK $ SECTOR *.i.|
000002A0: 78 00 8F 2A 20 4F 4E 20 54 48 45 20 44 49 53 4B |x..* ON THE DISK|
000002B0: 20 54 4F 20 54 48 45 20 53 43 52 45 45 4E 20 20 | TO THE SCREEN |
000002C0: 2A 00 8D 08 82 00 8F 2A 20 4F 52 20 54 48 45 20 |*......* OR THE |
000002D0: 50 52 49 4E 54 45 52 C3 0D 20 2A 00 B1 08 8C 00 |PRINTER.. *.....|
000002E0: 8F C3 1E 2A 00 E5 08 96 00 99 22 93 11 11 C3 28 |...*......"....(|
000002F0: D2 22 3B 00 32 09 A0 00 99 22 44 49 53 50 4C 41 |.";.2...."DISPLA|
00000300: 59 20 42 4C 4F 43 4B 20 43 4F 4E 54 45 4E 54 53 |Y BLOCK CONTENTS|
00000310: 20 49 4E 20 48 45 58 20 26 20 41 4C 50 48 41 22 | IN HEX & ALPHA"|
00000320: C7 28 31 33 29 A6 31 30 29 22 12 53 92 43 52 45 |.(13).10)".S.CRE|
00000330: 45 4E 20 4F 52 20 12 50 92 52 49 4E 54 45 52 22 |EN OR .P.RINTER"|
00000340: 00 63 09 A5 00 99 22 C3 28 C5 22 3B 00 AF 09 A6 |.c....".(.";....|
00000350: 00 99 22 28 4F 52 20 12 46 31 92 20 53 43 41 4C |.."(OR .F1. SCAL|
00000360: 50 45 4C 20 20 12 46 32 92 20 54 52 41 43 45 20 |PEL .F2. TRACE |
00000370: 4C 49 4E 4B 53 20 20 12 46 33 92 20 45 4E 44 C3 |LINKS .F3. END.|
00000380: 04 20 11 20 12 46 35 92 20 4C 4F 41 44 20 41 44 |. . .F5. LOAD AD|
00000390: 44 52 45 53 53 22 3B 00 C8 09 A7 00 99 22 20 20 |DRESS";......" |
000003A0: 12 46 37 92 20 38 4B 20 43 4F 50 59 29 11 11 22 |.F7. 8K COPY).."|
000003B0: 00 EC 09 B4 00 8F 2A 20 53 45 54 20 50 52 4F 47 |......* SET PROG|
000003C0: 52 41 4D 20 43 4F 4E 53 54 41 4E 54 C3 07 20 2A |RAM CONSTANT.. *|
000003D0: 00 10 0A BE 00 8F C3 1E 2A 00 3C 0A C8 00 53 50 |........*.<...SP|
000003E0: 24 B2 22 20 22 3A 4E 4C 24 B2 C7 28 30 29 3A 48 |$." ":NL$..(0):H|
000003F0: 58 24 B2 22 DD 0A 01 2F DD 06 01 40 22 00 6B 0A |X$.".../...@".k.|
00000400: D2 00 46 53 24 B2 22 22 3A 81 49 B2 36 34 20 A4 |..FS$."":.I.64 .|
00000410: 20 39 35 3A 46 53 24 B2 46 53 24 AA 22 12 22 AA | 95:FS$.FS$.".".|
00000420: C7 28 49 29 AA 22 92 22 3A 82 20 49 00 9F 0A DC |.(I).".":. I....|
00000430: 00 53 53 24 B2 22 20 20 22 3A 81 20 49 B2 31 39 |.SS$." ":. I.19|
00000440: 32 20 A4 20 32 32 33 3A 53 53 24 B2 53 53 24 AA |2 . 223:SS$.SS$.|
00000450: 22 12 22 AA C7 28 49 29 AA 22 92 22 3A 82 20 49 |"."..(I).".":. I|
00000460: 00 B2 0A F0 00 86 20 41 24 28 31 35 29 2C 4E 42 |...... A$(15),NB|
00000470: 28 32 29 00 BD 0A FB 00 44 24 B2 22 30 22 00 D4 |(2).....D$."0"..|
00000480: 0A FE 00 A1 4A 4A 24 3A 8B 20 4A 4A 24 B2 22 22 |....JJ$:. JJ$.""|
00000490: 20 A7 32 35 34 00 F7 0A FF 00 8B 20 4A 4A 24 B2 | .254...... JJ$.|
000004A0: 22 53 22 A7 99 22 C3 08 20 11 12 53 43 52 45 45 |"S"..".. ..SCREE|
000004B0: 4E 92 22 00 1B 0B 00 01 8B 20 4A 4A 24 B2 22 50 |N."...... JJ$."P|
000004C0: 22 A7 99 22 C3 08 20 11 12 50 52 49 4E 54 45 52 |"..".. ..PRINTER|
000004D0: 92 22 00 2E 0B 01 01 8B 4A 4A 24 B2 22 85 22 A7 |."......JJ$.".".|
000004E0: 8A 31 30 30 30 00 49 0B 02 01 8B 4A 4A 24 B2 22 |.1000.I....JJ$."|
000004F0: 86 22 A7 99 22 45 4E 44 22 3A 40 22 49 22 3A 80 |.".."END":@"I":.|
00000500: 00 5C 0B 03 01 8B 4A 4A 24 B2 22 89 22 A7 8A 32 |.\....JJ$."."..2|
00000510: 30 30 30 00 6F 0B 04 01 8B 4A 4A 24 B2 22 87 22 |000.o....JJ$."."|
00000520: A7 8A 33 30 30 30 00 82 0B 05 01 8B 4A 4A 24 B2 |..3000......JJ$.|
00000530: 22 88 22 A7 8A 34 30 30 30 00 9C 0B 08 01 9F 31 |"."..4000......1|
00000540: 35 2C 38 2C 31 35 2C 22 49 22 AA 44 24 3A 8D 20 |5,8,15,"I".D$:. |
00000550: 36 35 30 00 A5 0B 09 01 9F 34 2C 34 00 BB 0B 0E |650......4,4....|
00000560: 01 9F 20 32 2C 38 2C 32 2C 22 23 22 3A 8D 20 36 |.. 2,8,2,"#":. 6|
00000570: 35 30 00 DF 0B 18 01 8F C3 1E 2A 00 03 0C 22 01 |50........*...".|
00000580: 8F 2A 20 4C 4F 41 44 20 54 52 41 43 4B 20 41 4E |.* LOAD TRACK AN|
00000590: 44 20 53 45 43 54 4F 52 C3 06 20 2A 00 27 0C 2C |D SECTOR.. *.'.,|
000005A0: 01 8F 2A 20 49 4E 54 4F 20 44 49 53 4B 20 42 55 |..* INTO DISK BU|
000005B0: 46 46 45 52 C3 0B 20 2A 00 4B 0C 36 01 8F C3 1E |FFER.. *.K.6....|
000005C0: 2A 00 67 0C 40 01 85 22 11 1D 1D 54 52 41 43 4B |*.g.@.."...TRACK|
000005D0: 2C 20 53 45 43 54 4F 52 22 3B 54 2C 53 00 97 0C |, SECTOR";T,S...|
000005E0: 4A 01 8B 20 54 B2 30 20 B0 20 54 B1 33 35 20 A7 |J.. T.0 . T.35 .|
000005F0: 20 98 31 35 2C 22 49 22 44 24 3A A0 32 3A A0 34 | .15,"I"D$:.2:.4|
00000600: 3A A0 31 35 3A 99 22 45 4E 44 22 3A 80 00 C1 0C |:.15:."END":....|
00000610: 54 01 8B 20 4A 4A 24 B2 22 53 22 20 A7 20 99 22 |T.. JJ$."S" . ."|
00000620: 11 1D 1D 54 52 41 43 4B 22 54 22 20 53 45 43 54 |...TRACK"T" SECT|
00000630: 4F 52 22 53 22 11 22 00 ED 0C 55 01 8B 20 4A 4A |OR"S"."...U.. JJ|
00000640: 24 B2 22 50 22 20 A7 20 98 34 3A 98 34 2C 22 54 |$."P" . .4:.4,"T|
00000650: 52 41 43 4B 22 54 22 20 53 45 43 54 4F 52 22 53 |RACK"T" SECTOR"S|
00000660: 3A 98 34 00 08 0D 5E 01 98 31 35 2C 22 55 31 3A |:.4...^..15,"U1:|
00000670: 32 2C 22 44 24 3B 54 3B 53 3A 8D 36 35 30 00 2C |2,"D$;T;S:.650.,|
00000680: 0D 68 01 8F C3 1E 2A 00 50 0D 72 01 8F 2A 20 52 |.h....*.P.r..* R|
00000690: 45 41 44 20 42 59 54 45 20 30 20 4F 46 20 44 49 |EAD BYTE 0 OF DI|
000006A0: 53 4B 20 42 55 46 46 45 52 20 2A 00 74 0D 86 01 |SK BUFFER *.t...|
000006B0: 8F C3 1E 2A 00 86 0D 90 01 98 31 35 2C 22 42 2D |...*......15,"B-|
000006C0: 50 3A 32 2C 31 22 00 9C 0D 9A 01 98 31 35 2C 22 |P:2,1"......15,"|
000006D0: 4D 2D 52 22 C7 28 30 29 C7 28 35 29 00 BF 0D A4 |M-R".(0).(5)....|
000006E0: 01 A1 23 31 35 2C 41 24 28 30 29 3A 8B 41 24 28 |..#15,A$(0):.A$(|
000006F0: 30 29 B2 22 22 A7 41 24 28 30 29 B2 4E 4C 24 00 |0)."".A$(0).NL$.|
00000700: D1 0D AC 01 8B 20 4A 4A 24 B2 22 53 22 A7 34 33 |..... JJ$."S".43|
00000710: 30 00 E3 0D AE 01 8B 20 4A 4A 24 B2 22 50 22 A7 |0...... JJ$."P".|
00000720: 34 36 30 00 07 0E AF 01 8F C3 1E 2A 00 2B 0E B0 |460........*.+..|
00000730: 01 8F 2A 20 52 45 41 44 20 26 20 43 52 54 20 44 |..* READ & CRT D|
00000740: 49 53 50 4C 41 59 C3 09 20 2A 00 4F 0E B1 01 8F |ISPLAY.. *.O....|
00000750: 2A 20 52 45 53 54 20 4F 46 20 54 48 45 20 44 49 |* REST OF THE DI|
00000760: 53 4B 20 42 55 46 46 45 52 C3 04 20 2A 00 73 0E |SK BUFFER.. *.s.|
00000770: B2 01 8F C3 1E 2A 00 8A 0E B4 01 4B B2 31 3A 4E |.....*.....K.1:N|
00000780: 42 28 31 29 B2 C6 28 41 24 28 30 29 29 00 BD 0E |B(1)..(A$(0))...|
00000790: B6 01 81 20 4A B2 30 20 A4 20 36 33 3A 8B 20 4A |... J.0 . 63:. J|
000007A0: B2 33 32 20 A7 20 8D 20 37 31 30 3A 8B 20 5A 24 |.32 . . 710:. Z$|
000007B0: B2 22 4E 22 A7 20 4A B2 38 30 3A 89 20 34 35 38 |."N". J.80:. 458|
000007C0: 00 CB 0E B8 01 81 20 49 B2 4B 20 A4 20 33 00 F0 |...... I.K . 3..|
000007D0: 0E BA 01 A1 23 32 2C 41 24 28 49 29 3A 8B 20 41 |....#2,A$(I):. A|
000007E0: 24 28 49 29 B2 22 22 20 A7 20 41 24 28 49 29 B2 |$(I)."" . A$(I).|
000007F0: 4E 4C 24 00 11 0F BC 01 8B 20 4B B2 31 20 AF 20 |NL$...... K.1 . |
00000800: 49 B3 32 20 A7 20 4E 42 28 32 29 B2 C6 28 41 24 |I.2 . NB(2)..(A$|
00000810: 28 49 29 29 00 1D 0F BE 01 82 20 49 3A 4B B2 30 |(I))...... I:K.0|
00000820: 00 44 0F C0 01 41 24 B2 22 22 3A 42 24 B2 22 3A |.D...A$."":B$.":|
00000830: 22 3A 4E B2 4A AC 34 3A 8D 20 37 39 30 3A 41 24 |":N.J.4:. 790:A$|
00000840: B2 41 24 AA 22 3A 22 00 63 0F C2 01 81 20 49 B2 |.A$.":".c.... I.|
00000850: 30 20 A4 20 33 3A 4E B2 C6 28 41 24 28 49 29 29 |0 . 3:N..(A$(I))|
00000860: 3A 8D 20 37 39 30 00 7F 0F C4 01 43 24 B2 41 24 |:. 790.....C$.A$|
00000870: 28 49 29 3A 8D 20 38 35 30 3A 42 24 B2 42 24 AA |(I):. 850:B$.B$.|
00000880: 43 24 00 99 0F C6 01 82 20 49 3A 8B 20 4A 4A 24 |C$...... I:. JJ$|
00000890: B2 22 53 22 20 A7 20 99 41 24 42 24 00 A6 0F CA |."S" . .A$B$....|
000008A0: 01 82 20 4A 3A 89 35 37 31 00 CA 0F CC 01 8F C3 |.. J:.571.......|
000008B0: 1E 2A 00 EE 0F CE 01 8F 2A 20 52 45 41 44 20 26 |.*......* READ &|
000008C0: 20 50 52 49 4E 54 45 52 20 44 49 53 50 4C 41 59 | PRINTER DISPLAY|
000008D0: C3 05 20 2A 00 12 10 D0 01 8F C3 1E 2A 00 29 10 |.. *........*.).|
000008E0: D2 01 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 41 24 |..K.1:NB(1)..(A$|
000008F0: 28 30 29 29 00 38 10 D4 01 81 20 4A B2 30 20 A4 |(0)).8.... J.0 .|
00000900: 20 31 35 00 47 10 D6 01 81 20 49 B2 4B 20 A4 20 | 15.G.... I.K . |
00000910: 31 35 00 6C 10 D8 01 A1 23 32 2C 41 24 28 49 29 |15.l....#2,A$(I)|
00000920: 3A 8B 20 41 24 28 49 29 B2 22 22 20 A7 20 41 24 |:. A$(I)."" . A$|
00000930: 28 49 29 B2 4E 4C 24 00 8D 10 DA 01 8B 20 4B B2 |(I).NL$...... K.|
00000940: 31 20 AF 20 49 B3 32 20 A7 20 4E 42 28 32 29 B2 |1 . I.2 . NB(2).|
00000950: C6 28 41 24 28 49 29 29 00 99 10 DC 01 82 20 49 |.(A$(I))...... I|
00000960: 3A 4B B2 30 00 C1 10 DE 01 41 24 B2 22 22 3A 42 |:K.0.....A$."":B|
00000970: 24 B2 22 3A 22 3A 4E B2 4A AC 31 36 3A 8D 20 37 |$.":":N.J.16:. 7|
00000980: 39 30 3A 41 24 B2 41 24 AA 22 3A 22 00 F6 10 E0 |90:A$.A$.":"....|
00000990: 01 81 20 49 B2 30 20 A4 20 31 35 3A 4E B2 C6 28 |.. I.0 . 15:N..(|
000009A0: 41 24 28 49 29 29 3A 8D 20 37 39 30 3A 8B 20 5A |A$(I)):. 790:. Z|
000009B0: 24 B2 22 4E 22 A7 20 4A B2 34 30 3A 89 20 35 37 |$."N". J.40:. 57|
000009C0: 31 00 12 11 E2 01 43 24 B2 41 24 28 49 29 3A 8D |1.....C$.A$(I):.|
000009D0: 20 38 35 30 3A 42 24 B2 42 24 AA 43 24 00 1A 11 | 850:B$.B$.C$...|
000009E0: E4 01 82 20 49 00 32 11 E6 01 8B 20 4A 4A 24 B2 |... I.2.... JJ$.|
000009F0: 22 50 22 20 A7 20 98 34 2C 41 24 42 24 00 3F 11 |"P" . .4,A$B$.?.|
00000A00: E8 01 82 20 4A 3A 89 35 37 31 00 63 11 3B 02 8F |... J:.571.c.;..|
00000A10: C3 1E 2A 00 87 11 3C 02 8F 2A 20 4E 45 58 54 20 |..*...<..* NEXT |
00000A20: 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 |TRACK AND SECTOR|
00000A30: C3 06 20 2A 00 AB 11 3D 02 8F C3 1E 2A 00 D6 11 |.. *...=....*...|
00000A40: 3F 02 99 22 4E 45 58 54 20 54 52 41 43 4B 20 41 |?.."NEXT TRACK A|
00000A50: 4E 44 20 53 45 43 54 4F 52 22 4E 42 28 31 29 4E |ND SECTOR"NB(1)N|
00000A60: 42 28 32 29 20 22 11 22 00 19 12 44 02 99 22 44 |B(2) "."...D.."D|
00000A70: 4F 20 59 4F 55 20 57 41 4E 54 20 4E 45 58 54 20 |O YOU WANT NEXT |
00000A80: 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 |TRACK AND SECTOR|
00000A90: 20 28 59 2F 4E 29 C3 04 20 12 46 33 92 20 54 4F | (Y/N).. .F3. TO|
00000AA0: 20 45 4E 44 C3 04 20 22 3B 00 2F 12 4E 02 A1 20 | END.. ";./.N.. |
00000AB0: 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 35 39 30 00 |Z$:. Z$."" .590.|
00000AC0: 53 12 58 02 8B 20 5A 24 B2 22 59 22 20 A7 20 54 |S.X.. Z$."Y" . T|
00000AD0: B2 4E 42 28 31 29 3A 53 B2 4E 42 28 32 29 3A 89 |.NB(1):S.NB(2):.|
00000AE0: 33 33 30 00 66 12 62 02 8B 20 5A 24 B2 22 4E 22 |330.f.b.. Z$."N"|
00000AF0: 20 A7 20 33 32 30 00 74 12 67 02 8B 5A 24 B2 22 | . 320.t.g..Z$."|
00000B00: 86 22 A7 8A 00 7E 12 6C 02 89 20 35 39 30 00 A2 |."...~.l.. 590..|
00000B10: 12 76 02 8F C3 1E 2A 00 C6 12 80 02 8F 2A 20 53 |.v....*......* S|
00000B20: 55 42 52 4F 55 54 49 4E 45 53 C3 10 20 2A 00 EA |UBROUTINES.. *..|
00000B30: 12 8A 02 8F C3 1E 2A 00 0E 13 94 02 8F 2A 20 45 |......*......* E|
00000B40: 52 52 4F 52 20 52 4F 55 54 49 4E 45 C3 0E 20 2A |RROR ROUTINE.. *|
00000B50: 00 32 13 9E 02 8F C3 1E 2A 00 52 13 A8 02 84 31 |.2......*.R....1|
00000B60: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.|
00000B70: 20 45 4E B2 30 20 A7 20 8E 00 72 13 B2 02 99 22 | EN.0 . ..r...."|
00000B80: 12 44 49 53 4B 20 45 52 52 4F 52 92 22 45 4E 2C |.DISK ERROR."EN,|
00000B90: 45 4D 24 2C 45 54 2C 45 53 00 78 13 BC 02 80 00 |EM$,ET,ES.x.....|
00000BA0: 9C 13 C6 02 8F C3 1E 2A 00 C0 13 D0 02 8F 2A 20 |.......*......* |
00000BB0: 53 43 52 45 45 4E 20 43 4F 4E 54 49 4E 55 45 20 |SCREEN CONTINUE |
00000BC0: 4D 45 53 53 41 47 45 C3 04 20 2A 00 E4 13 DA 02 |MESSAGE.. *.....|
00000BD0: 8F C3 1E 2A 00 FE 13 E4 02 99 22 11 C3 04 1D 43 |...*......"....C|
00000BE0: 4F 4E 54 49 4E 55 45 28 59 2F 4E 29 22 00 14 14 |ONTINUE(Y/N)"...|
00000BF0: EE 02 A1 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 20 |...Z$:. Z$."" . |
00000C00: 37 35 30 00 25 14 F8 02 8B 20 5A 24 B2 22 4E 22 |750.%.... Z$."N"|
00000C10: 20 A7 20 8E 00 39 14 02 03 8B 20 5A 24 B3 B1 22 | . ..9.... Z$.."|
00000C20: 59 22 20 A7 20 37 35 30 00 5A 14 0C 03 99 22 93 |Y" . 750.Z....".|
00000C30: 54 52 41 43 4B 22 20 54 20 22 20 53 45 43 54 4F |TRACK" T " SECTO|
00000C40: 52 22 53 20 22 93 22 3A 8E 00 7E 14 16 03 8F C3 |R"S ".":..~.....|
00000C50: 1E 2A 00 A2 14 20 03 8F 2A 20 44 49 53 4B 20 42 |.*... ..* DISK B|
00000C60: 59 54 45 20 54 4F 20 48 45 58 20 50 52 49 4E 54 |YTE TO HEX PRINT|
00000C70: C3 05 20 2A 00 C6 14 2A 03 8F C3 1E 2A 00 E9 14 |.. *...*....*...|
00000C80: 34 03 41 31 B2 B5 28 4E AD 31 36 29 3A 41 24 B2 |4.A1..(N.16):A$.|
00000C90: 41 24 AA CA 28 48 58 24 2C 41 31 AA 31 2C 31 29 |A$..(HX$,A1.1,1)|
00000CA0: 00 0F 15 3E 03 41 32 B2 B5 28 4E AB 31 36 AC 41 |...>.A2..(N.16.A|
00000CB0: 31 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C 41 |1):A$.A$..(HX$,A|
00000CC0: 32 AA 31 2C 31 29 00 1F 15 48 03 41 24 B2 41 24 |2.1,1)...H.A$.A$|
00000CD0: AA 53 50 24 3A 8E 00 43 15 52 03 8F C3 1E 2A 00 |.SP$:..C.R....*.|
00000CE0: 67 15 5C 03 8F 2A 20 44 49 53 4B 20 42 59 54 45 |g.\..* DISK BYTE|
00000CF0: 20 54 4F 20 41 53 43 20 44 49 53 50 4C 41 59 20 | TO ASC DISPLAY |
00000D00: 20 20 2A 00 8B 15 66 03 8F 2A 20 43 48 41 52 41 | *...f..* CHARA|
00000D10: 43 54 45 52 C3 12 20 2A 00 AF 15 70 03 8F C3 1E |CTER.. *...p....|
00000D20: 2A 00 C9 15 7A 03 8B 20 C6 28 43 24 29 B3 33 32 |*...z.. .(C$).32|
00000D30: 20 A7 20 43 24 B2 22 20 22 3A 8E 00 E9 15 8E 03 | . C$." ":......|
00000D40: 8B 20 C6 28 43 24 29 B3 31 32 38 20 B0 20 C6 28 |. .(C$).128 . .(|
00000D50: 43 24 29 B1 31 35 39 20 A7 20 8E 00 09 16 98 03 |C$).159 . ......|
00000D60: 43 24 B2 CA 28 53 53 24 2C 33 AC 28 C6 28 43 24 |C$..(SS$,3.(.(C$|
00000D70: 29 AB 31 32 37 29 2C 33 29 3A 8E 00 29 16 E8 03 |).127),3):..)...|
00000D80: 8F 20 C3 09 2A 53 43 41 4C 50 45 4C C3 09 2A 00 |. ..*SCALPEL..*.|
00000D90: 5D 16 EA 03 42 4C 24 B2 22 13 C3 27 20 13 22 00 |]...BL$."..' .".|
00000DA0: 7F 16 EB 03 86 48 24 28 31 36 29 3A 48 24 B2 22 |.....H$(16):H$."|
00000DB0: DD 0A 01 2F DD 06 01 40 22 00 A2 16 F2 03 99 22 |.../...@"......"|
00000DC0: 93 22 A6 31 30 29 22 11 11 11 12 53 43 41 4C 50 |.".10)"....SCALP|
00000DD0: 45 4C 92 20 28 4A 2E 4D 43 41 29 22 00 C6 16 FC |EL. (J.MCA)"....|
00000DE0: 03 99 A6 36 29 22 11 11 28 46 4F 52 20 44 49 53 |...6)"..(FOR DIS|
00000DF0: 4B 20 46 49 4C 45 20 53 55 52 47 45 52 59 29 22 |K FILE SURGERY)"|
00000E00: 00 EB 16 FD 03 81 58 B2 30 A4 31 35 3A 48 24 28 |......X.0.15:H$(|
00000E10: 58 29 B2 CA 28 48 24 2C 58 AA 31 2C 31 29 3A 82 |X)..(H$,X.1,1):.|
00000E20: 3A 45 43 B2 30 00 14 17 FE 03 99 20 A6 38 29 22 |:EC.0...... .8)"|
00000E30: 11 11 12 53 92 43 52 45 45 4E 20 4F 52 20 12 50 |...S.CREEN OR .P|
00000E40: 92 52 49 4E 54 45 52 20 3F 20 12 53 92 22 00 34 |.RINTER ? .S.".4|
00000E50: 17 FF 03 99 A6 38 29 22 11 45 52 52 4F 52 20 12 |.....8)".ERROR .|
00000E60: 43 92 48 45 43 4B 91 91 22 3B A6 39 29 3B 00 48 |C.HECK..";.9);.H|
00000E70: 17 00 04 A1 50 24 3A 8B 50 24 B2 22 22 A7 31 30 |....P$:.P$."".10|
00000E80: 32 34 00 6A 17 01 04 99 22 53 9D 22 3B 3A 8B 50 |24.j...."S.";:.P|
00000E90: 24 B2 22 50 22 A7 50 B2 31 3A 9F 34 2C 34 3A 99 |$."P".P.1:.4,4:.|
00000EA0: 22 50 22 3B 00 81 17 02 04 8B 50 24 B2 22 43 22 |"P";......P$."C"|
00000EB0: A7 45 43 B2 31 3A 99 22 43 22 3B 00 B0 17 03 04 |.EC.1:."C";.....|
00000EC0: 99 3A 99 A6 37 29 22 C3 04 11 12 42 92 4C 4F 43 |.:..7)"....B.LOC|
00000ED0: 4B 20 4F 52 20 44 49 53 4B 20 12 4D 92 45 4D 4F |K OR DISK .M.EMO|
00000EE0: 52 59 20 12 42 92 9D 22 3B 00 C4 17 04 04 A1 4D |RY .B..";......M|
00000EF0: 24 3A 8B 4D 24 B2 22 22 A7 31 30 32 38 00 E1 17 |$:.M$."".1028...|
00000F00: 05 04 99 22 42 9D 22 3B 3A 8B 4D 24 B2 22 4D 22 |..."B.";:.M$."M"|
00000F10: A7 4D B2 31 3A 99 22 4D 22 3B 00 09 18 06 04 99 |.M.1:."M";......|
00000F20: 3A 8B 4D A7 99 A6 31 30 29 22 11 11 11 48 49 42 |:.M...10)"...HIB|
00000F30: 59 54 45 2C 4C 4F 42 59 54 45 22 3B 3A 89 31 30 |YTE,LOBYTE";:.10|
00000F40: 33 35 00 25 18 07 04 99 A6 31 30 29 22 11 11 11 |35.%.....10)"...|
00000F50: 54 52 41 43 4B 2C 53 45 43 54 4F 52 22 3B 00 2E |TRACK,SECTOR";..|
00000F60: 18 0B 04 85 54 2C 53 00 53 18 10 04 9F 31 35 2C |....T,S.S....15,|
00000F70: 38 2C 31 35 3A 8B 4D A7 4C 42 B2 53 3A 48 42 B2 |8,15:.M.LB.S:HB.|
00000F80: 54 3A 99 22 93 22 3A 89 31 30 39 30 00 62 18 1A |T:.".":.1090.b..|
00000F90: 04 9F 33 2C 38 2C 33 2C 22 23 22 00 7D 18 24 04 |..3,8,3,"#".}.$.|
00000FA0: 98 31 35 2C 22 55 31 3A 22 33 3B 38 3B 54 3B 53 |.15,"U1:"3;8;T;S|
00000FB0: 3A 99 22 93 22 3B 00 9D 18 2E 04 84 31 35 2C 41 |:.".";......15,A|
00000FC0: 24 2C 42 24 2C 43 24 2C 44 24 3A 45 4E B2 C5 28 |$,B$,C$,D$:EN..(|
00000FD0: 41 24 29 AA 45 43 00 BD 18 38 04 99 22 12 22 54 |A$).EC...8.."."T|
00000FE0: 22 9D 2C 22 53 22 9D 3A 22 41 24 42 24 43 24 22 |".,"S".:"A$B$C$"|
00000FF0: 2C 22 44 24 20 22 00 EA 18 39 04 8B 45 4E A7 99 |,"D$ "...9..EN..|
00001000: A6 36 29 22 11 11 12 43 92 4F 4E 54 49 4E 55 45 |.6)"...C.ONTINUE|
00001010: 20 4F 52 20 12 52 92 45 50 45 41 54 20 3F 20 12 | OR .R.EPEAT ? .|
00001020: 43 92 22 00 1D 19 3A 04 8B 45 4E A7 99 A6 36 29 |C."...:..EN...6)|
00001030: 22 11 11 12 53 92 43 41 4C 50 45 4C 20 4D 45 4E |"...S.CALPEL MEN|
00001040: 55 22 3A 99 A6 36 29 22 11 11 12 4D 92 41 49 4E |U":..6)"...M.AIN|
00001050: 20 4D 45 4E 55 22 00 37 19 3B 04 8B 45 4E A7 A1 | MENU".7.;..EN..|
00001060: 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 31 30 38 33 |AN$:.AN$."".1083|
00001070: 00 4D 19 3D 04 8B 45 4E A7 8B 41 4E 24 B2 22 52 |.M.=..EN..AN$."R|
00001080: 22 A7 31 30 36 30 00 6B 19 3F 04 8B 45 4E A7 8B |".1060.k.?..EN..|
00001090: 41 4E 24 B2 22 53 22 A7 A0 33 3A A0 31 35 3A 8A |AN$."S"..3:.15:.|
000010A0: 31 30 30 30 00 85 19 40 04 8B 45 4E A7 8B 41 4E |1000...@..EN..AN|
000010B0: 24 B2 22 4D 22 A7 A0 33 3A A0 31 35 3A 8A 00 9D |$."M"..3:.15:...|
000010C0: 19 42 04 5A 24 B2 C7 28 30 29 3A 99 22 13 11 20 |.B.Z$..(0):.".. |
000010D0: 20 30 3A 20 22 3B 00 B0 19 43 04 8B 50 A7 98 34 | 0: ";...C..P..4|
000010E0: 2C 22 20 20 30 3A 20 22 3B 00 C4 19 60 04 81 59 |," 0: ";...`..Y|
000010F0: B2 31 A4 32 32 3A 81 58 B2 31 A4 31 32 00 ED 19 |.1.22:.X.1.12...|
00001100: 6A 04 8B 4D A7 98 31 35 2C 22 4D 2D 52 22 C7 28 |j..M..15,"M-R".(|
00001110: 4C 42 29 C7 28 48 42 29 3A A1 23 31 35 2C 44 24 |LB).(HB):.#15,D$|
00001120: 3A 89 31 31 34 30 00 F8 19 6F 04 A1 23 33 2C 44 |:.1140...o..#3,D|
00001130: 24 00 1A 1A 74 04 41 B2 C6 28 44 24 AA 5A 24 29 |$...t.A..(D$.Z$)|
00001140: 3A 48 B2 B5 28 41 AD 31 36 29 3A 4C B2 41 AB 48 |:H..(A.16):L.A.H|
00001150: AC 31 36 00 43 1A 92 04 99 48 24 28 48 29 48 24 |.16.C....H$(H)H$|
00001160: 28 4C 29 22 20 22 3B 3A 8B 50 A7 98 34 2C 48 24 |(L)" ";:.P..4,H$|
00001170: 28 48 29 48 24 28 4C 29 22 20 22 3B 00 67 1A 97 |(H)H$(L)" ";.g..|
00001180: 04 8B 4D A7 4C 42 B2 4C 42 AA 31 3A 8B 4C 42 B2 |..M.LB.LB.1:.LB.|
00001190: 32 35 36 A7 4C 42 B2 30 3A 48 42 B2 48 42 AA 31 |256.LB.0:HB.HB.1|
000011A0: 00 7D 1A 9C 04 44 B2 44 AA 31 3A 8B 44 B2 32 35 |.}...D.D.1:.D.25|
000011B0: 36 A7 31 32 30 30 00 96 1A A6 04 82 3A 99 22 9D |6.1200......:.".|
000011C0: 22 C9 28 C4 28 44 29 2C 33 29 22 3A 20 22 3B 00 |".(.(D),3)": ";.|
000011D0: B4 1A A8 04 8B 50 A7 98 34 2C C7 28 31 33 29 C9 |.....P..4,.(13).|
000011E0: 28 C4 28 44 29 2C 33 29 22 3A 20 22 3B 00 BA 1A |(.(D),3)": ";...|
000011F0: AB 04 82 00 CD 1A B0 04 8B 50 A7 98 34 2C C7 28 |.........P..4,.(|
00001200: 31 33 29 3A A0 34 00 D8 1A B5 04 8B A8 4D A7 A0 |13):.4.......M..|
00001210: 33 00 E0 1A B6 04 A0 31 35 00 1C 1B BA 04 99 C7 |3......15.......|
00001220: 28 31 33 29 22 12 46 31 92 3D 41 47 41 49 4E 20 |(13)".F1.=AGAIN |
00001230: 12 46 32 92 3D 57 52 49 54 45 20 12 46 33 92 3D |.F2.=WRITE .F3.=|
00001240: 51 55 49 54 20 12 46 34 92 3D 58 46 45 52 20 42 |QUIT .F4.=XFER B|
00001250: 4C 4B 20 22 3B 00 44 1B BF 04 99 A6 34 29 22 12 |LK ";.D.....4)".|
00001260: 46 35 92 2F 12 46 36 92 20 4F 4E 2F 4F 46 46 20 |F5./.F6. ON/OFF |
00001270: 4D 45 4D 4F 52 59 20 4D 4F 44 45 22 3B 00 6A 1B |MEMORY MODE";.j.|
00001280: C4 04 50 B2 31 30 32 34 AA 33 39 AA 36 3A 53 43 |..P.1024.39.6:SC|
00001290: B2 31 30 32 34 3A 45 B2 31 39 31 39 3A 42 B2 31 |.1024:E.1919:B.1|
000012A0: 30 36 39 00 A8 1B E2 04 A1 4B 24 3A 8B 4B 24 B2 |069......K$:.K$.|
000012B0: 22 22 A7 43 B2 C2 28 50 29 3A 97 50 2C 43 AA 31 |"".C..(P):.P,C.1|
000012C0: 32 38 3A 81 49 B2 30 A4 34 30 3A 82 3A 97 50 2C |28:.I.0.40:.:.P,|
000012D0: 43 3A 81 49 B2 30 A4 34 30 3A 82 3A 89 31 32 35 |C:.I.0.40:.:.125|
000012E0: 30 00 BA 1B EC 04 8B 4B 24 B2 22 85 22 A7 8A 31 |0......K$."."..1|
000012F0: 30 30 30 00 CA 1B ED 04 8B 4B 24 B2 22 87 22 A7 |000......K$.".".|
00001300: 4D B2 31 00 DA 1B EE 04 8B 4B 24 B2 22 8B 22 A7 |M.1......K$.".".|
00001310: 4D B2 30 00 EB 1B EF 04 8B 4B 24 B2 22 89 22 A7 |M.0......K$.".".|
00001320: 31 35 30 30 00 F9 1B F1 04 8B 4B 24 B2 22 86 22 |1500......K$."."|
00001330: A7 8A 00 1F 1C F2 04 8B 4B 24 B2 22 8A 22 A7 99 |........K$."."..|
00001340: 42 4C 24 3B 3A 99 22 54 52 41 43 4B 2C 53 45 43 |BL$;:."TRACK,SEC|
00001350: 54 4F 52 20 3F 20 22 3B 00 49 1C F3 04 8B 4B 24 |TOR ? ";.I....K$|
00001360: B2 22 8A 22 A7 8B 4D A7 99 42 4C 24 3B 3A 99 22 |."."..M..BL$;:."|
00001370: 48 49 42 59 54 45 2C 4C 4F 42 59 54 45 20 3F 20 |HIBYTE,LOBYTE ? |
00001380: 22 3B 00 6A 1C F5 04 8B 4B 24 B2 22 8A 22 A7 9F |";.j....K$."."..|
00001390: 36 2C 30 3A 84 36 2C 54 2C 53 3A A0 36 3A 89 31 |6,0:.6,T,S:.6:.1|
000013A0: 35 30 30 00 80 1C F6 04 8B 4B 24 B2 22 1D 22 AF |500......K$.".".|
000013B0: 50 B3 45 A7 50 B2 50 AA 31 00 96 1C F7 04 8B 4B |P.E.P.P.1......K|
000013C0: 24 B2 22 9D 22 AF 50 B1 42 A7 50 B2 50 AB 31 00 |$.".".P.B.P.P.1.|
000013D0: BA 1C FB 04 50 31 B2 50 AB 53 43 3A 50 49 B2 34 |....P1.P.SC:PI.4|
000013E0: 30 AC B5 28 50 31 AD 34 30 29 3A 50 44 B2 50 31 |0..(P1.40):PD.P1|
000013F0: AB 50 49 00 D7 1C FD 04 8B 4B 24 B2 22 9D 22 AF |.PI......K$.".".|
00001400: 50 44 B3 35 A7 50 B2 50 AB 35 3A 89 31 32 35 30 |PD.5.P.P.5:.1250|
00001410: 00 EE 1C FE 04 8B 50 44 B3 35 A7 20 50 B2 50 AA |......PD.5. P.P.|
00001420: 35 3A 89 31 32 35 30 00 1D 1D FF 04 8B 4B 24 B3 |5:.1250......K$.|
00001430: B1 22 9D 22 A7 8B 28 50 44 AB 37 29 AD 33 B2 B5 |."."..(PD.7).3..|
00001440: 28 28 50 44 AB 37 29 AD 33 29 A7 50 B2 50 AA 31 |((PD.7).3).P.P.1|
00001450: 3A 89 31 32 35 30 00 3F 1D 00 05 8B 4B 24 B2 22 |:.1250.?....K$."|
00001460: 11 22 AF 50 B3 28 45 AB 33 39 29 A7 50 B2 50 AA |.".P.(E.39).P.P.|
00001470: 34 30 3A 89 31 32 35 30 00 61 1D 0A 05 8B 4B 24 |40:.1250.a....K$|
00001480: B2 22 91 22 AF 50 B1 28 42 AA 33 39 29 A7 50 B2 |.".".P.(B.39).P.|
00001490: 50 AB 34 30 3A 89 31 32 35 30 00 6D 1D 14 05 4B |P.40:.1250.m...K|
000014A0: B2 C6 28 4B 24 29 00 84 1D 1E 05 8B 4B B2 33 32 |..(K$)......K.32|
000014B0: A7 4B 24 B2 22 1D 22 3A 89 31 32 37 30 00 A5 1D |.K$.".":.1270...|
000014C0: 28 05 8B 4B B1 34 37 AF 4B B3 35 38 A7 97 50 2C |(..K.47.K.58..P,|
000014D0: 4B 3A 4B 24 B2 22 1D 22 3A 89 31 32 37 30 00 C9 |K:K$.".":.1270..|
000014E0: 1D 32 05 8B 4B B1 36 34 AF 4B B3 37 31 A7 97 50 |.2..K.64.K.71..P|
000014F0: 2C 4B AB 36 34 3A 4B 24 B2 22 1D 22 3A 89 31 32 |,K.64:K$.".":.12|
00001500: 37 30 00 D3 1D AA 05 89 31 32 35 30 00 F4 1D DC |70......1250....|
00001510: 05 3A 99 42 4C 24 22 12 57 52 49 54 49 4E 47 22 |.:.BL$".WRITING"|
00001520: 3B 54 22 9D 2C 22 53 22 9D 20 92 22 3B 00 18 1E |;T".,"S". .";...|
00001530: 0E 06 9F 31 35 2C 38 2C 31 35 3A 8B 4D A7 4C 42 |...15,8,15:.M.LB|
00001540: B2 53 3A 48 42 B2 54 3A 50 B2 42 3A 89 31 35 37 |.S:HB.T:P.B:.157|
00001550: 30 00 27 1E 13 06 9F E7 03 D9 B3 E0 D9 B0 8B 8A |0.'.............|
00001560: 03 F5 18 06 98 31 35 2C 22 42 2D 50 3A 22 36 3B |.....15,"B-P:"6;|
00001570: 30 3A 50 B2 42 00 64 1E 22 06 81 59 B2 31 A4 32 |0:P.B.d."..Y.1.2|
00001580: 32 3A 81 58 B2 31 A4 31 32 3A 8B 50 B1 45 A7 50 |2:.X.1.12:.P.E.P|
00001590: B2 30 3A 44 B2 30 3A 89 31 36 39 31 00 88 1E 40 |.0:D.0:.1691...@|
000015A0: 06 43 48 B2 C2 28 50 29 3A 43 4C B2 C2 28 50 AA |.CH..(P):CL..(P.|
000015B0: 31 29 3A 97 50 2C 33 32 3A 97 50 AA 31 2C 33 32 |1):.P,32:.P.1,32|
000015C0: 00 A0 1E 5E 06 8B 43 48 B1 34 37 A7 48 B2 31 36 |...^..CH.47.H.16|
000015D0: AC 28 43 48 AB 34 38 29 00 B3 1E 68 06 8B 43 4C |.(CH.48)...h..CL|
000015E0: B1 34 37 A7 4C B2 43 4C AB 34 38 00 C9 1E 72 06 |.47.L.CL.48...r.|
000015F0: 8B 43 48 B3 37 A7 48 B2 31 36 AC 28 39 AA 43 48 |.CH.7.H.16.(9.CH|
00001600: 29 00 DA 1E 7C 06 8B 43 4C B3 37 A7 4C B2 39 AA |)...|..CL.7.L.9.|
00001610: 43 4C 00 00 1F 81 06 8B 4D A7 3A 98 31 35 2C 22 |CL......M.:.15,"|
00001620: 4D 2D 57 22 C7 28 4C 42 29 C7 28 48 42 29 C7 28 |M-W".(LB).(HB).(|
00001630: 31 29 C7 28 48 AA 4C 29 00 2A 1F 82 06 8B 4D A7 |1).(H.L).*....M.|
00001640: 4C 42 B2 4C 42 AA 31 3A 8B 4C 42 B2 32 35 36 A7 |LB.LB.1:.LB.256.|
00001650: 4C 42 B2 30 3A 48 42 B2 48 42 AA 31 3A 89 31 36 |LB.0:HB.HB.1:.16|
00001660: 38 30 00 36 1F 83 06 8B 4D A7 31 36 38 30 00 45 |80.6....M.1680.E|
00001670: 1F 86 06 98 36 2C C7 28 48 AA 4C 29 3B 00 4F 1F |....6,.(H.L);.O.|
00001680: 90 06 50 B2 50 AA 33 00 5D 1F 9A 06 82 3A 50 B2 |..P.P.3.]....:P.|
00001690: 50 AA 34 3A 82 00 6E 1F 9B 06 8B 4D A7 A0 31 35 |P.4:..n....M..15|
000016A0: 3A 89 31 30 34 30 00 83 1F A4 06 98 31 35 2C 22 |:.1040......15,"|
000016B0: 55 32 3A 22 36 3B 38 3B 54 3B 53 00 97 1F D6 06 |U2:"6;8;T;S.....|
000016C0: 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 |.15,A$,B$,C$,D$.|
000016D0: C4 1F 08 07 99 42 4C 24 22 12 22 54 22 9D 2C 22 |.....BL$"."T".,"|
000016E0: 53 22 9D 3A 22 41 24 42 24 43 24 22 2C 22 44 24 |S".:"A$B$C$","D$|
000016F0: 22 20 28 57 52 49 54 45 29 20 92 22 00 D3 1F 1C |" (WRITE) ."....|
00001700: 07 A0 36 3A A0 31 35 3A 44 B2 30 00 EB 1F 3A 07 |..6:.15:D.0...:.|
00001710: 9F 31 35 2C 38 2C 31 35 3A 9F E7 03 CD B3 E0 CD |.15,8,15:.......|
00001720: B0 8B 89 00 00 44 07 98 31 35 2C 22 55 31 3A 22 |.....D..15,"U1:"|
00001730: 33 3B 38 3B 54 3B 53 00 30 20 45 07 84 31 35 2C |3;8;T;S.0 E..15,|
00001740: 41 24 2C 42 24 2C 43 24 2C 44 24 3A 44 24 B2 44 |A$,B$,C$,D$:D$.D|
00001750: 24 AA 22 20 52 45 41 44 42 41 43 4B 20 22 3A 45 |$." READBACK ":E|
00001760: 4E B2 C5 28 41 24 29 00 3A 20 6C 07 89 31 30 38 |N..(A$).: l..108|
00001770: 30 00 82 20 D0 07 99 22 93 22 A6 39 29 22 11 11 |0.. ...".".9)"..|
00001780: 54 52 41 43 45 20 4C 49 4E 4B 53 20 28 4A 20 4D |TRACE LINKS (J M|
00001790: 43 41 29 C3 04 11 22 3A 99 A6 39 29 22 11 11 11 |CA)...":..9)"...|
000017A0: 91 91 12 53 92 43 52 45 45 4E 20 4F 52 20 12 50 |...S.CREEN OR .P|
000017B0: 92 52 49 4E 54 45 52 22 00 9A 20 D1 07 A1 41 4E |.RINTER".. ...AN|
000017C0: 53 24 3A 8B 41 4E 53 24 B2 22 22 A7 32 30 30 31 |S$:.ANS$."".2001|
000017D0: 00 CC 20 D2 07 99 22 11 11 C3 08 1D 12 4E 92 41 |.. ..."......N.A|
000017E0: 4D 45 20 28 2A 29 20 20 4F 52 20 20 12 54 92 52 |ME (*) OR .T.R|
000017F0: 41 43 4B 20 26 20 53 45 43 54 4F 52 22 00 E2 20 |ACK & SECTOR".. |
00001800: D3 07 A1 52 45 24 3A 8B 52 45 24 B2 22 22 A7 32 |...RE$:.RE$."".2|
00001810: 30 30 33 00 F4 20 D4 07 8B 52 45 24 B2 22 54 22 |003.. ...RE$."T"|
00001820: A7 32 30 31 30 00 2D 21 D5 07 99 22 C3 04 11 C3 |.2010.-!..."....|
00001830: 08 1D 4E 41 4D 45 28 2A 29 22 3B 3A 85 4E 41 24 |..NAME(*)";:.NA$|
00001840: 3A 8B 4E 41 24 B2 22 24 22 A7 54 B2 31 38 3A 53 |:.NA$."$".T.18:S|
00001850: B2 31 3A 89 32 30 31 32 00 48 21 D6 07 9F 31 35 |.1:.2012.H!...15|
00001860: 2C 38 2C 31 35 3A 9F 31 2C 38 2C 33 2C 4E 41 24 |,8,15:.1,8,3,NA$|
00001870: 3A A0 31 00 72 21 D7 07 98 31 35 2C 22 4D 2D 52 |:.1.r!...15,"M-R|
00001880: 22 C7 28 32 34 29 C7 28 30 29 C7 28 32 29 3A A1 |".(24).(0).(2):.|
00001890: 23 31 35 2C 54 24 2C 53 24 3A A0 31 35 00 90 21 |#15,T$,S$:.15..!|
000018A0: D8 07 54 B2 C6 28 54 24 AA C7 28 30 29 29 3A 53 |..T..(T$..(0)):S|
000018B0: B2 C6 28 53 24 AA C7 28 30 29 29 00 9A 21 D9 07 |..(S$..(0))..!..|
000018C0: 89 32 30 31 32 00 BC 21 DA 07 99 22 C3 04 11 C3 |.2012..!..."....|
000018D0: 09 1D 54 52 41 43 4B 2C 53 45 43 54 4F 52 22 3B |..TRACK,SECTOR";|
000018E0: 00 C5 21 DB 07 85 54 2C 53 00 D8 21 DC 07 8B 41 |..!...T,S..!...A|
000018F0: 4E 53 24 B2 22 53 22 A7 32 32 30 30 00 EA 21 DF |NS$."S".2200..!.|
00001900: 07 9F 31 35 2C 38 2C 31 35 3A 9F 34 2C 34 00 F9 |..15,8,15:.4,4..|
00001910: 21 E4 07 9F E7 03 CD B3 E0 CD B0 8B 89 00 39 EE |!.............9.|
00001920: 07 98 31 35 2C 22 55 31 3A 22 33 3B 38 3B 54 3B |..15,"U1:"3;8;T;|
00001930: 53 00 28 22 F8 07 84 31 35 2C 41 24 2C 42 24 2C |S.("...15,A$,B$,|
00001940: 43 24 2C 44 24 3A 42 B2 42 AA 31 00 53 22 02 08 |C$,D$:B.B.1.S"..|
00001950: 98 34 2C 22 42 4C 4B 23 22 42 22 3A 22 54 22 2C |.4,"BLK#"B":"T",|
00001960: 22 53 3B 22 20 22 41 24 3B 42 24 3B 43 24 3B 44 |"S;" "A$;B$;C$;D|
00001970: 24 22 20 20 22 3B 00 7B 22 2A 08 A1 23 33 2C 54 |$" ";.{"*..#3,T|
00001980: 24 2C 53 24 3A 54 B2 C6 28 54 24 AA C7 28 30 29 |$,S$:T..(T$..(0)|
00001990: 29 3A 53 B2 C6 28 53 24 AA C7 28 30 29 29 00 89 |):S..(S$..(0))..|
000019A0: 22 2F 08 98 34 2C 54 3B 22 2C 22 53 00 97 22 30 |"/..4,T;","S.."0|
000019B0: 08 8B 54 B2 30 A7 32 31 32 30 00 A1 22 34 08 89 |..T.0.2120.."4..|
000019C0: 32 30 33 30 00 B4 22 48 08 98 34 3A A0 34 3A A0 |2030.."H..4:.4:.|
000019D0: 33 3A A0 31 35 3A 8A 00 BA 22 98 08 3A 00 ED 22 |3:.15:..."..:.."|
000019E0: A7 08 99 22 1D 1D 1D 11 11 11 48 4F 4C 44 20 44 |..."......HOLD D|
000019F0: 4F 57 4E 20 53 48 49 46 54 20 4B 45 59 20 54 4F |OWN SHIFT KEY TO|
00001A00: 20 53 54 4F 50 20 53 43 52 4F 4C 4C 11 11 11 22 | STOP SCROLL..."|
00001A10: 00 FA 22 AC 08 9F 31 35 2C 38 2C 31 35 00 09 23 |.."...15,8,15..#|
00001A20: B6 08 9F E7 03 CD B3 E0 CD B0 8B 89 00 7B C0 08 |.............{..|
00001A30: 98 31 35 2C 22 55 31 3A 22 33 3B 38 3B 54 3B 53 |.15,"U1:"3;8;T;S|
00001A40: 00 32 23 CA 08 84 31 35 2C 41 24 2C 42 24 2C 43 |.2#...15,A$,B$,C|
00001A50: 24 2C 44 24 00 49 23 CF 08 42 B2 42 AA 31 3A 99 |$,D$.I#..B.B.1:.|
00001A60: 22 42 4C 4B 23 22 42 22 3A 22 3B 00 68 23 D4 08 |"BLK#"B":";.h#..|
00001A70: 99 54 22 2C 22 53 3B 22 20 22 41 24 3B 42 24 3B |.T","S;" "A$;B$;|
00001A80: 43 24 3B 44 24 22 20 20 22 3B 00 90 23 DE 08 A1 |C$;D$" ";..#...|
00001A90: 23 33 2C 54 24 2C 53 24 3A 54 B2 C6 28 54 24 AA |#3,T$,S$:T..(T$.|
00001AA0: C7 28 30 29 29 3A 53 B2 C6 28 53 24 AA C7 28 30 |.(0)):S..(S$..(0|
00001AB0: 29 29 00 9C 23 E8 08 99 54 3B 22 2C 22 53 00 AA |))..#...T;","S..|
00001AC0: 23 F2 08 8B 54 B2 30 A7 32 33 31 30 00 BD 23 F7 |#...T.0.2310..#.|
00001AD0: 08 8B C2 28 36 35 34 29 B2 31 A7 32 32 39 35 00 |...(654).1.2295.|
00001AE0: C7 23 FC 08 89 32 32 34 30 00 D2 23 06 09 A0 33 |.#...2240..#...3|
00001AF0: 3A A0 31 35 00 F3 23 10 09 99 22 11 12 46 33 92 |:.15..#..."..F3.|
00001B00: 20 54 4F 20 45 4E 44 20 20 12 46 31 92 3D 41 47 | TO END .F1.=AG|
00001B10: 41 49 4E 22 3B 00 0B 24 15 09 A1 41 4E 53 24 3A |AIN";..$...ANS$:|
00001B20: 8B 41 4E 53 24 B2 22 22 A7 32 33 32 35 00 1F 24 |.ANS$."".2325..$|
00001B30: 1A 09 8B 41 4E 53 24 B2 22 85 22 A7 8A 32 30 30 |...ANS$."."..200|
00001B40: 30 00 2F 24 1F 09 8B 41 4E 53 24 B2 22 86 22 A7 |0./$...ANS$.".".|
00001B50: 8A 00 39 24 24 09 89 32 33 32 35 00 64 24 B8 0B |..9$$..2325.d$..|
00001B60: 99 20 22 93 12 44 49 53 50 4C 41 59 20 27 4C 4F |. "..DISPLAY 'LO|
00001B70: 41 44 20 41 44 44 52 45 53 53 27 20 4F 46 20 41 |AD ADDRESS' OF A|
00001B80: 20 46 49 4C 45 22 00 78 24 C7 0B 99 20 22 11 46 | FILE".x$... ".F|
00001B90: 49 4C 45 20 22 3B 3A 85 46 24 00 90 24 CA 0B 99 |ILE ";:.F$..$...|
00001BA0: 20 22 11 4C 4F 41 44 20 41 44 44 52 45 53 53 3A | ".LOAD ADDRESS:|
00001BB0: 22 3B 00 A3 24 CC 0B 9F 31 2C 38 2C 33 2C 22 30 |";..$...1,8,3,"0|
00001BC0: 3A 22 AA 46 24 00 B2 24 D6 0B A1 20 23 31 2C 4C |:".F$..$... #1,L|
00001BD0: 24 2C 48 24 00 CA 24 EA 0B 58 24 B2 48 24 3A 8D |$,H$..$..X$.H$:.|
00001BE0: 33 31 30 30 3A 48 B2 58 AC 32 35 36 00 E3 24 F4 |3100:H.X.256..$.|
00001BF0: 0B 58 24 B2 4C 24 3A 8D 33 31 30 30 3A 4C B2 58 |.X$.L$:.3100:L.X|
00001C00: 3A 99 48 AA 4C 00 02 25 08 0C A0 31 3A 99 22 11 |:.H.L..%...1:.".|
00001C10: 12 46 31 92 20 41 47 41 49 4E 20 20 12 46 33 92 |.F1. AGAIN .F3.|
00001C20: 20 45 4E 44 00 1A 25 12 0C A1 41 4E 53 24 3A 8B | END..%...ANS$:.|
00001C30: 41 4E 53 24 B2 22 22 A7 33 30 39 30 00 2E 25 15 |ANS$."".3090..%.|
00001C40: 0C 8B 41 4E 53 24 B2 22 85 22 A7 8A 33 30 30 30 |..ANS$."."..3000|
00001C50: 00 3E 25 16 0C 8B 41 4E 53 24 B2 22 86 22 A7 8A |.>%...ANS$."."..|
00001C60: 00 48 25 17 0C 89 33 30 39 30 00 5C 25 1C 0C 8B |.H%...3090.\%...|
00001C70: 20 58 24 B2 22 22 20 A7 20 58 B2 30 3A 8E 00 6A | X$."" . X.0:..j|
00001C80: 25 26 0C 58 B2 C6 28 58 24 29 3A 8E 00 86 25 A0 |%&.X..(X$):...%.|
00001C90: 0F 8F C3 05 2A 20 38 4B 20 43 4F 50 59 20 C3 08 |....* 8K COPY ..|
00001CA0: 2A 00 AB 25 AA 0F 8B C2 28 35 36 29 B3 B1 31 32 |*..%....(56)..12|
00001CB0: 37 A7 97 35 36 2C 31 32 37 3A 41 B2 B8 28 30 29 |7..56,127:A..(0)|
00001CC0: 3A 8A 34 30 31 30 00 DF 25 AF 0F 42 4C 24 B2 22 |:.4010..%..BL$."|
00001CD0: 13 C3 27 20 13 22 00 02 26 B4 0F 99 22 93 22 A6 |..' ."..&...".".|
00001CE0: 31 30 29 22 11 11 11 12 43 4F 50 59 2A 38 2A 92 |10)"....COPY*8*.|
00001CF0: 20 28 4A 2E 4D 43 41 29 22 00 2D 26 B9 0F 99 A6 | (J.MCA)".-&....|
00001D00: 36 29 22 11 11 28 43 4F 50 49 45 53 20 38 4B 20 |6)"..(COPIES 8K |
00001D10: 4F 46 20 44 49 53 4B 20 44 41 54 41 29 22 3A 8D |OF DISK DATA)":.|
00001D20: 34 35 30 30 00 51 26 BE 0F 99 A6 36 29 22 11 11 |4500.Q&....6)"..|
00001D30: 11 53 54 41 52 54 20 41 54 20 54 52 41 43 4B 2C |.START AT TRACK,|
00001D40: 53 45 43 54 4F 52 22 3B 00 7B 26 C8 0F 85 54 2C |SECTOR";.{&...T,|
00001D50: 53 3A 54 53 B2 54 3A 53 53 B2 53 3A 53 41 B2 33 |S:TS.T:SS.S:SA.3|
00001D60: 32 37 36 38 3A 5A 24 B2 C7 28 30 29 3A 41 44 B2 |2768:Z$..(0):AD.|
00001D70: 53 41 00 93 26 D2 0F 9F 31 35 2C 38 2C 31 35 3A |SA..&...15,8,15:|
00001D80: 9F 33 2C 38 2C 33 2C 22 23 22 00 A0 26 D7 0F 81 |.3,8,3,"#"..&...|
00001D90: 42 4B B2 31 A4 33 32 00 B5 26 DC 0F 98 31 35 2C |BK.1.32..&...15,|
00001DA0: 22 55 31 3A 22 33 3B 38 3B 54 3B 53 00 C8 26 E6 |"U1:"3;8;T;S..&.|
00001DB0: 0F 84 31 35 2C 41 2C 42 24 2C 43 24 2C 44 24 00 |..15,A,B$,C$,D$.|
00001DC0: 01 27 F0 0F 99 22 93 12 22 54 22 9D 2C 22 53 22 |.'...".."T".,"S"|
00001DD0: 9D 3A 22 41 22 9D 22 42 24 43 24 22 2C 22 44 24 |.:"A"."B$C$","D$|
00001DE0: 22 20 53 54 3A 22 53 54 22 9D 20 42 4C 4F 43 4B |" ST:"ST". BLOCK|
00001DF0: 23 20 22 42 4B 22 92 22 00 15 27 FA 0F 8B 41 B2 |# "BK"."..'...A.|
00001E00: 30 A7 45 53 B2 30 3A 89 34 31 31 30 00 2C 27 04 |0.ES.0:.4110.,'.|
00001E10: 10 45 53 24 B2 22 52 22 3A 45 53 B2 31 3A 89 34 |.ES$."R":ES.1:.4|
00001E20: 32 30 30 00 40 27 0E 10 54 4C B2 54 3A 53 4C B2 |200.@'..TL.T:SL.|
00001E30: 53 3A 42 4C B2 42 4B 00 64 27 13 10 A1 23 33 2C |S:BL.BK.d'...#3,|
00001E40: 54 24 2C 53 24 3A 54 B2 C6 28 54 24 AA 5A 24 29 |T$,S$:T..(T$.Z$)|
00001E50: 3A 53 B2 C6 28 53 24 AA 5A 24 29 00 73 27 18 10 |:S..(S$.Z$).s'..|
00001E60: 8B 54 B2 30 A7 42 4B B2 33 32 00 97 27 22 10 97 |.T.0.BK.32..'"..|
00001E70: 41 44 2C 54 3A 41 44 B2 41 44 AA 31 3A 97 41 44 |AD,T:AD.AD.1:.AD|
00001E80: 2C 53 3A 97 38 34 30 2C 31 32 37 AA 42 4C 00 A0 |,S:.840,127.BL..|
00001E90: 27 2C 10 9E 38 32 38 00 B2 27 40 10 41 44 B2 41 |',..828..'@.AD.A|
00001EA0: 44 AA 32 35 35 3A 82 42 4B 00 E4 27 68 10 99 3A |D.255:.BK..'h..:|
00001EB0: 99 22 C3 0D 11 4C 41 53 54 20 42 4C 4F 43 4B 20 |."...LAST BLOCK |
00001EC0: 53 55 43 45 53 53 46 55 4C 59 20 52 45 41 44 3A |SUCESSFULY READ:|
00001ED0: 22 00 07 28 69 10 99 22 54 52 41 43 4B 22 54 4C |"..(i.."TRACK"TL|
00001EE0: 22 53 45 43 54 4F 52 22 53 4C 22 42 4C 4F 43 4B |"SECTOR"SL"BLOCK|
00001EF0: 23 22 42 4C 00 26 28 6A 10 8B 45 53 B2 30 20 A7 |#"BL.&(j..ES.0 .|
00001F00: 20 99 22 11 4E 4F 20 52 45 41 44 20 45 52 52 4F | .".NO READ ERRO|
00001F10: 52 53 22 00 49 28 6B 10 8B 45 53 B2 31 A7 99 22 |RS".I(k..ES.1.."|
00001F20: 11 53 54 4F 50 45 44 20 42 59 20 52 45 41 44 20 |.STOPED BY READ |
00001F30: 45 52 52 4F 52 22 00 6E 28 6D 10 99 22 11 45 58 |ERROR".n(m..".EX|
00001F40: 43 48 41 4E 47 45 20 44 49 53 4B 53 20 12 46 31 |CHANGE DISKS .F1|
00001F50: 92 20 54 4F 20 57 52 49 54 45 22 00 79 28 72 10 |. TO WRITE".y(r.|
00001F60: A0 33 3A A0 31 35 00 8F 28 7C 10 A1 41 4E 24 3A |.3:.15..(|..AN$:|
00001F70: 8B 41 4E 24 B2 22 22 A7 34 32 32 30 00 9F 28 86 |.AN$."".4220..(.|
00001F80: 10 8B 41 4E 24 B3 B1 22 85 22 A7 90 00 B3 28 90 |..AN$.."."....(.|
00001F90: 10 41 44 B2 53 41 3A 54 B2 54 53 3A 53 B2 53 53 |.AD.SA:T.TS:S.SS|
00001FA0: 00 CB 28 9A 10 9F 31 35 2C 38 2C 31 35 3A 9F 36 |..(...15,8,15:.6|
00001FB0: 2C 38 2C 36 2C 22 23 22 00 D7 28 A4 10 81 58 B2 |,8,6,"#"..(...X.|
00001FC0: 31 A4 42 4C 00 E9 28 AE 10 98 31 35 2C 22 42 2D |1.BL..(...15,"B-|
00001FD0: 50 3A 22 36 3B 30 00 07 29 B8 10 54 4E B2 C2 28 |P:"6;0..)..TN..(|
00001FE0: 41 44 29 3A 41 44 B2 41 44 AA 31 3A 53 4E B2 C2 |AD):AD.AD.1:SN..|
00001FF0: 28 41 44 29 00 16 29 C2 10 97 38 35 37 2C 31 32 |(AD)..)...857,12|
00002000: 37 AA 58 00 1F 29 CC 10 9E 38 34 38 00 2D 29 D6 |7.X..)...848.-).|
00002010: 10 41 44 B2 41 44 AA 32 35 35 00 42 29 EA 10 98 |.AD.AD.255.B)...|
00002020: 31 35 2C 22 55 32 3A 22 36 3B 38 3B 54 3B 53 00 |15,"U2:"6;8;T;S.|
00002030: 55 29 F4 10 84 31 35 2C 41 2C 42 24 2C 43 24 2C |U)...15,A,B$,C$,|
00002040: 44 24 00 90 29 FE 10 99 42 4C 24 22 12 22 54 22 |D$..)...BL$"."T"|
00002050: 9D 2C 22 53 22 9D 3A 22 41 22 9D 22 42 24 43 24 |.,"S".:"A"."B$C$|
00002060: 22 2C 22 44 24 22 20 53 54 3A 22 53 54 22 9D 20 |","D$" ST:"ST". |
00002070: 42 4C 4F 43 4B 23 20 9D 22 58 22 92 22 00 A5 29 |BLOCK# ."X"."..)|
00002080: 00 11 81 4C B2 30 A4 4E 45 3A 8B 4E 45 B3 B1 30 |...L.0.NE:.NE..0|
00002090: A7 99 00 AB 29 01 11 82 00 CB 29 03 11 8B 41 B3 |....).....)...A.|
000020A0: B1 30 A7 99 22 45 52 52 4F 52 22 54 22 2C 22 53 |.0.."ERROR"T","S|
000020B0: 3A 4E 45 B2 4E 45 AA 31 00 DB 29 08 11 54 B2 54 |:NE.NE.1..)..T.T|
000020C0: 4E 3A 53 B2 53 4E 3A 82 00 F7 29 12 11 A0 36 3A |N:S.SN:...)...6:|
000020D0: A0 31 35 3A 97 35 36 2C 31 36 30 3A 9C 3A 46 B2 |.15:.56,160:.:F.|
000020E0: B8 28 30 29 00 16 2A 1C 11 99 3A 99 |.(0)..*...:. |
....NF.2061... [.J. P.!P (....W.S.....P.
X.....M..-J....U....HP.. NH.NK...(...HP.
JP..- ... .........+ (.)1989 ... .. ....
.... .. .. ..I....0P..J..-HP..1.-...P.L'
. ...WH)...H)?...... ..J&.J&. ..JP... ..
F.P...J.....I..I..-.-P...`F.N.T..T.../P.
.0./` ... ...-HP...JP. ...0..IC..I..) ..
P..7..X Y.L.. ....J)... .. ..JP..L.CP. .
....)... .... .. ..JP.....PV ... ..... .
..-.I.HP...JP...".F1.=AGAIN .F3.=END";.
,*&..AN$:.AN$."".4390.?*0..AN$."."..4010
.E*:...^*...A.828.867:.B:.A,B:...*......
DY.L.K.F..JW.EA.HOH..T.WT.WL..S.IC.IC.IS
.OH.CP.WU.6..*......DY.X.K.HG.JW.EA..E.T
C.P.OHE..IWTIC.IC.IS.OH.CP.WU.6..*...:..
..!.D..B(56).127..56,160:.:X..(0).E.N..*
DISPLAY ANY TRACK $ SECTOR *.I.X..* ON
THE DISK TO THE SCREEN *......* OR THE
PRINTERC. *......C.*......"...C(R";.2. .
."DISPLAY BLOCK CONTENTS IN HEX & ALPHA"
G(13).10)".S.CREEN OR .P.RINTER".C...."C
(E";......"(OR .F1. SCALPEL .F2. TRACE
LINKS .F3. ENDC. . .F5. LOAD ADDRESS";.
H...." .F7. 8K COPY).."......* SET PROG
RAM CONSTANTC. *......C.*.<.H.SP$." ":NL
$.G(0):HX$.".../...@".K.R.FS$."":.I.64 .
95:FS$.FS$.".".G(I).".":. I.....SS$."
":. I.192 . 223:SS$.SS$.".".G(I).".":. I
...... A$(15),NB(2).....D$."0".T....JJ$:
. JJ$."" .254...... JJ$."S".."C. ..SCREE
N."...... JJ$."P".."C. ..PRINTER."......
JJ$."."..1000.I....JJ$.".".."END":@"I":.
.\....JJ$."."..2000.O....JJ$."."..3000..
....JJ$."."..4000......15,8,15,"I".D$:.
650......4,4...... 2,8,2,"#":. 650......
C.*..."..* LOAD TRACK AND SECTORC. *.'.,
..* INTO DISK BUFFERC. *.K.6..C.*.G.@.."
...TRACK, SECTOR";T,S...J.. T.0 . T.35 .
.15,"I"D$: 2: 4: 15:."END":..A.T.. JJ$.
"S" . ."...TRACK"T" SECTOR"S"."...U.. JJ
$."P" . .4:.4,"TRACK"T" SECTOR"S:.4...^.
.15,"U1:2,"D$;T;S:.650.,.H..C.*.P.R..* R
EAD BYTE 0 OF DISK BUFFER *.T....C.*....
..15,"B-P:2,1"......15,"M-R"G(0)G(5)....
..#15,A$(0):.A$(0)."".A$(0).NL$.Q.... JJ
$."S".430...... JJ$."P".460......C.*.+..
..* READ & CRT DISPLAYC. *.O....* REST O
F THE DISK BUFFERC. *.S....C.*.....K.1:N
B(1).F(A$(0))...... J.0 . 63:. J.32 . .
710:. Z$."N". J.80:. 458.K.... I.K . 3..
....#2,A$(I):. A$(I)."" . A$(I).NL$.....
. K.1 . I.2 . NB(2).F(A$(I))...... I:K.0
.D...A$."":B$.":":N.J.4:. 790:A$.A$.":".
C.B.. I.0 . 3:N.F(A$(I)):. 790..D.C$.A$
(I):. 850:B$.B$.C$...F.. I:. JJ$."S" . .
A$B$...J.. J:.571.J.L..C.*...N..* READ &
PRINTER DISPLAYC. *...P..C.*.).R.K.1:NB
(1).F(A$(0)).8.T.. J.0 . 15.G.V.. I.K .
15.L.X..#2,A$(I):. A$(I)."" . A$(I).NL$.
..Z.. K.1 . I.2 . NB(2).F(A$(I))...... I
:K.0.A...A$."":B$.":":N.J.16:. 790:A$.A$
.":"...... I.0 . 15:N.F(A$(I)):. 790:. Z
$."N". J.40:. 571.....C$.A$(I):. 850:B$.
B$.C$...... I.2.... JJ$."P" . .4,A$B$.?.
... J:.571.C.;..C.*...<..* NEXT TRACK AN
D SECTORC. *...=..C.*.V.?.."NEXT TRACK A
ND SECTOR"NB(1)NB(2) "."...D.."DO YOU WA
NT NEXT TRACK AND SECTOR (Y/N)C. .F3. TO
ENDC. ";./.N.. Z$:. Z$."" .590.S.X.. Z$
."Y" . T.NB(1):S.NB(2):.330.F.B.. Z$."N"
. 320.T.G..Z$."."...~.L.. 590...V..C.*.
F....* SUBROUTINESC. *......C.*......* E
RROR ROUTINEC. *.2....C.*.R....15,EN,EM$
,ET,ES:. EN.0 . ..R....".DISK ERROR."EN,
EM$,ET,ES.X.......F..C.*...P..* SCREEN C
ONTINUE MESSAGEC. *...Z..C.*......".C..C
ONTINUE(Y/N)"......Z$:. Z$."" . 750.%...
. Z$."N" . ..9.... Z$.."Y" . 750.Z....".
TRACK" T " SECTOR"S ".":..~....C.*... ..
* DISK BYTE TO HEX PRINTC. *.F.*..C.*...
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$:..C.R..C.*.G.\..* DISK BYTE TO ASC
DISPLAY *...F..* CHARACTERC. *...P..C.
*.I.Z.. F(C$).32 . C$." ":....... F(C$).
128 . F(C$).159 . ......C$.J(SS$,3.(F(C$
).127),3):..).... C.*SCALPELC.*.]...BL$.
".C' .".....H$(16):H$.".../...@"......"
.".10)"....SCALPEL. (J.MCA)".F.....6)"..
(FOR DISK FILE SURGERY)"......X.0.15:H$(
X).J(H$,X.1,1):.:EC.0...... .8)"...S.CRE
EN OR .P.RINTER ? .S.".4.....8)".ERROR .
C.HECK..";.9);.H....P$:.P$."".1024.J....
"S.";:.P$."P".P.1:.4,4:."P";......P$."C"
.EC.1:."C";......:..7)"C...B.LOCK OR DIS
K .M.EMORY .B..";.D....M$:.M$."".1028...
..."B.";:.M$."M".M.1:."M";......:.M...10
)"...HIBYTE,LOBYTE";:.1035.%.....10)"...
TRACK,SECTOR";......T,S.S....15,8,15:.M.
LB.S:HB.T:.".":.1090.B....3,8,3,"#".}.$.
.15,"U1:"3;8;T;S:.".";......15,A$,B$,C$,
D$:EN.E(A$).EC...8.."."T".,"S".:"A$B$C$"
,"D$ "...9..EN...6)"...C.ONTINUE OR .R.E
PEAT ? .C."...:..EN...6)"...S.CALPEL MEN
U":..6)"...M.AIN MENU".7.;..EN..AN$:.AN$
."".1083.M.=..EN..AN$."R".1060.K.?..EN..
AN$."S". 3: 15:.1000...@..EN..AN$."M". 3
: 15:....B.Z$.G(0):.".. 0: ";...C..P..4
," 0: ";.D.`..Y.1.22:.X.1.12...J..M..15
,"M-R"G(LB)G(HB):.#15,D$:.1140...O..#3,D
$...T.A.F(D$.Z$):H..(A.16):L.A.H.16.C...
.H$(H)H$(L)" ";:.P..4,H$(H)H$(L)" ";.G..
..M.LB.LB.1:.LB.256.LB.0:HB.HB.1.}...D.D
.1:.D.256.1200......:."."I(D(D),3)": ";.
.....P..4,G(13)I(D(D),3)": ";.......M...
.P..4,G(13): 4.X.....M. 3..... 15......G
(13)".F1.=AGAIN .F2.=WRITE .F3.=QUIT .F4
.=XFER BLK ";.D.....4)".F5./.F6. ON/OFF
MEMORY MODE";.J.D.P.1024.39.6:SC.1024:E.
1919:B.1069......K$:.K$."".C.B(P):.P,C.1
28:.I.0.40:.:.P,C:.I.0.40:.:.1250......K
$."."..1000.J....K$.".".M.1.Z....K$.".".
M.0......K$.".".1500......K$."."........
K$."."..BL$;:."TRACK,SECTOR ? ";.I....K$
."."..M..BL$;:."HIBYTE,LOBYTE ? ";.J....
K$."."..6,0:.6,T,S: 6:.1500......K$.".".
P.E.P.P.1......K$.".".P.B.P.P.1.....P1.P
.SC:PI.40..(P1.40):PD.P1.PI.W....K$.".".
PD.5.P.P.5:.1250......PD.5. P.P.5:.1250.
.....K$.."."..(PD.7).3..((PD.7).3).P.P.1
:.1250.?....K$.".".P.(E.39).P.P.40:.1250
.A....K$.".".P.(B.39).P.P.40:.1250.M...K
.F(K$)......K.32.K$.".":.1270...(..K.47.
K.58..P,K:K$.".":.1270.I.2..K.64.K.71..P
,K.64:K$.".":.1270.S....1250.....:.BL$".
WRITING";T".,"S". .";......15,8,15:.M.LB
.S:HB.T:P.B:.1570.'......Y..Y........15,
"B-P:"6;0:P.B.D."..Y.1.22:.X.1.12:.P.E.P
.0:D.0:.1691...@.CH.B(P):CL.B(P.1):.P,32
:.P.1,32. .^..CH.47.H.16.(CH.48)...H..CL
.47.L.CL.48.I.R..CH.7.H.16.(9.CH).Z.|..C
L.7.L.9.CL......M.:.15,"M-W"G(LB)G(HB)G(
1)G(H.L).*....M.LB.LB.1:.LB.256.LB.0:HB.
HB.1:.1680.6....M.1680.E....6,G(H.L);.O.
..P.P.3.]....:P.P.4:..N....M. 15:.1040..
....15,"U2:"6;8;T;S...V..15,A$,B$,C$,D$.
D....BL$"."T".,"S".:"A$B$C$","D$" (WRITE
) .".S... 6: 15:D.0...:..15,8,15:...M..M
.....D..15,"U1:"3;8;T;S.0 E..15,A$,B$,C$
,D$:D$.D$." READBACK ":EN.E(A$).: L..108
0.. P..".".9)"..TRACE LINKS (J MCA)C..":
..9)"......S.CREEN OR .P.RINTER".. Q..AN
S$:.ANS$."".2001.L R.."..C...N.AME (*)
OR .T.RACK & SECTOR".. S..RE$:.RE$."".2
003.. T..RE$."T".2010.-!U.."C..C..NAME(*
)";:.NA$:.NA$."$".T.18:S.1:.2012.H!V..15
,8,15:.1,8,3,NA$: 1.R!W..15,"M-R"G(24)G(
0)G(2):.#15,T$,S$: 15..!X.T.F(T$.G(0)):S
.F(S$.G(0))..!Y..2012..!Z.."C..C..TRACK,
SECTOR";.E!...T,S.X!...ANS$."S".2200..!.
..15,8,15:.4,4..!.....M..M....9...15,"U1
:"3;8;T;S.("...15,A$,B$,C$,D$:B.B.1.S"..
.4,"BLK#"B":"T","S;" "A$;B$;C$;D$" ";.{
"*..#3,T$,S$:T.F(T$.G(0)):S.F(S$.G(0))..
"/..4,T;","S.."0..T.0.2120.."4..2030.."H
..4: 4: 3: 15:..."..:.."..."......HOLD D
OWN SHIFT KEY TO STOP SCROLL...".."...15
,8,15..#.....M..M....{...15,"U1:"3;8;T;S
.2#J..15,A$,B$,C$,D$.I#O.B.B.1:."BLK#"B"
:";.H#T..T","S;" "A$;B$;C$;D$" ";..#...
#3,T$,S$:T.F(T$.G(0)):S.F(S$.G(0))..#...
T;","S..#...T.0.2310..#...B(654).1.2295.
G#...2240.R#.. 3: 15..#..."..F3. TO END
.F1.=AGAIN";..$...ANS$:.ANS$."".2325..$
...ANS$."."..2000./$...ANS$."."...9$$..2
325.D$... "..DISPLAY 'LOAD ADDRESS' OF A
FILE".X$G.. ".FILE ";:.F$..$J.. ".LOAD
ADDRESS:";..$L..1,8,3,"0:".F$..$V.. #1,L
$,H$.J$..X$.H$:.3100:H.X.256..$..X$.L$:.
3100:L.X:.H.L..%.. 1:."..F1. AGAIN .F3.
END..%...ANS$:.ANS$."".3090..%...ANS$."
."..3000.>%...ANS$."."...H%...3090.\%...
X$."" . X.0:..J%&.X.F(X$):...% ..C.* 8K
COPY C.*..%...B(56)..127..56,127:A..(0)
:.4010..%..BL$.".C' ."..&...".".10)"....
COPY*8*. (J.MCA)".-&....6)"..(COPIES 8K
OF DISK DATA)":.4500.Q&....6)"...START A
T TRACK,SECTOR";.{&H..T,S:TS.T:SS.S:SA.3
2768:Z$.G(0):AD.SA..&R..15,8,15:.3,8,3,"
#". &W..BK.1.32..&...15,"U1:"3;8;T;S.H&.
..15,A,B$,C$,D$..'...".."T".,"S".:"A"."B
$C$","D$" ST:"ST". BLOCK# "BK"."..'...A.
0.ES.0:.4110.,'..ES$."R":ES.1:.4200.@'..
TL.T:SL.S:BL.BK.D'...#3,T$,S$:T.F(T$.Z$)
:S.F(S$.Z$).S'...T.0.BK.32..'"..AD,T:AD.
AD.1:.AD,S:.840,127.BL. ',..828..'@.AD.A
D.255:.BK..'H..:."C..LAST BLOCK SUCESSFU
LY READ:"..(I.."TRACK"TL"SECTOR"SL"BLOCK
#"BL.&(J..ES.0 . .".NO READ ERRORS".I(K.
.ES.1..".STOPED BY READ ERROR".N(M..".EX
CHANGE DISKS .F1. TO WRITE".Y(R. 3: 15..
(|..AN$:.AN$."".4220..(...AN$.."."....(.
.AD.SA:T.TS:S.SS.K(...15,8,15:.6,8,6,"#"
.W(...X.1.BL..(...15,"B-P:"6;0..)..TN.B(
AD):AD.AD.1:SN.B(AD)..)B..857,127.X..)L.
.848.-)V.AD.AD.255.B)...15,"U2:"6;8;T;S.
U)...15,A,B$,C$,D$..)...BL$"."T".,"S".:"
A"."B$C$","D$" ST:"ST". BLOCK# ."X"."..)
...L.0.NE:.NE..0....)....K)...A..0.."ERR
OR"T","S:NE.NE.1..)..T.TN:S.SN:...).. 6:
15:.56,160:.:F..(0)..*...:.
> CLICK IMAGE PREVIEW FOR FULL MODAL