WRT23
FILE INFORMATION
FILENAME(S): WRT23
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:22:53
APPEARS ON: 1 disk(s)
FILE HASH
3387e1a83395e8f2315219ae3b996f5290055b9be3d8ce2f8bb6aec2b3772628
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DOS VADER | WRT23 | PRG | DuncanTwain | 26 | 3 | 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 36 |.......53281,3.6|
00000010: 08 07 00 99 C7 28 31 34 37 29 3A 99 A3 31 33 29 |.....(147):..13)|
00000020: 22 57 52 49 54 45 20 45 52 52 4F 52 20 32 33 22 |"WRITE ERROR 23"|
00000030: 3A 99 3A 99 3A 99 00 5F 08 0A 00 99 22 11 11 22 |:.:.:.._....".."|
00000040: 3B 3A 99 A3 31 31 29 22 44 49 53 4B 20 43 4F 4E |;:..11)"DISK CON|
00000050: 46 49 47 55 52 41 54 49 4F 4E 22 3A 99 3A 99 00 |FIGURATION":.:..|
00000060: 78 08 14 00 99 A3 35 29 22 5B 41 5D 20 44 45 56 |x.....5)"[A] DEV|
00000070: 49 43 45 20 38 22 3A 99 00 91 08 1E 00 99 A3 35 |ICE 8":........5|
00000080: 29 22 5B 42 5D 20 44 45 56 49 43 45 20 39 22 3A |)"[B] DEVICE 9":|
00000090: 99 00 BC 08 23 00 99 A3 35 29 22 5B 43 5D 20 41 |....#...5)"[C] A|
000000A0: 42 4F 52 54 20 54 4F 20 4D 45 4E 55 20 4C 45 56 |BORT TO MENU LEV|
000000B0: 45 4C 20 46 4F 55 52 22 3A 99 3A 99 00 E0 08 28 |EL FOUR":.:....(|
000000C0: 00 99 A3 31 30 29 22 50 4C 45 41 53 45 20 43 48 |...10)"PLEASE CH|
000000D0: 4F 4F 53 45 20 28 41 2C 20 42 20 4F 52 20 43 29 |OOSE (A, B OR C)|
000000E0: 00 F4 08 2D 00 A1 43 48 24 3A 8B 43 48 24 B2 22 |...-..CH$:.CH$."|
000000F0: 22 A7 34 35 00 0A 09 32 00 8B 43 48 24 B2 22 41 |".45...2..CH$."A|
00000100: 22 A7 44 56 B2 38 3A 89 37 30 00 20 09 3C 00 8B |".DV.8:.70. .<..|
00000110: 43 48 24 B2 22 42 22 A7 44 56 B2 39 3A 89 37 30 |CH$."B".DV.9:.70|
00000120: 00 31 09 41 00 8B 43 48 24 B3 B1 22 43 22 A7 34 |.1.A..CH$.."C".4|
00000130: 35 00 3B 09 43 00 89 31 38 30 30 00 41 09 46 00 |5.;.C..1800.A.F.|
00000140: 3A 00 4D 09 50 00 86 44 24 28 31 31 29 00 6C 09 |:.M.P..D$(11).l.|
00000150: 5A 00 99 22 93 22 3B 3A 99 A3 31 33 29 22 57 52 |Z..".";:..13)"WR|
00000160: 49 54 45 20 32 33 20 45 52 52 4F 52 00 90 09 64 |ITE 23 ERROR...d|
00000170: 00 99 22 11 11 11 49 4E 53 45 52 54 20 43 4C 4F |.."...INSERT CLO|
00000180: 4E 45 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 |NE DISK IN DRIVE|
00000190: 00 B0 09 6E 00 85 22 11 11 57 52 49 54 45 20 54 |...n.."..WRITE T|
000001A0: 4F 20 57 48 49 43 48 20 54 52 41 43 4B 22 3B 54 |O WHICH TRACK";T|
000001B0: 00 DD 09 78 00 8B 54 B3 31 B0 54 B1 33 35 A7 99 |...x..T.1.T.35..|
000001C0: 22 11 11 53 4F 52 52 59 2D 2D 2D 49 4C 4C 45 47 |"..SORRY---ILLEG|
000001D0: 41 4C 20 54 52 41 43 4B 22 3A 89 39 30 00 FC 09 |AL TRACK":.90...|
000001E0: 82 00 85 22 11 11 41 52 45 20 59 4F 55 20 53 55 |..."..ARE YOU SU|
000001F0: 52 45 20 20 59 9D 9D 9D 22 3B 51 24 00 0F 0A 8C |RE Y...";Q$....|
00000200: 00 8B 51 24 B3 B1 22 59 22 A7 89 31 38 30 30 00 |..Q$.."Y"..1800.|
00000210: 1D 0A 96 00 9F 31 35 2C 44 56 2C 31 35 00 2A 0A |.....15,DV,15.*.|
00000220: A0 00 98 31 35 2C 22 49 30 22 00 42 0A AA 00 84 |...15,"I0".B....|
00000230: 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 54 24 2C 45 |15,EN$,EM$,ET$,E|
00000240: 53 24 00 54 0A B4 00 8B 45 4E 24 B2 22 30 30 22 |S$.T....EN$."00"|
00000250: 89 32 33 30 00 74 0A BE 00 99 22 11 22 45 4E 24 |.230.t...."."EN$|
00000260: 22 2C 20 22 45 4D 24 22 2C 20 22 45 54 22 2C 20 |", "EM$", "ET", |
00000270: 22 45 53 24 00 7C 0A C8 00 A0 31 35 00 86 0A D2 |"ES$.|....15....|
00000280: 00 89 31 38 30 30 00 8C 0A DC 00 3A 00 98 0A E6 |..1800.....:....|
00000290: 00 4A 4F 42 B2 31 37 36 00 A1 0A F0 00 8D 35 35 |.JOB.176......55|
000002A0: 30 00 C2 0A FA 00 4E 53 B2 32 30 AA 32 AC 28 54 |0.....NS.20.2.(T|
000002B0: B1 31 37 29 AA 28 54 B1 32 34 29 AA 28 54 B1 33 |.17).(T.24).(T.3|
000002C0: 30 29 00 CE 0A 04 01 81 53 B2 30 A4 4E 53 00 D4 |0)......S.0.NS..|
000002D0: 0A 0E 01 3A 00 E0 0A 18 01 4A 4F 42 B2 31 32 38 |...:.....JOB.128|
000002E0: 00 E9 0A 22 01 8D 35 35 30 00 F6 0A 2C 01 8B 53 |..."..550...,..S|
000002F0: B1 30 89 34 33 30 00 02 0B 36 01 81 4A B2 30 A4 |.0.430...6..J.0.|
00000300: 31 31 00 0D 0B 40 01 81 49 B2 30 A4 37 00 14 0B |11...@..I.0.7...|
00000310: 4A 01 87 44 00 29 0B 54 01 44 24 28 4A 29 B2 44 |J..D.).T.D$(J).D|
00000320: 24 28 4A 29 AA C7 28 44 29 00 30 0B 5E 01 82 49 |$(J)..(D).0.^..I|
00000330: 00 37 0B 68 01 82 4A 00 3F 0B 72 01 49 B2 30 00 |.7.h..J.?.r.I.0.|
00000340: 4B 0B 7C 01 81 4A B2 30 A4 31 31 00 6A 0B 86 01 |K.|..J.0.11.j...|
00000350: 98 31 35 2C 22 4D 2D 57 22 C7 28 49 29 C7 28 35 |.15,"M-W".(I).(5|
00000360: 29 C7 28 38 29 44 24 28 4A 29 00 74 0B 90 01 49 |).(8)D$(J).t...I|
00000370: B2 49 AA 38 00 7B 0B 9A 01 82 4A 00 81 0B A4 01 |.I.8.{....J.....|
00000380: 3A 00 B7 0B AE 01 99 22 93 11 11 11 11 11 11 11 |:......"........|
00000390: 11 22 3B 3A 99 22 57 52 49 54 49 4E 47 20 54 52 |.";:."WRITING TR|
000003A0: 41 43 4B 2D 2D 22 54 22 2E 2E 2E 2E 2E 53 45 43 |ACK--"T".....SEC|
000003B0: 54 4F 52 2D 2D 22 53 00 D7 0B B8 01 98 31 35 2C |TOR--"S......15,|
000003C0: 22 4D 2D 57 22 C7 28 32 29 C7 28 30 29 C7 28 31 |"M-W".(2).(0).(1|
000003D0: 29 C7 28 32 32 34 29 00 ED 0B C2 01 98 31 35 2C |).(224)......15,|
000003E0: 22 4D 2D 52 22 C7 28 32 29 C7 28 30 29 00 F9 0B |"M-R".(2).(0)...|
000003F0: CC 01 A1 23 31 35 2C 45 24 00 0C 0C D6 01 8B 45 |...#15,E$......E|
00000400: 24 B2 22 22 A7 45 24 B2 C7 28 30 29 00 18 0C E0 |$."".E$..(0)....|
00000410: 01 45 B2 C6 28 45 24 29 00 27 0C EA 01 8B 45 B1 |.E..(E$).'....E.|
00000420: 31 32 37 89 34 35 30 00 2E 0C F4 01 82 53 00 36 |127.450......S.6|
00000430: 0C FE 01 A0 31 35 00 50 0C 08 02 99 3A 99 3A 99 |....15.P....:.:.|
00000440: 3A 99 A3 31 36 29 22 41 4C 4C 20 44 4F 4E 45 21 |:..16)"ALL DONE!|
00000450: 00 5A 0C 12 02 89 31 38 30 30 00 60 0C 1C 02 3A |.Z....1800.`...:|
00000460: 00 6A 0C 26 02 54 52 59 B2 30 00 94 0C 30 02 98 |.j.&.TRY.0...0..|
00000470: 31 35 2C 22 4D 2D 57 22 C7 28 38 29 C7 28 30 29 |15,"M-W".(8).(0)|
00000480: C7 28 34 29 C7 28 54 29 C7 28 53 29 C7 28 54 29 |.(4).(T).(S).(T)|
00000490: C7 28 53 29 00 B4 0C 3A 02 98 31 35 2C 22 4D 2D |.(S)...:..15,"M-|
000004A0: 57 22 C7 28 31 29 C7 28 30 29 C7 28 31 29 C7 28 |W".(1).(0).(1).(|
000004B0: 4A 4F 42 29 00 C2 0C 44 02 54 52 59 B2 54 52 59 |JOB)...D.TRY.TRY|
000004C0: AA 31 00 D8 0C 4E 02 98 31 35 2C 22 4D 2D 52 22 |.1...N..15,"M-R"|
000004D0: C7 28 31 29 C7 28 30 29 00 E4 0C 58 02 A1 23 31 |.(1).(0)...X..#1|
000004E0: 35 2C 45 24 00 F7 0C 62 02 8B 45 24 B2 22 22 A7 |5,E$...b..E$."".|
000004F0: 45 24 B2 C7 28 30 29 00 03 0D 6C 02 45 B2 C6 28 |E$..(0)...l.E..(|
00000500: 45 24 29 00 14 0D 76 02 8B 54 52 59 B2 35 30 30 |E$)...v..TRY.500|
00000510: 89 36 36 30 00 23 0D 80 02 8B 45 B1 31 32 37 89 |.660.#....E.127.|
00000520: 35 38 30 00 29 0D 8A 02 8E 00 31 0D 94 02 A0 31 |580.).....1....1|
00000530: 35 00 4B 0D 9E 02 99 22 11 11 11 22 3B 3A 99 A3 |5.K...."...";:..|
00000540: 31 37 29 22 46 41 49 4C 45 44 21 00 55 0D A8 02 |17)"FAILED!.U...|
00000550: 89 31 38 30 30 00 5B 0D B2 02 3A 00 81 0D BC 02 |.1800.[...:.....|
00000560: 83 20 31 36 39 2C 20 20 34 2C 31 33 33 2C 20 34 |. 169, 4,133, 4|
00000570: 39 2C 31 36 35 2C 20 35 38 2C 31 37 30 2C 32 33 |9,165, 58,170,23|
00000580: 32 00 A6 0D C6 02 83 31 33 38 2C 31 33 33 2C 20 |2......138,133, |
00000590: 35 38 2C 20 33 32 2C 31 34 33 2C 32 34 37 2C 20 |58, 32,143,247, |
000005A0: 33 32 2C 20 31 36 00 CB 0D D0 02 83 32 34 35 2C |32, 16......245,|
000005B0: 31 36 32 2C 20 20 38 2C 20 38 30 2C 32 35 34 2C |162, 8, 80,254,|
000005C0: 31 38 34 2C 32 30 32 2C 32 30 38 00 F0 0D DA 02 |184,202,208.....|
000005D0: 83 32 35 30 2C 31 36 39 2C 32 35 35 2C 31 34 31 |.250,169,255,141|
000005E0: 2C 20 20 33 2C 20 32 38 2C 31 37 33 2C 20 31 32 |, 3, 28,173, 12|
000005F0: 00 15 0E E4 02 83 20 32 38 2C 20 34 31 2C 20 33 |...... 28, 41, 3|
00000600: 31 2C 20 20 39 2C 31 39 32 2C 31 34 31 2C 20 31 |1, 9,192,141, 1|
00000610: 32 2C 20 32 38 00 3A 0E EE 02 83 31 36 39 2C 32 |2, 28.:....169,2|
00000620: 35 35 2C 31 36 32 2C 20 20 35 2C 31 34 31 2C 20 |55,162, 5,141, |
00000630: 20 31 2C 20 32 38 2C 31 38 34 00 5F 0E F8 02 83 | 1, 28,184._....|
00000640: 20 38 30 2C 32 35 34 2C 31 38 34 2C 32 30 32 2C | 80,254,184,202,|
00000650: 32 30 38 2C 32 35 30 2C 31 36 30 2C 31 38 37 00 |208,250,160,187.|
00000660: 84 0E 02 03 83 31 38 35 2C 20 20 30 2C 20 20 31 |.....185, 0, 1|
00000670: 2C 20 38 30 2C 32 35 34 2C 31 38 34 2C 31 34 31 |, 80,254,184,141|
00000680: 2C 20 20 31 00 A9 0E 0C 03 83 20 32 38 2C 32 30 |, 1...... 28,20|
00000690: 30 2C 32 30 38 2C 32 34 34 2C 31 38 35 2C 20 20 |0,208,244,185, |
000006A0: 30 2C 20 20 34 2C 20 38 30 00 CE 0E 16 03 83 32 |0, 4, 80......2|
000006B0: 35 34 2C 31 38 34 2C 31 34 31 2C 20 20 31 2C 20 |54,184,141, 1, |
000006C0: 32 38 2C 32 30 30 2C 32 30 38 2C 32 34 34 00 F3 |28,200,208,244..|
000006D0: 0E 20 03 83 20 38 30 2C 32 35 34 2C 20 33 32 2C |. .. 80,254, 32,|
000006E0: 20 20 30 2C 32 35 34 2C 31 36 39 2C 20 20 35 2C | 0,254,169, 5,|
000006F0: 31 33 33 00 18 0F 2A 03 83 20 34 39 2C 31 36 39 |133...*.. 49,169|
00000700: 2C 20 20 31 2C 31 33 33 2C 20 20 32 2C 20 37 36 |, 1,133, 2, 76|
00000710: 2C 31 31 37 2C 32 34 39 00 38 0F 08 07 99 3A 99 |,117,249.8....:.|
00000720: 22 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 |"HIT ANY KEY TO |
00000730: 43 4F 4E 54 49 4E 55 45 00 6A 0F 09 07 92 31 39 |CONTINUE.j....19|
00000740: 37 2C 36 34 2C 36 34 3A 97 31 39 38 2C 30 3A 97 |7,64,64:.198,0:.|
00000750: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,|
00000760: 31 34 3A 97 36 34 36 2C 31 34 00 84 0F 0A 07 99 |14:.646,14......|
00000770: C7 28 31 34 37 29 3A 99 22 4C 4F 41 44 49 4E 47 |.(147):."LOADING|
00000780: 11 11 11 22 00 AB 0F 0B 07 99 22 4C 4F 41 44 22 |..."......"LOAD"|
00000790: C7 28 33 34 29 22 4D 45 4E 55 20 34 20 2B 22 C7 |.(34)"MENU 4 +".|
000007A0: 28 33 34 29 22 2C 38 91 91 91 22 00 E0 0F 0C 07 |(34)",8...".....|
000007B0: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 38 32 3A |.631,13:.632,82:|
000007C0: 97 36 33 33 2C 38 35 3A 97 36 33 34 2C 37 38 3A |.633,85:.634,78:|
000007D0: 97 36 33 35 2C 31 33 3A 97 31 39 38 2C 35 3A 80 |.635,13:.198,5:.|
000007E0: 00 00 00 |... |
.......53281,3.6....G(147):..13)"WRITE E
RROR 23":.:.:.._...."..";:..11)"DISK CON
FIGURATION":.:..X.....5)"[A] DEVICE 8":.
.......5)"[B] DEVICE 9":....#...5)"[C] A
BORT TO MENU LEVEL FOUR":.:....(...10)"P
LEASE CHOOSE (A, B OR C)...-..CH$:.CH$."
".45...2..CH$."A".DV.8:.70. .<..CH$."B".
DV.9:.70.1.A..CH$.."C".45.;.C..1800.A.F.
:.M.P..D$(11).L.Z..".";:..13)"WRITE 23 E
RROR...D.."...INSERT CLONE DISK IN DRIVE
...N.."..WRITE TO WHICH TRACK";T...X..T.
1.T.35.."..SORRY---ILLEGAL TRACK":.90...
..."..ARE YOU SURE Y...";Q$......Q$.."Y
"..1800......15,DV,15.*. ..15,"I0".B....
15,EN$,EM$,ET$,ES$.T....EN$."00".230.T..
.."."EN$", "EM$", "ET", "ES$.|.H. 15...R
..1800.....:.....JOB.176......550.B...NS
.20.2.(T.17).(T.24).(T.30).N....S.0.NS.T
...:.....JOB.128..."..550...,..S.0.430..
.6..J.0.11...@..I.0.7...J..D.).T.D$(J).D
$(J).G(D).0.^..I.7.H..J.?.R.I.0.K.|..J.0
.11.J....15,"M-W"G(I)G(5)G(8)D$(J).T...I
.I.8.{....J.....:......".........";:."WR
ITING TRACK--"T".....SECTOR--"S.W....15,
"M-W"G(2)G(0)G(1)G(224)...B..15,"M-R"G(2
)G(0)...L..#15,E$...V..E$."".E$.G(0)....
.E.F(E$).'....E.127.450......S.6... 15.P
....:.:.:..16)"ALL DONE!.Z....1800.`...:
.J.&.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).B.D.TRY.TRY.1.X.N..15,"M-R"G(1)G(0)
...X..#15,E$...B..E$."".E$.G(0)...L.E.F(
E$)...V..TRY.500.660.#....E.127.580.)...
..1... 15.K...."...";:..17)"FAILED!.U...
.1800.[...:...... 169, 4,133, 49,165, 5
8,170,232...F..138,133, 58, 32,143,247,
32, 16.K.P..245,162, 8, 80,254,184,202,
208...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._....
80,254,184,202,208,250,160,187......185
, 0, 1, 80,254,184,141, 1...... 28,20
0,208,244,185, 0, 4, 80.N....254,184,1
41, 1, 28,200,208,244... .. 80,254, 32,
0,254,169, 5,133...*.. 49,169, 1,133
, 2, 76,117,249.8....:."HIT ANY KEY TO
CONTINUE.J....197,64,64:.198,0:.53280,14
:.53281,14:.646,14......G(147):."LOADING
..."......"LOAD"G(34)"MENU 4 +"G(34)",8.
.."......631,13:.632,82:.633,85:.634,78:
.635,13:.198,5:....
> CLICK IMAGE PREVIEW FOR FULL MODAL