_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DI-SETUP

FILE INFORMATION

FILENAME(S): DI-SETUP

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-10-20 00:39:48

APPEARS ON: 1 disk(s)

FILE HASH

0ef3cde3d342eaafe8f78cbf7857d713173f63590389ac0bc6d6791c0e49747e

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LECK MICH AM A DI-SETUP PRG Treasure Chest - Jochen Steinbach 34 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0D 08 01 00 89 20  31 30 30 30 30 00 27 08  |....... 10000.'.|
00000010: 02 00 94 20 22 40 30 3A  44 49 2D 53 45 54 55 50  |... "@0:DI-SETUP|
00000020: 22 2C 38 2C 31 3A 80 00  35 08 0A 00 3A 44 49 AB  |",8,1:..5...:DI.|
00000030: 53 45 54 55 50 00 65 08  14 00 3A 44 49 AB 53 45  |SETUP.e...:DI.SE|
00000040: 43 A4 52 27 53 20 49 4E  49 54 49 41 4C 49 5A 41  |C.R'S INITIALIZA|
00000050: 54 49 91 20 AF 20 53 45  54 55 50 50 52 4F 43 45  |TI. . SETUPPROCE|
00000060: 44 55 52 45 53 00 A7 08  64 00 83 35 2C 38 2C 39  |DURES...d..5,8,9|
00000070: 2C 31 34 2C 31 37 2C 31  38 2C 31 39 2C 32 30 2C  |,14,17,18,19,20,|
00000080: 32 38 2C 32 39 2C 33 30  2C 33 31 2C 31 32 39 2C  |28,29,30,31,129,|
00000090: 31 34 32 2C 31 34 34 2C  31 34 35 2C 31 34 36 2C  |142,144,145,146,|
000000A0: 31 34 37 2C 31 34 38 00  D8 08 6E 00 83 31 34 39  |147,148...n..149|
000000B0: 2C 31 35 30 2C 31 35 31  2C 31 35 32 2C 31 35 33  |,150,151,152,153|
000000C0: 2C 31 35 34 2C 31 35 35  2C 31 35 36 2C 31 35 37  |,154,155,156,157|
000000D0: 2C 31 35 38 2C 31 35 39  00 DE 08 78 00 3A 00 FF  |,158,159...x.:..|
000000E0: 08 82 00 83 20 31 34 34  2C 35 2C 32 38 2C 31 35  |.... 144,5,28,15|
000000F0: 39 2C 31 35 36 2C 33 30  2C 33 31 2C 31 35 38 00  |9,156,30,31,158.|
00000100: 25 09 87 00 83 20 31 32  39 2C 31 34 39 2C 31 35  |%.... 129,149,15|
00000110: 30 2C 31 35 31 2C 31 35  32 2C 31 35 33 2C 31 35  |0,151,152,153,15|
00000120: 34 2C 31 35 35 00 3E 09  10 27 8D 34 30 30 30 30  |4,155.>..'.40000|
00000130: 3A 8F 2D 20 49 4E 49 54  49 41 4C 49 5A 45 00 5B  |:.- INITIALIZE.[|
00000140: 09 1A 27 8D 34 30 31 30  30 3A 8F 2D 20 44 49 53  |..'.40100:.- DIS|
00000150: 50 4C 41 59 20 53 43 52  45 45 4E 00 74 09 24 27  |PLAY SCREEN.t.$'|
00000160: 8D 34 30 34 30 30 3A 8F  2D 20 55 53 45 52 20 49  |.40400:.- USER I|
00000170: 4E 50 55 54 00 8D 09 38  27 8B 46 31 B3 B1 31 A7  |NPUT...8'.F1..1.|
00000180: 31 30 30 31 30 3A 8F 2D  20 4C 4F 4F 50 00 A7 09  |10010:.- LOOP...|
00000190: 42 27 8D 35 30 30 30 30  3A 8F 2D 20 53 41 56 45  |B'.50000:.- SAVE|
000001A0: 20 53 54 41 54 55 53 00  C7 09 4C 27 8D 36 32 30  | STATUS...L'.620|
000001B0: 30 30 3A 8F 2D 20 45 58  49 54 20 54 4F 20 44 49  |00:.- EXIT TO DI|
000001C0: 2D 53 45 43 54 4F 52 00  CD 09 36 9C 3A 00 D3 09  |-SECTOR...6.:...|
000001D0: 37 9C 3A 00 D9 09 38 9C  3A 00 DF 09 39 9C 3A 00  |7.:...8.:...9.:.|
000001E0: F9 09 3B 9C 8F 2D 20 49  4E 49 54 49 41 4C 49 5A  |..;..- INITIALIZ|
000001F0: 45 20 43 4F 4E 46 49 47  2E 00 05 0A 40 9C 86 44  |E CONFIG....@..D|
00000200: 24 28 31 30 29 00 1A 0A  45 9C 86 43 24 28 33 32  |$(10)...E..C$(32|
00000210: 29 3A 86 43 43 24 28 31  36 29 00 20 0A 4A 9C 8C  |):.CC$(16). .J..|
00000220: 00 2C 0A 4F 9C 81 58 B2  31 A4 33 30 00 33 0A 54  |.,.O..X.1.30.3.T|
00000230: 9C 87 41 00 42 0A 59 9C  43 24 28 58 29 B2 C7 28  |..A.B.Y.C$(X)..(|
00000240: 41 29 00 48 0A 5E 9C 82  00 4E 0A 63 9C 3A 00 71  |A).H.^...N.c.:.q|
00000250: 0A 68 9C 8F 2D 20 43 52  45 41 54 45 20 41 20 56  |.h..- CREATE A V|
00000260: 45 52 49 43 41 4C 20 54  41 42 20 53 54 52 49 4E  |ERICAL TAB STRIN|
00000270: 47 00 7D 0A 6D 9C 81 58  B2 31 A4 32 34 00 97 0A  |G.}.m..X.1.24...|
00000280: 72 9C 43 24 28 33 31 29  B2 43 24 28 33 31 29 AA  |r.C$(31).C$(31).|
00000290: 43 24 28 35 29 3A 82 00  9D 0A 74 9C 3A 00 B1 0A  |C$(5):....t.:...|
000002A0: 75 9C 8F 2D 20 48 4F 52  5A 2E 20 53 50 41 43 45  |u..- HORZ. SPACE|
000002B0: 53 00 E5 0A 77 9C 43 24  28 33 32 29 B2 22 20 20  |S...w.C$(32)."  |
000002C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002E0: 20 20 20 20 22 00 F1 0A  7C 9C 81 58 B2 30 A4 31  |    "...|..X.0.1|
000002F0: 35 00 06 0B 81 9C 87 41  3A 43 43 24 28 58 29 B2  |5......A:CC$(X).|
00000300: C7 28 41 29 3A 82 00 24  0B 86 9C 58 31 B2 31 3A  |.(A):..$...X1.1:|
00000310: 58 32 B2 30 3A 58 33 B2  32 3A 58 34 B2 31 32 3A  |X2.0:X3.2:X4.12:|
00000320: 58 35 B2 36 00 37 0B 8B  9C 99 43 24 28 31 38 29  |X5.6.7....C$(18)|
00000330: 3A 8D 34 30 34 33 30 00  5A 0B 90 9C 59 31 B2 31  |:.40430.Z...Y1.1|
00000340: 3A 59 32 B2 AB 31 3A 5A  31 B2 35 36 31 37 36 3A  |:Y2..1:Z1.56176:|
00000350: 5A 32 B2 35 36 32 35 35  3A 8E 00 60 0B 9A 9C 3A  |Z2.56255:..`...:|
00000360: 00 66 0B 9B 9C 3A 00 6C  0B 9C 9C 3A 00 77 0B A4  |.f...:.l...:.w..|
00000370: 9C 99 43 24 28 37 29 00  9C 0B AE 9C 99 44 24 28  |..C$(7)......D$(|
00000380: 31 29 3B A3 31 30 29 3B  22 44 49 2D 53 45 54 55  |1);.10);"DI-SETU|
00000390: 50 20 50 52 4F 43 45 44  55 52 45 22 00 B4 0B B3  |P PROCEDURE"....|
000003A0: 9C 99 A3 31 34 29 3B 22  50 41 52 54 20 4F 46 20  |...14);"PART OF |
000003B0: 54 48 45 22 00 D7 0B B8  9C 99 A3 38 29 3B 22 44  |THE".......8);"D|
000003C0: 49 2D 53 45 43 54 4F 52  20 52 45 50 41 49 52 20  |I-SECTOR REPAIR |
000003D0: 53 59 53 54 45 4D 22 00  DD 0B BD 9C 99 00 08 0C  |SYSTEM".........|
000003E0: C2 9C 99 A3 33 29 3B 22  50 52 45 53 45 4E 54 45  |....3);"PRESENTE|
000003F0: 44 20 42 59 20 53 54 41  52 50 4F 49 4E 54 20 53  |D BY STARPOINT S|
00000400: 4F 46 54 57 41 52 45 22  00 0E 0C C7 9C 99 00 26  |OFTWARE".......&|
00000410: 0C CC 9C 99 A3 31 34 29  3B 22 57 52 49 54 54 45  |.....14);"WRITTE|
00000420: 4E 20 42 59 20 22 00 43  0C D6 9C 99 A3 31 31 29  |N BY ".C.....11)|
00000430: 3B 22 42 52 55 43 45 20  51 2E 20 48 41 4D 4D 4F  |;"BRUCE Q. HAMMO|
00000440: 4E 44 22 00 64 0C DB 9C  99 A3 39 29 3B 22 4F 46  |ND".d.....9);"OF|
00000450: 20 54 48 45 20 48 41 4D  4D 53 54 45 52 20 47 52  | THE HAMMSTER GR|
00000460: 4F 55 50 22 00 9A 0C E0  9C 99 3A 99 3A 99 44 24  |OUP"......:.:.D$|
00000470: 28 31 29 3B 22 20 20 50  52 45 53 53 20 27 31 27  |(1);"  PRESS '1'|
00000480: 20 54 4F 20 43 48 41 4E  47 45 20 54 45 58 54 20  | TO CHANGE TEXT |
00000490: 43 4F 4C 4F 52 20 4F 4E  45 22 00 CC 0C E5 9C 99  |COLOR ONE"......|
000004A0: 44 24 28 32 29 3B 22 20  20 50 52 45 53 53 20 27  |D$(2);"  PRESS '|
000004B0: 32 27 20 54 4F 20 43 48  41 4E 47 45 20 54 45 58  |2' TO CHANGE TEX|
000004C0: 54 20 43 4F 4C 4F 52 20  54 57 4F 22 00 00 0D EA  |T COLOR TWO"....|
000004D0: 9C 99 44 24 28 33 29 3B  22 20 20 50 52 45 53 53  |..D$(3);"  PRESS|
000004E0: 20 27 33 27 20 54 4F 20  43 48 41 4E 47 45 20 54  | '3' TO CHANGE T|
000004F0: 45 58 54 20 43 4F 4C 4F  52 20 54 48 52 45 45 22  |EXT COLOR THREE"|
00000500: 00 08 0D F4 9C 99 3A 99  00 36 0D FE 9C 99 22 20  |......:..6...." |
00000510: 20 50 52 45 53 53 20 27  42 27 20 54 4F 20 43 48  | PRESS 'B' TO CH|
00000520: 41 4E 47 45 20 42 41 43  4B 47 52 4F 55 4E 44 20  |ANGE BACKGROUND |
00000530: 43 4F 4C 4F 52 22 00 5E  0D 03 9D 99 22 20 20 50  |COLOR".^...."  P|
00000540: 52 45 53 53 20 27 54 27  20 54 4F 20 43 48 41 4E  |RESS 'T' TO CHAN|
00000550: 47 45 20 54 52 49 4D 20  43 4F 4C 4F 52 22 00 86  |GE TRIM COLOR"..|
00000560: 0D 12 9D 99 22 20 20 50  52 45 53 53 20 27 58 27  |...."  PRESS 'X'|
00000570: 20 54 4F 20 45 58 49 54  20 54 4F 20 44 49 2D 53  | TO EXIT TO DI-S|
00000580: 45 43 54 4F 52 22 00 8E  0D 17 9D 99 3A 99 00 C3  |ECTOR"......:...|
00000590: 0D 1C 9D 99 44 24 28 31  29 3B 22 20 54 48 45 53  |....D$(1);" THES|
000005A0: 45 20 41 52 45 20 54 48  45 20 45 44 49 54 49 4E  |E ARE THE EDITIN|
000005B0: 47 20 43 55 52 53 4F 52  53 20 55 53 45 44 20 42  |G CURSORS USED B|
000005C0: 59 20 22 00 F7 0D 26 9D  99 44 24 28 32 29 3B 22  |Y "...&..D$(2);"|
000005D0: 20 44 49 2D 53 45 43 54  4F 52 2C 20 54 48 45 59  | DI-SECTOR, THEY|
000005E0: 20 4D 55 53 54 20 42 45  20 45 41 53 59 20 54 4F  | MUST BE EASY TO|
000005F0: 20 52 45 41 44 2E 22 00  FD 0D 30 9D 8E 00 03 0E  | READ."...0.....|
00000600: C6 9D 3A 00 09 0E C7 9D  3A 00 0F 0E C8 9D 3A 00  |..:.....:.....:.|
00000610: 15 0E C9 9D 3A 00 2F 0E  CB 9D 8F 2D 20 52 45 43  |....:./....- REC|
00000620: 49 45 56 45 20 55 53 45  52 20 49 4E 50 55 54 00  |IEVE USER INPUT.|
00000630: 35 0E CC 9D 3A 00 3E 0E  D0 9D A1 20 41 24 00 57  |5...:.>.... A$.W|
00000640: 0E DA 9D 8B 41 24 B2 22  22 A7 8D 35 32 30 30 30  |....A$.""..52000|
00000650: 3A 89 34 30 34 30 30 00  92 0E E4 9D 8B 41 24 B3  |:.40400......A$.|
00000660: B1 22 31 22 AF 41 24 B3  B1 22 32 22 AF 41 24 B3  |."1".A$.."2".A$.|
00000670: B1 22 33 22 AF 41 24 B3  B1 22 42 22 AF 41 24 B3  |."3".A$.."B".A$.|
00000680: B1 22 54 22 AF 41 24 B3  B1 22 58 22 A7 34 30 34  |."T".A$.."X".404|
00000690: 30 30 00 A6 0E EE 9D 8B  41 24 B2 22 31 22 A7 58  |00......A$."1".X|
000006A0: 31 B2 58 31 AA 31 00 B6  0E F3 9D 8B 58 31 B2 31  |1.X1.1......X1.1|
000006B0: 36 A7 58 31 B2 30 00 CA  0E F8 9D 8B 41 24 B2 22  |6.X1.0......A$."|
000006C0: 32 22 A7 58 32 B2 58 32  AA 31 00 DA 0E FD 9D 8B  |2".X2.X2.1......|
000006D0: 58 32 B2 31 36 A7 58 32  B2 30 00 EE 0E 02 9E 8B  |X2.16.X2.0......|
000006E0: 41 24 B2 22 33 22 A7 58  33 B2 58 33 AA 31 00 FE  |A$."3".X3.X3.1..|
000006F0: 0E 07 9E 8B 58 33 B2 31  36 A7 58 33 B2 30 00 12  |....X3.16.X3.0..|
00000700: 0F 0C 9E 8B 41 24 B2 22  42 22 A7 58 34 B2 58 34  |....A$."B".X4.X4|
00000710: AA 31 00 22 0F 0E 9E 8B  58 34 B2 31 36 A7 58 34  |.1."....X4.16.X4|
00000720: B2 30 00 36 0F 11 9E 8B  41 24 B2 22 54 22 A7 58  |.0.6....A$."T".X|
00000730: 35 B2 58 35 AA 31 00 46  0F 16 9E 8B 58 35 B2 31  |5.X5.1.F....X5.1|
00000740: 36 A7 58 35 B2 30 00 57  0F 20 9E 8B 41 24 B2 22  |6.X5.0.W. ..A$."|
00000750: 58 22 A7 46 31 B2 31 00  69 0F 2A 9E 44 24 28 31  |X".F1.1.i.*.D$(1|
00000760: 29 B2 43 43 24 28 58 31  29 00 7B 0F 34 9E 44 24  |).CC$(X1).{.4.D$|
00000770: 28 32 29 B2 43 43 24 28  58 32 29 00 8D 0F 3E 9E  |(2).CC$(X2)...>.|
00000780: 44 24 28 33 29 B2 43 43  24 28 58 33 29 00 9B 0F  |D$(3).CC$(X3)...|
00000790: 48 9E 97 35 33 32 38 31  2C 58 34 00 A9 0F 52 9E  |H..53281,X4...R.|
000007A0: 97 35 33 32 38 30 2C 58  35 00 AF 0F 5C 9E 8E 00  |.53280,X5...\...|
000007B0: C8 0F 50 C3 9F 32 2C 38  2C 32 2C 22 40 30 3A 44  |..P..2,8,2,"@0:D|
000007C0: 49 2D 35 2C 53 2C 57 22  00 D3 0F 5A C3 81 58 B2  |I-5,S,W"...Z..X.|
000007D0: 31 A4 33 00 E0 0F 64 C3  98 32 2C 44 24 28 58 29  |1.3...d..2,D$(X)|
000007E0: 00 E7 0F 6E C3 82 58 00  ED 0F 78 C3 3A 00 09 10  |...n..X...x.:...|
000007F0: 82 C3 98 32 2C 58 34 3A  98 32 2C 58 35 3A 98 32  |...2,X4:.2,X5:.2|
00000800: 2C 58 31 3A 98 32 2C 58  32 00 14 10 8C C3 A0 32  |,X1:.2,X2......2|
00000810: 2C 38 2C 32 00 1A 10 96  C3 8E 00 20 10 16 CB 3A  |,8,2....... ...:|
00000820: 00 26 10 17 CB 3A 00 2C  10 18 CB 3A 00 32 10 19  |.&...:.,...:.2..|
00000830: CB 3A 00 49 10 1B CB 8F  2D 20 43 55 52 53 4F 52  |.:.I....- CURSOR|
00000840: 20 4D 4F 56 45 4D 45 4E  54 00 4F 10 1C CB 3A 00  | MOVEMENT.O...:.|
00000850: 63 10 20 CB 54 4C B2 54  4C AA 31 3A 8B 54 4C B3  |c. .TL.TL.1:.TL.|
00000860: 38 A7 8E 00 6C 10 22 CB  54 4C B2 30 00 79 10 25  |8...l.".TL.0.y.%|
00000870: CB 5A 31 B2 5A 31 AA 59  31 00 86 10 2A CB 5A 32  |.Z1.Z1.Y1...*.Z2|
00000880: B2 5A 32 AA 59 32 00 A6  10 34 CB 8B 5A 31 B2 35  |.Z2.Y2...4..Z1.5|
00000890: 36 31 37 36 B0 5A 31 B2  35 36 32 31 35 A7 59 31  |6176.Z1.56215.Y1|
000008A0: B2 59 31 AC AB 31 00 C6  10 3E CB 8B 5A 32 B2 35  |.Y1..1...>..Z2.5|
000008B0: 36 32 31 36 B0 5A 32 B2  35 36 32 35 35 A7 59 32  |6216.Z2.56255.Y2|
000008C0: B2 59 32 AC AB 31 00 D1  10 48 CB 97 5A 31 2C 58  |.Y2..1...H..Z1,X|
000008D0: 32 00 DC 10 52 CB 97 5A  32 2C 58 31 00 EA 10 5C  |2...R..Z2,X1...\|
000008E0: CB 97 5A 31 AB 59 31 2C  58 31 00 F8 10 66 CB 97  |..Z1.Y1,X1...f..|
000008F0: 5A 32 AB 59 32 2C 58 32  00 FE 10 70 CB 8E 00 04  |Z2.Y2,X2...p....|
00000900: 11 26 F2 3A 00 0A 11 27  F2 3A 00 10 11 28 F2 3A  |.&.:...'.:...(.:|
00000910: 00 1D 11 30 F2 99 43 24  28 31 38 29 3B 00 52 11  |...0..C$(18);.R.|
00000920: 3A F2 99 C8 28 43 24 28  33 31 29 2C 31 32 29 3B  |:...(C$(31),12);|
00000930: A3 31 30 29 3B 44 24 28  31 29 3B 22 4E 4F 57 20  |.10);D$(1);"NOW |
00000940: 52 55 4E 4E 49 4E 47 20  44 49 2D 53 45 43 54 4F  |RUNNING DI-SECTO|
00000950: 52 22 00 6D 11 44 F2 97  31 39 38 2C 32 3A 97 36  |R".m.D..198,2:.6|
00000960: 33 31 2C 31 33 3A 97 36  33 32 2C 31 33 00 81 11  |31,13:.632,13...|
00000970: 49 F2 99 43 24 28 37 29  3B 43 43 24 28 58 34 29  |I..C$(7);CC$(X4)|
00000980: 3B 00 B6 11 4E F2 99 C8  28 43 24 28 33 31 29 2C  |;...N...(C$(31),|
00000990: 32 29 3B 22 4C 4F 41 44  22 3B C7 28 33 34 29 3B  |2);"LOAD";.(34);|
000009A0: 22 44 49 2D 53 45 43 54  4F 52 22 3B C7 28 33 34  |"DI-SECTOR";.(34|
000009B0: 29 3B 22 2C 38 22 00 CD  11 58 F2 99 C8 28 43 24  |);",8"...X...(C$|
000009C0: 28 33 31 29 2C 34 29 3B  22 52 55 4E 22 00 D9 11  |(31),4);"RUN"...|
000009D0: 62 F2 99 43 24 28 37 29  3B 00 00 00 00 00 DF     |b..C$(7);...... |
....... 10000.'.... "@0:DI-SETUP",8,1:..
5...:DI.SETUP.E...:DI.SEC.R'S INITIALIZA
TI. . SETUPPROCEDURES...D..5,8,9,14,17,1
8,19,20,28,29,30,31,129,142,144,145,146,
147,148.X.N..149,150,151,152,153,154,155
,156,157,158,159...X.:...... 144,5,28,15
9,156,30,31,158.%.... 129,149,150,151,15
2,153,154,155.>..'.40000:.- INITIALIZE.[
..'.40100:.- DISPLAY SCREEN.T.$'.40400:.
- USER INPUT...8'.F1..1.10010:.- LOOP...
B'.50000:.- SAVE STATUS.G.L'.62000:.- EX
IT TO DI-SECTOR.M.6.:.S.7.:.Y.8.:...9.:.
..;..- INITIALIZE CONFIG....@..D$(10)...
E..C$(32):.CC$(16). .J...,.O..X.1.30.3.T
..A.B.Y.C$(X).G(A).H.^...N.C.:.Q.H..- CR
EATE A VERICAL TAB STRING.}.M..X.1.24...
R.C$(31).C$(31).C$(5):....T.:...U..- HOR
Z. SPACES...W.C$(32)."                  
                    "...|..X.0.15......A
:CC$(X).G(A):..$...X1.1:X2.0:X3.2:X4.12:
X5.6.7....C$(18):.40430.Z...Y1.1:Y2..1:Z
1.56176:Z2.56255:..`...:.F...:.L...:.W..
..C$(7)......D$(1);.10);"DI-SETUP PROCED
URE".......14);"PART OF THE".W.....8);"D
I-SECTOR REPAIR SYSTEM".........B...3);"
PRESENTED BY STARPOINT SOFTWARE"...G...&
.L...14);"WRITTEN BY ".C.V...11);"BRUCE 
Q. HAMMOND".D.....9);"OF THE HAMMSTER GR
OUP"......:.:.D$(1);"  PRESS '1' TO CHAN
GE TEXT COLOR ONE".L....D$(2);"  PRESS '
2' TO CHANGE TEXT COLOR TWO"......D$(3);
"  PRESS '3' TO CHANGE TEXT COLOR THREE"
......:..6...."  PRESS 'B' TO CHANGE BAC
KGROUND COLOR".^...."  PRESS 'T' TO CHAN
GE TRIM COLOR"......"  PRESS 'X' TO EXIT
 TO DI-SECTOR"......:..C....D$(1);" THES
