WRT20SGL
FILE INFORMATION
FILENAME(S): WRT20SGL
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:22:53
APPEARS ON: 1 disk(s)
FILE HASH
c2a678db5c6d59f17d1729ac9b69b6ddce24f3513baeb5a31737a1a1eca65661
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DOS VADER | WRT20SGL | PRG | DuncanTwain | 9 | 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 30 20 2D 20 53 49 4E 47 4C |WRITE 20 - 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 73 09 6E 00 86 44 24 28 |:.646,1.s.n..D$(| 00000170: 31 31 29 00 A7 09 78 00 99 C7 28 31 34 37 29 3A |11)...x...(147):| 00000180: 99 A3 37 29 22 12 57 52 49 54 45 20 45 52 52 4F |..7)".WRITE ERRO| 00000190: 52 20 32 30 2D 53 49 4E 47 4C 45 20 53 45 43 54 |R 20-SINGLE SECT| 000001A0: 4F 52 22 3A 99 3A 99 00 C9 09 82 00 99 A3 35 29 |OR":.:........5)| 000001B0: 22 50 4C 41 43 45 20 43 4C 4F 4E 45 20 49 4E 20 |"PLACE CLONE IN | 000001C0: 44 52 49 56 45 20 22 44 56 00 F1 09 8C 00 99 A3 |DRIVE "DV.......| 000001D0: 35 29 22 57 52 49 54 45 20 54 52 41 43 4B 20 26 |5)"WRITE TRACK &| 000001E0: 20 53 45 43 20 28 54 2C 53 29 22 3B 3A 85 54 2C | SEC (T,S)";:.T,| 000001F0: 53 00 05 0A 96 00 8B 54 B3 31 B0 54 B1 33 35 A7 |S......T.1.T.35.| 00000200: 89 31 38 30 30 00 26 0A A0 00 4E 53 B2 32 30 AA |.1800.&...NS.20.| 00000210: 32 AC 28 54 B1 31 37 29 AA 28 54 B1 32 34 29 AA |2.(T.17).(T.24).| 00000220: 28 54 B1 33 30 29 00 3A 0A AA 00 8B 53 B3 30 B0 |(T.30).:....S.0.| 00000230: 53 B1 4E 53 A7 89 31 38 30 30 00 5C 0A B4 00 99 |S.NS..1800.\....| 00000240: A3 35 29 22 41 52 45 20 59 4F 55 20 53 55 52 45 |.5)"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 D6 0A F0 00 99 22 11 11 22 45 4E |.280......".."EN| 000002C0: 24 22 2C 20 22 45 4D 24 22 2C 20 22 45 54 24 22 |$", "EM$", "ET$"| 000002D0: 2C 20 22 45 53 24 00 DE 0A FA 00 A0 31 35 00 E8 |, "ES$......15..| 000002E0: 0A 04 01 89 31 38 30 30 00 EE 0A 0E 01 3A 00 01 |....1800.....:..| 000002F0: 0B 18 01 8B 53 B2 30 A7 53 B2 4E 53 3A 89 33 30 |....S.0.S.NS:.30| 00000300: 30 00 0B 0B 22 01 53 B2 53 AB 31 00 17 0B 2C 01 |0...".S.S.1...,.| 00000310: 4A 4F 42 B2 31 37 36 00 20 0B 36 01 8D 35 37 30 |JOB.176. .6..570| 00000320: 00 26 0B 40 01 3A 00 32 0B 4A 01 4A 4F 42 B2 31 |.&.@.:.2.J.JOB.1| 00000330: 32 38 00 3B 0B 54 01 8D 35 37 30 00 47 0B 5E 01 |28.;.T..570.G.^.| 00000340: 81 4A B2 30 A4 31 31 00 52 0B 68 01 81 49 B2 30 |.J.0.11.R.h..I.0| 00000350: A4 37 00 59 0B 72 01 87 44 00 6E 0B 7C 01 44 24 |.7.Y.r..D.n.|.D$| 00000360: 28 4A 29 B2 44 24 28 4A 29 AA C7 28 44 29 00 75 |(J).D$(J)..(D).u| 00000370: 0B 86 01 82 49 00 7C 0B 90 01 82 4A 00 84 0B 9A |....I.|....J....| 00000380: 01 49 B2 30 00 90 0B A4 01 81 4A B2 30 A4 31 31 |.I.0......J.0.11| 00000390: 00 AF 0B AE 01 98 31 35 2C 22 4D 2D 57 22 C7 28 |......15,"M-W".(| 000003A0: 49 29 C7 28 35 29 C7 28 38 29 44 24 28 4A 29 00 |I).(5).(8)D$(J).| 000003B0: B9 0B B8 01 49 B2 49 AA 38 00 C0 0B C2 01 82 4A |....I.I.8......J| 000003C0: 00 C6 0B CC 01 3A 00 E6 0B D6 01 98 31 35 2C 22 |.....:......15,"| 000003D0: 4D 2D 57 22 C7 28 32 29 C7 28 30 29 C7 28 31 29 |M-W".(2).(0).(1)| 000003E0: C7 28 32 32 34 29 00 FC 0B E0 01 98 31 35 2C 22 |.(224)......15,"| 000003F0: 4D 2D 52 22 C7 28 32 29 C7 28 30 29 00 08 0C EA |M-R".(2).(0)....| 00000400: 01 A1 23 31 35 2C 45 24 00 1B 0C F4 01 8B 45 24 |..#15,E$......E$| 00000410: B2 22 22 A7 45 24 B2 C7 28 30 29 00 27 0C FE 01 |."".E$..(0).'...| 00000420: 45 B2 C6 28 45 24 29 00 36 0C 08 02 8B 45 B1 31 |E..(E$).6....E.1| 00000430: 32 37 89 34 38 30 00 3E 0C 12 02 A0 31 35 00 58 |27.480.>....15.X| 00000440: 0C 1C 02 99 22 11 11 22 3B 3A 99 A3 35 29 22 41 |...."..";:..5)"A| 00000450: 4C 4C 20 44 4F 4E 45 21 00 62 0C 26 02 89 31 38 |LL DONE!.b.&..18| 00000460: 30 30 00 68 0C 30 02 3A 00 72 0C 3A 02 54 52 59 |00.h.0.:.r.:.TRY| 00000470: B2 30 00 9C 0C 44 02 98 31 35 2C 22 4D 2D 57 22 |.0...D..15,"M-W"| 00000480: C7 28 38 29 C7 28 30 29 C7 28 34 29 C7 28 54 29 |.(8).(0).(4).(T)| 00000490: C7 28 53 29 C7 28 54 29 C7 28 53 29 00 BC 0C 4E |.(S).(T).(S)...N| 000004A0: 02 98 31 35 2C 22 4D 2D 57 22 C7 28 31 29 C7 28 |..15,"M-W".(1).(| 000004B0: 30 29 C7 28 31 29 C7 28 4A 4F 42 29 00 CA 0C 58 |0).(1).(JOB)...X| 000004C0: 02 54 52 59 B2 54 52 59 AA 31 00 E0 0C 62 02 98 |.TRY.TRY.1...b..| 000004D0: 31 35 2C 22 4D 2D 52 22 C7 28 31 29 C7 28 30 29 |15,"M-R".(1).(0)| 000004E0: 00 EC 0C 6C 02 A1 23 31 35 2C 45 24 00 FF 0C 76 |...l..#15,E$...v| 000004F0: 02 8B 45 24 B2 22 22 A7 45 24 B2 C7 28 30 29 00 |..E$."".E$..(0).| 00000500: 0B 0D 80 02 45 B2 C6 28 45 24 29 00 1C 0D 8A 02 |....E..(E$).....| 00000510: 8B 54 52 59 B2 35 30 30 89 36 38 30 00 2B 0D 94 |.TRY.500.680.+..| 00000520: 02 8B 45 B1 31 32 37 89 36 30 30 00 36 0D 9E 02 |..E.127.600.6...| 00000530: 8B 45 B2 31 A7 8E 00 3E 0D A8 02 A0 31 35 00 59 |.E.1...>....15.Y| 00000540: 0D B2 02 99 22 11 11 22 3B 3A 99 A3 31 35 29 22 |...."..";:..15)"| 00000550: 49 20 46 41 49 4C 45 44 21 00 63 0D BC 02 89 31 |I FAILED!.c....1| 00000560: 38 30 30 00 69 0D C6 02 3A 00 89 0D D0 02 83 33 |800.i...:......3| 00000570: 32 2C 31 36 2C 32 34 35 2C 33 32 2C 38 36 2C 32 |2,16,245,32,86,2| 00000580: 34 35 2C 31 36 30 2C 32 30 00 AB 0D DA 02 83 31 |45,160,20......1| 00000590: 36 35 2C 32 35 2C 32 30 31 2C 31 38 2C 31 34 34 |65,25,201,18,144| 000005A0: 2C 31 32 2C 31 33 36 2C 31 33 36 00 CC 0D E4 02 |,12,136,136.....| 000005B0: 83 32 30 31 2C 32 35 2C 31 34 34 2C 36 2C 31 33 |.201,25,144,6,13| 000005C0: 36 2C 32 30 31 2C 33 31 2C 31 34 34 00 EB 0D EE |6,201,31,144....| 000005D0: 02 83 31 2C 31 33 36 2C 32 33 30 2C 32 34 2C 31 |..1,136,230,24,1| 000005E0: 39 37 2C 32 34 2C 31 34 34 2C 36 00 09 0E F8 02 |97,24,144,6.....| 000005F0: 83 32 34 30 2C 34 2C 31 36 39 2C 30 2C 31 33 33 |.240,4,169,0,133| 00000600: 2C 32 35 2C 31 36 39 2C 30 00 26 0E 02 03 83 36 |,25,169,0.&....6| 00000610: 39 2C 32 32 2C 36 39 2C 32 33 2C 36 39 2C 32 34 |9,22,69,23,69,24| 00000620: 2C 36 39 2C 32 35 00 46 0E 0C 03 83 31 33 33 2C |,69,25.F....133,| 00000630: 32 36 2C 33 32 2C 35 32 2C 32 34 39 2C 33 32 2C |26,32,52,249,32,| 00000640: 38 36 2C 32 34 35 00 66 0E 16 03 83 31 36 39 2C |86,245.f....169,| 00000650: 32 35 35 2C 31 34 31 2C 33 2C 32 38 2C 31 37 33 |255,141,3,28,173| 00000660: 2C 31 32 2C 32 38 00 85 0E 20 03 83 34 31 2C 33 |,12,28... ..41,3| 00000670: 31 2C 39 2C 31 39 32 2C 31 34 31 2C 31 32 2C 32 |1,9,192,141,12,2| 00000680: 38 2C 31 36 32 00 A4 0E 2A 03 83 30 2C 31 38 31 |8,162...*..0,181| 00000690: 2C 33 36 2C 38 30 2C 32 35 34 2C 31 38 34 2C 31 |,36,80,254,184,1| 000006A0: 34 31 2C 31 00 C5 0E 34 03 83 32 38 2C 32 33 32 |41,1...4..28,232| 000006B0: 2C 32 32 34 2C 38 2C 32 30 38 2C 32 34 33 2C 38 |,224,8,208,243,8| 000006C0: 30 2C 32 35 34 00 E4 0E 3E 03 83 33 32 2C 30 2C |0,254...>..32,0,| 000006D0: 32 35 34 2C 31 36 39 2C 31 2C 37 36 2C 31 30 35 |254,169,1,76,105| 000006E0: 2C 32 34 39 00 04 0F 08 07 99 3A 99 22 48 49 54 |,249......:."HIT| 000006F0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT| 00000700: 49 4E 55 45 00 1A 0F 12 07 92 31 39 37 2C 36 34 |INUE......197,64| 00000710: 2C 36 34 3A 97 31 39 38 2C 30 00 2E 0F 17 07 97 |,64:.198,0......| 00000720: 36 34 36 2C 30 3A 97 35 33 32 38 31 2C 30 00 48 |646,0:.53281,0.H| 00000730: 0F 1C 07 99 C7 28 31 34 37 29 3A 99 22 4C 4F 41 |.....(147):."LOA| 00000740: 44 49 4E 47 11 11 11 22 00 6F 0F 26 07 99 22 4C |DING...".o.&.."L| 00000750: 4F 41 44 22 C7 28 33 34 29 22 4D 45 4E 55 20 34 |OAD".(34)"MENU 4| 00000760: 20 2B 22 C7 28 33 34 29 22 2C 38 91 91 91 22 00 | +".(34)",8...".| 00000770: A4 0F 30 07 97 36 33 31 2C 31 33 3A 97 36 33 32 |..0..631,13:.632| 00000780: 2C 38 32 3A 97 36 33 33 2C 38 35 3A 97 36 33 34 |,82:.633,85:.634| 00000790: 2C 37 38 3A 97 36 33 35 2C 31 33 3A 97 31 39 38 |,78:.635,13:.198| 000007A0: 2C 35 3A 80 00 00 00 |,5:.... |
.......53281,3.=....G(147):..8)"WRITE 20 - 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. S.N..D$(11)...X..G(147):..7)".WRITE ERRO R 20-SINGLE SECTOR":.:..I.....5)"PLACE C LONE IN DRIVE "DV.......5)"WRITE TRACK & SEC (T,S)";:.T,S......T.1.T.35..1800.&. .NS.20.2.(T.17).(T.24).(T.30).:....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.V....".."EN$", "EM$", "ET$" , "ES$..... 15......1800.....:......S.0. S.NS:.300...".S.S.1...,.JOB.176. .6..570 .&.@.:.2.J.JOB.128.;.T..570.G.^..J.0.11. R.H..I.0.7.Y.R..D.N.|.D$(J).D$(J).G(D).U ....I.|....J.....I.0......J.0.11......15 ,"M-W"G(I)G(5)G(8)D$(J).....I.I.8...B..J .F.L.:...V..15,"M-W"G(2)G(0)G(1)G(224).. ....15,"M-R"G(2)G(0)......#15,E$......E$ ."".E$.G(0).'...E.F(E$).6....E.127.480.> ... 15.X...."..";:..5)"ALL DONE!.B.&..18 00.H.0.:.R.:.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).J.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.6....E.1...>... 15.Y...."..";:..15)" I FAILED!.C....1800.I.F.:...P..32,16,245 ,32,86,245,160,20...Z..165,25,201,18,144 ,12,136,136.L....201,25,144,6,136,201,31 ,144......1,136,230,24,197,24,144,6..... .240,4,169,0,133,25,169,0.&....69,22,69, 23,69,24,69,25.F....133,26,32,52,249,32, 86,245.F....169,255,141,3,28,173,12,28.. . ..41,31,9,192,141,12,28,162...*..0,181 ,36,80,254,184,141,1.E.4..28,232,224,8,2 08,243,80,254...>..32,0,254,169,1,76,105 ,249......:."HIT ANY KEY TO CONTINUE.... ..197,64,64:.198,0......646,0:.53281,0.H ....G(147):."LOADING...".O.&.."LOAD"G(34 )"MENU 4 +"G(34)",8..."...0..631,13:.632 ,82:.633,85:.634,78:.635,13:.198,5:....
> CLICK IMAGE PREVIEW FOR FULL MODAL