WRT21SGL

FILE INFORMATION

FILENAME(S): WRT21SGL

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 21:22:53

APPEARS ON: 1 disk(s)

FILE HASH

3dcb149564d4e869c1fe800b5f2370f8d198f314c15c50a19c6370b0e6c3b4bf

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DOS VADER	WRT21SGL	PRG	DuncanTwain	27	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0E 08 05 00 97 35  33 32 38 31 2C 33 00 3D  |.......53281,3.=|
00000010: 08 07 00 99 C7 28 31 34  37 29 3A 99 A3 38 29 22  |.....(147):..8)"|
00000020: 57 52 49 54 45 20 32 31  20 2D 20 53 49 4E 47 4C  |WRITE 21 - SINGL|
00000030: 45 20 53 45 43 54 4F 52  22 3A 99 3A 99 00 66 08  |E SECTOR":.:..f.|
00000040: 0A 00 99 22 11 11 22 3B  3A 99 A3 31 31 29 22 44  |..."..";:..11)"D|
00000050: 49 53 4B 20 43 4F 4E 46  49 47 55 52 41 54 49 4F  |ISK CONFIGURATIO|
00000060: 4E 22 3A 99 3A 99 00 7F  08 0F 00 99 A3 35 29 22  |N":.:........5)"|
00000070: 5B 41 5D 20 44 45 56 49  43 45 20 38 22 3A 99 00  |[A] DEVICE 8":..|
00000080: 98 08 14 00 99 A3 35 29  22 5B 42 5D 20 44 45 56  |......5)"[B] DEV|
00000090: 49 43 45 20 39 22 3A 99  00 C3 08 16 00 99 A3 35  |ICE 9":........5|
000000A0: 29 22 5B 43 5D 20 41 42  4F 52 54 20 54 4F 20 4D  |)"[C] ABORT TO M|
000000B0: 45 4E 55 20 4C 45 56 45  4C 20 46 4F 55 52 22 3A  |ENU LEVEL FOUR":|
000000C0: 99 3A 99 00 E7 08 19 00  99 A3 31 30 29 22 50 4C  |.:........10)"PL|
000000D0: 45 41 53 45 20 43 48 4F  4F 53 45 20 28 41 2C 20  |EASE CHOOSE (A, |
000000E0: 42 20 4F 52 20 43 29 00  FB 08 1B 00 A1 43 48 24  |B OR C)......CH$|
000000F0: 3A 8B 43 48 24 B2 22 22  A7 32 37 00 12 09 1E 00  |:.CH$."".27.....|
00000100: 8B 43 48 24 B2 22 41 22  A7 44 56 B2 38 3A 89 31  |.CH$."A".DV.8:.1|
00000110: 30 30 00 29 09 23 00 8B  43 48 24 B2 22 42 22 A7  |00.).#..CH$."B".|
00000120: 44 56 B2 39 3A 89 31 30  30 00 3A 09 28 00 8B 43  |DV.9:.100.:.(..C|
00000130: 48 24 B3 B1 22 43 22 A7  32 37 00 44 09 32 00 89  |H$.."C".27.D.2..|
00000140: 31 38 30 30 00 4A 09 64  00 3A 00 67 09 69 00 97  |1800.J.d.:.g.i..|
00000150: 35 33 32 38 30 2C 30 3A  97 35 33 32 38 31 2C 30  |53280,0:.53281,0|
00000160: 3A 97 36 34 36 2C 31 00  72 09 6E 00 86 44 24 28  |:.646,1.r.n..D$(|
00000170: 37 29 00 A1 09 78 00 99  C7 28 31 34 37 29 3A 99  |7)...x...(147):.|
00000180: A3 38 29 22 45 52 52 4F  52 20 32 31 20 2D 20 53  |.8)"ERROR 21 - S|
00000190: 49 4E 47 4C 45 20 53 45  43 54 4F 52 22 3A 99 3A  |INGLE SECTOR":.:|
000001A0: 99 00 C2 09 82 00 99 A3  35 29 22 50 4C 41 43 45  |........5)"PLACE|
000001B0: 20 43 4C 4F 4E 45 20 49  44 20 44 52 49 56 45 22  | CLONE ID DRIVE"|
000001C0: 44 56 00 EF 09 8C 00 99  A3 35 29 22 11 11 57 52  |DV.......5)"..WR|
000001D0: 49 54 45 20 54 4F 2D 54  52 20 26 20 53 45 43 20  |ITE TO-TR & SEC |
000001E0: 28 41 53 20 31 2C 32 29  22 3B 3A 85 54 2C 53 00  |(AS 1,2)";:.T,S.|
000001F0: 03 0A 96 00 8B 54 B3 31  B0 54 B1 33 35 A7 89 31  |.....T.1.T.35..1|
00000200: 38 30 30 00 24 0A A0 00  4E 53 B2 32 30 AA 32 AC  |800.$...NS.20.2.|
00000210: 28 54 B1 31 37 29 AA 28  54 B1 32 34 29 AA 28 54  |(T.17).(T.24).(T|
00000220: B1 33 30 29 00 38 0A AA  00 8B 53 B3 30 B0 53 B1  |.30).8....S.0.S.|
00000230: 4E 53 A7 89 31 38 30 30  00 5C 0A B4 00 99 A3 35  |NS..1800.\.....5|
00000240: 29 22 11 11 41 52 45 20  59 4F 55 20 53 55 52 45  |)"..ARE YOU SURE|
00000250: 20 20 59 9D 9D 9D 22 3B  3A 85 51 24 00 6F 0A BE  |  Y...";:.Q$.o..|
00000260: 00 8B 51 24 B3 B1 22 59  22 A7 89 31 38 30 30 00  |..Q$.."Y"..1800.|
00000270: 7D 0A C8 00 9F 31 35 2C  44 56 2C 31 35 00 8A 0A  |}....15,DV,15...|
00000280: D2 00 98 31 35 2C 22 49  30 22 00 A2 0A DC 00 84  |...15,"I0"......|
00000290: 31 35 2C 45 4E 24 2C 45  4D 24 2C 45 54 24 2C 45  |15,EN$,EM$,ET$,E|
000002A0: 53 24 00 B4 0A E6 00 8B  45 4E 24 B2 22 30 30 22  |S$......EN$."00"|
000002B0: 89 32 38 30 00 D3 0A F0  00 99 22 11 11 22 45 4E  |.280......".."EN|
000002C0: 24 22 2C 22 45 4D 24 22  2C 22 45 54 24 22 2C 22  |$","EM$","ET$","|
000002D0: 45 53 24 00 DB 0A FA 00  A0 31 35 00 E5 0A 04 01  |ES$......15.....|
000002E0: 89 31 38 30 30 00 EB 0A  0E 01 3A 00 FE 0A 18 01  |.1800.....:.....|
000002F0: 8B 53 B2 30 A7 53 B2 4E  53 3A 89 33 30 30 00 08  |.S.0.S.NS:.300..|
00000300: 0B 22 01 53 B2 53 AB 31  00 14 0B 2C 01 4A 4F 42  |.".S.S.1...,.JOB|
00000310: B2 31 37 36 00 1D 0B 36  01 8D 35 37 30 00 23 0B  |.176...6..570.#.|
00000320: 40 01 3A 00 2F 0B 4A 01  4A 4F 42 B2 31 32 38 00  |@.:./.J.JOB.128.|
00000330: 38 0B 54 01 8D 35 37 30  00 43 0B 5E 01 81 4A B2  |8.T..570.C.^..J.|
00000340: 30 A4 37 00 4E 0B 68 01  81 49 B2 30 A4 37 00 55  |0.7.N.h..I.0.7.U|
00000350: 0B 72 01 87 44 00 6A 0B  7C 01 44 24 28 4A 29 B2  |.r..D.j.|.D$(J).|
00000360: 44 24 28 4A 29 AA C7 28  44 29 00 71 0B 86 01 82  |D$(J)..(D).q....|
00000370: 49 00 78 0B 90 01 82 4A  00 80 0B 9A 01 49 B2 30  |I.x....J.....I.0|
00000380: 00 8B 0B A4 01 81 4A B2  30 A4 37 00 AA 0B AE 01  |......J.0.7.....|
00000390: 98 31 35 2C 22 4D 2D 57  22 C7 28 49 29 C7 28 35  |.15,"M-W".(I).(5|
000003A0: 29 C7 28 38 29 44 24 28  4A 29 00 B4 0B B8 01 49  |).(8)D$(J).....I|
000003B0: B2 49 AA 38 00 BB 0B C2  01 82 4A 00 C1 0B CC 01  |.I.8......J.....|
000003C0: 3A 00 E1 0B D6 01 98 31  35 2C 22 4D 2D 57 22 C7  |:......15,"M-W".|
000003D0: 28 32 29 C7 28 30 29 C7  28 31 29 C7 28 32 32 34  |(2).(0).(1).(224|
000003E0: 29 00 F7 0B E0 01 98 31  35 2C 22 4D 2D 52 22 C7  |)......15,"M-R".|
000003F0: 28 32 29 C7 28 30 29 00  03 0C EA 01 A1 23 31 35  |(2).(0)......#15|
00000400: 2C 45 24 00 16 0C F4 01  8B 45 24 B2 22 22 A7 45  |,E$......E$."".E|
00000410: 24 B2 C7 28 30 29 00 22  0C FE 01 45 B2 C6 28 45  |$..(0)."...E..(E|
00000420: 24 29 00 31 0C 08 02 8B  45 B1 31 32 37 89 34 38  |$).1....E.127.48|
00000430: 30 00 39 0C 12 02 A0 31  35 00 53 0C 1C 02 99 22  |0.9....15.S...."|
00000440: 11 11 22 3B 3A 99 A3 39  29 22 41 4C 4C 20 44 4F  |..";:..9)"ALL DO|
00000450: 4E 45 21 00 5D 0C 26 02  89 31 38 30 30 00 63 0C  |NE!.].&..1800.c.|
00000460: 30 02 3A 00 6D 0C 3A 02  54 52 59 B2 30 00 97 0C  |0.:.m.:.TRY.0...|
00000470: 44 02 98 31 35 2C 22 4D  2D 57 22 C7 28 38 29 C7  |D..15,"M-W".(8).|
00000480: 28 30 29 C7 28 34 29 C7  28 54 29 C7 28 53 29 C7  |(0).(4).(T).(S).|
00000490: 28 54 29 C7 28 53 29 00  B7 0C 4E 02 98 31 35 2C  |(T).(S)...N..15,|
000004A0: 22 4D 2D 57 22 C7 28 31  29 C7 28 30 29 C7 28 31  |"M-W".(1).(0).(1|
000004B0: 29 C7 28 4A 4F 42 29 00  C5 0C 58 02 54 52 59 B2  |).(JOB)...X.TRY.|
000004C0: 54 52 59 AA 31 00 DB 0C  62 02 98 31 35 2C 22 4D  |TRY.1...b..15,"M|
000004D0: 2D 52 22 C7 28 31 29 C7  28 30 29 00 E7 0C 6C 02  |-R".(1).(0)...l.|
000004E0: A1 23 31 35 2C 45 24 00  FA 0C 76 02 8B 45 24 B2  |.#15,E$...v..E$.|
000004F0: 22 22 A7 45 24 B2 C7 28  30 29 00 06 0D 80 02 45  |"".E$..(0).....E|
00000500: B2 C6 28 45 24 29 00 17  0D 8A 02 8B 54 52 59 B2  |..(E$)......TRY.|
00000510: 35 30 30 89 36 38 30 00  26 0D 94 02 8B 45 B1 31  |500.680.&....E.1|
00000520: 32 37 89 36 30 30 00 31  0D 9E 02 8B 45 B2 31 A7  |27.600.1....E.1.|
00000530: 8E 00 39 0D A8 02 A0 31  35 00 53 0D B2 02 99 22  |..9....15.S...."|
00000540: 11 11 22 3B 3A 99 A3 31  30 29 22 49 20 46 41 49  |..";:..10)"I FAI|
00000550: 4C 45 44 00 5D 0D BC 02  89 31 38 30 30 00 63 0D  |LED.]....1800.c.|
00000560: C6 02 3A 00 82 0D D0 02  83 33 32 2C 31 36 2C 32  |..:......32,16,2|
00000570: 34 35 2C 33 32 2C 38 36  2C 32 34 35 2C 31 36 32  |45,32,86,245,162|
00000580: 2C 30 00 A5 0D DA 02 83  38 30 2C 32 35 34 2C 31  |,0......80,254,1|
00000590: 38 34 2C 32 30 32 2C 32  30 38 2C 32 35 30 2C 31  |84,202,208,250,1|
000005A0: 36 32 2C 36 39 00 C9 0D  E4 02 83 38 30 2C 32 35  |62,69......80,25|
000005B0: 34 2C 31 38 34 2C 32 30  32 2C 32 30 38 2C 32 35  |4,184,202,208,25|
000005C0: 30 2C 31 36 39 2C 32 35  35 00 E7 0D EE 02 83 31  |0,169,255......1|
000005D0: 34 31 2C 33 2C 32 38 2C  31 37 33 2C 31 32 2C 32  |41,3,28,173,12,2|
000005E0: 38 2C 34 31 2C 33 31 00  06 0E F8 02 83 39 2C 31  |8,41,31......9,1|
000005F0: 39 32 2C 31 34 31 2C 31  32 2C 32 38 2C 31 36 32  |92,141,12,28,162|
00000600: 2C 30 2C 31 36 39 00 26  0E 02 03 83 38 35 2C 38  |,0,169.&....85,8|
00000610: 30 2C 32 35 34 2C 31 38  34 2C 31 34 31 2C 31 2C  |0,254,184,141,1,|
00000620: 32 38 2C 32 30 32 00 47  0E 0C 03 83 32 30 38 2C  |28,202.G....208,|
00000630: 32 34 37 2C 38 30 2C 32  35 34 2C 33 32 2C 30 2C  |247,80,254,32,0,|
00000640: 32 35 34 2C 31 36 39 00  69 0E 16 03 83 31 2C 37  |254,169.i....1,7|
00000650: 36 2C 31 30 35 2C 32 34  39 2C 32 33 34 2C 32 33  |6,105,249,234,23|
00000660: 34 2C 32 33 34 2C 32 33  34 00 89 0E 08 07 99 3A  |4,234,234......:|
00000670: 99 22 48 49 54 20 41 4E  59 20 4B 45 59 20 54 4F  |."HIT ANY KEY TO|
00000680: 20 43 4F 4E 54 49 4E 55  45 00 9F 0E 12 07 92 31  | CONTINUE......1|
00000690: 39 37 2C 36 34 2C 36 34  3A 97 31 39 38 2C 30 00  |97,64,64:.198,0.|
000006A0: B3 0E 17 07 97 36 34 36  2C 30 3A 97 35 33 32 38  |.....646,0:.5328|
000006B0: 31 2C 30 00 CD 0E 1C 07  99 C7 28 31 34 37 29 3A  |1,0.......(147):|
000006C0: 99 22 4C 4F 41 44 49 4E  47 11 11 11 22 00 F4 0E  |."LOADING..."...|
000006D0: 26 07 99 22 4C 4F 41 44  22 C7 28 33 34 29 22 4D  |&.."LOAD".(34)"M|
000006E0: 45 4E 55 20 34 20 2B 22  C7 28 33 34 29 22 2C 38  |ENU 4 +".(34)",8|
000006F0: 91 91 91 22 00 29 0F 30  07 97 36 33 31 2C 31 33  |...".).0..631,13|
00000700: 3A 97 36 33 32 2C 38 32  3A 97 36 33 33 2C 38 35  |:.632,82:.633,85|
00000710: 3A 97 36 33 34 2C 37 38  3A 97 36 33 35 2C 31 33  |:.634,78:.635,13|
00000720: 3A 97 31 39 38 2C 35 3A  80 00 00 00              |:.198,5:....    |

.......53281,3.=....G(147):..8)"WRITE 21
 - SINGLE SECTOR":.:..F...."..";:..11)"D
ISK CONFIGURATION":.:.......5)"[A] DEVI
CE 8":........5)"[B] DEVICE 9":..C.....5
)"[C] ABORT TO MENU LEVEL FOUR":.:......
..10)"PLEASE CHOOSE (A, B OR C)......CH$
:.CH$."".27......CH$."A".DV.8:.100.).#..
CH$."B".DV.9:.100.:.(..CH$.."C".27.D.2..
1800.J.D.:.G.I..53280,0:.53281,0:.646,1.
R.N..D$(7)...X..G(147):..8)"ERROR 21 - S
INGLE SECTOR":.:..B.....5)"PLACE CLONE I
D DRIVE"DV.......5)"..WRITE TO-TR & SEC 
(AS 1,2)";:.T,S......T.1.T.35..1800.$. .
NS.20.2.(T.17).(T.24).(T.30).8....S.0.S.
NS..1800.\.....5)"..ARE YOU SURE  Y...";
:.Q$.O....Q$.."Y"..1800.}.H..15,DV,15...
R..15,"I0"......15,EN$,EM$,ET$,ES$......
EN$."00".280.S....".."EN$","EM$","ET$","
ES$..... 15......1800.....:......S.0.S.N
S:.300...".S.S.1...,.JOB.176...6..570.#.
@.:./.J.JOB.128.8.T..570.C.^..J.0.7.N.H.
.I.0.7.U.R..D.J.|.D$(J).D$(J).G(D).Q....
I.X....J.....I.0......J.0.7......15,"M-W
"G(I)G(5)G(8)D$(J).....I.I.8...B..J.A.L.
:...V..15,"M-W"G(2)G(0)G(1)G(224)......1
5,"M-R"G(2)G(0)......#15,E$......E$."".E
$.G(0)."...E.F(E$).1....E.127.480.9... 1
5.S...."..";:..9)"ALL DONE!.].&..1800.C.
0.:.M.:.TRY.0...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).E.X.TRY.TRY.1...B..15,"M-R"G(1)G
(0)...L..#15,E$...V..E$."".E$.G(0).....E
.F(E$)......TRY.500.680.&....E.127.600.1
....E.1...9... 15.S...."..";:..10)"I FAI
LED.]....1800.C.F.:...P..32,16,245,32,86
,245,162,0...Z..80,254,184,202,208,250,1
62,69.I....80,254,184,202,208,250,169,25
5......141,3,28,173,12,28,41,31......9,1
92,141,12,28,162,0,169.&....85,80,254,18
4,141,1,28,202.G....208,247,80,254,32,0,
254,169.I....1,76,105,249,234,234,234,23
4......:."HIT ANY KEY TO CONTINUE......1
97,64,64:.198,0......646,0:.53281,0.M...
.G(147):."LOADING..."...&.."LOAD"G(34)"M
ENU 4 +"G(34)",8...".).0..631,13:.632,82
:.633,85:.634,78:.635,13:.198,5:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL