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

CREATE-21-SS

FILE INFORMATION

FILENAME(S): CREATE-21-SS

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-12-01 02:25:40

APPEARS ON: 1 disk(s)

FILE HASH

b2f90cfb0fa94371602e498a202509f13de5d14f31065157c139c0be279f4377

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
INSIDE C DOS 1 CREATE-21-SS PRG Shine 20 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 28 08 0A 00 8F 20  2A 49 4E 53 49 44 45 20  |..(.... *INSIDE |
00000010: 43 4F 4D 4D 4F 44 4F 52  45 20 44 4F 53 2A 20 2A  |COMMODORE DOS* *|
00000020: 50 47 2E 20 31 32 36 2A  00 3F 08 14 00 8F 20 2A  |PG. 126*.?.... *|
00000030: 4A 4A 4D 2A 20 20 20 2A  30 34 31 32 38 37 2A 00  |JJM*   *041287*.|
00000040: 5D 08 64 00 8F 20 44 45  53 54 52 4F 59 20 41 20  |].d.. DESTROY A |
00000050: 53 45 43 54 4F 52 20 2D  20 31 35 34 31 00 68 08  |SECTOR - 1541.h.|
00000060: 6E 00 86 44 24 28 37 29  00 88 08 78 00 99 22 93  |n..D$(7)...x..".|
00000070: 44 45 53 54 52 4F 59 20  41 20 53 45 43 54 4F 52  |DESTROY A SECTOR|
00000080: 20 2D 20 31 35 34 31 22  00 A6 08 82 00 99 22 11  | - 1541"......".|
00000090: 49 4E 53 45 52 54 20 43  4C 4F 4E 45 20 49 4E 20  |INSERT CLONE IN |
000000A0: 44 52 49 56 45 22 00 D1  08 8C 00 85 22 11 44 45  |DRIVE"......".DE|
000000B0: 53 54 52 4F 59 20 54 52  41 43 4B 20 41 4E 44 20  |STROY TRACK AND |
000000C0: 53 45 43 54 4F 52 20 28  54 2C 53 29 22 3B 54 2C  |SECTOR (T,S)";T,|
000000D0: 53 00 E1 08 96 00 8B 54  B3 31 B0 54 B1 33 35 A7  |S......T.1.T.35.|
000000E0: 80 00 02 09 A0 00 4E 53  B2 32 30 AA 32 AC 28 54  |......NS.20.2.(T|
000000F0: B1 31 37 29 AA 28 54 B1  32 34 29 AA 28 54 B1 33  |.17).(T.24).(T.3|
00000100: 30 29 00 12 09 AA 00 8B  53 B3 30 B0 53 B1 4E 53  |0)......S.0.S.NS|
00000110: A7 80 00 30 09 B4 00 85  22 11 41 52 45 20 59 4F  |...0....".ARE YO|
00000120: 55 20 53 55 52 45 20 20  59 9D 9D 9D 22 3B 51 24  |U SURE  Y...";Q$|
00000130: 00 3F 09 BE 00 8B 51 24  B3 B1 22 59 22 A7 80 00  |.?....Q$.."Y"...|
00000140: 4C 09 C8 00 9F 31 35 2C  38 2C 31 35 00 59 09 D2  |L....15,8,15.Y..|
00000150: 00 98 31 35 2C 22 49 30  22 00 71 09 DC 00 84 31  |..15,"I0".q....1|
00000160: 35 2C 45 4E 24 2C 45 4D  24 2C 45 54 24 2C 45 53  |5,EN$,EM$,ET$,ES|
00000170: 24 00 83 09 E6 00 8B 45  4E 24 B2 22 30 30 22 89  |$......EN$."00".|
00000180: 32 38 30 00 A2 09 F0 00  99 22 11 22 45 4E 24 22  |280......"."EN$"|
00000190: 2C 20 22 45 4D 24 22 2C  22 45 54 24 22 2C 22 45  |, "EM$","ET$","E|
000001A0: 53 24 00 AA 09 FA 00 A0  31 35 00 B0 09 04 01 80  |S$......15......|
000001B0: 00 BB 09 0E 01 8F 20 53  45 45 4B 00 CE 09 18 01  |...... SEEK.....|
000001C0: 8B 53 B2 30 A7 53 B2 4E  53 3A 89 33 30 30 00 D8  |.S.0.S.NS:.300..|
000001D0: 09 22 01 53 B2 53 AB 31  00 E4 09 2C 01 4A 4F 42  |.".S.S.1...,.JOB|
000001E0: B2 31 37 36 00 ED 09 36  01 8D 35 37 30 00 F8 09  |.176...6..570...|
000001F0: 40 01 8F 20 52 45 41 44  00 04 0A 4A 01 4A 4F 42  |@.. READ...J.JOB|
00000200: B2 31 32 38 00 0D 0A 54  01 8D 35 37 30 00 18 0A  |.128...T..570...|
00000210: 5E 01 81 4A B2 30 A4 37  00 23 0A 68 01 81 49 B2  |^..J.0.7.#.h..I.|
00000220: 30 A4 37 00 2A 0A 72 01  87 44 00 3F 0A 7C 01 44  |0.7.*.r..D.?.|.D|
00000230: 24 28 4A 29 B2 44 24 28  4A 29 AA C7 28 44 29 00  |$(J).D$(J)..(D).|
00000240: 46 0A 86 01 82 49 00 4D  0A 90 01 82 4A 00 55 0A  |F....I.M....J.U.|
00000250: 9A 01 49 B2 30 00 60 0A  A4 01 81 4A B2 30 A4 37  |..I.0.`....J.0.7|
00000260: 00 7F 0A AE 01 98 31 35  2C 22 4D 2D 57 22 C7 28  |......15,"M-W".(|
00000270: 49 29 C7 28 35 29 C7 28  38 29 44 24 28 4A 29 00  |I).(5).(8)D$(J).|
00000280: 89 0A B8 01 49 B2 49 AA  38 00 90 0A C2 01 82 4A  |....I.I.8......J|
00000290: 00 9E 0A CC 01 8F 20 45  58 45 43 55 54 45 00 BE  |...... EXECUTE..|
000002A0: 0A D6 01 98 31 35 2C 22  4D 2D 57 22 C7 28 32 29  |....15,"M-W".(2)|
000002B0: C7 28 30 29 C7 28 31 29  C7 28 32 32 34 29 00 D4  |.(0).(1).(224)..|
000002C0: 0A E0 01 98 31 35 2C 22  4D 2D 52 22 C7 28 32 29  |....15,"M-R".(2)|
000002D0: C7 28 30 29 00 E0 0A EA  01 A1 23 31 35 2C 45 24  |.(0)......#15,E$|
000002E0: 00 F3 0A F4 01 8B 45 24  B2 22 22 A7 45 24 B2 C7  |......E$."".E$..|
000002F0: 28 30 29 00 FF 0A FE 01  45 B2 C6 28 45 24 29 00  |(0).....E..(E$).|
00000300: 0E 0B 08 02 8B 45 B1 31  32 37 89 34 38 30 00 16  |.....E.127.480..|
00000310: 0B 12 02 A0 31 35 00 24  0B 1C 02 99 22 11 44 4F  |....15.$....".DO|
00000320: 4E 45 21 22 00 2A 0B 26  02 80 00 3A 0B 30 02 8F  |NE!".*.&...:.0..|
00000330: 20 4A 4F 42 20 51 55 45  55 45 00 44 0B 3A 02 54  | JOB QUEUE.D.:.T|
00000340: 52 59 B2 30 00 6E 0B 44  02 98 31 35 2C 22 4D 2D  |RY.0.n.D..15,"M-|
00000350: 57 22 C7 28 38 29 C7 28  30 29 C7 28 34 29 C7 28  |W".(8).(0).(4).(|
00000360: 54 29 C7 28 53 29 C7 28  54 29 C7 28 53 29 00 8E  |T).(S).(T).(S)..|
00000370: 0B 4E 02 98 31 35 2C 22  4D 2D 57 22 C7 28 31 29  |.N..15,"M-W".(1)|
00000380: C7 28 30 29 C7 28 31 29  C7 28 4A 4F 42 29 00 9C  |.(0).(1).(JOB)..|
00000390: 0B 58 02 54 52 59 B2 54  52 59 AA 31 00 B2 0B 62  |.X.TRY.TRY.1...b|
000003A0: 02 98 31 35 2C 22 4D 2D  52 22 C7 28 31 29 C7 28  |..15,"M-R".(1).(|
000003B0: 30 29 00 BE 0B 6C 02 A1  23 31 35 2C 45 24 00 D1  |0)...l..#15,E$..|
000003C0: 0B 76 02 8B 45 24 B2 22  22 A7 45 24 B2 C7 28 30  |.v..E$."".E$..(0|
000003D0: 29 00 DD 0B 80 02 45 B2  C6 28 45 24 29 00 EE 0B  |).....E..(E$)...|
000003E0: 8A 02 8B 54 52 59 B2 35  30 30 89 36 38 30 00 FD  |...TRY.500.680..|
000003F0: 0B 94 02 8B 45 B1 31 32  37 89 36 30 30 00 08 0C  |....E.127.600...|
00000400: 9E 02 8B 45 B2 31 A7 8E  00 10 0C A8 02 A0 31 35  |...E.1........15|
00000410: 00 21 0C B2 02 99 22 11  12 46 41 49 4C 45 44 92  |.!...."..FAILED.|
00000420: 22 00 27 0C BC 02 80 00  3E 0C C6 02 8F 20 44 45  |".'.....>.... DE|
00000430: 53 54 52 4F 59 20 41 20  53 45 43 54 4F 52 00 5D  |STROY A SECTOR.]|
00000440: 0C D0 02 83 33 32 2C 31  36 2C 32 34 35 2C 33 32  |....32,16,245,32|
00000450: 2C 38 36 2C 32 34 35 2C  31 36 32 2C 30 00 80 0C  |,86,245,162,0...|
00000460: DA 02 83 38 30 2C 32 35  34 2C 31 38 34 2C 32 30  |...80,254,184,20|
00000470: 32 2C 32 30 38 2C 32 35  30 2C 31 36 32 2C 36 39  |2,208,250,162,69|
00000480: 00 A4 0C E4 02 83 38 30  2C 32 35 34 2C 31 38 34  |......80,254,184|
00000490: 2C 32 30 32 2C 32 30 38  2C 32 35 30 2C 31 36 39  |,202,208,250,169|
000004A0: 2C 32 35 35 00 C2 0C EE  02 83 31 34 31 2C 33 2C  |,255......141,3,|
000004B0: 32 38 2C 31 37 33 2C 31  32 2C 32 38 2C 34 31 2C  |28,173,12,28,41,|
000004C0: 33 31 00 E1 0C F8 02 83  39 2C 31 39 32 2C 31 34  |31......9,192,14|
000004D0: 31 2C 31 32 2C 32 38 2C  31 36 32 2C 30 2C 31 36  |1,12,28,162,0,16|
000004E0: 39 00 01 0D 02 03 83 38  35 2C 38 30 2C 32 35 34  |9......85,80,254|
000004F0: 2C 31 38 34 2C 31 34 31  2C 31 2C 32 38 2C 32 30  |,184,141,1,28,20|
00000500: 32 00 22 0D 0C 03 83 32  30 38 2C 32 34 37 2C 38  |2."....208,247,8|
00000510: 30 2C 32 35 34 2C 33 32  2C 30 2C 32 35 34 2C 31  |0,254,32,0,254,1|
00000520: 36 39 00 44 0D 16 03 83  31 2C 37 36 2C 31 30 35  |69.D....1,76,105|
00000530: 2C 32 34 39 2C 32 33 34  2C 32 33 34 2C 32 33 34  |,249,234,234,234|
00000540: 2C 32 33 34 00 00 00                              |,234...         |
..(.... *INSIDE COMMODORE DOS* *PG. 126*
.?.... *JJM*   *041287*.].D.. DESTROY A 
SECTOR - 1541.H.N..D$(7)...X..".DESTROY 
A SECTOR - 1541"......".INSERT CLONE IN 
DRIVE".Q....".DESTROY TRACK AND SECTOR (
T,S)";T,S......T.1.T.35..... .NS.20.2.(T
.17).(T.24).(T.30)......S.0.S.NS...0....
".ARE YOU SURE  Y...";Q$.?....Q$.."Y"...
L.H..15,8,15.Y.R..15,"I0".Q....15,EN$,EM
$,ET$,ES$......EN$."00".280......"."EN$"
, "EM$","ET$","ES$..... 15............ S
EEK.N....S.0.S.NS:.300.X.".S.S.1...,.JOB
.176...6..570...@.. READ...J.JOB.128...T
..570...^..J.0.7.#.H..I.0.7.*.R..D.?.|.D
$(J).D$(J).G(D).F....I.M....J.U...I.0.`.
...J.0.7.....15,"M-W"G(I)G(5)G(8)D$(J).
....I.I.8...B..J...L.. EXECUTE...V..15,"
M-W"G(2)G(0)G(1)G(224).T....15,"M-R"G(2)
G(0)......#15,E$......E$."".E$.G(0).....
E.F(E$)......E.127.480..... 15.$....".DO
NE!".*.&...:.0.. JOB QUEUE.D.:.TRY.0.N.D
..15,"M-W"G(8)G(0)G(4)G(T)G(S)G(T)G(S)..
.N..15,"M-W"G(1)G(0)G(1)G(JOB)...X.TRY.T
RY.1...B..15,"M-R"G(1)G(0)...L..#15,E$.Q
.V..E$."".E$.G(0).....E.F(E$)......TRY.5
00.680......E.127.600......E.1....... 15
.!...."..FAILED.".'.....>.F.. DESTROY A 
SECTOR.].P..32,16,245,32,86,245,162,0...
Z..80,254,184,202,208,250,162,69......80
,254,184,202,208,250,169,255.B....141,3,
28,173,12,28,41,31......9,192,141,12,28,
162,0,169......85,80,254,184,141,1,28,20
2."....208,247,80,254,32,0,254,169.D....
1,76,105,249,234,234,234,234...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL