WRT23SGL
FILE INFORMATION
FILENAME(S): WRT23SGL
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:22:53
APPEARS ON: 1 disk(s)
FILE HASH
e4e64826bef9042bd0682f8c0142d3f9685d7ec98db0faf1439f59e56372b688
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DOS VADER | WRT23SGL | PRG | DuncanTwain | 27 | 1 | 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 33 20 2D 20 53 49 4E 47 4C |WRITE 23 - 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 25 00 8B 43 |DV.9:.100.:.%..C| 00000130: 48 24 B3 B1 22 43 22 A7 32 37 00 44 09 28 00 89 |H$.."C".27.D.(..| 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 73 09 6E 00 86 44 24 28 |:.646,1.s.n..D$(| 00000170: 31 31 29 00 A4 09 78 00 99 C7 28 31 34 37 29 3A |11)...x...(147):| 00000180: 99 A3 39 29 22 12 45 52 52 4F 52 20 32 33 20 4F |..9)".ERROR 23 O| 00000190: 4E 20 53 49 4E 47 4C 45 20 53 45 43 54 4F 52 22 |N SINGLE SECTOR"| 000001A0: 3A 99 3A 99 00 C5 09 82 00 99 A3 35 29 22 50 4C |:.:........5)"PL| 000001B0: 41 43 45 20 43 4C 4F 4E 45 20 49 44 20 44 52 49 |ACE CLONE ID DRI| 000001C0: 56 45 22 44 56 00 F0 09 8C 00 99 A3 35 29 22 57 |VE"DV.......5)"W| 000001D0: 52 49 54 45 20 54 52 41 43 4B 20 26 20 53 45 43 |RITE TRACK & SEC| 000001E0: 54 4F 52 20 28 54 2C 53 29 22 3B 3A 85 54 2C 53 |TOR (T,S)";:.T,S| 000001F0: 00 04 0A 96 00 8B 54 B3 31 B0 54 B1 33 35 A7 89 |......T.1.T.35..| 00000200: 31 38 30 30 00 25 0A A0 00 4E 53 B2 32 30 AA 32 |1800.%...NS.20.2| 00000210: AC 28 54 B1 31 37 29 AA 28 54 B1 32 34 29 AA 28 |.(T.17).(T.24).(| 00000220: 54 B1 33 30 29 00 39 0A AA 00 8B 53 B3 30 B0 53 |T.30).9....S.0.S| 00000230: B1 4E 53 A7 89 31 38 30 30 00 5B 0A B4 00 99 A3 |.NS..1800.[.....| 00000240: 35 29 22 41 52 45 20 59 4F 55 20 53 55 52 45 20 |5)"ARE YOU SURE | 00000250: 20 59 9D 9D 9D 22 3B 3A 85 51 24 00 6E 0A BE 00 | Y...";:.Q$.n...| 00000260: 8B 51 24 B3 B1 22 59 22 A7 89 31 38 30 30 00 7C |.Q$.."Y"..1800.|| 00000270: 0A C8 00 9F 31 35 2C 44 56 2C 31 35 00 89 0A D2 |....15,DV,15....| 00000280: 00 98 31 35 2C 22 49 30 22 00 A1 0A DC 00 84 31 |..15,"I0"......1| 00000290: 35 2C 45 4E 24 2C 45 4D 24 2C 45 54 24 2C 45 53 |5,EN$,EM$,ET$,ES| 000002A0: 24 00 B3 0A E6 00 8B 45 4E 24 B2 22 30 30 22 89 |$......EN$."00".| 000002B0: 32 38 30 00 DA 0A F0 00 99 22 11 22 3B 3A 99 A3 |280......".";:..| 000002C0: 35 29 45 4E 24 22 2C 20 22 45 4D 24 22 2C 20 22 |5)EN$", "EM$", "| 000002D0: 45 54 24 22 2C 20 22 45 53 24 00 E2 0A FA 00 A0 |ET$", "ES$......| 000002E0: 31 35 00 EC 0A 04 01 89 31 38 30 30 00 F2 0A 0E |15......1800....| 000002F0: 01 3A 00 FE 0A 18 01 4A 4F 42 B2 31 37 36 00 07 |.:.....JOB.176..| 00000300: 0B 22 01 8D 35 35 30 00 0D 0B 2C 01 3A 00 19 0B |."..550...,.:...| 00000310: 36 01 4A 4F 42 B2 31 32 38 00 22 0B 40 01 8D 35 |6.JOB.128.".@..5| 00000320: 35 30 00 2E 0B 4A 01 81 4A B2 30 A4 31 31 00 39 |50...J..J.0.11.9| 00000330: 0B 54 01 81 49 B2 30 A4 37 00 40 0B 5E 01 87 44 |.T..I.0.7.@.^..D| 00000340: 00 55 0B 68 01 44 24 28 4A 29 B2 44 24 28 4A 29 |.U.h.D$(J).D$(J)| 00000350: AA C7 28 44 29 00 5C 0B 72 01 82 49 00 63 0B 7C |..(D).\.r..I.c.|| 00000360: 01 82 4A 00 6B 0B 86 01 49 B2 30 00 77 0B 90 01 |..J.k...I.0.w...| 00000370: 81 4A B2 30 A4 31 31 00 96 0B 9A 01 98 31 35 2C |.J.0.11......15,| 00000380: 22 4D 2D 57 22 C7 28 49 29 C7 28 35 29 C7 28 38 |"M-W".(I).(5).(8| 00000390: 29 44 24 28 4A 29 00 A0 0B A4 01 49 B2 49 AA 38 |)D$(J).....I.I.8| 000003A0: 00 A7 0B AE 01 82 4A 00 AD 0B B8 01 3A 00 CD 0B |......J.....:...| 000003B0: C2 01 98 31 35 2C 22 4D 2D 57 22 C7 28 32 29 C7 |...15,"M-W".(2).| 000003C0: 28 30 29 C7 28 31 29 C7 28 32 32 34 29 00 E3 0B |(0).(1).(224)...| 000003D0: CC 01 98 31 35 2C 22 4D 2D 52 22 C7 28 32 29 C7 |...15,"M-R".(2).| 000003E0: 28 30 29 00 EF 0B D6 01 A1 23 31 35 2C 45 24 00 |(0)......#15,E$.| 000003F0: 02 0C E0 01 8B 45 24 B2 22 22 A7 45 24 B2 C7 28 |.....E$."".E$..(| 00000400: 30 29 00 0E 0C EA 01 45 B2 C6 28 45 24 29 00 1D |0).....E..(E$)..| 00000410: 0C F4 01 8B 45 B1 31 32 37 89 34 36 30 00 25 0C |....E.127.460.%.| 00000420: FE 01 A0 31 35 00 40 0C 08 02 99 22 11 11 22 3B |...15.@...."..";| 00000430: 3A 99 A3 31 35 29 22 41 4C 4C 20 44 4F 4E 45 21 |:..15)"ALL DONE!| 00000440: 00 4A 0C 12 02 89 31 38 30 30 00 50 0C 1C 02 3A |.J....1800.P...:| 00000450: 00 5A 0C 26 02 54 52 59 B2 30 00 84 0C 30 02 98 |.Z.&.TRY.0...0..| 00000460: 31 35 2C 22 4D 2D 57 22 C7 28 38 29 C7 28 30 29 |15,"M-W".(8).(0)| 00000470: C7 28 34 29 C7 28 54 29 C7 28 53 29 C7 28 54 29 |.(4).(T).(S).(T)| 00000480: C7 28 53 29 00 A4 0C 3A 02 98 31 35 2C 22 4D 2D |.(S)...:..15,"M-| 00000490: 57 22 C7 28 31 29 C7 28 30 29 C7 28 31 29 C7 28 |W".(1).(0).(1).(| 000004A0: 4A 4F 42 29 00 B2 0C 44 02 54 52 59 B2 54 52 59 |JOB)...D.TRY.TRY| 000004B0: AA 31 00 C8 0C 4E 02 98 31 35 2C 22 4D 2D 52 22 |.1...N..15,"M-R"| 000004C0: C7 28 31 29 C7 28 30 29 00 D4 0C 58 02 A1 23 31 |.(1).(0)...X..#1| 000004D0: 35 2C 45 24 00 E7 0C 62 02 8B 45 24 B2 22 22 A7 |5,E$...b..E$."".| 000004E0: 45 24 B2 C7 28 30 29 00 F3 0C 6C 02 45 B2 C6 28 |E$..(0)...l.E..(| 000004F0: 45 24 29 00 04 0D 76 02 8B 54 52 59 B2 35 30 30 |E$)...v..TRY.500| 00000500: 89 36 36 30 00 13 0D 80 02 8B 45 B1 31 32 37 89 |.660......E.127.| 00000510: 35 38 30 00 19 0D 8A 02 8E 00 21 0D 94 02 A0 31 |580.......!....1| 00000520: 35 00 3C 0D 9E 02 99 22 11 11 22 3B 3A 99 A3 31 |5.<...."..";:..1| 00000530: 36 29 22 49 20 46 41 49 4C 45 44 21 00 46 0D A8 |6)"I FAILED!.F..| 00000540: 02 89 31 38 30 30 00 4C 0D B2 02 3A 00 6D 0D BC |..1800.L...:.m..| 00000550: 02 83 31 36 39 2C 34 2C 31 33 33 2C 34 39 2C 31 |..169,4,133,49,1| 00000560: 36 35 2C 35 38 2C 31 37 30 2C 32 33 32 00 8E 0D |65,58,170,232...| 00000570: C6 02 83 31 33 38 2C 31 33 33 2C 35 38 2C 33 32 |...138,133,58,32| 00000580: 2C 31 34 33 2C 32 34 37 2C 33 32 2C 31 36 00 B0 |,143,247,32,16..| 00000590: 0D D0 02 83 32 34 35 2C 31 36 32 2C 38 2C 38 30 |....245,162,8,80| 000005A0: 2C 32 35 34 2C 31 38 34 2C 32 30 32 2C 32 30 38 |,254,184,202,208| 000005B0: 00 D1 0D DA 02 83 32 35 30 2C 31 36 39 2C 32 35 |......250,169,25| 000005C0: 35 2C 31 34 31 2C 33 2C 32 38 2C 31 37 33 2C 31 |5,141,3,28,173,1| 000005D0: 32 00 EF 0D E4 02 83 32 38 2C 34 31 2C 33 31 2C |2......28,41,31,| 000005E0: 39 2C 31 39 32 2C 31 34 31 2C 31 32 2C 32 38 00 |9,192,141,12,28.| 000005F0: 0F 0E EE 02 83 31 36 39 2C 32 35 35 2C 31 36 32 |.....169,255,162| 00000600: 2C 35 2C 31 34 31 2C 31 2C 32 38 2C 31 38 34 00 |,5,141,1,28,184.| 00000610: 33 0E F8 02 83 38 30 2C 32 35 34 2C 31 38 34 2C |3....80,254,184,| 00000620: 32 30 32 2C 32 30 38 2C 32 35 30 2C 31 36 30 2C |202,208,250,160,| 00000630: 31 38 37 00 51 0E 02 03 83 31 38 35 2C 30 2C 31 |187.Q....185,0,1| 00000640: 2C 38 30 2C 32 35 34 2C 31 38 34 2C 31 34 31 2C |,80,254,184,141,| 00000650: 31 00 70 0E 0C 03 83 32 38 2C 32 30 30 2C 32 30 |1.p....28,200,20| 00000660: 38 2C 32 34 34 2C 31 38 35 2C 30 2C 34 2C 38 30 |8,244,185,0,4,80| 00000670: 00 92 0E 16 03 83 32 35 34 2C 31 38 34 2C 31 34 |......254,184,14| 00000680: 31 2C 31 2C 32 38 2C 32 30 30 2C 32 30 38 2C 32 |1,1,28,200,208,2| 00000690: 34 34 00 B1 0E 20 03 83 38 30 2C 32 35 34 2C 33 |44... ..80,254,3| 000006A0: 32 2C 30 2C 32 35 34 2C 31 36 39 2C 35 2C 31 33 |2,0,254,169,5,13| 000006B0: 33 00 D2 0E 2A 03 83 34 39 2C 31 36 39 2C 31 2C |3...*..49,169,1,| 000006C0: 37 36 2C 31 30 35 2C 32 34 39 2C 32 33 34 2C 32 |76,105,249,234,2| 000006D0: 33 34 00 F2 0E 08 07 99 3A 99 22 48 49 54 20 41 |34......:."HIT A| 000006E0: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN| 000006F0: 55 45 00 08 0F 12 07 92 31 39 37 2C 36 34 2C 36 |UE......197,64,6| 00000700: 34 3A 97 31 39 38 2C 30 00 1C 0F 17 07 97 36 34 |4:.198,0......64| 00000710: 36 2C 30 3A 97 35 33 32 38 31 2C 30 00 36 0F 1C |6,0:.53281,0.6..| 00000720: 07 99 C7 28 31 34 37 29 3A 99 22 4C 4F 41 44 49 |...(147):."LOADI| 00000730: 4E 47 11 11 11 22 00 5D 0F 26 07 99 22 4C 4F 41 |NG...".].&.."LOA| 00000740: 44 22 C7 28 33 34 29 22 4D 45 4E 55 20 34 20 2B |D".(34)"MENU 4 +| 00000750: 22 C7 28 33 34 29 22 2C 38 91 91 91 22 00 92 0F |".(34)",8..."...| 00000760: 30 07 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 38 |0..631,13:.632,8| 00000770: 32 3A 97 36 33 33 2C 38 35 3A 97 36 33 34 2C 37 |2:.633,85:.634,7| 00000780: 38 3A 97 36 33 35 2C 31 33 3A 97 31 39 38 2C 35 |8:.635,13:.198,5| 00000790: 3A 80 00 00 00 |:.... |
.......53281,3.=....G(147):..8)"WRITE 23 - 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.(.. 1800.J.D.:.G.I..53280,0:.53281,0:.646,1. S.N..D$(11)...X..G(147):..9)".ERROR 23 O N SINGLE SECTOR":.:..E.....5)"PLACE CLON E ID DRIVE"DV.......5)"WRITE TRACK & SEC TOR (T,S)";:.T,S......T.1.T.35..1800.%. .NS.20.2.(T.17).(T.24).(T.30).9....S.0.S .NS..1800.[.....5)"ARE YOU SURE Y...";: .Q$.N....Q$.."Y"..1800.|.H..15,DV,15...R ..15,"I0"......15,EN$,EM$,ET$,ES$......E N$."00".280.Z....".";:..5)EN$", "EM$", " ET$", "ES$..... 15......1800.....:.....J OB.176..."..550...,.:...6.JOB.128.".@..5 50...J..J.0.11.9.T..I.0.7.@.^..D.U.H.D$( J).D$(J).G(D).\.R..I.C.|..J.K...I.0.W... .J.0.11......15,"M-W"G(I)G(5)G(8)D$(J). ...I.I.8......J.....:.M.B..15,"M-W"G(2)G (0)G(1)G(224)...L..15,"M-R"G(2)G(0)...V. .#15,E$......E$."".E$.G(0).....E.F(E$).. ....E.127.460.%... 15.@...."..";:..15)"A LL DONE!.J....1800.P...:.Z.&.TRY.0...0.. 15,"M-W"G(8)G(0)G(4)G(T)G(S)G(T)G(S)...: ..15,"M-W"G(1)G(0)G(1)G(JOB)...D.TRY.TRY .1.H.N..15,"M-R"G(1)G(0).T.X..#15,E$...B ..E$."".E$.G(0)...L.E.F(E$)...V..TRY.500 .660......E.127.580.......!... 15.<...." ..";:..16)"I FAILED!.F....1800.L...:.M.. ..169,4,133,49,165,58,170,232...F..138,1 33,58,32,143,247,32,16...P..245,162,8,80 ,254,184,202,208.Q.Z..250,169,255,141,3, 28,173,12......28,41,31,9,192,141,12,28. .....169,255,162,5,141,1,28,184.3....80, 254,184,202,208,250,160,187.Q....185,0,1 ,80,254,184,141,1.P....28,200,208,244,18 5,0,4,80......254,184,141,1,28,200,208,2 44... ..80,254,32,0,254,169,5,133.R.*..4 9,169,1,76,105,249,234,234......:."HIT A NY KEY TO CONTINUE......197,64,64:.198,0 ......646,0:.53281,0.6....G(147):."LOADI NG...".].&.."LOAD"G(34)"MENU 4 +"G(34)", 8..."...0..631,13:.632,82:.633,85:.634,7 8:.635,13:.198,5:....
> CLICK IMAGE PREVIEW FOR FULL MODAL