DI-SECTOR
FILE INFORMATION
FILENAME(S): DI-SECTOR
FILE TYPE(S): PRG
FILE SIZE: 13.3K
FIRST SEEN: 2025-10-20 00:39:48
APPEARS ON: 1 disk(s)
FILE HASH
70a828c7715494e2b8a35283375f8136aeb88cb6bc7b5e41ce7014b25a2a9899
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LECK MICH AM A | DI-SECTOR | PRG | Treasure Chest - Jochen Steinbach | 31 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4A 08 01 00 41 B2 41 AA 31 3A 91 41 89 31 |..J...A.A.1:.A.1|
00000010: 30 30 30 2C 31 30 34 35 2C 31 30 35 30 2C 31 31 |000,1045,1050,11|
00000020: 30 30 3A 8F 20 4A 55 4D 50 20 4F 56 45 52 20 43 |00:. JUMP OVER C|
00000030: 52 45 44 49 54 53 20 54 4F 20 54 48 45 20 52 45 |REDITS TO THE RE|
00000040: 41 4C 20 50 52 4F 47 52 41 4D 00 8F 08 02 00 94 |AL PROGRAM......|
00000050: 20 22 40 30 3A 44 49 2D 53 45 43 54 4F 52 22 2C | "@0:DI-SECTOR",|
00000060: 38 2C 31 3A 80 3A 8F 2D 20 20 41 20 48 41 4E 44 |8,1:.:.- A HAND|
00000070: 59 20 57 41 59 20 54 4F 20 53 41 56 45 20 41 20 |Y WAY TO SAVE A |
00000080: 50 52 4F 47 52 41 4D 2C 20 22 52 55 4E 32 22 00 |PROGRAM, "RUN2".|
00000090: D3 08 03 00 89 31 31 30 30 3A 8F 2D 20 53 4B 49 |.....1100:.- SKI|
000000A0: 50 20 4F 56 45 52 20 4D 41 43 48 49 4E 45 20 4C |P OVER MACHINE L|
000000B0: 41 4E 47 2E 20 4C 4F 41 44 53 20 49 46 20 57 45 |ANG. LOADS IF WE|
000000C0: 20 22 52 55 4E 33 22 20 28 53 41 56 45 20 54 49 | "RUN3" (SAVE TI|
000000D0: 4D 45 29 00 EA 08 04 00 A0 31 35 3A 9F 31 35 2C |ME)......15:.15,|
000000E0: 38 2C 31 35 3A A0 31 35 3A 80 00 F0 08 08 00 3A |8,15:.15:......:|
000000F0: 00 FE 08 0A 00 3A 44 49 AB 53 45 43 A4 52 00 22 |.....:DI.SEC.R."|
00000100: 09 0F 00 3A 28 44 49 52 52 45 43 54 20 B5 45 52 |...:(DIRRECT .ER|
00000110: 41 43 54 49 91 20 57 49 54 48 20 53 45 43 A4 52 |ACTI. WITH SEC.R|
00000120: 53 29 00 42 09 14 00 3A 57 52 49 54 54 45 4E 20 |S).B...:WRITTEN |
00000130: 42 59 20 42 52 55 43 45 20 51 2E 20 48 41 4D 4D |BY BRUCE Q. HAMM|
00000140: 91 44 00 5D 09 1E 00 3A 4F 46 20 54 48 45 20 48 |.D.]...:OF THE H|
00000150: 41 4D 4D 53 54 45 52 20 47 52 4F 55 50 00 7C 09 |AMMSTER GROUP.|.|
00000160: 20 00 3A 28 43 29 20 31 39 38 33 20 53 54 41 52 | .:(C) 1983 STAR|
00000170: 50 4F B5 20 53 4F 46 54 57 41 52 45 00 82 09 23 |PO. SOFTWARE...#|
00000180: 00 3A 00 9C 09 28 00 3A 44 45 44 49 43 41 54 45 |.:...(.:DEDICATE|
00000190: 44 20 A4 20 53 C0 20 4B 52 55 54 45 00 A2 09 DE |D . S. KRUTE....|
000001A0: 03 3A 00 A8 09 E0 03 3A 00 CC 09 E3 03 8F 20 2A |.:.....:...... *|
000001B0: 4C 4F 41 44 20 4D 41 43 48 49 4E 45 20 4C 41 4E |LOAD MACHINE LAN|
000001C0: 47 2E 20 52 4F 55 54 49 4E 45 53 2A 00 D2 09 E4 |G. ROUTINES*....|
000001D0: 03 3A 00 E4 09 E8 03 41 B2 41 AA 31 3A 8D 20 34 |.:.....A.A.1:. 4|
000001E0: 30 35 30 30 00 FC 09 F2 03 97 35 33 32 38 31 2C |0500......53281,|
000001F0: 43 42 3A 97 35 33 32 38 30 2C 43 54 00 29 0A FC |CB:.53280,CT.)..|
00000200: 03 99 44 24 28 31 29 3B 22 93 53 54 41 52 50 4F |..D$(1);".STARPO|
00000210: 49 4E 54 20 53 4F 46 54 57 41 52 45 20 50 52 45 |INT SOFTWARE PRE|
00000220: 53 45 4E 54 53 2E 2E 2E 22 00 52 0A 06 04 99 22 |SENTS...".R...."|
00000230: 11 11 11 11 11 11 22 3B A3 31 31 29 3B 22 44 49 |......";.11);"DI|
00000240: 2D 53 45 43 54 4F 52 20 56 45 52 2E 20 31 2E 30 |-SECTOR VER. 1.0|
00000250: 47 22 00 95 0A 0B 04 99 22 11 11 22 3B A3 31 31 |G"......"..";.11|
00000260: 29 3B 44 24 28 32 29 3B 22 42 59 20 42 52 55 43 |);D$(2);"BY BRUC|
00000270: 45 20 51 2E 20 48 41 4D 4D 4F 4E 44 22 3A 8F 2D |E Q. HAMMOND":.-|
00000280: 20 4D 59 20 4E 41 4D 45 20 55 50 20 49 4E 20 4C | MY NAME UP IN L|
00000290: 49 47 48 54 53 00 D3 0A 10 04 99 A3 31 30 29 3B |IGHTS.......10);|
000002A0: 22 4F 46 20 54 48 45 20 48 41 4D 4D 53 54 45 52 |"OF THE HAMMSTER|
000002B0: 20 47 52 4F 55 50 22 3A 8F 2D 20 53 4F 4D 45 20 | GROUP":.- SOME |
000002C0: 52 45 41 4C 4C 59 20 4E 45 41 54 20 50 45 4F 50 |REALLY NEAT PEOP|
000002D0: 4C 45 21 00 14 0B 15 04 8B 41 B2 32 A7 93 22 44 |LE!......A.2.."D|
000002E0: 49 2D 32 22 2C 38 2C 31 3A 8F 2D 20 4C 4F 41 44 |I-2",8,1:.- LOAD|
000002F0: 20 54 48 45 20 4C 4F 57 45 52 20 4D 41 43 48 49 | THE LOWER MACHI|
00000300: 4E 45 20 4C 41 4E 47 55 41 47 45 20 50 52 4F 47 |NE LANGUAGE PROG|
00000310: 52 41 4D 2E 00 55 0B 1A 04 8B 41 B2 33 A7 93 22 |RAM..U....A.3.."|
00000320: 44 49 2D 33 22 2C 38 2C 31 3A 8F 2D 20 4C 4F 41 |DI-3",8,1:.- LOA|
00000330: 44 20 54 48 45 20 55 50 50 45 52 20 4D 41 43 48 |D THE UPPER MACH|
00000340: 49 4E 45 20 4C 41 4E 47 55 41 47 45 20 50 52 4F |INE LANGUAGE PRO|
00000350: 47 52 41 4D 2E 00 5B 0B 42 04 3A 00 61 0B 44 04 |GRAM..[.B.:.a.D.|
00000360: 3A 00 67 0B 46 04 3A 00 84 0B 47 04 8F 20 20 20 |:.g.F.:...G.. |
00000370: 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 20 |**** INITIALIZE |
00000380: 2A 2A 2A 2A 00 8A 0B 49 04 3A 00 AB 0B 4C 04 8F |****...I.:...L..|
00000390: 20 2A 20 56 41 52 49 41 42 4C 45 53 2C 20 53 54 | * VARIABLES, ST|
000003A0: 52 49 4E 47 53 20 20 20 20 20 2A 00 F8 0B 4F 04 |RINGS *...O.|
000003B0: 58 B2 30 3A 41 24 B2 22 22 3A 41 31 24 B2 22 22 |X.0:A$."":A1$.""|
000003C0: 3A 48 58 24 B2 22 30 31 32 33 34 35 36 37 38 39 |:HX$."0123456789|
000003D0: 41 42 43 44 45 46 22 3A 48 54 24 B2 22 13 11 11 |ABCDEF":HT$."...|
000003E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000003F0: 11 11 11 11 11 11 11 22 00 2B 0C 51 04 41 B2 30 |.......".+.Q.A.0|
00000400: 3A 41 31 B2 30 3A 56 B2 30 3A 46 31 B2 30 3A 8F |:A1.0:V.0:F1.0:.|
00000410: 2D 20 53 4F 4D 45 20 4F 46 54 45 4E 20 55 53 45 |- SOME OFTEN USE|
00000420: 44 20 56 41 52 49 41 42 4C 45 53 00 38 0C 52 04 |D VARIABLES.8.R.|
00000430: 86 54 24 28 31 30 30 29 00 3E 0C A6 04 3A 00 44 |.T$(100).>...:.D|
00000440: 0C A8 04 3A 00 4A 0C AA 04 3A 00 6D 0C AB 04 8F |...:.J...:.m....|
00000450: 20 2A 2A 20 53 45 54 20 55 50 20 42 55 46 46 20 | ** SET UP BUFF |
00000460: 50 4E 54 52 20 41 52 52 41 59 20 2A 2A 00 73 0C |PNTR ARRAY **.s.|
00000470: AC 04 3A 00 BC 0C B0 04 86 20 42 50 28 35 29 3A |..:...... BP(5):|
00000480: 8F 2D 20 41 20 4E 49 46 54 59 20 41 52 52 41 59 |.- A NIFTY ARRAY|
00000490: 20 54 48 41 54 20 43 4F 4E 54 41 49 4E 53 20 54 | THAT CONTAINS T|
000004A0: 48 45 4E 20 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 |HEN MEMORY LOCAT|
000004B0: 49 4F 4E 53 20 28 43 4F 4E 54 2E 29 00 08 0D B5 |IONS (CONT.)....|
000004C0: 04 8F 2D 20 4F 46 20 41 4C 4C 20 50 4F 49 4E 54 |..- OF ALL POINT|
000004D0: 45 52 53 20 54 4F 20 54 48 45 20 43 55 52 52 45 |ERS TO THE CURRE|
000004E0: 4E 54 20 44 49 53 50 4C 41 59 2F 57 4F 52 4B 20 |NT DISPLAY/WORK |
000004F0: 42 55 46 46 45 52 2E 20 20 54 48 49 53 20 42 55 |BUFFER. THIS BU|
00000500: 46 46 45 52 20 43 41 4E 00 53 0D B6 04 8F 2D 20 |FFER CAN.S....- |
00000510: 42 45 20 4D 4F 56 45 44 20 42 59 20 50 4F 4B 49 |BE MOVED BY POKI|
00000520: 4E 47 20 41 4C 4C 20 42 50 28 58 29 20 4C 4F 43 |NG ALL BP(X) LOC|
00000530: 41 54 49 4F 4E 53 20 57 49 54 48 20 4C 4F 42 59 |ATIONS WITH LOBY|
00000540: 54 45 20 26 20 42 50 28 58 29 2B 31 2C 48 49 42 |TE & BP(X)+1,HIB|
00000550: 59 54 45 00 A0 0D B7 04 8F 2D 20 45 58 41 4D 49 |YTE......- EXAMI|
00000560: 4E 45 20 54 48 45 20 53 45 43 54 4F 52 20 52 4F |NE THE SECTOR RO|
00000570: 55 54 49 4E 45 20 41 4E 44 4D 41 49 4E 20 4D 45 |UTINE ANDMAIN ME|
00000580: 4D 4F 52 59 20 45 44 49 54 4F 52 20 46 4F 52 20 |MORY EDITOR FOR |
00000590: 41 20 57 4F 52 4B 49 4E 47 20 45 58 41 4D 50 2E |A WORKING EXAMP.|
000005A0: 00 B1 0D BA 04 81 58 B2 31 A4 35 20 20 20 20 20 |......X.1.5 |
000005B0: 3A 00 D2 0D C4 04 87 20 42 50 28 58 29 3A 8F 3A |:...... BP(X):.:|
000005C0: 20 52 45 41 44 20 42 50 20 4C 4F 43 41 54 49 4F | READ BP LOCATIO|
000005D0: 4E 53 00 E3 0D CE 04 82 58 20 20 20 20 20 20 20 |NS......X |
000005E0: 20 20 3A 00 E9 0D D8 04 3A 00 EF 0D 0A 05 3A 00 | :.....:.....:.|
000005F0: F5 0D 0C 05 3A 00 1A 0E 0F 05 8F 20 2A 2A 2A 2A |....:...... ****|
00000600: 2A 20 4D 49 53 43 20 49 4E 49 54 20 47 41 52 42 |* MISC INIT GARB|
00000610: 41 47 45 20 20 2A 2A 2A 2A 2A 00 20 0E 11 05 3A |AGE *****. ...:|
00000620: 00 43 0E 12 05 8F 20 2A 2A 20 53 45 54 20 55 50 |.C.... ** SET UP|
00000630: 20 56 45 52 54 20 54 41 42 20 53 54 52 49 4E 47 | VERT TAB STRING|
00000640: 20 2A 2A 00 49 0E 13 05 3A 00 96 0E 14 05 56 54 | **.I...:.....VT|
00000650: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00000660: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A |..............":|
00000670: 8F 2D 20 46 4F 52 20 56 45 52 54 20 54 41 42 20 |.- FOR VERT TAB |
00000680: 58 58 20 55 53 45 20 3F 4C 45 46 54 24 28 56 54 |XX USE ?LEFT$(VT|
00000690: 24 2C 58 58 29 3B 00 9C 0E 19 05 3A 00 A2 0E 32 |$,XX);.....:...2|
000006A0: 05 3A 00 C7 0E 37 05 49 4E 50 24 B2 22 48 45 58 |.:...7.INP$."HEX|
000006B0: 22 3A 8F 20 2D 20 44 45 46 41 55 4C 54 20 45 44 |":. - DEFAULT ED|
000006C0: 49 54 20 4D 4F 44 45 00 CD 0E 3C 05 3A 00 D3 0E |IT MODE...<.:...|
000006D0: 46 05 3A 00 E5 0E C6 07 8F 20 2D 20 4D 41 49 4E |F.:...... - MAIN|
000006E0: 20 4D 45 4E 55 00 EB 0E C8 07 3A 00 00 0F CA 07 | MENU.....:.....|
000006F0: 8F 20 2D 20 44 52 41 57 20 42 4F 41 52 44 45 52 |. - DRAW BOARDER|
00000700: 00 06 0F CC 07 3A 00 43 0F D0 07 99 22 93 22 AA |.....:.C....".".|
00000710: 44 24 28 33 29 3B 3A 8F 2D 20 43 4C 45 41 52 20 |D$(3);:.- CLEAR |
00000720: 53 43 52 45 45 4E 20 41 4E 44 20 53 45 54 20 54 |SCREEN AND SET T|
00000730: 45 58 54 20 43 4F 4C 4F 52 20 54 4F 20 4F 52 41 |EXT COLOR TO ORA|
00000740: 4E 47 45 00 6C 0F D2 07 99 C7 28 38 29 3B 3A 8F |NGE.l.....(8);:.|
00000750: 2D 20 44 49 53 41 42 4C 45 20 4C 4F 57 45 52 20 |- DISABLE LOWER |
00000760: 43 41 53 45 20 54 4F 47 47 4C 45 2E 00 9B 0F D5 |CASE TOGGLE.....|
00000770: 07 99 22 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.." ............|
00000780: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000790: C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 A7 0F DA 07 |..........".....|
000007A0: 81 58 B2 31 A4 32 32 00 BA 0F E4 07 99 22 20 C7 |.X.1.22......" .|
000007B0: 22 3B A3 33 38 29 3B 22 C8 22 00 C1 0F EE 07 82 |";.38);"."......|
000007C0: 58 00 F1 0F F8 07 99 22 20 CA C3 C3 C3 C3 C3 C3 |X......" .......|
000007D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000007E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 |..............."|
000007F0: 3B 00 F7 0F 2A 08 3A 00 FD 0F 2C 08 3A 00 03 10 |;...*.:...,.:...|
00000800: 2E 08 3A 00 1C 10 2F 08 8F 20 20 2A 20 44 49 53 |..:.../.. * DIS|
00000810: 50 4C 41 59 20 54 49 54 4C 45 20 2A 00 22 10 30 |PLAY TITLE *.".0|
00000820: 08 3A 00 41 10 34 08 99 44 24 28 31 29 3B 3A 8F |.:.A.4..D$(1);:.|
00000830: 3A 20 20 20 20 20 20 54 45 58 54 20 43 4F 4C 4F |: TEXT COLO|
00000840: 52 00 67 10 3E 08 99 22 13 11 1D 1D 1D 1D 1D 1D |R.g.>.."........|
00000850: 1D 1D 1D 1D 1D 44 49 2D 53 45 43 54 4F 52 20 4F |.....DI-SECTOR O|
00000860: 50 54 49 4F 4E 53 22 00 6F 10 48 08 99 3A 99 00 |PTIONS".o.H..:..|
00000870: 75 10 52 08 3A 00 7B 10 8E 08 3A 00 9C 10 93 08 |u.R.:.{...:.....|
00000880: 8F 20 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 20 4F |. **** DISPLAY O|
00000890: 50 54 49 4F 4E 53 20 2A 2A 2A 2A 2A 00 A2 10 94 |PTIONS *****....|
000008A0: 08 3A 00 CF 10 98 08 52 45 54 24 B2 C7 28 31 33 |.:.....RET$..(13|
000008B0: 29 3A 8F 2D 20 43 2F 52 20 20 20 20 20 20 20 20 |):.- C/R |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A0 00 | ..|
000008D0: FF 10 9A 08 52 45 54 24 B2 52 45 54 24 AA 22 1D |....RET$.RET$.".|
000008E0: 1D 1D 1D 3C 22 3A 8F 2D 20 54 41 42 20 4F 56 45 |...<":.- TAB OVE|
000008F0: 52 20 41 4E 44 20 50 52 49 4E 54 20 22 3C 22 00 |R AND PRINT "<".|
00000900: 23 11 9D 08 99 44 24 28 32 29 3B 3A 8F 2D 20 53 |#....D$(2);:.- S|
00000910: 45 54 20 54 48 45 20 54 45 58 54 20 54 4F 20 47 |ET THE TEXT TO G|
00000920: 52 45 59 00 5F 11 A2 08 99 52 45 54 24 3B 22 31 |REY._....RET$;"1|
00000930: 3E 20 53 45 43 54 4F 52 20 45 58 41 4D 49 4E 45 |> SECTOR EXAMINE|
00000940: 2F 4D 4F 44 49 46 59 22 3A 8F 2D 20 44 49 53 50 |/MODIFY":.- DISP|
00000950: 4C 41 59 20 54 48 45 20 4F 50 54 49 4F 4E 53 00 |LAY THE OPTIONS.|
00000960: 8E 11 AC 08 99 52 45 54 24 3B 22 32 3E 20 44 49 |.....RET$;"2> DI|
00000970: 53 4B 20 42 41 43 4B 55 50 22 20 20 20 20 20 20 |SK BACKUP" |
00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 BD | :..|
00000990: 11 C0 08 99 52 45 54 24 3B 22 33 3E 20 46 52 45 |....RET$;"3> FRE|
000009A0: 45 20 53 45 43 54 4F 52 20 4D 41 50 22 20 20 20 |E SECTOR MAP" |
000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 EC 11 | :...|
000009C0: C5 08 99 52 45 54 24 3B 22 34 3E 20 45 58 49 54 |...RET$;"4> EXIT|
000009D0: 20 54 4F 20 42 41 53 49 43 22 20 20 20 20 20 20 | TO BASIC" |
000009E0: 20 20 20 20 20 20 20 20 20 20 20 3A 00 F2 11 CA | :....|
000009F0: 08 3A 00 F8 11 CC 08 3A 00 13 12 CF 08 8F 20 20 |.:.....:...... |
00000A00: 20 20 2A 2A 20 4D 45 4E 55 20 50 52 4F 4D 50 54 | ** MENU PROMPT|
00000A10: 20 2A 2A 00 19 12 D0 08 3A 00 55 12 D4 08 99 22 | **.....:.U...."|
00000A20: 11 11 11 1D 1D 1D 1D 53 45 4C 45 43 54 49 4F 4E |.......SELECTION|
00000A30: 20 50 4C 45 41 53 45 20 12 20 92 22 3A 8F 2D 20 | PLEASE . .":.- |
00000A40: 41 53 4B 20 46 4F 52 20 54 48 45 20 53 45 4C 45 |ASK FOR THE SELE|
00000A50: 43 54 49 4F 4E 00 5B 12 DE 08 3A 00 61 12 F2 08 |CTION.[...:.a...|
00000A60: 3A 00 81 12 F7 08 8F 20 20 2A 2A 2A 2A 20 47 45 |:...... **** GE|
00000A70: 54 20 4D 45 4E 55 20 49 4E 50 55 54 20 2A 2A 2A |T MENU INPUT ***|
00000A80: 2A 00 87 12 F9 08 3A 00 CC 12 FC 08 8D 20 35 32 |*.....:...... 52|
00000A90: 34 30 30 3A 8F 2D 20 47 4F 20 41 4E 44 20 57 41 |400:.- GO AND WA|
00000AA0: 49 54 20 46 4F 52 20 41 20 4B 45 59 20 54 4F 20 |IT FOR A KEY TO |
00000AB0: 42 45 20 50 52 45 53 53 45 44 20 28 52 45 54 55 |BE PRESSED (RETU|
00000AC0: 52 4E 20 49 54 20 49 4E 20 41 24 29 00 E5 12 10 |RN IT IN A$)....|
00000AD0: 09 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.: |
00000AE0: 20 20 20 20 3A 00 09 13 1A 09 8F 20 20 20 2A 20 | :...... * |
00000AF0: 56 41 4C 49 44 41 54 45 20 4F 50 45 52 41 54 4F |VALIDATE OPERATO|
00000B00: 52 20 49 4E 50 55 54 20 2A 00 0F 13 1F 09 3A 00 |R INPUT *.....:.|
00000B10: 37 13 24 09 41 B2 C5 28 41 24 29 3A 8F 20 43 4F |7.$.A..(A$):. CO|
00000B20: 4E 56 45 52 54 20 49 4E 50 55 54 20 54 4F 20 41 |NVERT INPUT TO A|
00000B30: 20 4E 55 4D 42 45 52 00 75 13 2E 09 8B 41 B1 35 | NUMBER.u....A.5|
00000B40: B0 41 B3 31 A7 32 33 30 30 3A 8F 2D 20 47 4F 20 |.A.1.2300:.- GO |
00000B50: 42 41 43 4B 20 41 4E 44 20 57 41 49 54 20 41 47 |BACK AND WAIT AG|
00000B60: 41 49 4E 20 49 46 20 4E 4F 54 20 31 2C 32 2C 33 |AIN IF NOT 1,2,3|
00000B70: 20 4F 52 20 34 00 7B 13 33 09 3A 00 9C 13 38 09 | OR 4.{.3.:...8.|
00000B80: 8F 20 20 2A 2A 2A 20 4D 45 4E 55 20 42 52 41 4E |. *** MENU BRAN|
00000B90: 43 48 20 4C 4F 47 49 43 20 2A 2A 2A 00 BB 13 42 |CH LOGIC ***...B|
00000BA0: 09 91 41 8D 31 30 30 30 30 2C 32 30 30 30 30 2C |..A.10000,20000,|
00000BB0: 34 30 30 30 30 2C 36 32 30 30 30 00 DC 13 4C 09 |40000,62000...L.|
00000BC0: 46 31 B2 30 3A 89 31 33 30 30 3A 8F 2D 20 52 45 |F1.0:.1300:.- RE|
00000BD0: 44 49 53 50 4C 41 59 20 4D 45 4E 55 00 E2 13 82 |DISPLAY MENU....|
00000BE0: 23 3A 00 E8 13 83 23 3A 00 EE 13 84 23 3A 00 F4 |#:....#:....#:..|
00000BF0: 13 85 23 3A 00 FA 13 86 23 3A 00 1F 14 87 23 8F |..#:....#:....#.|
00000C00: 20 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 20 54 52 | **** DISPLAY TR|
00000C10: 41 43 4B 20 53 45 43 54 4F 52 20 2A 2A 2A 2A 00 |ACK SECTOR ****.|
00000C20: 25 14 88 23 3A 00 2B 14 89 23 3A 00 41 14 8A 23 |%..#:.+..#:.A..#|
00000C30: 8F 20 2D 20 53 45 43 54 4F 52 20 4D 4F 44 55 41 |. - SECTOR MODUA|
00000C40: 4C 00 47 14 8B 23 3A 00 66 14 10 27 8D 20 31 31 |L.G..#:.f..'. 11|
00000C50: 36 30 30 3A 8F 20 2D 20 50 52 4F 4D 50 54 20 54 |600:. - PROMPT T|
00000C60: 52 4B 2C 53 45 43 00 6C 14 29 27 3A 00 8F 14 2E |RK,SEC.l.)':....|
00000C70: 27 8F 20 2A 20 50 4F 4B 45 20 49 4E 20 42 55 46 |'. * POKE IN BUF|
00000C80: 46 20 50 4E 54 52 20 56 41 4C 55 45 53 20 2A 00 |F PNTR VALUES *.|
00000C90: AF 14 2F 27 42 4C B2 34 39 31 35 32 3A 3A 8F 20 |../'BL.49152::. |
00000CA0: 2D 20 53 45 43 54 4F 52 20 42 55 46 46 52 2E 00 |- SECTOR BUFFR..|
00000CB0: C8 14 30 27 48 42 B2 42 4C AD 32 35 36 3A 8F 20 |..0'HB.BL.256:. |
00000CC0: 2D 20 48 49 42 59 54 45 00 E4 14 31 27 4C 42 B2 |- HIBYTE...1'LB.|
00000CD0: 42 4C AB 28 48 42 AC 32 35 36 29 3A 8F 20 4C 4F |BL.(HB.256):. LO|
00000CE0: 42 59 54 45 00 EF 14 33 27 81 58 B2 31 A4 35 00 |BYTE...3'.X.1.5.|
00000CF0: 09 15 35 27 97 42 50 28 58 29 2C 4C 42 3A 97 42 |..5'.BP(X),LB:.B|
00000D00: 50 28 58 29 AA 31 2C 48 42 00 10 15 37 27 82 58 |P(X).1,HB...7'.X|
00000D10: 00 16 15 38 27 3A 00 3A 15 3A 27 8F 2D 20 53 45 |...8':.:.:'.- SE|
00000D20: 4E 44 20 46 4F 52 20 50 49 5A 5A 41 20 28 4F 52 |ND FOR PIZZA (OR|
00000D30: 20 41 20 53 45 43 54 4F 52 29 00 40 15 3D 27 3A | A SECTOR).@.=':|
00000D40: 00 59 15 42 27 99 22 93 22 3B 3A 8F 20 43 4C 45 |.Y.B'.".";:. CLE|
00000D50: 41 52 20 53 43 52 45 45 4E 00 78 15 44 27 8D 20 |AR SCREEN.x.D'. |
00000D60: 35 32 36 30 30 3A 8F 20 2D 20 56 41 4C 49 44 41 |52600:. - VALIDA|
00000D70: 54 45 20 54 4E 2C 53 4E 00 8F 15 47 27 8D 20 35 |TE TN,SN...G'. 5|
00000D80: 31 30 30 30 3A 8F 20 2D 20 47 45 54 20 49 54 00 |1000:. - GET IT.|
00000D90: C1 15 48 27 8B 45 52 24 B3 B1 22 4F 4B 22 A7 8D |..H'.ER$.."OK"..|
00000DA0: 20 35 33 31 30 30 3A 89 31 30 30 35 38 3A 8F 2D | 53100:.10058:.-|
00000DB0: 20 4F 48 20 4E 4F 21 21 20 41 4E 20 45 52 52 4F | OH NO!! AN ERRO|
00000DC0: 52 00 CA 15 49 27 46 31 B2 30 00 DF 15 4A 27 8B |R...I'F1.0...J'.|
00000DD0: 46 31 B2 31 B0 46 31 B2 32 A7 31 30 30 35 32 00 |F1.1.F1.2.10052.|
00000DE0: 02 16 4C 27 8F 20 20 2A 2A 20 50 52 4E 54 20 42 |..L'. ** PRNT B|
00000DF0: 55 46 46 20 28 41 53 43 49 49 2D 48 45 58 29 20 |UFF (ASCII-HEX) |
00000E00: 2A 2A 00 08 16 4E 27 3A 00 22 16 56 27 8D 20 35 |**...N':.".V'. 5|
00000E10: 31 35 30 30 3A 8F 2D 50 52 49 4E 54 20 41 53 43 |1500:.-PRINT ASC|
00000E20: 49 49 00 3A 16 60 27 8D 20 35 32 30 30 30 3A 8F |II.:.`'. 52000:.|
00000E30: 2D 50 52 49 4E 54 20 48 45 58 00 59 16 6A 27 8D |-PRINT HEX.Y.j'.|
00000E40: 20 35 32 31 30 30 3A 8F 2D 57 41 49 54 20 46 4F | 52100:.-WAIT FO|
00000E50: 52 20 43 4F 4D 4D 41 4E 44 00 5F 16 6F 27 3A 00 |R COMMAND._.o':.|
00000E60: 79 16 74 27 8B 46 31 B2 31 A7 8E 3A 8F 20 2D 20 |y.t'.F1.1..:. - |
00000E70: 54 4F 20 4D 27 4D 45 4E 55 00 96 16 7E 27 8B 46 |TO M'MENU...~'.F|
00000E80: 31 B2 32 A7 31 30 30 30 30 3A 8F 20 2D 20 4E 45 |1.2.10000:. - NE|
00000E90: 57 20 53 50 4F 54 00 B7 16 CE 27 89 20 31 30 30 |W SPOT....'. 100|
00000EA0: 35 30 3A 8F 20 2D 20 47 45 54 20 41 4E 4F 54 48 |50:. - GET ANOTH|
00000EB0: 45 52 20 53 45 43 2E 00 BD 16 EE 2A 3A 00 C3 16 |ER SEC.....*:...|
00000EC0: EF 2A 3A 00 DF 16 F3 2A 8F 20 2D 2D 20 45 44 49 |.*:....*. -- EDI|
00000ED0: 54 20 4D 45 4D 4F 52 59 20 42 55 46 46 45 52 00 |T MEMORY BUFFER.|
00000EE0: E5 16 F4 2A 3A 00 06 17 F8 2A 41 24 B2 22 22 3A |...*:....*A$."":|
00000EF0: 97 32 31 34 2C 32 32 3A 99 3A 99 A3 33 33 29 22 |.214,22:.:..33)"|
00000F00: 4D 4F 44 20 20 22 00 24 17 02 2B 41 50 B2 35 35 |MOD ".$..+AP.55|
00000F10: 32 39 36 3A 48 50 B2 35 35 36 31 36 3A 8D 20 35 |296:HP.55616:. 5|
00000F20: 32 33 30 30 00 33 17 07 2B 97 20 32 31 34 2C 31 |2300.3..+. 214,1|
00000F30: 32 3A 99 00 41 17 09 2B 99 A3 33 35 29 3B 22 22 |2:..A..+..35);""|
00000F40: 3B 00 55 17 0C 2B 41 24 B2 C4 28 4D 29 3A 99 41 |;.U..+A$..(M):.A|
00000F50: 24 3B 22 20 22 00 5F 17 0E 2B 41 24 B2 22 22 00 |$;" "._..+A$."".|
00000F60: 7A 17 11 2B 97 4C 31 2C 43 32 3A 97 4C 32 2C 43 |z..+.L1,C2:.L2,C|
00000F70: 31 3A 97 4C 32 AA 31 2C 43 31 00 94 17 16 2B 8D |1:.L2.1,C1....+.|
00000F80: 20 35 32 34 30 30 3A 8F 20 2D 2D 20 57 41 49 54 | 52400:. -- WAIT|
00000F90: 20 4B 45 59 00 AE 17 20 2B 8B 41 24 B2 22 1D 22 | KEY... +.A$."."|
00000FA0: A7 8D 35 32 35 30 30 3A 89 31 31 30 31 30 00 C8 |..52500:.11010..|
00000FB0: 17 25 2B 8B 41 24 B2 22 9D 22 A7 8D 35 32 35 31 |.%+.A$."."..5251|
00000FC0: 30 3A 89 31 31 30 31 30 00 E2 17 2A 2B 8B 41 24 |0:.11010...*+.A$|
00000FD0: B2 22 91 22 A7 8D 35 32 35 32 30 3A 89 31 31 30 |."."..52520:.110|
00000FE0: 31 30 00 FC 17 2F 2B 8B 41 24 B2 22 11 22 A7 8D |10.../+.A$."."..|
00000FF0: 35 32 35 33 30 3A 89 31 31 30 31 30 00 08 18 34 |52530:.11010...4|
00001000: 2B 41 B2 C6 28 41 24 29 00 40 18 39 2B 8B 41 B1 |+A..(A$).@.9+.A.|
00001010: 36 34 AF 41 B3 37 31 AF 49 4E 50 24 B2 22 48 45 |64.A.71.INP$."HE|
00001020: 58 22 A7 8D 35 32 38 30 30 3A 8F 20 2D 20 43 4F |X"..52800:. - CO|
00001030: 4D 50 49 4C 45 20 48 45 58 20 4E 55 4D 42 45 52 |MPILE HEX NUMBER|
00001040: 00 78 18 A2 2B 8B 41 B1 34 37 AF 41 B3 35 38 AF |.x..+.A.47.A.58.|
00001050: 49 4E 50 24 B2 22 48 45 58 22 A7 8D 35 32 38 30 |INP$."HEX"..5280|
00001060: 30 3A 8F 20 2D 20 43 4F 4D 50 49 4C 45 20 48 45 |0:. - COMPILE HE|
00001070: 58 20 4E 55 4D 42 45 52 00 B3 18 AC 2B 8B 28 41 |X NUMBER....+.(A|
00001080: B1 34 37 AF 41 B3 35 38 B0 41 B2 33 32 29 AF 49 |.47.A.58.A.32).I|
00001090: 4E 50 24 B2 22 44 45 43 22 A7 8D 35 33 34 30 30 |NP$."DEC"..53400|
000010A0: 3A 8F 2D 20 44 45 43 49 4D 41 4C 20 43 4F 4D 50 |:.- DECIMAL COMP|
000010B0: 49 4C 45 00 DE 18 B6 2B 8B 49 4E 50 24 B2 22 41 |ILE....+.INP$."A|
000010C0: 53 43 22 A7 8D 35 33 36 30 30 3A 8F 2D 20 41 53 |SC"..53600:.- AS|
000010D0: 43 49 49 20 43 4F 4E 56 45 52 54 49 4F 4E 00 F6 |CII CONVERTION..|
000010E0: 18 08 2C 8B 46 31 B2 31 A7 8D 35 32 39 30 30 3A |..,.F1.1..52900:|
000010F0: 8D 35 32 35 30 30 00 0A 19 0B 2C 8B 41 24 B2 C7 |.52500....,.A$..|
00001100: 28 31 33 29 89 35 32 35 34 30 00 16 19 10 2C 89 |(13).52540....,.|
00001110: 20 31 31 30 31 30 00 1C 19 1A 2C 3A 00 22 19 E2 | 11010....,:."..|
00001120: 2C 3A 00 28 19 E3 2C 3A 00 2E 19 E4 2C 3A 00 4A |,:.(..,:....,:.J|
00001130: 19 E7 2C 8F 2D 20 57 52 49 54 45 20 53 45 43 54 |..,.- WRITE SECT|
00001140: 4F 52 20 54 4F 20 44 49 53 4B 00 50 19 E8 2C 3A |OR TO DISK.P..,:|
00001150: 00 5B 19 EC 2C 8D 31 31 39 30 30 00 68 19 F1 2C |.[..,.11900.h..,|
00001160: 9F 31 35 2C 38 2C 31 35 00 77 19 F6 2C 9F 35 2C |.15,8,15.w..,.5,|
00001170: 38 2C 35 2C 22 23 22 00 7D 19 00 2D 3A 00 99 19 |8,5,"#".}..-:...|
00001180: 0A 2D 8F 2D 20 53 45 4E 44 20 53 45 43 54 4F 52 |.-.- SEND SECTOR|
00001190: 20 54 4F 20 44 52 49 56 45 00 CA 19 1E 2D 81 58 | TO DRIVE....-.X|
000011A0: B2 31 A4 32 3A 98 31 35 2C 22 42 2D 50 22 3B 35 |.1.2:.15,"B-P";5|
000011B0: 3B 30 3A 9E 38 34 38 3A 98 31 35 2C 22 55 32 22 |;0:.848:.15,"U2"|
000011C0: 3B 35 3B 30 3B 54 4E 3B 53 4E 00 D1 19 23 2D 82 |;5;0;TN;SN...#-.|
000011D0: 58 00 E0 19 28 2D 84 31 35 2C 45 52 2C 45 52 24 |X...(-.15,ER,ER$|
000011E0: 00 EB 19 29 2D A0 35 3A A0 31 35 00 1A 1A 2A 2D |...)-.5:.15...*-|
000011F0: 8B 45 52 24 B3 B1 22 4F 4B 22 A7 8D 35 33 31 30 |.ER$.."OK"..5310|
00001200: 30 3A 89 31 31 35 36 35 3A 8F 2D 20 54 52 41 50 |0:.11565:.- TRAP|
00001210: 20 54 48 45 20 45 52 52 4F 52 00 23 1A 2B 2D 46 | THE ERROR.#.+-F|
00001220: 31 B2 30 00 39 1A 2D 2D 8B 46 31 B2 31 B0 46 31 |1.0.9.--.F1.1.F1|
00001230: B2 32 A7 89 31 31 35 30 35 00 3F 1A 41 2D 8E 00 |.2..11505.?.A-..|
00001240: 45 1A 46 2D 3A 00 62 1A 4B 2D 8F 20 2D 20 53 45 |E.F-:.b.K-. - SE|
00001250: 54 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 |T TRACK AND SECT|
00001260: 4F 52 00 74 1A 50 2D 99 22 93 22 3B 3A 8F 2D 20 |OR.t.P-.".";:.- |
00001270: 54 45 58 54 00 7C 1A 55 2D 99 3A 99 00 95 1A 5A |TEXT.|.U-.:....Z|
00001280: 2D 85 20 22 44 45 53 49 52 45 44 20 54 52 41 43 |-. "DESIRED TRAC|
00001290: 4B 22 3B 54 24 00 B0 1A 64 2D 85 20 22 44 45 53 |K";T$...d-. "DES|
000012A0: 49 52 45 44 20 53 45 43 54 4F 52 22 3B 54 31 24 |IRED SECTOR";T1$|
000012B0: 00 D6 1A 6E 2D 56 B2 C5 28 54 24 29 3A 8B C8 28 |...n-V..(T$):..(|
000012C0: 54 24 2C 31 29 B2 22 24 22 A7 41 24 B2 54 24 3A |T$,1)."$".A$.T$:|
000012D0: 8D 35 33 37 30 30 00 DF 1A 73 2D 54 4E B2 56 00 |.53700...s-TN.V.|
000012E0: 08 1B 78 2D 56 B2 C5 28 54 31 24 29 3A 8B C8 28 |..x-V..(T1$):..(|
000012F0: 54 31 24 2C 31 29 B2 22 24 22 A7 41 24 B2 54 31 |T1$,1)."$".A$.T1|
00001300: 24 3A 8D 35 33 37 30 30 00 11 1B 7D 2D 53 4E B2 |$:.53700...}-SN.|
00001310: 56 00 17 1B A0 2D 8E 00 44 1B 7C 2E 85 20 22 93 |V....-..D.|.. ".|
00001320: 57 52 49 54 45 20 54 4F 20 53 41 4D 45 20 54 52 |WRITE TO SAME TR|
00001330: 41 43 4B 2F 53 45 43 54 4F 52 20 28 59 2F 4E 29 |ACK/SECTOR (Y/N)|
00001340: 22 3B 41 24 00 52 1B 86 2E 8B 41 24 B2 22 59 22 |";A$.R....A$."Y"|
00001350: A7 8E 00 65 1B 8B 2E 8B 41 24 B3 B1 22 4E 22 A7 |...e....A$.."N".|
00001360: 31 31 39 30 30 00 71 1B 90 2E 8D 20 31 31 36 30 |11900.q.... 1160|
00001370: 30 00 77 1B 9A 2E 8E 00 7D 1B 16 4E 3A 00 83 1B |0.w.....}..N:...|
00001380: 17 4E 3A 00 89 1B 18 4E 3A 00 8F 1B 19 4E 3A 00 |.N:....N:....N:.|
00001390: 95 1B 1A 4E 3A 00 B6 1B 1B 4E 8F 20 54 52 41 4E |...N:....N. TRAN|
000013A0: 53 46 45 52 20 54 4F 20 42 41 43 4B 55 50 20 52 |SFER TO BACKUP R|
000013B0: 4F 55 54 49 4E 45 00 C0 1B 20 4E 99 22 93 22 3B |OUTINE... N.".";|
000013C0: 00 F2 1B 22 4E 99 22 93 11 11 11 1D 1D 1D 49 4E |..."N.".......IN|
000013D0: 53 45 52 54 20 44 49 2D 53 45 43 54 4F 52 20 44 |SERT DI-SECTOR D|
000013E0: 49 53 4B 2C 20 50 52 45 53 53 20 52 45 54 55 52 |ISK, PRESS RETUR|
000013F0: 4E 22 00 0B 1C 23 4E A1 41 24 3A 8B 41 24 B3 B1 |N"...#N.A$:.A$..|
00001400: C7 28 31 33 29 A7 32 30 30 30 33 00 3C 1C 2A 4E |.(13).20003.<.*N|
00001410: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 |."..............|
00001420: 11 11 11 11 11 11 4E 4F 57 20 4C 4F 41 44 49 4E |......NOW LOADIN|
00001430: 47 20 44 49 2D 42 41 43 4B 55 50 22 00 6E 1C 34 |G DI-BACKUP".n.4|
00001440: 4E 97 20 36 34 36 2C C2 28 35 33 32 38 31 29 3A |N. 646,.(53281):|
00001450: 8F 2D 20 4D 41 4B 45 20 41 4C 4C 20 54 45 58 54 |.- MAKE ALL TEXT|
00001460: 20 49 4E 56 49 53 49 42 4C 45 20 4E 4F 57 00 7A | INVISIBLE NOW.z|
00001470: 1C 3E 4E 99 3A 99 22 13 22 3B 00 95 1C 48 4E 97 |.>N.:.".";...HN.|
00001480: 31 39 38 2C 32 3A 97 36 33 31 2C 31 33 3A 97 36 |198,2:.631,13:.6|
00001490: 33 32 2C 31 33 00 BD 1C 52 4E 99 22 11 11 4C 4F |32,13...RN."..LO|
000014A0: 41 44 22 C7 28 33 34 29 22 44 49 2D 42 41 43 4B |AD".(34)"DI-BACK|
000014B0: 55 50 22 3B C7 28 33 34 29 22 2C 38 22 00 CE 1C |UP";.(34)",8"...|
000014C0: 5C 4E 99 22 11 11 11 11 52 55 4E 13 22 3B 00 D4 |\N."....RUN.";..|
000014D0: 1C 7A 4E 80 00 DA 1C 36 9C 3A 00 E0 1C 37 9C 3A |.zN....6.:...7.:|
000014E0: 00 E6 1C 38 9C 3A 00 EC 1C 39 9C 3A 00 0C 1D 3B |...8.:...9.:...;|
000014F0: 9C 8F 20 2A 2A 20 44 49 53 4B 20 46 52 45 45 20 |.. ** DISK FREE |
00001500: 53 50 41 43 45 20 4D 41 50 20 2A 2A 00 12 1D 3C |SPACE MAP **...<|
00001510: 9C 3A 00 38 1D 40 9C 54 4E B2 31 38 3A 53 4E B2 |.:.8.@.TN.18:SN.|
00001520: 30 3A 8F 2D 20 54 52 41 43 4B 2F 53 45 43 54 4F |0:.- TRACK/SECTO|
00001530: 52 20 4F 46 20 42 41 4D 00 58 1D 4A 9C 42 4C B2 |R OF BAM.X.J.BL.|
00001540: 34 39 31 35 32 3A 3A 8F 20 2D 20 53 45 43 54 4F |49152::. - SECTO|
00001550: 52 20 42 55 46 46 52 2E 00 71 1D 54 9C 48 42 B2 |R BUFFR..q.T.HB.|
00001560: 42 4C AD 32 35 36 3A 8F 20 2D 20 48 49 42 59 54 |BL.256:. - HIBYT|
00001570: 45 00 8D 1D 5E 9C 4C 42 B2 42 4C AB 28 48 42 AC |E...^.LB.BL.(HB.|
00001580: 32 35 36 29 3A 8F 20 4C 4F 42 59 54 45 00 98 1D |256):. LOBYTE...|
00001590: 68 9C 81 58 B2 31 A4 35 00 B2 1D 72 9C 97 42 50 |h..X.1.5...r..BP|
000015A0: 28 58 29 2C 4C 42 3A 97 42 50 28 58 29 AA 31 2C |(X),LB:.BP(X).1,|
000015B0: 48 42 00 B9 1D 7C 9C 82 58 00 BF 1D 86 9C 3A 00 |HB...|..X.....:.|
000015C0: DC 1D 90 9C 8F 2D 20 47 4F 20 47 45 54 20 54 48 |.....- GO GET TH|
000015D0: 45 20 42 41 4D 20 54 48 49 4E 47 2E 00 E2 1D 9A |E BAM THING.....|
000015E0: 9C 3A 00 00 1E A4 9C 99 44 24 28 32 29 3B 3A 8F |.:......D$(2);:.|
000015F0: 2D 20 53 45 54 20 54 45 58 54 20 43 4F 4C 4F 52 |- SET TEXT COLOR|
00001600: 00 19 1E AE 9C 99 22 93 22 3B 3A 8F 20 43 4C 45 |......".";:. CLE|
00001610: 41 52 20 53 43 52 45 45 4E 00 42 1E B8 9C 8D 20 |AR SCREEN.B.... |
00001620: 35 31 30 30 30 3A 8F 20 2D 20 52 45 54 52 49 56 |51000:. - RETRIV|
00001630: 45 20 53 45 43 54 4F 52 20 46 52 4F 4D 20 44 49 |E SECTOR FROM DI|
00001640: 53 4B 00 73 1E C2 9C 8B 45 52 24 B3 B1 22 4F 4B |SK.s....ER$.."OK|
00001650: 22 A7 8D 20 35 33 31 30 30 3A 99 22 13 22 3B 3A |".. 53100:.".";:|
00001660: 8F 2D 20 4F 48 20 4E 4F 21 21 20 41 4E 20 45 52 |.- OH NO!! AN ER|
00001670: 52 4F 52 00 81 1E CC 9C 8B 46 31 A7 34 30 31 32 |ROR......F1.4012|
00001680: 30 00 97 1E D6 9C 8B 45 52 24 B2 22 45 52 52 22 |0......ER$."ERR"|
00001690: AF 46 31 B2 30 A7 8E 00 A0 1E E0 9C 46 31 B2 30 |.F1.0.......F1.0|
000016A0: 00 B7 1E EA 9C 8F 2D 20 44 49 53 50 4C 41 59 20 |......- DISPLAY |
000016B0: 54 48 45 20 4D 41 50 00 BD 1E F4 9C 3A 00 C7 1E |THE MAP.....:...|
000016C0: FE 9C 99 22 93 22 3B 00 09 1F 08 9D 99 22 20 31 |...".";......" 1|
000016D0: 32 33 34 35 36 37 38 39 12 30 31 32 33 34 35 36 |23456789.0123456|
000016E0: 37 38 39 92 30 31 32 33 34 35 36 37 38 39 12 30 |789.0123456789.0|
000016F0: 31 32 33 34 35 22 3A 8F 2D 20 54 52 41 43 4B 20 |12345":.- TRACK |
00001700: 49 4E 44 45 58 20 52 4F 57 00 0F 1F 12 9D 99 00 |INDEX ROW.......|
00001710: 1C 1F 1C 9D 81 58 B2 30 A4 39 20 3A 00 2B 1F 26 |.....X.0.9 :.+.&|
00001720: 9D 99 C9 28 C4 28 58 29 2C 31 29 00 32 1F 3A 9D |...(.(X),1).2.:.|
00001730: 82 58 00 50 1F 44 9D 8F 2D 20 4D 41 4B 45 20 53 |.X.P.D..- MAKE S|
00001740: 45 43 54 4F 52 20 49 4E 44 45 58 20 43 4F 4C 2E |ECTOR INDEX COL.|
00001750: 00 5B 1F 4E 9D 81 58 B2 30 A4 39 00 6E 1F 58 9D |.[.N..X.0.9.n.X.|
00001760: 99 22 12 22 3B C9 28 C4 28 58 29 2C 31 29 00 75 |.".";.(.(X),1).u|
00001770: 1F 6C 9D 82 58 00 7F 1F 80 9D 99 22 30 22 3B 00 |.l..X......"0";.|
00001780: 85 1F 8A 9D 3A 00 9B 1F 8F 9D 8F 2D 20 4D 41 4B |....:......- MAK|
00001790: 45 20 42 49 54 20 54 41 42 4C 45 00 A1 1F 90 9D |E BIT TABLE.....|
000017A0: 3A 00 B7 1F 94 9D 58 B2 34 39 31 35 33 3A 54 4E |:.....X.49153:TN|
000017B0: B2 31 3A 53 4E B2 30 00 D2 1F 9E 9D 81 54 4E B2 |.1:SN.0......TN.|
000017C0: 31 A4 33 35 3A 8F 2D 20 54 52 41 43 4B 20 4C 4F |1.35:.- TRACK LO|
000017D0: 4F 50 00 FE 1F A8 9D 52 42 B2 54 4E AC 34 AA 58 |OP.....RB.TN.4.X|
000017E0: 3A 8F 2D 20 4C 4F 43 41 54 49 4F 4E 20 4F 46 20 |:.- LOCATION OF |
000017F0: 42 59 54 45 20 49 4E 20 42 55 46 46 45 52 00 41 |BYTE IN BUFFER.A|
00001800: 20 B2 9D 53 4E B2 AB 31 3A 8D 35 32 36 31 35 3A | ..SN..1:.52615:|
00001810: 8F 2D 20 52 45 54 55 52 4E 53 20 4E 55 4D 42 45 |.- RETURNS NUMBE|
00001820: 52 20 4F 46 20 53 45 43 54 4F 52 53 20 49 4E 20 |R OF SECTORS IN |
00001830: 54 48 49 53 20 54 52 41 43 4B 20 49 4E 20 53 4E |THIS TRACK IN SN|
00001840: 2E 00 85 20 B7 9D 4D 53 B2 53 4E 3A 53 4E B2 30 |... ..MS.SN:SN.0|
00001850: 3A 8F 2D 20 53 45 54 20 4D 41 58 20 23 20 53 45 |:.- SET MAX # SE|
00001860: 43 54 4F 52 53 2C 20 54 48 45 4E 20 5A 45 52 4F |CTORS, THEN ZERO|
00001870: 20 43 55 52 52 45 4E 54 20 53 45 43 54 4F 52 20 | CURRENT SECTOR |
00001880: 43 4F 55 4E 54 00 B5 20 BC 9D 81 52 42 B2 52 42 |COUNT.. ...RB.RB|
00001890: A4 52 42 AA 32 3A 8F 2D 20 53 45 4C 45 43 54 20 |.RB.2:.- SELECT |
000018A0: 52 45 4C 49 54 49 56 45 20 42 59 54 45 20 54 4F |RELITIVE BYTE TO|
000018B0: 20 52 45 41 44 00 ED 20 C6 9D 41 B2 C2 28 52 42 | READ.. ..A..(RB|
000018C0: 29 3A 8F 2D 20 52 45 41 44 20 52 45 4C 49 54 49 |):.- READ RELITI|
000018D0: 56 45 20 42 59 54 45 20 46 4F 52 20 54 48 45 20 |VE BYTE FOR THE |
000018E0: 43 55 52 52 45 4E 54 20 54 52 41 43 4B 00 FA 20 |CURRENT TRACK.. |
000018F0: D0 9D 81 42 49 54 B2 30 A4 37 00 2E 21 E4 9D 8B |...BIT.0.7..!...|
00001900: 41 AF 32 AE 42 49 54 A7 54 24 B2 22 2D 22 3A 89 |A.2.BIT.T$."-":.|
00001910: 34 30 34 34 30 3A 8F 2D 20 53 45 54 20 53 45 43 |40440:.- SET SEC|
00001920: 54 4F 52 20 54 4F 20 55 4E 55 53 45 44 2E 00 50 |TOR TO UNUSED..P|
00001930: 21 EE 9D 54 24 B2 22 58 22 3A 8F 2D 20 53 45 54 |!..T$."X":.- SET|
00001940: 20 53 45 43 54 4F 52 20 54 4F 20 55 53 45 44 2E | SECTOR TO USED.|
00001950: 00 6C 21 F8 9D 53 4E B2 53 4E AA 31 3A 54 4B 24 |.l!..SN.SN.1:TK$|
00001960: B2 54 4B 24 AA 54 24 AA 22 11 9D 22 00 AA 21 02 |.TK$.T$.".."..!.|
00001970: 9E 8B 53 4E B1 4D 53 A7 42 49 54 B2 38 3A 82 42 |..SN.MS.BIT.8:.B|
00001980: 49 54 3A 52 42 B2 52 42 AA 31 3A 82 52 42 3A 89 |IT:RB.RB.1:.RB:.|
00001990: 34 30 34 37 30 3A 8F 2D 20 49 4E 4E 45 52 20 4C |40470:.- INNER L|
000019A0: 4F 4F 50 53 20 44 4F 4E 45 2E 00 B8 21 0C 9E 82 |OOPS DONE...!...|
000019B0: 20 42 49 54 3A 82 52 42 00 EB 21 16 9E 99 22 13 | BIT:.RB..!...".|
000019C0: 11 11 22 3B A3 54 4E 29 3B 54 4B 24 3A 54 4B 24 |..";.TN);TK$:TK$|
000019D0: B2 22 22 3A 82 20 54 4E 20 3A 8F 20 50 52 49 4E |."":. TN :. PRIN|
000019E0: 54 20 54 48 45 20 54 52 41 43 4B 00 F1 21 18 9E |T THE TRACK..!..|
000019F0: 3A 00 36 22 1B 9E 99 22 13 11 11 11 11 11 11 11 |:.6"..."........|
00001A00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001A10: 11 20 20 20 20 48 3D 48 41 52 44 43 4F 50 59 2C |. H=HARDCOPY,|
00001A20: 20 4E 3D 4E 45 57 20 44 49 53 4B 2C 20 58 3D 41 | N=NEW DISK, X=A|
00001A30: 42 4F 52 54 22 3B 00 41 22 1C 9E 8D 35 32 34 30 |BORT";.A"...5240|
00001A40: 30 00 4F 22 20 9E 8B 41 24 B2 22 58 22 A7 8E 00 |0.O" ..A$."X"...|
00001A50: 62 22 22 9E 8B 41 24 B2 22 48 22 A7 8D 35 31 36 |b""..A$."H"..516|
00001A60: 30 30 00 75 22 24 9E 8B 41 24 B2 22 4E 22 A7 89 |00.u"$..A$."N"..|
00001A70: 34 30 30 30 30 00 80 22 26 9E 89 34 30 34 37 36 |40000.."&..40476|
00001A80: 00 86 22 2A 9E 3A 00 8C 22 2B 9E 3A 00 92 22 2C |.."*.:.."+.:..",|
00001A90: 9E 3A 00 B3 22 2F 9E 3A 20 8F 2D 20 4C 4F 41 44 |.:.."/.: .- LOAD|
00001AA0: 20 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 46 | CONFIGURATION F|
00001AB0: 49 4C 45 00 C9 22 34 9E 9F 32 2C 38 2C 32 2C 22 |ILE.."4..2,8,2,"|
00001AC0: 44 49 2D 35 2C 53 2C 52 22 00 D4 22 3E 9E 81 58 |DI-5,S,R"..">..X|
00001AD0: B2 31 A4 33 00 E1 22 48 9E 84 32 2C 44 24 28 58 |.1.3.."H..2,D$(X|
00001AE0: 29 00 E8 22 52 9E 82 58 00 04 23 5C 9E 84 32 2C |).."R..X..#\..2,|
00001AF0: 43 42 3A 84 32 2C 43 54 3A 84 32 2C 43 31 3A 84 |CB:.2,CT:.2,C1:.|
00001B00: 32 2C 43 32 00 0F 23 66 9E A0 32 2C 38 2C 32 00 |2,C2..#f..2,8,2.|
00001B10: 15 23 70 9E 8E 00 1B 23 2E C7 3A 00 21 23 32 C7 |.#p....#..:.!#2.|
00001B20: 3A 00 45 23 33 C7 8F 20 2A 2A 20 50 55 54 20 53 |:.E#3.. ** PUT S|
00001B30: 45 43 20 49 4E 54 4F 20 44 52 49 56 45 20 42 55 |EC INTO DRIVE BU|
00001B40: 46 46 20 2A 2A 00 4B 23 34 C7 3A 00 64 23 36 C7 |FF **.K#4.:.d#6.|
00001B50: 8F 20 20 20 20 2A 20 46 4F 52 20 4F 50 45 4E 45 |. * FOR OPENE|
00001B60: 52 53 20 2A 00 6A 23 37 C7 3A 00 77 23 38 C7 9F |RS *.j#7.:.w#8..|
00001B70: 31 35 2C 38 2C 31 35 00 86 23 42 C7 9F 35 2C 38 |15,8,15..#B..5,8|
00001B80: 2C 35 2C 22 23 22 00 8C 23 44 C7 3A 00 A7 23 47 |,5,"#"..#D.:..#G|
00001B90: C7 8F 20 20 20 20 20 3A 3A 20 52 45 41 44 20 49 |.. :: READ I|
00001BA0: 54 20 49 4E 20 3A 3A 00 BE 23 4C C7 98 31 35 2C |T IN ::..#L..15,|
00001BB0: 22 55 31 22 3B 35 3B 30 3B 54 4E 3B 53 4E 00 CD |"U1";5;0;TN;SN..|
00001BC0: 23 4E C7 84 31 35 2C 45 52 2C 45 52 24 00 D3 23 |#N..15,ER,ER$..#|
00001BD0: 50 C7 3A 00 F6 23 51 C7 8F 20 2A 2A 20 4C 4F 41 |P.:..#Q.. ** LOA|
00001BE0: 44 20 53 45 43 20 49 4E 54 4F 20 4D 45 4D 20 42 |D SEC INTO MEM B|
00001BF0: 55 46 46 20 2A 2A 00 FC 23 52 00 3A 00 06 24 56 |UFF **..#R.:..$V|
00001C00: C7 9E 20 38 32 38 00 0C 24 60 C7 3A 00 2B 24 65 |.. 828..$`.:.+$e|
00001C10: C7 8F 20 2A 2A 20 52 45 41 44 20 53 45 43 54 4F |.. ** READ SECTO|
00001C20: 52 20 52 45 54 55 52 4E 20 2A 2A 00 38 24 6A C7 |R RETURN **.8$j.|
00001C30: A0 35 3A A0 31 35 3A 8E 00 3E 24 22 C9 3A 00 44 |.5:.15:..>$".:.D|
00001C40: 24 24 C9 3A 00 66 24 27 C9 8F 20 2A 2A 2A 20 50 |$$.:.f$'.. *** P|
00001C50: 52 49 4E 54 20 42 55 46 46 20 49 4E 20 41 53 43 |RINT BUFF IN ASC|
00001C60: 49 49 20 2A 2A 2A 00 6C 24 28 C9 3A 00 87 24 2C |II ***.l$(.:..$,|
00001C70: C9 99 22 93 22 44 24 28 31 29 3B 3A 81 58 B2 31 |.."."D$(1);:.X.1|
00001C80: A4 32 35 36 A9 33 32 00 96 24 36 C9 97 20 31 30 |.256.32..$6.. 10|
00001C90: 31 38 2C 58 AB 31 00 A4 24 40 C9 9E 20 34 39 34 |18,X.1..$@.. 494|
00001CA0: 30 38 3A 99 00 AD 24 4A C9 82 58 3A 8E 00 B3 24 |08:...$J..X:...$|
00001CB0: 86 C9 3A 00 B9 24 87 C9 3A 00 BF 24 88 C9 3A 00 |..:..$..:..$..:.|
00001CC0: C5 24 89 C9 3A 00 DD 24 8B C9 8F 2D 20 48 41 52 |.$..:..$...- HAR|
00001CD0: 44 20 43 4F 50 59 20 4F 46 20 42 41 4D 00 EB 24 |D COPY OF BAM..$|
00001CE0: 90 C9 9F 34 2C 34 3A 58 33 B2 30 00 24 25 95 C9 |...4,4:X3.0.$%..|
00001CF0: 98 34 2C C7 28 31 33 29 3B A3 35 29 3B 22 44 49 |.4,.(13);.5);"DI|
00001D00: 53 4B 20 4E 41 4D 45 20 2D 2D 3E 20 22 3B 3A 81 |SK NAME --> ";:.|
00001D10: 58 B2 34 39 32 39 36 A4 34 39 33 31 31 3A 41 B2 |X.49296.49311:A.|
00001D20: C2 28 58 29 00 3A 25 97 C9 8B 41 B3 31 36 30 A7 |.(X).:%...A.160.|
00001D30: 98 34 2C C7 28 41 29 3B 3A 82 00 48 25 98 C9 98 |.4,.(A);:..H%...|
00001D40: 34 2C C7 28 31 33 29 3B 00 85 25 9A C9 98 34 2C |4,.(13);..%...4,|
00001D50: C7 28 31 33 29 3B 22 20 20 20 20 31 20 20 20 33 |.(13);" 1 3|
00001D60: 20 20 20 35 20 20 20 37 20 20 20 39 20 20 20 31 | 5 7 9 1|
00001D70: 31 20 20 31 33 20 20 31 35 20 20 31 37 20 20 31 |1 13 15 17 1|
00001D80: 39 20 20 22 3B 00 AD 25 9F C9 98 34 2C 22 32 31 |9 ";..%...4,"21|
00001D90: 20 20 32 33 20 20 32 35 20 20 32 37 20 20 32 39 | 23 25 27 29|
00001DA0: 20 20 33 31 20 20 33 33 20 20 33 35 22 00 E2 25 | 31 33 35"..%|
00001DB0: A4 C9 98 34 2C 22 20 20 20 20 20 20 32 20 20 20 |...4," 2 |
00001DC0: 34 20 20 20 36 20 20 20 38 20 20 20 31 30 20 20 |4 6 8 10 |
00001DD0: 31 32 20 20 31 34 20 20 31 36 20 20 31 38 20 20 |12 14 16 18 |
00001DE0: 22 3B 00 0A 26 A9 C9 98 34 2C 22 32 30 20 20 32 |";..&...4,"20 2|
00001DF0: 32 20 20 32 34 20 20 32 36 20 20 32 38 20 20 33 |2 24 26 28 3|
00001E00: 30 20 20 33 32 20 20 33 34 22 00 1E 26 AE C9 81 |0 32 34"..&...|
00001E10: 58 B2 31 31 30 34 A4 31 39 34 34 A9 34 30 00 46 |X.1104.1944.40.F|
00001E20: 26 B3 C9 98 34 2C C7 28 31 33 29 3B 3A 8B 58 33 |&...4,.(13);:.X3|
00001E30: B3 32 31 A7 98 34 2C 58 33 3B A6 31 AB B6 28 58 |.21..4,X3;.1..(X|
00001E40: 33 B1 39 29 29 3B 00 52 26 B5 C9 58 33 B2 58 33 |3.9));.R&..X3.X3|
00001E50: AA 31 00 63 26 B8 C9 81 58 32 B2 58 AA 31 A4 58 |.1.c&...X2.X.1.X|
00001E60: AA 33 38 00 6F 26 C2 C9 41 B2 C2 28 58 32 29 00 |.38.o&..A..(X2).|
00001E70: 7E 26 CC C9 8B 41 B2 32 34 A7 41 B2 38 38 00 8F |~&...A.24.A.88..|
00001E80: 26 D6 C9 98 34 2C C7 28 41 29 3B 22 20 22 3B 00 |&...4,.(A);" ";.|
00001E90: 9C 26 E0 C9 82 58 32 2C 58 3A A0 34 00 A2 26 EA |.&...X2,X:.4..&.|
00001EA0: C9 8E 00 A8 26 16 CB 3A 00 AE 26 18 CB 3A 00 B4 |....&..:..&..:..|
00001EB0: 26 1A CB 3A 00 D4 26 1B CB 8F 20 2A 2A 2A 20 50 |&..:..&... *** P|
00001EC0: 52 49 4E 54 20 42 55 46 46 20 49 4E 20 48 45 58 |RINT BUFF IN HEX|
00001ED0: 20 2A 2A 2A 00 DA 26 1C CB 3A 00 F2 26 20 CB 99 | ***..&..:..& ..|
00001EE0: 44 24 28 32 29 3B 3A 81 58 B2 31 A4 32 35 36 A9 |D$(2);:.X.1.256.|
00001EF0: 31 36 00 00 27 2A CB 97 31 30 31 38 2C 58 AB 31 |16..'*..1018,X.1|
00001F00: 00 0A 27 34 CB 9E 20 39 35 34 00 13 27 3E CB 99 |..'4.. 954..'>..|
00001F10: 3A 82 58 00 19 27 48 CB 8E 00 1F 27 5C CB 3A 00 |:.X..'H....'\.:.|
00001F20: 25 27 7A CB 3A 00 2B 27 7B CB 3A 00 4F 27 7F CB |%'z.:.+'{.:.O'..|
00001F30: 8F 20 20 2A 2A 2A 20 53 45 43 54 4F 52 20 4D 41 |. *** SECTOR MA|
00001F40: 4E 49 50 2E 20 50 41 52 53 4F 52 20 2A 2A 2A 00 |NIP. PARSOR ***.|
00001F50: 55 27 80 CB 3A 00 5D 27 84 CB 4D B2 30 00 7A 27 |U'..:.]'..M.0.z'|
00001F60: 87 CB 8D 20 35 32 37 30 30 3A 8F 20 2D 20 44 49 |... 52700:. - DI|
00001F70: 53 50 4C 41 59 20 49 4E 46 4F 00 98 27 89 CB 8D |SPLAY INFO..'...|
00001F80: 20 35 32 34 30 30 3A 8F 20 2D 20 57 41 49 54 20 | 52400:. - WAIT |
00001F90: 4B 45 59 50 52 45 53 53 00 C3 27 8E CB 8B 41 24 |KEYPRESS..'...A$|
00001FA0: B2 22 4D 22 A7 8D 31 31 30 30 30 3A 8F 2D 20 47 |."M"..11000:.- G|
00001FB0: 4F 20 49 4E 54 4F 20 4D 4F 44 49 46 59 20 4D 4F |O INTO MODIFY MO|
00001FC0: 44 45 2E 00 F0 27 98 CB 8B 41 24 B2 22 57 22 A7 |DE...'...A$."W".|
00001FD0: 8D 31 31 35 30 30 3A 8E 3A 8F 2D 20 57 52 49 54 |.11500:.:.- WRIT|
00001FE0: 45 20 53 45 43 54 4F 52 20 54 4F 20 44 49 53 4B |E SECTOR TO DISK|
00001FF0: 00 1C 28 A2 CB 8B 41 24 B2 22 41 22 A7 49 4E 50 |..(...A$."A".INP|
00002000: 24 B2 22 41 53 43 22 3A 8F 2D 20 53 45 54 20 54 |$."ASC":.- SET T|
00002010: 4F 20 41 53 43 49 49 20 4D 4F 44 45 00 4A 28 AC |O ASCII MODE.J(.|
00002020: CB 8B 41 24 B2 22 44 22 A7 49 4E 50 24 B2 22 44 |..A$."D".INP$."D|
00002030: 45 43 22 3A 8F 2D 20 53 45 54 20 54 4F 20 44 45 |EC":.- SET TO DE|
00002040: 43 49 4D 41 4C 20 4D 4F 44 45 00 7C 28 C0 CB 8B |CIMAL MODE.|(...|
00002050: 41 24 B2 22 48 22 A7 49 4E 50 24 B2 22 48 45 58 |A$."H".INP$."HEX|
00002060: 22 3A 8F 2D 20 53 45 54 20 54 4F 20 48 45 58 41 |":.- SET TO HEXA|
00002070: 44 45 43 49 4D 41 4C 20 4D 4F 44 45 00 A7 28 CA |DECIMAL MODE..(.|
00002080: CB 8B 41 24 B2 22 43 22 A7 20 8E 3A 8F 2D 20 43 |..A$."C". .:.- C|
00002090: 41 4E 43 45 4C 20 41 4C 4C 20 4D 4F 44 49 46 49 |ANCEL ALL MODIFI|
000020A0: 43 41 54 49 4F 4E 53 00 D9 28 D4 CB 8B 41 24 B2 |CATIONS..(...A$.|
000020B0: 22 4C 22 A7 20 8D 31 31 36 30 30 3A 8E 3A 8F 45 |"L". .11600:.:.E|
000020C0: 2D 20 50 52 4F 4D 50 54 20 46 4F 52 20 4E 45 57 |- PROMPT FOR NEW|
000020D0: 20 4C 4F 43 41 54 49 4F 4E 00 FB 28 DE CB 8B 41 | LOCATION..(...A|
000020E0: 24 B2 22 53 22 A7 8D 35 34 33 30 30 3A 8F 2D 20 |$."S"..54300:.- |
000020F0: 53 43 52 45 45 4E 20 44 55 4D 50 00 24 29 E8 CB |SCREEN DUMP.$)..|
00002100: 8B 41 24 B2 22 58 22 A7 20 46 31 B2 31 3A 8E 3A |.A$."X". F1.1:.:|
00002110: 8F 2D 20 45 58 49 54 20 54 4F 20 4D 41 49 4E 20 |.- EXIT TO MAIN |
00002120: 4D 45 4E 55 00 43 29 F2 CB 8B 41 24 B2 22 1D 22 |MENU.C)...A$."."|
00002130: A7 53 4E B2 53 4E AA 31 3A 8E 3A 8F 2D 20 52 49 |.SN.SN.1:.:.- RI|
00002140: 47 48 54 00 61 29 FC CB 8B 41 24 B2 22 9D 22 A7 |GHT.a)...A$.".".|
00002150: 53 4E B2 53 4E AB 31 3A 8E 3A 8F 2D 20 4C 45 46 |SN.SN.1:.:.- LEF|
00002160: 54 00 7E 29 06 CC 8B 41 24 B2 22 11 22 A7 54 4E |T.~)...A$.".".TN|
00002170: B2 54 4E AA 31 3A 8E 3A 8F 2D 44 4F 57 4E 00 9A |.TN.1:.:.-DOWN..|
00002180: 29 10 CC 8B 41 24 B2 22 91 22 A7 54 4E B2 54 4E |)...A$.".".TN.TN|
00002190: AB 31 3A 8E 3A 8F 2D 20 55 50 00 CA 29 1A CC 8B |.1:.:.- UP..)...|
000021A0: 41 24 B2 22 4E 22 A7 8D 35 33 38 30 30 3A 8E 3A |A$."N"..53800:.:|
000021B0: 8F 2D 20 47 45 54 20 4E 45 58 54 20 53 45 43 54 |.- GET NEXT SECT|
000021C0: 4F 52 20 4F 46 20 46 49 4C 45 00 FF 29 24 CC 8B |OR OF FILE..)$..|
000021D0: 41 24 B2 22 3F 22 B0 41 24 B2 22 2F 22 A7 8D 35 |A$."?".A$."/"..5|
000021E0: 34 30 30 30 3A 8F 2D 20 48 45 4C 50 20 55 53 45 |4000:.- HELP USE|
000021F0: 52 20 57 49 54 48 20 43 4F 4D 4D 41 4E 44 53 00 |R WITH COMMANDS.|
00002200: 0A 2A 41 CC 89 35 32 31 30 33 00 10 2A 42 CC 3A |.*A..52103..*B.:|
00002210: 00 33 2A 47 CC 8F 20 2D 2D 20 43 41 4C 43 2E 20 |.3*G.. -- CALC. |
00002220: 48 45 58 2F 41 53 43 49 49 20 43 55 52 2E 20 4C |HEX/ASCII CUR. L|
00002230: 4F 43 2E 00 49 2A 4C CC 4C 31 B2 B5 28 4D AD 33 |OC..I*L.L1..(M.3|
00002240: 32 29 AC 38 AA 4D AA 41 50 00 61 2A 56 CC 4C 32 |2).8.M.AP.a*V.L2|
00002250: B2 B5 28 4D AD 31 36 29 AC 38 AA 4D AC 32 AA 48 |..(M.16).8.M.2.H|
00002260: 50 00 67 2A 60 CC 8E 00 6D 2A A6 CC 3A 00 73 2A |P.g*`...m*..:.s*|
00002270: A7 CC 3A 00 91 2A AB CC 8F 20 2D 20 52 45 54 55 |..:..*... - RETU|
00002280: 52 4E 20 4B 45 59 53 54 4F 4B 45 20 49 4E 20 41 |RN KEYSTOKE IN A|
00002290: 24 00 9A 2A B0 CC A1 20 41 24 00 AB 2A BA CC 8B |$..*... A$..*...|
000022A0: 41 24 B2 22 22 A7 35 32 34 30 30 00 B1 2A C4 CC |A$."".52400..*..|
000022B0: 8E 00 B7 2A 0A CD 3A 00 BD 2A 0B CD 3A 00 E1 2A |...*..:..*..:..*|
000022C0: 0F CD 8F 20 2D 20 43 55 52 53 4F 52 20 4D 4F 56 |... - CURSOR MOV|
000022D0: 45 53 20 46 4F 52 20 42 55 46 46 2E 20 45 44 49 |ES FOR BUFF. EDI|
000022E0: 54 00 F8 2A 14 CD 4D B2 4D AB 28 4D B3 32 35 35 |T..*..M.M.(M.255|
000022F0: 29 3A 89 35 32 35 34 30 00 19 2B 1E CD 4D B2 4D |):.52540..+..M.M|
00002300: AA 28 4D B1 30 29 3A 89 35 32 35 34 30 3A 8F 2D |.(M.0):.52540:.-|
00002310: 46 55 4E 20 4C 4F 47 49 43 00 32 2B 28 CD 4D B2 |FUN LOGIC.2+(.M.|
00002320: 4D AA 28 4D B1 31 35 29 AC 31 36 3A 89 35 32 35 |M.(M.15).16:.525|
00002330: 34 30 00 4C 2B 32 CD 4D B2 4D AB 28 4D B3 32 34 |40.L+2.M.M.(M.24|
00002340: 30 29 AC 31 36 3A 89 35 32 35 34 30 00 67 2B 3C |0).16:.52540.g+<|
00002350: CD 97 4C 31 2C 43 31 3A 97 4C 32 2C 43 32 3A 97 |..L1,C1:.L2,C2:.|
00002360: 4C 32 AA 31 2C 43 32 00 6D 2B 41 CD 8E 00 73 2B |L2.1,C2.m+A...s+|
00002370: 43 CD 8E 00 79 2B 6E CD 3A 00 7F 2B 6F CD 3A 00 |C...y+n.:..+o.:.|
00002380: 96 2B 73 CD 8F 20 2D 20 56 41 4C 49 44 41 54 45 |.+s.. - VALIDATE|
00002390: 20 54 4E 2C 53 4E 00 B4 2B 78 CD 8B 53 4E B1 AB | TN,SN..+x..SN..|
000023A0: 31 A7 89 35 32 36 32 30 3A 8F 20 2D 20 53 4B 49 |1..52620:. - SKI|
000023B0: 50 20 49 54 00 D6 2B 82 CD 54 4E B2 54 4E AB 31 |P IT..+..TN.TN.1|
000023C0: 3A 8F 20 2D 20 44 45 43 2E 20 54 52 41 43 4B 20 |:. - DEC. TRACK |
000023D0: 4E 55 4D 42 45 52 00 F8 2B 84 CD 8F 20 2D 20 43 |NUMBER..+... - C|
000023E0: 41 4C 55 4C 41 54 45 20 43 55 52 52 45 4E 54 20 |ALULATE CURRENT |
000023F0: 53 45 43 54 4F 52 20 23 00 1E 2C 87 CD 53 4E B2 |SECTOR #..,..SN.|
00002400: 32 30 AA 28 28 54 4E B1 31 37 29 AC 32 29 AA 28 |20.((TN.17).2).(|
00002410: 54 4E B1 32 34 29 AA 28 54 4E B1 33 30 29 00 36 |TN.24).(TN.30).6|
00002420: 2C 8C CD 8B 54 4E B3 31 38 AF 53 4E B1 32 30 A7 |,...TN.18.SN.20.|
00002430: 8D 35 32 36 36 30 00 61 2C 96 CD 8B 54 4E B1 31 |.52660.a,...TN.1|
00002440: 37 AF 54 4E B3 32 35 AF 53 4E B1 31 38 A7 20 20 |7.TN.25.SN.18. |
00002450: 20 20 20 20 20 20 20 20 20 20 20 8D 35 32 36 36 | .5266|
00002460: 30 00 8C 2C A0 CD 8B 54 4E B1 32 34 AF 54 4E B3 |0..,...TN.24.TN.|
00002470: 33 31 AF 53 4E B1 31 37 A7 20 20 20 20 20 20 20 |31.SN.17. |
00002480: 20 20 20 20 20 20 8D 35 32 36 36 30 00 A4 2C A5 | .52660..,.|
00002490: CD 8B 54 4E B1 33 30 AF 53 4E B1 31 36 A7 8D 35 |..TN.30.SN.16..5|
000024A0: 32 36 36 30 00 BE 2C A8 CD 8B 54 4E B1 33 35 B0 |2660..,...TN.35.|
000024B0: 54 4E B3 31 A7 54 4E B2 31 3A 53 4E B2 30 00 C4 |TN.1.TN.1:SN.0..|
000024C0: 2C AA CD 8E 00 D7 2C B4 CD 54 4E B2 54 4E AA 31 |,.....,..TN.TN.1|
000024D0: 3A 53 4E B2 30 3A 8E 00 DD 2C D2 CD 3A 00 E3 2C |:SN.0:...,..:..,|
000024E0: D3 CD 3A 00 E9 2C D4 CD 3A 00 06 2D D7 CD 8F 20 |..:..,..:..-... |
000024F0: 2D 20 44 49 53 50 4C 41 59 20 42 55 46 46 45 52 |- DISPLAY BUFFER|
00002500: 20 49 4E 46 4F 2E 00 19 2D DC CD 97 20 32 31 34 | INFO...-... 214|
00002510: 2C 30 3A 99 44 24 28 33 29 00 2C 2D E1 CD 99 A3 |,0:.D$(3).,-....|
00002520: 33 33 29 3B 22 54 52 4B 22 3B 54 4E 00 3F 2D E6 |33);"TRK";TN.?-.|
00002530: CD 99 A3 33 33 29 3B 22 53 45 43 22 3B 53 4E 00 |...33);"SEC";SN.|
00002540: 45 2D F0 CD 99 00 56 2D FA CD 99 A3 33 33 29 3B |E-....V-....33);|
00002550: 45 52 24 3B 45 52 00 5C 2D 04 CE 99 00 6F 2D 0E |ER$;ER.\-....o-.|
00002560: CE 99 A3 33 33 29 3B 22 42 55 46 46 45 52 22 00 |...33);"BUFFER".|
00002570: 7C 2D 18 CE 99 A3 33 32 29 3B 42 4C 00 8B 2D 1D ||-....32);BL..-.|
00002580: CE 97 20 32 31 34 2C 31 32 3A 99 00 9B 2D 22 CE |.. 214,12:...-".|
00002590: 99 A3 33 33 29 3B 22 52 42 22 3B 00 AF 2D 27 CE |..33);"RB";..-'.|
000025A0: 99 C8 28 C4 28 4D 29 2C 32 29 3B 22 20 20 22 00 |..(.(M),2);" ".|
000025B0: B8 2D 29 CE 41 B2 32 30 00 E1 2D 2C CE 97 32 31 |.-).A.20..-,..21|
000025C0: 34 2C 41 3A 99 3A 99 A3 33 33 29 3B 49 4E 50 24 |4,A:.:..33);INP$|
000025D0: 3A 99 3A 99 A3 33 33 29 3B 22 43 4D 44 3F 20 20 |:.:..33);"CMD? |
000025E0: 22 00 E7 2D 31 CE 8E 00 ED 2D 36 CE 3A 00 F3 2D |"..-1....-6.:..-|
000025F0: 37 CE 3A 00 F9 2D 38 CE 3A 00 1C 2E 3A CE 8F 20 |7.:..-8.:...:.. |
00002600: 2D 20 48 45 58 20 54 4F 20 44 45 43 20 28 54 57 |- HEX TO DEC (TW|
00002610: 4F 20 44 49 47 2E 20 4F 4E 4C 59 29 00 3A 2E 3B |O DIG. ONLY).:.;|
00002620: CE 8F 20 2D 20 53 4F 4D 45 20 53 4C 4F 50 50 59 |.. - SOME SLOPPY|
00002630: 20 42 55 54 20 51 55 49 43 4B 00 5E 2E 3C CE 8F | BUT QUICK.^.<..|
00002640: 20 2D 20 53 54 52 41 49 47 48 54 20 4C 49 4E 45 | - STRAIGHT LINE|
00002650: 20 43 4F 44 45 2E 2E 4F 48 20 57 45 4C 4C 00 7F | CODE..OH WELL..|
00002660: 2E 3D CE 8F 20 2D 20 45 56 45 4E 20 46 41 53 54 |.=.. - EVEN FAST|
00002670: 45 52 20 57 49 54 48 20 4F 55 54 20 41 4C 4C 00 |ER WITH OUT ALL.|
00002680: 9C 2E 3E CE 8F 20 2D 20 54 48 45 53 45 20 44 55 |..>.. - THESE DU|
00002690: 4D 42 20 52 45 4D 41 52 4B 53 21 21 00 A2 2E 3F |MB REMARKS!!...?|
000026A0: CE 3A 00 C0 2E 40 CE 41 31 24 B2 41 31 24 AA 41 |.:...@.A1$.A1$.A|
000026B0: 24 3A 8F 20 2D 20 4B 45 59 53 54 52 4F 4B 45 53 |$:. - KEYSTROKES|
000026C0: 00 D8 2E 42 CE 97 32 31 34 2C 31 38 3A 99 3A 99 |...B..214,18:.:.|
000026D0: A3 33 33 29 3B 41 31 24 00 10 2F 45 CE 8B 41 31 |.33);A1$../E..A1|
000026E0: 24 B2 41 24 A7 8E 3A 8F 20 2D 20 53 45 45 20 49 |$.A$..:. - SEE I|
000026F0: 46 20 57 45 48 41 56 45 20 54 57 4F 20 44 49 47 |F WEHAVE TWO DIG|
00002700: 49 54 53 2C 20 45 4C 53 45 20 52 45 54 55 52 4E |ITS, ELSE RETURN|
00002710: 00 4F 2F 4A CE 8B 41 31 24 B3 22 3A 22 A7 56 B2 |.O/J..A1$.":".V.|
00002720: C5 28 C8 28 41 31 24 2C 31 29 29 AC 31 36 3A 8F |.(.(A1$,1)).16:.|
00002730: 2D 20 53 54 55 50 49 44 20 54 52 49 43 4B 20 54 |- STUPID TRICK T|
00002740: 4F 20 46 49 4E 44 20 44 49 47 49 54 20 23 31 00 |O FIND DIGIT #1.|
00002750: 90 2F 54 CE 8B 41 31 24 B1 22 3A 22 A7 56 B2 28 |./T..A1$.":".V.(|
00002760: C6 28 C8 28 41 31 24 2C 31 29 29 AB 35 35 29 AC |.(.(A1$,1)).55).|
00002770: 31 36 3A 8F 20 2D 20 48 4F 52 52 49 44 20 54 45 |16:. - HORRID TE|
00002780: 43 48 2E 20 42 55 54 20 49 54 20 57 4F 52 4B 53 |CH. BUT IT WORKS|
00002790: 00 CC 2F 5E CE 8B C9 28 41 31 24 2C 31 29 B3 22 |../^...(A1$,1)."|
000027A0: 3A 22 A7 56 B2 56 AA C5 28 C9 28 41 31 24 2C 31 |:".V.V..(.(A1$,1|
000027B0: 29 29 3A 8F 2D 53 41 4D 45 20 44 55 4D 42 20 4D |)):.-SAME DUMB M|
000027C0: 45 54 48 4F 44 20 46 4F 52 20 23 32 00 F1 2F 68 |ETHOD FOR #2../h|
000027D0: CE 8B C9 28 41 31 24 2C 31 29 B1 22 3A 22 A7 56 |...(A1$,1).":".V|
000027E0: B2 56 AA C6 28 C9 28 41 31 24 2C 31 29 29 AB 35 |.V..(.(A1$,1)).5|
000027F0: 35 00 FA 2F 90 CE 46 31 B2 31 00 0C 30 95 CE 8E |5../..F1.1..0...|
00002800: 3A 8F 20 2D 20 47 4F 20 42 41 43 4B 00 12 30 9A |:. - GO BACK..0.|
00002810: CE 3A 00 18 30 9B CE 3A 00 1E 30 9C CE 3A 00 3F |.:..0..:..0..:.?|
00002820: 30 9F CE 8F 20 2D 20 43 48 41 4E 47 45 20 53 43 |0... - CHANGE SC|
00002830: 52 45 45 4E 20 41 4E 44 20 42 55 46 46 45 52 00 |REEN AND BUFFER.|
00002840: 63 30 A0 CE 8F 20 2D 20 55 53 45 44 20 42 59 20 |c0... - USED BY |
00002850: 45 44 49 54 20 42 55 46 46 45 52 20 52 4F 55 54 |EDIT BUFFER ROUT|
00002860: 49 4E 45 00 69 30 A1 CE 3A 00 83 30 A4 CE 8B 41 |INE.i0..:..0...A|
00002870: 31 24 B2 22 22 A7 8D 35 32 33 30 30 3A 89 35 32 |1$.""..52300:.52|
00002880: 39 38 35 00 97 30 A9 CE 41 50 B2 31 30 32 34 3A |985..0..AP.1024:|
00002890: 48 50 B2 31 33 34 34 00 A2 30 AE CE 8D 35 32 33 |HP.1344..0...523|
000028A0: 30 30 00 C4 30 B3 CE 8B 49 4E 50 24 B2 22 44 45 |00..0...INP$."DE|
000028B0: 43 22 B0 49 4E 50 24 B2 22 41 53 43 22 A7 8D 35 |C".INP$."ASC"..5|
000028C0: 33 35 30 30 00 E2 30 B8 CE 8B 56 B3 33 33 B0 56 |3500..0...V.33.V|
000028D0: B1 39 30 A7 97 4C 31 2C 31 32 31 3A 89 35 32 39 |.90..L1,121:.529|
000028E0: 34 30 00 F2 30 BD CE 8B 56 B3 36 34 A7 97 4C 31 |40..0...V.64..L1|
000028F0: 2C 56 00 05 31 C2 CE 8B 56 B1 36 33 A7 97 4C 31 |,V..1...V.63..L1|
00002900: 2C 56 AB 36 34 00 17 31 CC CE 41 B2 C6 28 C8 28 |,V.64..1..A..(.(|
00002910: 41 31 24 2C 31 29 29 00 27 31 D1 CE 8B 41 B3 35 |A1$,1)).'1...A.5|
00002920: 38 A7 97 4C 32 2C 41 00 3A 31 D6 CE 8B 41 B1 36 |8..L2,A.:1...A.6|
00002930: 34 A7 97 4C 32 2C 41 AB 36 34 00 4C 31 E0 CE 41 |4..L2,A.64.L1..A|
00002940: B2 C6 28 C9 28 41 31 24 2C 31 29 29 00 5E 31 E5 |..(.(A1$,1)).^1.|
00002950: CE 8B 41 B3 35 38 A7 97 4C 32 AA 31 2C 41 00 73 |..A.58..L2.1,A.s|
00002960: 31 EA CE 8B 41 B1 36 34 A7 97 4C 32 AA 31 2C 41 |1...A.64..L2.1,A|
00002970: AB 36 34 00 7F 31 F4 CE 97 42 4C AA 4D 2C 56 00 |.64..1...BL.M,V.|
00002980: 93 31 F9 CE 41 31 24 B2 22 22 3A 41 24 B2 22 20 |.1..A1$."":A$." |
00002990: 20 20 22 00 AA 31 FB CE 97 32 31 34 2C 31 38 3A | "..1...214,18:|
000029A0: 99 3A 99 A3 33 33 29 3B 41 24 00 C7 31 FD CE 41 |.:..33);A$..1..A|
000029B0: 50 B2 35 35 32 39 36 3A 48 50 B2 35 35 36 31 36 |P.55296:HP.55616|
000029C0: 3A 8D 35 32 33 30 30 00 D2 31 FE CE 46 31 B2 30 |:.52300..1..F1.0|
000029D0: 3A 8E 00 D8 31 FF CE 3A 00 DE 31 01 CF 3A 00 F6 |:...1..:..1..:..|
000029E0: 31 03 CF 8F 20 2D 20 44 49 53 4B 20 45 52 52 4F |1... - DISK ERRO|
000029F0: 52 20 54 52 41 50 00 FC 31 04 CF 3A 00 07 32 6C |R TRAP..1..:..2l|
00002A00: CF 99 22 93 97 22 3B 00 2B 32 76 CF 99 22 20 21 |.."..";.+2v.." !|
00002A10: 21 21 20 45 52 52 4F 52 20 4E 55 4D 42 45 52 20 |!! ERROR NUMBER |
00002A20: 22 3B 45 52 3B 22 20 21 21 21 22 00 43 32 80 CF |";ER;" !!!".C2..|
00002A30: 99 45 52 24 3B 22 20 48 41 53 20 4F 43 43 55 52 |.ER$;" HAS OCCUR|
00002A40: 45 44 22 00 67 32 8A CF 99 3A 99 22 41 4C 4C 20 |ED".g2...:."ALL |
00002A50: 4F 52 20 50 41 52 54 20 4F 46 20 44 49 53 4B 20 |OR PART OF DISK |
00002A60: 53 45 43 54 4F 52 22 00 84 32 94 CF 99 22 4D 41 |SECTOR"..2..."MA|
00002A70: 59 20 42 45 20 49 4E 20 42 55 46 46 45 52 20 41 |Y BE IN BUFFER A|
00002A80: 52 45 41 22 00 8A 32 9E CF 99 00 AE 32 A8 CF 99 |REA"..2.....2...|
00002A90: 22 4E 3E 4F 4E 2D 53 54 4F 50 2C 20 52 3E 45 54 |"N>ON-STOP, R>ET|
00002AA0: 52 59 2C 20 44 3E 49 53 50 4C 41 59 2C 22 00 C4 |RY, D>ISPLAY,"..|
00002AB0: 32 AD CF A1 20 41 24 3A 8B 41 24 B2 22 58 22 A7 |2... A$:.A$."X".|
00002AC0: 46 31 B2 30 00 D0 32 AF CF 8B 46 31 B2 31 A7 8E |F1.0..2...F1.1..|
00002AD0: 00 DE 32 B2 CF 45 52 24 B2 22 45 52 52 22 00 EA |..2..ER$."ERR"..|
00002AE0: 32 2A D0 8D 20 35 32 34 30 30 00 FD 32 34 D0 8B |2*.. 52400..24..|
00002AF0: 41 24 B2 22 4E 22 A7 46 31 B2 31 3A 8E 00 10 33 |A$."N".F1.1:...3|
00002B00: 3E D0 8B 41 24 B2 22 52 22 A7 46 31 B2 32 3A 8E |>..A$."R".F1.2:.|
00002B10: 00 23 33 48 D0 8B 41 24 B2 22 44 22 A7 46 31 B2 |.#3H..A$."D".F1.|
00002B20: 30 3A 8E 00 3E 33 52 D0 8B 41 24 B2 22 53 22 A7 |0:..>3R..A$."S".|
00002B30: 53 4E B2 53 4E AA 31 3A 46 31 B2 32 3A 8E 00 44 |SN.SN.1:F1.2:..D|
00002B40: 33 8E D0 3A 00 5B 33 93 D0 8F 2D 20 44 45 43 49 |3..:.[3...- DECI|
00002B50: 4D 41 4C 20 43 4F 4D 50 49 4C 45 00 9A 33 98 D0 |MAL COMPILE..3..|
00002B60: 8B 41 B3 B1 33 32 A7 41 31 24 B2 41 31 24 AA 41 |.A..32.A1$.A1$.A|
00002B70: 24 3A 8F 2D 20 42 55 49 4C 44 20 4E 55 4D 42 45 |$:.- BUILD NUMBE|
00002B80: 52 2E 20 28 53 50 41 43 45 20 49 53 20 41 20 54 |R. (SPACE IS A T|
00002B90: 45 52 4D 49 4E 41 54 4F 52 29 00 B2 33 9D D0 97 |ERMINATOR)..3...|
00002BA0: 32 31 34 2C 31 38 3A 99 3A 99 A3 33 33 29 3B 41 |214,18:.:..33);A|
00002BB0: 31 24 00 F4 33 A2 D0 8B C3 28 41 31 24 29 B2 33 |1$..3....(A1$).3|
00002BC0: B0 41 B2 33 32 A7 89 35 33 34 33 30 3A 8F 2D 20 |.A.32..53430:.- |
00002BD0: 4E 55 4D 42 45 52 20 49 53 20 43 4F 4D 50 4C 45 |NUMBER IS COMPLE|
00002BE0: 54 45 3F 3F 20 49 46 20 53 4F 2C 20 47 45 54 20 |TE?? IF SO, GET |
00002BF0: 53 45 54 2E 00 08 34 AC D0 8E 3A 8F 2D 20 42 41 |SET...4...:.- BA|
00002C00: 43 4B 20 41 47 41 49 4E 00 22 34 B6 D0 8B C5 28 |CK AGAIN."4....(|
00002C10: 41 31 24 29 B1 32 35 35 A7 41 31 24 B2 22 32 35 |A1$).255.A1$."25|
00002C20: 35 22 00 4F 34 BB D0 46 31 B2 31 3A 56 B2 C5 28 |5".O4..F1.1:V..(|
00002C30: 41 31 24 29 3A 8E 3A 8F 2D 20 53 45 54 20 4D 4F |A1$):.:.- SET MO|
00002C40: 44 2E 20 46 4C 41 47 2C 20 52 45 54 55 52 4E 00 |D. FLAG, RETURN.|
00002C50: 55 34 F2 D0 3A 00 5B 34 F3 D0 3A 00 92 34 F7 D0 |U4..:.[4..:..4..|
00002C60: 8F 2D 20 43 4F 4E 56 45 52 54 20 56 20 54 4F 20 |.- CONVERT V TO |
00002C70: 48 45 58 20 22 41 31 24 22 20 28 54 57 4F 20 44 |HEX "A1$" (TWO D|
00002C80: 49 47 49 54 2C 20 30 30 2D 46 46 2C 20 4F 4E 4C |IGIT, 00-FF, ONL|
00002C90: 59 29 00 A0 34 FC D0 41 B2 B5 28 56 AD 31 36 29 |Y)..4..A..(V.16)|
00002CA0: 00 D7 34 06 D1 41 31 24 B2 CA 28 48 58 24 2C 41 |..4..A1$..(HX$,A|
00002CB0: AA 31 2C 31 29 3A 8F 2D 20 47 45 54 20 46 49 52 |.1,1):.- GET FIR|
00002CC0: 53 54 20 44 49 47 49 54 20 4F 46 20 48 45 58 20 |ST DIGIT OF HEX |
00002CD0: 53 54 52 49 4E 47 2E 00 E4 34 10 D1 41 B2 56 AB |STRING...4..A.V.|
00002CE0: 31 36 AC 41 00 1E 35 1A D1 41 31 24 B2 41 31 24 |16.A..5..A1$.A1$|
00002CF0: AA CA 28 48 58 24 2C 41 AA 31 2C 31 29 3A 8E 3A |..(HX$,A.1,1):.:|
00002D00: 8F 2D 20 47 45 54 20 53 45 43 4F 4E 44 20 44 49 |.- GET SECOND DI|
00002D10: 47 49 54 20 41 4E 44 20 52 45 54 55 52 4E 00 24 |GIT AND RETURN.$|
00002D20: 35 56 D1 3A 00 2A 35 57 D1 3A 00 53 35 5B D1 8F |5V.:.*5W.:.S5[..|
00002D30: 2D 20 41 53 43 49 49 20 43 4F 4E 56 45 52 54 49 |- ASCII CONVERTI|
00002D40: 4F 4E 20 54 4F 20 44 45 43 49 4D 41 4C 20 56 41 |ON TO DECIMAL VA|
00002D50: 4C 55 45 00 5F 35 60 D1 56 B2 C6 28 41 24 29 00 |LUE._5`.V..(A$).|
00002D60: 75 35 6A D1 8B 56 B1 31 32 38 B0 56 B3 33 32 A7 |u5j..V.128.V.32.|
00002D70: 56 B2 30 3A 8E 00 87 35 74 D1 46 31 B2 31 3A 41 |V.0:...5t.F1.1:A|
00002D80: 31 24 B2 41 24 3A 8E 00 8D 35 BA D1 3A 00 93 35 |1$.A$:...5..:..5|
00002D90: BB D1 3A 00 DB 35 BF D1 8F 2D 20 47 45 4E 45 52 |..:..5...- GENER|
00002DA0: 41 4C 20 48 45 58 2E 20 54 4F 20 44 45 43 2E 20 |AL HEX. TO DEC. |
00002DB0: 43 4F 4E 56 45 52 54 49 4F 4E 2E 2E 20 53 45 4E |CONVERTION.. SEN|
00002DC0: 44 20 24 44 44 44 44 20 49 4E 20 41 24 2E 20 28 |D $DDDD IN A$. (|
00002DD0: 41 4E 59 20 4C 45 4E 47 54 48 29 00 07 36 C1 D1 |ANY LENGTH)..6..|
00002DE0: 8F 2D 20 57 49 4C 4C 20 52 45 54 55 52 4E 20 44 |.- WILL RETURN D|
00002DF0: 45 43 49 4D 41 4C 20 4E 55 4D 42 45 52 20 49 4E |ECIMAL NUMBER IN|
00002E00: 20 56 41 52 2E 20 56 00 2D 36 C4 D1 56 B2 30 3A | VAR. V.-6..V.0:|
00002E10: 8B C8 28 41 24 2C 31 29 B2 22 24 22 A7 41 24 B2 |..(A$,1)."$".A$.|
00002E20: C9 28 41 24 2C C3 28 41 24 29 AB 31 29 00 42 36 |.(A$,.(A$).1).B6|
00002E30: C7 D1 81 20 58 B2 C3 28 41 24 29 AB 31 A4 30 A9 |... X..(A$).1.0.|
00002E40: AB 31 00 56 36 C9 D1 81 58 B2 C3 28 41 24 29 AB |.1.V6...X..(A$).|
00002E50: 31 A4 30 A9 AB 31 00 6A 36 CE D1 41 31 B2 B6 28 |1.0..1.j6..A1..(|
00002E60: 58 AB C3 28 41 24 29 29 AB 31 00 7E 36 D8 D1 41 |X..(A$)).1.~6..A|
00002E70: 31 24 B2 CA 28 41 24 2C 58 AA 31 2C 31 29 00 8B |1$..(A$,X.1,1)..|
00002E80: 36 E2 D1 81 58 32 B2 30 A4 31 35 00 AF 36 F6 D1 |6...X2.0.15..6..|
00002E90: 8B 41 31 24 B2 CA 28 48 58 24 2C 58 32 AA 31 2C |.A1$..(HX$,X2.1,|
00002EA0: 31 29 A7 41 B2 31 36 AE 28 41 31 29 AC 58 32 00 |1).A.16.(A1).X2.|
00002EB0: B8 36 00 D2 82 20 58 32 00 C2 36 0A D2 56 B2 56 |.6... X2..6..V.V|
00002EC0: AA 41 00 C9 36 14 D2 82 58 00 CF 36 1E D2 8E 00 |.A..6...X..6....|
00002ED0: E9 36 28 D2 54 4E B2 C2 28 42 4C 29 3A 53 4E B2 |.6(.TN..(BL):SN.|
00002EE0: C2 28 42 4C AA 31 29 3A 8E 00 EF 36 E6 D2 3A 00 |.(BL.1):...6..:.|
00002EF0: F5 36 E7 D2 3A 00 FB 36 E8 D2 3A 00 01 37 E9 D2 |.6..:..6..:..7..|
00002F00: 3A 00 14 37 EB D2 8F 2D 20 4F 4E 4C 49 4E 45 20 |:..7...- ONLINE |
00002F10: 48 45 4C 50 00 1A 37 EC D2 3A 00 24 37 F0 D2 99 |HELP..7..:.$7...|
00002F20: 22 93 22 3B 00 48 37 FA D2 99 22 11 22 3B A3 39 |".";.H7...".";.9|
00002F30: 29 22 44 49 2D 53 45 43 54 4F 52 20 4F 4E 4C 49 |)"DI-SECTOR ONLI|
00002F40: 4E 45 20 48 45 4C 50 22 00 62 37 04 D3 99 22 11 |NE HELP".b7...".|
00002F50: 11 20 20 20 20 20 41 3E 53 43 49 49 20 4D 4F 44 |. A>SCII MOD|
00002F60: 45 22 00 84 37 09 D3 99 22 20 20 20 20 20 43 3E |E"..7..." C>|
00002F70: 41 4E 43 45 4C 20 4D 4F 44 49 46 49 43 41 54 49 |ANCEL MODIFICATI|
00002F80: 4F 4E 53 22 00 9E 37 0E D3 99 22 20 20 20 20 20 |ONS"..7..." |
00002F90: 44 3E 45 43 49 4D 41 4C 20 4D 4F 44 45 22 00 C5 |D>ECIMAL MODE"..|
00002FA0: 37 18 D3 99 22 20 20 20 20 20 48 3E 45 58 41 44 |7..." H>EXAD|
00002FB0: 45 43 49 4D 41 4C 20 4D 4F 44 45 20 53 45 4C 45 |ECIMAL MODE SELE|
00002FC0: 43 54 49 4F 4E 00 E2 37 22 D3 99 22 20 20 20 20 |CTION..7".." |
00002FD0: 20 4C 3E 4F 43 41 54 49 4F 4E 20 43 48 41 4E 47 | L>OCATION CHANG|
00002FE0: 45 22 00 FD 37 2C D3 99 22 20 20 20 20 20 4D 3E |E"..7,.." M>|
00002FF0: 4F 44 49 46 59 20 53 45 43 54 4F 52 22 00 1E 38 |ODIFY SECTOR"..8|
00003000: 36 D3 99 22 20 20 20 20 20 4E 3E 45 58 54 20 53 |6.." N>EXT S|
00003010: 45 43 54 4F 52 20 4F 46 20 46 49 4C 45 22 00 42 |ECTOR OF FILE".B|
00003020: 38 3B D3 99 22 20 20 20 20 20 53 3E 43 52 45 45 |8;.." S>CREE|
00003030: 4E 20 44 55 4D 50 20 54 4F 20 50 52 49 4E 54 45 |N DUMP TO PRINTE|
00003040: 52 22 00 64 38 40 D3 99 22 20 20 20 20 20 57 3E |R".d8@.." W>|
00003050: 52 49 54 45 20 53 45 43 54 4F 52 20 54 4F 20 44 |RITE SECTOR TO D|
00003060: 49 53 4B 22 00 6C 38 4A D3 99 3A 99 00 97 38 54 |ISK".l8J..:...8T|
00003070: D3 99 22 20 20 20 20 20 43 55 52 53 4F 52 20 4C |.." CURSOR L|
00003080: 45 46 54 3A 20 20 20 50 52 45 56 49 4F 55 53 20 |EFT: PREVIOUS |
00003090: 53 45 43 54 4F 52 22 00 BE 38 68 D3 99 22 20 20 |SECTOR"..8h.." |
000030A0: 20 20 20 43 55 52 53 4F 52 20 52 49 47 48 54 3A | CURSOR RIGHT:|
000030B0: 20 20 4E 45 58 54 20 53 45 43 54 4F 52 22 00 E8 | NEXT SECTOR"..|
000030C0: 38 72 D3 99 22 20 20 20 20 20 43 55 52 53 4F 52 |8r.." CURSOR|
000030D0: 20 55 50 3A 20 20 20 20 20 50 52 45 56 49 4F 55 | UP: PREVIOU|
000030E0: 53 20 54 52 41 43 4B 22 00 0E 39 7C D3 99 22 20 |S TRACK"..9|.." |
000030F0: 20 20 20 20 43 55 52 53 4F 52 20 44 4F 57 4E 3A | CURSOR DOWN:|
00003100: 20 20 20 4E 45 58 54 20 54 52 41 43 4B 22 00 3B | NEXT TRACK".;|
00003110: 39 86 D3 99 22 20 20 20 20 20 58 3A 20 20 20 20 |9..." X: |
00003120: 20 20 20 20 20 20 20 20 20 45 58 49 54 20 54 4F | EXIT TO|
00003130: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 69 39 90 D3 | MAIN MENU".i9..|
00003140: 99 22 20 20 20 20 20 3F 3A 20 20 20 20 20 20 20 |." ?: |
00003150: 20 20 20 20 20 20 4F 4E 4C 49 4E 45 20 48 45 4C | ONLINE HEL|
00003160: 50 20 28 54 48 49 53 29 22 00 9D 39 B8 D3 99 3A |P (THIS)"..9...:|
00003170: 99 3A 99 22 3C 3C 3C 3C 3C 3C 20 50 52 45 53 53 |.:."<<<<<< PRESS|
00003180: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00003190: 49 4E 55 45 20 3E 3E 3E 3E 3E 3E 22 3B 00 A9 39 |INUE >>>>>>";..9|
000031A0: C2 D3 8D 20 35 32 34 30 30 00 CF 39 CC D3 8D 35 |... 52400..9...5|
000031B0: 31 35 30 30 3A 8F 2D 20 52 45 50 52 49 4E 54 20 |1500:.- REPRINT |
000031C0: 53 45 43 54 4F 52 20 49 4E 20 41 53 43 49 49 00 |SECTOR IN ASCII.|
000031D0: F3 39 D6 D3 8D 35 32 30 30 30 3A 8F 2D 20 52 45 |.9...52000:.- RE|
000031E0: 50 52 49 4E 54 20 53 45 43 54 4F 52 20 49 4E 20 |PRINT SECTOR IN |
000031F0: 48 45 58 00 F9 39 E0 D3 8E 00 FF 39 12 D4 3A 00 |HEX..9.....9..:.|
00003200: 05 3A 13 D4 3A 00 0B 3A 14 D4 3A 00 11 3A 15 D4 |.:..:..:..:..:..|
00003210: 3A 00 2F 3A 17 D4 8F 2D 20 53 43 52 45 45 4E 20 |:./:...- SCREEN |
00003220: 44 55 4D 50 20 54 4F 20 50 52 49 4E 54 45 52 00 |DUMP TO PRINTER.|
00003230: 54 3A 1C D4 9F 34 2C 34 3A 52 42 B2 30 3A 97 32 |T:...4,4:RB.0:.2|
00003240: 31 34 2C 32 32 3A 99 3A 99 A3 33 33 29 22 50 52 |14,22:.:..33)"PR|
00003250: 49 4E 54 22 00 99 3A 1E D4 98 34 2C 22 20 20 20 |INT"..:...4," |
00003260: 20 20 20 20 20 20 20 20 20 20 20 44 49 2D 53 45 | DI-SE|
00003270: 43 54 4F 52 20 53 43 52 45 45 4E 20 44 55 4D 50 |CTOR SCREEN DUMP|
00003280: 20 4F 46 20 54 52 41 43 4B 22 3B 54 4E 3B 22 53 | OF TRACK";TN;"S|
00003290: 45 43 54 4F 52 22 3B 53 4E 00 A6 3A 21 D4 98 34 |ECTOR";SN..:!..4|
000032A0: 2C C7 28 31 33 29 00 BA 3A 26 D4 81 58 B2 31 30 |,.(13)..:&..X.10|
000032B0: 32 34 A4 32 30 30 30 A9 34 30 00 E2 3A 2B D4 8B |24.2000.40..:+..|
000032C0: 52 42 B3 32 35 36 A7 98 34 2C 22 52 45 4C 20 42 |RB.256..4,"REL B|
000032D0: 59 54 45 22 3B 52 42 3B 22 2D 2D 3E 22 3B A6 37 |YTE";RB;"-->";.7|
000032E0: 29 3B 00 F5 3A 2C D4 8B 52 42 B3 31 30 A7 98 34 |);..:,..RB.10..4|
000032F0: 2C 22 20 22 3B 00 09 3B 2D D4 8B 52 42 B3 31 30 |," ";..;-..RB.10|
00003300: 30 A7 98 34 2C 22 20 22 3B 00 18 3B 30 D4 81 58 |0..4," ";..;0..X|
00003310: 32 B2 58 A4 58 AA 33 32 00 2C 3B 3A D4 41 B2 C2 |2.X.X.32.,;:.A..|
00003320: 28 58 32 29 3A 41 B2 41 AF 31 32 37 00 3B 3B 3F |(X2):A.A.127.;;?|
00003330: D4 8B 41 B1 36 33 A7 41 B2 34 35 00 4C 3B 44 D4 |..A.63.A.45.L;D.|
00003340: 8B 41 B3 33 32 A7 41 B2 41 AA 36 34 00 58 3B 4E |.A.32.A.A.64.X;N|
00003350: D4 41 24 B2 C7 28 41 29 00 63 3B 58 D4 98 34 2C |.A$..(A).c;X..4,|
00003360: 41 24 3B 00 9E 3B 67 D4 8B 58 32 B1 31 33 34 34 |A$;..;g..X2.1344|
00003370: AF B5 28 58 32 AD 32 29 B3 B1 58 32 AD 32 A7 98 |..(X2.2)..X2.2..|
00003380: 34 2C 22 20 22 3B 3A 8F 2D 20 53 45 50 45 52 41 |4," ";:.- SEPERA|
00003390: 54 45 20 48 45 58 20 4E 55 4D 42 45 52 53 00 C6 |TE HEX NUMBERS..|
000033A0: 3B 69 D4 82 58 32 3A 98 34 2C C7 28 31 33 29 3B |;i..X2:.4,.(13);|
000033B0: 3A 8F 2D 20 4C 4F 4F 50 20 54 4F 20 50 52 49 4E |:.- LOOP TO PRIN|
000033C0: 54 20 4C 49 4E 45 00 CC 3B 6A D4 3A 00 E2 3B 6C |T LINE..;j.:..;l|
000033D0: D4 8B 58 32 B2 31 33 33 37 A7 98 34 2C C7 28 31 |..X2.1337..4,.(1|
000033E0: 33 29 00 F8 3B 71 D4 8B 58 32 B3 31 33 33 37 A7 |3)..;q..X2.1337.|
000033F0: 52 42 B2 52 42 AA 33 32 00 0E 3C 76 D4 8B 58 32 |RB.RB.32..<v..X2|
00003400: B1 31 33 33 37 A7 52 42 B2 52 42 AA 31 36 00 20 |.1337.RB.RB.16. |
00003410: 3C 78 D4 8B 58 32 B2 31 33 33 37 A7 52 42 B2 30 |<x..X2.1337.RB.0|
00003420: 00 26 3C 7C D4 3A 00 38 3C 80 D4 82 58 3A A0 34 |.&<|.:.8<...X:.4|
00003430: 3A 41 24 B2 22 22 3A 8E 00 3E 3C 74 D6 90 00 5E |:A$."":..><t...^|
00003440: 3C 1F DB AC AC AC AC AC 20 42 55 46 46 45 52 20 |<....... BUFFER |
00003450: 50 4F B5 45 52 20 83 20 2A 2A 2A 2A 2A 2A 00 64 |PO.ER . ******.d|
00003460: 3C 21 DB 3A 00 7C 3C 24 DB 83 20 38 33 39 2C 38 |<!.:.|<$.. 839,8|
00003470: 35 36 2C 39 36 38 2C 34 39 34 32 32 00 82 3C 56 |56,968,49422..<V|
00003480: EA 3A 00 9F 3C 03 EA 83 20 35 2C 32 38 2C 33 30 |.:..<... 5,28,30|
00003490: 2C 33 31 2C 31 32 39 2C 31 34 34 2C 31 34 39 00 |,31,129,144,149.|
000034A0: A5 3C 68 EA 3A 00 AB 3C 69 EA 3A 00 DD 3C 30 F2 |.<h.:..<i.:..<0.|
000034B0: 99 22 93 11 1D 41 52 45 20 59 4F 55 20 53 55 52 |."...ARE YOU SUR|
000034C0: 45 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 51 55 |E YOU WANT TO QU|
000034D0: 49 54 20 4E 4F 57 20 28 59 2F 4E 29 22 00 FF 3C |IT NOW (Y/N)"..<|
000034E0: 3A F2 8D 35 32 34 30 30 3A 8B 41 24 B3 B1 22 59 |:..52400:.A$.."Y|
000034F0: 22 AF 41 24 B3 B1 22 4E 22 A7 36 32 30 31 30 00 |".A$.."N".62010.|
00003500: 0D 3D 44 F2 8B 41 24 B2 22 4E 22 A7 8E 00 18 3D |.=D..A$."N"....=|
00003510: 4E F2 99 22 93 22 3A A2 00 00 00 43 FF 4A |N..".":....C.J |
..J...A.A.1:.A.1000,1045,1050,1100:. JUM
P OVER CREDITS TO THE REAL PROGRAM......
"@0:DI-SECTOR",8,1:.:.- A HANDY WAY TO
SAVE A PROGRAM, "RUN2".S....1100:.- SKI
P OVER MACHINE LANG. LOADS IF WE "RUN3"
(SAVE TIME)..... 15:.15,8,15: 15:......:
.....:DI.SEC.R."...:(DIRRECT .ERACTI. WI
TH SEC.RS).B...:WRITTEN BY BRUCE Q. HAMM
.D.]...:OF THE HAMMSTER GROUP.|. .:(C) 1
983 STARPO. SOFTWARE...#.:...(.:DEDICATE
D . S. KRUTE.....:.....:.L.... *LOAD MAC
HINE LANG. ROUTINES*.R...:.....A.A.1:. 4
0500......53281,CB:.53280,CT.)....D$(1);
".STARPOINT SOFTWARE PRESENTS...".R...."
......";.11);"DI-SECTOR VER. 1.0G"......
"..";.11);D$(2);"BY BRUCE Q. HAMMOND":.-
MY NAME UP IN LIGHTS.S.....10);"OF THE
HAMMSTER GROUP":.- SOME REALLY NEAT PEOP
LE!......A.2.."DI-2",8,1:.- LOAD THE LOW
ER MACHINE LANGUAGE PROGRAM..U....A.3.."
DI-3",8,1:.- LOAD THE UPPER MACHINE LANG
UAGE PROGRAM..[.B.:.A.D.:.G.F.:...G..
**** INITIALIZE ****...I.:...L.. * VARIA
BLES, STRINGS *...O.X.0:A$."":A1$.""
:HX$."0123456789ABCDEF":HT$."...........
...............".+.Q.A.0:A1.0:V.0:F1.0:.
- SOME OFTEN USED VARIABLES.8.R..T$(100)
.>...:.D...:.J...:.M.... ** SET UP BUFF
PNTR ARRAY **.S...:...... BP(5):.- A NIF
TY ARRAY THAT CONTAINS THEN MEMORY LOCAT
IONS (CONT.)......- OF ALL POINTERS TO T
HE CURRENT DISPLAY/WORK BUFFER. THIS BU
FFER CAN.S....- BE MOVED BY POKING ALL B
P(X) LOCATIONS WITH LOBYTE & BP(X)+1,HIB
YTE. ....- EXAMINE THE SECTOR ROUTINE AN
DMAIN MEMORY EDITOR FOR A WORKING EXAMP.
......X.1.5 :.R.D.. BP(X):.: READ BP
LOCATIONS...N..X :...X.:.....:.
....:...... ***** MISC INIT GARBAGE ***
**. ...:.C.... ** SET UP VERT TAB STRING
**.I...:.....VT$.".....................
......":.- FOR VERT TAB XX USE ?LEFT$(VT
$,XX);.....:...2.:.G.7.INP$."HEX":. - DE
FAULT EDIT MODE.M.<.:.S.F.:...F.. - MAIN
MENU...H.:...J.. - DRAW BOARDER...L.:.C
.P..".".D$(3);:.- CLEAR SCREEN AND SET T
EXT COLOR TO ORANGE.L.R..G(8);:.- DISABL
E LOWER CASE TOGGLE....U.." UCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCI"...Z..X.1.22.
....." G";.38);"H".A....X......" JCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK";...*.:.
..,.:.....:.../.. * DISPLAY TITLE *.".0
.:.A.4..D$(1);:.: TEXT COLOR.G.>.."
.............DI-SECTOR OPTIONS".O.H..:..
U.R.:.{...:...... **** DISPLAY OPTIONS *
****.....:.O...RET$.G(13):.- C/R
.....RET$.RET$."....<":.-
TAB OVER AND PRINT "<".#....D$(2);:.- S
ET THE TEXT TO GREY._....RET$;"1> SECTOR
EXAMINE/MODIFY":.- DISPLAY THE OPTIONS.
.....RET$;"2> DISK BACKUP"
:......RET$;"3> FREE SECTOR MAP"
:...E..RET$;"4> EXIT TO BASI
C" :...J.:...L.:...O..
** MENU PROMPT **...P.:.U.T..".......S
ELECTION PLEASE . .":.- ASK FOR THE SELE
CTION.[...:.A...:...... **** GET MENU I
NPUT ****.....:.L.... 52400:.- GO AND WA
IT FOR A KEY TO BE PRESSED (RETURN IT IN
A$).....: :...... *
VALIDATE OPERATOR INPUT *.....:.7.$.A.E(
A$):. CONVERT INPUT TO A NUMBER.U....A.5
.A.1.2300:.- GO BACK AND WAIT AGAIN IF N
OT 1,2,3 OR 4.{.3.:...8.. *** MENU BRAN
CH LOGIC ***...B..A.10000,20000,40000,62
000...L.F1.0:.1300:.- REDISPLAY MENU....
#:....#:....#:....#:....#:....#. **** DI
SPLAY TRACK SECTOR ****.%..#:.+..#:.A..#
. - SECTOR MODUAL.G..#:.F..'. 11600:. -
PROMPT TRK,SEC.L.)':....'. * POKE IN BUF
F PNTR VALUES *.../'BL.49152::. - SECTOR
BUFFR..H.0'HB.BL.256:. - HIBYTE...1'LB.
BL.(HB.256):. LOBYTE...3'.X.1.5...5'.BP(
X),LB:.BP(X).1,HB...7'.X...8':.:.:'.- SE
ND FOR PIZZA (OR A SECTOR).@.=':.Y.B'.".
";:. CLEAR SCREEN.X.D'. 52600:. - VALIDA
TE TN,SN...G'. 51000:. - GET IT.A.H'.ER$
.."OK".. 53100:.10058:.- OH NO!! AN ERRO
R.J.I'F1.0...J'.F1.1.F1.2.10052...L'. *
* PRNT BUFF (ASCII-HEX) **...N':.".V'. 5
1500:.-PRINT ASCII.:.`'. 52000:.-PRINT H
EX.Y.J'. 52100:.-WAIT FOR COMMAND._.O':.
Y.T'.F1.1..:. - TO M'MENU...~'.F1.2.1000
0:. - NEW SPOT...N'. 10050:. - GET ANOTH
ER SEC.....*:.C..*:....*. -- EDIT MEMORY
BUFFER....*:....*A$."":.214,22:.:..33)"
MOD ".$..+AP.55296:HP.55616:. 52300.3..
+. 214,12:..A..+..35);"";.U..+A$.D(M):.A
$;" "._..+A$."".Z..+.L1,C2:.L2,C1:.L2.1,
C1....+. 52400:. -- WAIT KEY... +.A$."."
..52500:.11010.H.%+.A$."."..52510:.11010
...*+.A$."."..52520:.11010.../+.A$."."..
52530:.11010...4+A.F(A$).@.9+.A.64.A.71.
INP$."HEX"..52800:. - COMPILE HEX NUMBER
.X..+.A.47.A.58.INP$."HEX"..52800:. - CO
MPILE HEX NUMBER....+.(A.47.A.58.A.32).I
NP$."DEC"..53400:.- DECIMAL COMPILE....+
.INP$."ASC"..53600:.- ASCII CONVERTION..
..,.F1.1..52900:.52500....,.A$.G(13).525
40....,. 11010....,:."..,:.(..,:....,:.J
..,.- WRITE SECTOR TO DISK.P..,:.[..,.11
900.H..,.15,8,15.W..,.5,8,5,"#".}..-:...
.-.- SEND SECTOR TO DRIVE.J..-.X.1.2:.15
,"B-P";5;0:.848:.15,"U2";5;0;TN;SN.Q.#-.
X...(-.15,ER,ER$...)- 5: 15...*-.ER$.."O
K"..53100:.11565:.- TRAP THE ERROR.#.+-F
1.0.9.--.F1.1.F1.2..11505.?.A-..E.F-:.B.
K-. - SET TRACK AND SECTOR.T.P-.".";:.-
TEXT.|.U-.:....Z-. "DESIRED TRACK";T$...
D-. "DESIRED SECTOR";T1$.V.N-V.E(T$):.H(
T$,1)."$".A$.T$:.53700...S-TN.V...X-V.E(
T1$):.H(T1$,1)."$".A$.T1$:.53700...}-SN.
V... -..D.|.. ".WRITE TO SAME TRACK/SECT
OR (Y/N)";A$.R....A$."Y"...E....A$.."N".
11900.Q.... 11600.W.....}..N:....N:....N
:....N:....N:....N. TRANSFER TO BACKUP R
OUTINE... N.".";..."N.".......INSERT DI-
SECTOR DISK, PRESS RETURN"...#N.A$:.A$..
G(13).20003.<.*N."....................NO
W LOADING DI-BACKUP".N.4N. 646,B(53281):
.- MAKE ALL TEXT INVISIBLE NOW.Z.>N.:.".
";...HN.198,2:.631,13:.632,13...RN."..LO
AD"G(34)"DI-BACKUP";G(34)",8".N.\N."....
RUN.";.T.ZN..Z.6.:...7.:...8.:...9.:...;
.. ** DISK FREE SPACE MAP **...<.:.8.@.T
N.18:SN.0:.- TRACK/SECTOR OF BAM.X.J.BL.
49152::. - SECTOR BUFFR..Q.T.HB.BL.256:.
- HIBYTE...^.LB.BL.(HB.256):. LOBYTE...
H..X.1.5...R..BP(X),LB:.BP(X).1,HB...|..
X.....:......- GO GET THE BAM THING.....
.:......D$(2);:.- SET TEXT COLOR......".
";:. CLEAR SCREEN.B.... 51000:. - RETRIV
E SECTOR FROM DISK.S.B..ER$.."OK".. 5310
0:.".";:.- OH NO!! AN ERROR...L..F1.4012
0...V..ER$."ERR".F1.0... ...F1.0......-
DISPLAY THE MAP.....:.G....".";......" 1
23456789.0123456789.0123456789.012345":.
- TRACK INDEX ROW............X.0.9 :.+.&
..I(D(X),1).2.:..X.P.D..- MAKE SECTOR IN
DEX COL..[.N..X.0.9.N.X..".";I(D(X),1).U
.L..X....."0";.....:......- MAKE BIT TA
BLE.....:.....X.49153:TN.1:SN.0.R....TN.
1.35:.- TRACK LOOP.....RB.TN.4.X:.- LOCA
TION OF BYTE IN BUFFER.A ..SN..1:.52615:
.- RETURNS NUMBER OF SECTORS IN THIS TRA
CK IN SN... ..MS.SN:SN.0:.- SET MAX # SE
CTORS, THEN ZERO CURRENT SECTOR COUNT..
...RB.RB.RB.2:.- SELECT RELITIVE BYTE TO
READ.. F.A.B(RB):.- READ RELITIVE BYTE
FOR THE CURRENT TRACK.. P..BIT.0.7..!...
A.2.BIT.T$."-":.40440:.- SET SECTOR TO U
NUSED..P!..T$."X":.- SET SECTOR TO USED.
.L!..SN.SN.1:TK$.TK$.T$.".."..!...SN.MS.
BIT.8:.BIT:RB.RB.1:.RB:.40470:.- INNER L
OOPS DONE...!... BIT:.RB..!..."...";.TN)
;TK$:TK$."":. TN :. PRINT THE TRACK..!..
:.6"..."......................... H=H
ARDCOPY, N=NEW DISK, X=ABORT";.A"...5240
0.O" ..A$."X"...B""..A$."H"..51600.U"$..
A$."N"..40000.."&..40476.."*.:.."+.:..",
.:.."/.: .- LOAD CONFIGURATION FILE.I"4.
.2,8,2,"DI-5,S,R".T">..X.1.3.."H..2,D$(X
).."R..X..#\..2,CB:.2,CT:.2,C1:.2,C2..#F
. 2,8,2..#P....#.G:.!#2G:.E#3G. ** PUT S
EC INTO DRIVE BUFF **.K#4G:.D#6G. * F
OR OPENERS *.J#7G:.W#8G.15,8,15..#BG.5,8
,5,"#"..#DG:..#GG. :: READ IT IN ::.
.#LG.15,"U1";5;0;TN;SN.M#NG.15,ER,ER$.S#
PG:..#QG. ** LOAD SEC INTO MEM BUFF **..
#R.:..$VG. 828..$`G:.+$EG. ** READ SECTO
R RETURN **.8$JG 5: 15:..>$"I:.D$$I:.F$'
I. *** PRINT BUFF IN ASCII ***.L$(I:..$,
I."."D$(1);:.X.1.256.32..$6I. 1018,X.1..
$@I. 49408:...$JI.X:...$.I:..$.I:..$.I:.
E$.I:..$.I.- HARD COPY OF BAM..$.I.4,4:X
3.0.$%.I.4,G(13);.5);"DISK NAME --> ";:.
X.49296.49311:A.B(X).:%.I.A.160..4,G(A);
:..H%.I.4,G(13);..%.I.4,G(13);" 1 3
5 7 9 11 13 15 17 19 ";..%
.I.4,"21 23 25 27 29 31 33 35"..%
.I.4," 2 4 6 8 10 12 14
16 18 ";..&.I.4,"20 22 24 26 28 3
0 32 34"..&.I.X.1104.1944.40.F&.I.4,G(
13);:.X3.21..4,X3;.1..(X3.9));.R&.IX3.X3
.1.C&.I.X2.X.1.X.38.O&BIA.B(X2).~&LI.A.2
4.A.88..&VI.4,G(A);" ";..&.I.X2,X: 4..&.
I...&.K:..&.K:..&.K:.T&.K. *** PRINT BUF
F IN HEX ***.Z&.K:..& K.D$(2);:.X.1.256.
16..'*K.1018,X.1..'4K. 954..'>K.:.X..'HK
...'\K:.%'ZK:.+'{K:.O'K. *** SECTOR MA
NIP. PARSOR ***.U'.K:.]'.KM.0.Z'.K. 5270
0:. - DISPLAY INFO..'.K. 52400:. - WAIT
KEYPRESS.C'.K.A$."M"..11000:.- GO INTO M
ODIFY MODE...'.K.A$."W"..11500:.:.- WRIT
E SECTOR TO DISK..(.K.A$."A".INP$."ASC":
.- SET TO ASCII MODE.J(.K.A$."D".INP$."D
EC":.- SET TO DECIMAL MODE.|(.K.A$."H".I
NP$."HEX":.- SET TO HEXADECIMAL MODE..(J
K.A$."C". .:.- CANCEL ALL MODIFICATIONS.
Y(TK.A$."L". .11600:.:.E- PROMPT FOR NEW
LOCATION..(.K.A$."S"..54300:.- SCREEN D
UMP.$).K.A$."X". F1.1:.:.- EXIT TO MAIN
MENU.C).K.A$.".".SN.SN.1:.:.- RIGHT.A).K
.A$.".".SN.SN.1:.:.- LEFT.~).L.A$.".".TN
.TN.1:.:.-DOWN..).L.A$.".".TN.TN.1:.:.-
UP.J).L.A$."N"..53800:.:.- GET NEXT SECT
OR OF FILE..)$L.A$."?".A$."/"..54000:.-
HELP USER WITH COMMANDS..*AL.52103..*BL:
.3*GL. -- CALC. HEX/ASCII CUR. LOC..I*LL
L1..(M.32).8.M.AP.A*VLL2..(M.16).8.M.2.H
P.G*`L..M*.L:.S*.L:..*.L. - RETURN KEYST
OKE IN A$..*.L. A$..*.L.A$."".52400..*DL
...*.M:..*.M:..*.M. - CURSOR MOVES FOR B
UFF. EDIT..*.MM.M.(M.255):.52540..+.MM.M
.(M.0):.52540:.-FUN LOGIC.2+(MM.M.(M.15)
.16:.52540.L+2MM.M.(M.240).16:.52540.G+<
M.L1,C1:.L2,C2:.L2.1,C2.M+AM..S+CM..Y+NM
:.+OM:..+SM. - VALIDATE TN,SN..+XM.SN..
1..52620:. - SKIP IT.V+.MTN.TN.1:. - DEC
. TRACK NUMBER..+.M. - CALULATE CURRENT
SECTOR #..,.MSN.20.((TN.17).2).(TN.24).(
TN.30).6,.M.TN.18.SN.20..52660.A,.M.TN.1
7.TN.25.SN.18. .52660.., M.T
N.24.TN.31.SN.17. .52660..,.
M.TN.30.SN.16..52660..,.M.TN.35.TN.1.TN.
1:SN.0.D,.M..W,.MTN.TN.1:SN.0:...,RM:..,
SM:..,TM:..-WM. - DISPLAY BUFFER INFO...
-.M. 214,0:.D$(3).,-.M..33);"TRK";TN.?-.
M..33);"SEC";SN.E-.M..V-.M..33);ER$;ER.\
-.N..O-.N..33);"BUFFER".|-.N..32);BL..-.
N. 214,12:...-"N..33);"RB";..-'N.H(D(M),
2);" "..-)NA.20..-,N.214,A:.:..33);INP$
:.:..33);"CMD? "..-1N...-6N:..-7N:..-8N
:...:N. - HEX TO DEC (TWO DIG. ONLY).:.;
N. - SOME SLOPPY BUT QUICK.^.<N. - STRAI
GHT LINE CODE..OH WELL..=N. - EVEN FAST
ER WITH OUT ALL...>N. - THESE DUMB REMAR
KS!!...?N:...@NA1$.A1$.A$:. - KEYSTROKES
.X.BN.214,18:.:..33);A1$../EN.A1$.A$..:.
- SEE IF WEHAVE TWO DIGITS, ELSE RETURN
.O/JN.A1$.":".V.E(H(A1$,1)).16:.- STUPID
TRICK TO FIND DIGIT #1../TN.A1$.":".V.(
F(H(A1$,1)).55).16:. - HORRID TECH. BUT
IT WORKS.L/^N.I(A1$,1).":".V.V.E(I(A1$,1
)):.-SAME DUMB METHOD FOR #2../HN.I(A1$,
1).":".V.V.F(I(A1$,1)).55../.NF1.1..0.N.
:. - GO BACK..0.N:..0.N:..0.N:.?0.N. - C
HANGE SCREEN AND BUFFER.C0 N. - USED BY
EDIT BUFFER ROUTINE.I0.N:..0.N.A1$.""..5
2300:.52985..0.NAP.1024:HP.1344..0.N.523
00.D0.N.INP$."DEC".INP$."ASC"..53500..0.
N.V.33.V.90..L1,121:.52940..0.N.V.64..L1
,V..1BN.V.63..L1,V.64..1LNA.F(H(A1$,1)).
'1QN.A.58..L2,A.:1VN.A.64..L2,A.64.L1.NA
.F(I(A1$,1)).^1.N.A.58..L2.1,A.S1.N.A.64
..L2.1,A.64.1.N.BL.M,V..1.NA1$."":A$."
"..1.N.214,18:.:..33);A$.G1.NAP.55296:
HP.55616:.52300.R1.NF1.0:..X1.N:..1.O:..
1.O. - DISK ERROR TRAP..1.O:..2LO."..";.
+2VO." !!! ERROR NUMBER ";ER;" !!!".C2.O
.ER$;" HAS OCCURED".G2.O.:."ALL OR PART
OF DISK SECTOR"..2.O."MAY BE IN BUFFER A
REA"..2.O...2.O."N>ON-STOP, R>ETRY, D>IS
PLAY,".D2.O. A$:.A$."X".F1.0.P2.O.F1.1..
..2.OER$."ERR"..2*P. 52400..24P.A$."N".F
1.1:...3>P.A$."R".F1.2:..#3HP.A$."D".F1.
0:..>3RP.A$."S".SN.SN.1:F1.2:..D3.P:.[3.
P.- DECIMAL COMPILE..3.P.A..32.A1$.A1$.A
$:.- BUILD NUMBER. (SPACE IS A TERMINATO
R)..3.P.214,18:.:..33);A1$..3.P.C(A1$).3
.A.32..53430:.- NUMBER IS COMPLETE?? IF
SO, GET SET...4.P.:.- BACK AGAIN."4.P.E(
A1$).255.A1$."255".O4.PF1.1:V.E(A1$):.:.
- SET MOD. FLAG, RETURN.U4.P:.[4.P:..4.P
.- CONVERT V TO HEX "A1$" (TWO DIGIT, 00
-FF, ONLY). 4.PA..(V.16).W4.QA1$.J(HX$,A
.1,1):.- GET FIRST DIGIT OF HEX STRING..
.4.QA.V.16.A..5.QA1$.A1$.J(HX$,A.1,1):.:
.- GET SECOND DIGIT AND RETURN.$5VQ:.*5W
Q:.S5[Q.- ASCII CONVERTION TO DECIMAL VA
LUE._5`QV.F(A$).U5JQ.V.128.V.32.V.0:...5
TQF1.1:A1$.A$:...5.Q:..5.Q:..5.Q.- GENER
AL HEX. TO DEC. CONVERTION.. SEND $DDDD
IN A$. (ANY LENGTH)..6AQ.- WILL RETURN D
ECIMAL NUMBER IN VAR. V.-6DQV.0:.H(A$,1)
."$".A$.I(A$,C(A$).1).B6GQ. X.C(A$).1.0.
.1.V6IQ.X.C(A$).1.0..1.J6NQA1..(X.C(A$))
.1.~6XQA1$.J(A$,X.1,1)..6.Q.X2.0.15..6.Q
.A1$.J(HX$,X2.1,1).A.16.(A1).X2..6.R. X2
.B6.RV.V.A.I6.R.X.O6.R...6(RTN.B(BL):SN.
B(BL.1):...6.R:..6.R:..6.R:..7.R:..7.R.-
ONLINE HELP..7.R:.$7.R.".";.H7.R.".";.9
)"DI-SECTOR ONLINE HELP".B7.S.".. A>
SCII MODE"..7.S." C>ANCEL MODIFICATI
ONS"..7.S." D>ECIMAL MODE".E7.S."
H>EXADECIMAL MODE SELECTION..7"S."
L>OCATION CHANGE"..7,S." M>ODIFY SE
CTOR"..86S." N>EXT SECTOR OF FILE".B
8;S." S>CREEN DUMP TO PRINTER".D8@S.
" W>RITE SECTOR TO DISK".L8JS.:...8T
S." CURSOR LEFT: PREVIOUS SECTOR".
.8HS." CURSOR RIGHT: NEXT SECTOR"..
8RS." CURSOR UP: PREVIOUS TRACK"
..9|S." CURSOR DOWN: NEXT TRACK".;
9.S." X: EXIT TO MAIN ME
NU".I9.S." ?: ONLINE HEL
P (THIS)"..9.S.:.:."<<<<<< PRESS ANY KEY
TO CONTINUE >>>>>>";..9BS. 52400.O9LS.5
1500:.- REPRINT SECTOR IN ASCII..9VS.520
00:.- REPRINT SECTOR IN HEX..9.S...9.T:.
.:.T:..:.T:..:.T:./:.T.- SCREEN DUMP TO
PRINTER.T:.T.4,4:RB.0:.214,22:.:..33)"PR
INT"..:.T.4," DI-SECTOR SCR
EEN DUMP OF TRACK";TN;"SECTOR";SN..:!T.4
,G(13)..:&T.X.1024.2000.40..:+T.RB.256..
4,"REL BYTE";RB;"-->";.7);..:,T.RB.10..4
," ";..;-T.RB.100..4," ";..;0T.X2.X.X.32
.,;:TA.B(X2):A.A.127.;;?T.A.63.A.45.L;DT
.A.32.A.A.64.X;NTA$.G(A).C;XT.4,A$;..;GT
.X2.1344..(X2.2)..X2.2..4," ";:.- SEPERA
TE HEX NUMBERS.F;IT.X2:.4,G(13);:.- LOOP
TO PRINT LINE.L;JT:..;LT.X2.1337..4,G(1
3)..;QT.X2.1337.RB.RB.32..<VT.X2.1337.RB
.RB.16. <XT.X2.1337.RB.0.&<|T:.8<.T.X: 4
:A$."":..><TV..^<....... BUFFER PO.ER .
******.D<!.:.|<$.. 839,856,968,49422..<V
.:..<... 5,28,30,31,129,144,149..<H.:..<
I.:..<0.."...ARE YOU SURE YOU WANT TO QU
IT NOW (Y/N)"..<:..52400:.A$.."Y".A$.."N
".62010..=D..A$."N"....=N..".":....C.J
> CLICK IMAGE PREVIEW FOR FULL MODAL