E ARE THE EDITING CURSORS USED BY "...&.
.D$(2);" DI-SECTOR, THEY MUST BE EASY TO
 READ."...0.....F.:...G.:...H.:...I.:./.
K..- RECIEVE USER INPUT.5.L.:.>.P.. A$.W
.Z..A$.""..52000:.40400......A$.."1".A$.
."2".A$.."3".A$.."B".A$.."T".A$.."X".404
00......A$."1".X1.X1.1......X1.16.X1.0.J
....A$."2".X2.X2.1.Z....X2.16.X2.0......
A$."3".X3.X3.1......X3.16.X3.0......A$."
B".X4.X4.1."....X4.16.X4.0.6....A$."T".X
5.X5.1.F....X5.16.X5.0.W. ..A$."X".F1.1.
I.*.D$(1).CC$(X1).{.4.D$(2).CC$(X2)...>.
D$(3).CC$(X3)...H..53281,X4...R..53280,X
5...\...H.PC.2,8,2,"@0:DI-5,S,W".S.ZC.X.
1.3...DC.2,D$(X)...NC.X...XC:....C.2,X4:
.2,X5:.2,X1:.2,X2....C 2,8,2....C.. ..K:
.&..K:.,..K:.2..K:.I..K.- CURSOR MOVEMEN
T.O..K:.C. KTL.TL.1:.TL.8...L."KTL.0.Y.%
KZ1.Z1.Y1...*KZ2.Z2.Y2...4K.Z1.56176.Z1.
56215.Y1.Y1..1.F.>K.Z2.56216.Z2.56255.Y2
.Y2..1.Q.HK.Z1,X2...RK.Z2,X1...\K.Z1.Y1,
X1...FK.Z2.Y2,X2...PK....&.:...'.:...(.:
...0..C$(18);.R.:..H(C$(31),12);.10);D$(
1);"NOW RUNNING DI-SECTOR".M.D..198,2:.6
31,13:.632,13...I..C$(7);CC$(X4);...N..H
(C$(31),2);"LOAD";G(34);"DI-SECTOR";G(34
);",8".M.X..H(C$(31),4);"RUN".Y.B..C$(7)
;......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL