JQ R/W EDIT D N

FILE INFORMATION

FILENAME(S): JQ R/W EDIT D N

FILE TYPE(S): PRG

FILE SIZE: 1.5K

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

APPEARS ON: 1 disk(s)

FILE HASH

09a73775cb8c0045368bc4e8ccb482d20513f24c200dc232c09ff050acf2e625

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
INSIDE C DOS 1	JQ R/W EDIT D N	PRG	hedning, shine	16	18	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 31 30 2A  00 3F 08 14 00 8F 20 2A  |PG. 110*.?.... *|
00000030: 4A 4A 4D 2A 20 20 20 2A  30 34 31 32 38 37 2A 00  |JJM*   *041287*.|
00000040: 65 08 64 00 8F 20 4A 20  51 20 52 45 41 44 2F 57  |e.d.. J Q READ/W|
00000050: 52 49 54 45 20 2D 20 45  44 49 54 20 44 49 53 4B  |RITE - EDIT DISK|
00000060: 20 4E 41 4D 45 00 71 08  6E 00 81 49 B2 31 A4 31  | NAME.q.n..I.1.1|
00000070: 36 00 86 08 78 00 50 41  44 24 B2 50 41 44 24 AA  |6...x.PAD$.PAD$.|
00000080: C7 28 31 36 30 29 00 8D  08 82 00 82 49 00 AB 08  |.(160)......I...|
00000090: 8C 00 99 22 93 45 44 49  54 20 44 49 53 4B 20 4E  |...".EDIT DISK N|
000000A0: 41 4D 45 20 2D 20 31 35  34 31 22 00 CE 08 96 00  |AME - 1541".....|
000000B0: 99 22 11 52 45 4D 4F 56  45 20 12 57 52 49 54 45  |.".REMOVE .WRITE|
000000C0: 20 50 52 4F 54 45 43 54  20 54 41 42 92 22 00 EF  | PROTECT TAB."..|
000000D0: 08 A0 00 99 22 11 49 4E  53 45 52 54 20 44 49 53  |....".INSERT DIS|
000000E0: 4B 45 54 54 45 20 49 4E  20 44 52 49 56 45 22 00  |KETTE IN DRIVE".|
000000F0: 12 09 AA 00 99 22 11 50  52 45 53 53 20 12 52 45  |.....".PRESS .RE|
00000100: 54 55 52 4E 92 20 54 4F  20 43 4F 4E 54 49 4E 55  |TURN. TO CONTINU|
00000110: 45 22 00 25 09 B4 00 A1  43 24 3A 8B 43 24 B2 22  |E".%....C$:.C$."|
00000120: 22 A7 31 38 30 00 38 09  BE 00 8B 43 24 B3 B1 C7  |".180.8....C$...|
00000130: 28 31 33 29 89 31 38 30  00 42 09 C8 00 99 22 4F  |(13).180.B...."O|
00000140: 4B 22 00 4F 09 D2 00 9F  31 35 2C 38 2C 31 35 00  |K".O....15,8,15.|
00000150: 5C 09 DC 00 98 31 35 2C  22 49 30 22 00 74 09 E6  |\....15,"I0".t..|
00000160: 00 84 31 35 2C 45 4E 24  2C 45 4D 24 2C 45 54 24  |..15,EN$,EM$,ET$|
00000170: 2C 45 53 24 00 86 09 F0  00 8B 45 4E 24 B2 22 30  |,ES$......EN$."0|
00000180: 30 22 89 32 39 30 00 A5  09 FA 00 99 22 11 22 45  |0".290......"."E|
00000190: 4E 24 22 2C 20 22 45 4D  24 22 2C 22 45 54 24 22  |N$", "EM$","ET$"|
000001A0: 2C 22 45 53 24 00 AD 09  04 01 A0 31 35 00 B3 09  |,"ES$......15...|
000001B0: 0E 01 80 00 BE 09 18 01  8F 20 53 45 45 4B 00 C7  |......... SEEK..|
000001C0: 09 22 01 54 B2 31 38 00  CF 09 2C 01 53 B2 30 00  |.".T.18...,.S.0.|
000001D0: DB 09 36 01 4A 4F 42 B2  31 37 36 00 E4 09 40 01  |..6.JOB.176...@.|
000001E0: 8D 36 36 30 00 EF 09 4A  01 8F 20 52 45 41 44 00  |.660...J.. READ.|
000001F0: FB 09 54 01 4A 4F 42 B2  31 32 38 00 04 0A 5E 01  |..T.JOB.128...^.|
00000200: 8D 36 36 30 00 21 0A 68  01 98 31 35 2C 22 4D 2D  |.660.!.h..15,"M-|
00000210: 52 22 C7 28 31 34 34 29  C7 28 35 29 C7 28 31 36  |R".(144).(5).(16|
00000220: 29 00 2D 0A 72 01 81 49  B2 31 A4 31 36 00 39 0A  |).-.r..I.1.16.9.|
00000230: 7C 01 A1 23 31 35 2C 42  24 00 4C 0A 86 01 8B 42  ||..#15,B$.L....B|
00000240: 24 B2 22 22 A7 42 24 B2  C7 28 30 29 00 58 0A 90  |$."".B$..(0).X..|
00000250: 01 41 B2 C6 28 42 24 29  00 6B 0A 9A 01 8B 41 B1  |.A..(B$).k....A.|
00000260: 31 32 37 A7 41 B2 41 AB  31 32 38 00 7F 0A A4 01  |127.A.A.128.....|
00000270: 8B 41 B3 33 32 B0 41 B1  39 35 A7 41 B2 36 33 00  |.A.32.A.95.A.63.|
00000280: 8E 0A AE 01 8B 41 B2 33  34 A7 41 B2 36 33 00 A1  |.....A.34.A.63..|
00000290: 0A B8 01 4F 44 4E 24 B2  4F 44 4E 24 AA C7 28 41  |...ODN$.ODN$..(A|
000002A0: 29 00 A8 0A C2 01 82 49  00 C5 0A CC 01 99 22 11  |)......I......".|
000002B0: 4F 4C 44 20 44 49 53 4B  20 4E 41 4D 45 3A 20 22  |OLD DISK NAME: "|
000002C0: 3B 4F 44 4E 24 00 E0 0A  D6 01 85 22 11 4E 45 57  |;ODN$......".NEW|
000002D0: 20 44 49 53 4B 20 4E 41  4D 45 22 3B 4E 44 4E 24  | DISK NAME";NDN$|
000002E0: 00 FF 0A E0 01 8B C3 28  4E 44 4E 24 29 B3 B1 30  |.......(NDN$)..0|
000002F0: AF C3 28 4E 44 4E 24 29  B3 31 37 89 35 30 30 00  |..(NDN$).17.500.|
00000300: 08 0B EA 01 89 36 33 30  00 2C 0B F4 01 85 22 11  |.....630.,....".|
00000310: 41 52 45 20 59 4F 55 20  53 55 52 45 20 28 59 2F  |ARE YOU SURE (Y/|
00000320: 4E 29 20 20 59 9D 9D 9D  22 3B 51 24 00 3D 0B FE  |N)  Y...";Q$.=..|
00000330: 01 8B 51 24 B3 B1 22 59  22 89 36 33 30 00 56 0B  |..Q$.."Y".630.V.|
00000340: 08 02 4E 44 4E 24 B2 C8  28 4E 44 4E 24 AA 50 41  |..NDN$..(NDN$.PA|
00000350: 44 24 2C 31 36 29 00 77  0B 12 02 98 31 35 2C 22  |D$,16).w....15,"|
00000360: 4D 2D 57 22 C7 28 31 34  34 29 C7 28 35 29 C7 28  |M-W".(144).(5).(|
00000370: 31 36 29 4E 44 4E 24 00  83 0B 1C 02 8F 20 57 52  |16)NDN$...... WR|
00000380: 49 54 45 00 8F 0B 26 02  4A 4F 42 B2 31 34 34 00  |ITE...&.JOB.144.|
00000390: 98 0B 30 02 8D 36 36 30  00 A5 0B 3A 02 98 31 35  |..0..660...:..15|
000003A0: 2C 22 49 30 22 00 BD 0B  44 02 84 31 35 2C 45 4E  |,"I0"...D..15,EN|
000003B0: 24 2C 45 4D 24 2C 45 54  24 2C 45 53 24 00 C5 0B  |$,EM$,ET$,ES$...|
000003C0: 4E 02 A0 31 35 00 D3 0B  58 02 99 22 11 44 4F 4E  |N..15...X..".DON|
000003D0: 45 21 22 00 D9 0B 62 02  80 00 E5 0B 6C 02 8F 20  |E!"...b.....l.. |
000003E0: 43 4C 4F 53 45 00 ED 0B  76 02 A0 31 35 00 F3 0B  |CLOSE...v..15...|
000003F0: 80 02 80 00 03 0C 8A 02  8F 20 4A 4F 42 20 51 55  |......... JOB QU|
00000400: 45 55 45 00 0D 0C 94 02  54 52 59 B2 30 00 30 0C  |EUE.....TRY.0.0.|
00000410: 9E 02 98 31 35 2C 22 4D  2D 57 22 C7 28 31 30 29  |...15,"M-W".(10)|
00000420: C7 28 30 29 C7 28 32 29  C7 28 54 29 C7 28 53 29  |.(0).(2).(T).(S)|
00000430: 00 50 0C A8 02 98 31 35  2C 22 4D 2D 57 22 C7 28  |.P....15,"M-W".(|
00000440: 32 29 C7 28 30 29 C7 28  31 29 C7 28 4A 4F 42 29  |2).(0).(1).(JOB)|
00000450: 00 5E 0C B2 02 54 52 59  B2 54 52 59 AA 31 00 74  |.^...TRY.TRY.1.t|
00000460: 0C BC 02 98 31 35 2C 22  4D 2D 52 22 C7 28 32 29  |....15,"M-R".(2)|
00000470: C7 28 30 29 00 80 0C C6  02 A1 23 31 35 2C 45 24  |.(0)......#15,E$|
00000480: 00 93 0C D0 02 8B 45 24  B2 22 22 A7 45 24 B2 C7  |......E$."".E$..|
00000490: 28 30 29 00 9F 0C DA 02  45 B2 C6 28 45 24 29 00  |(0).....E..(E$).|
000004A0: B0 0C E4 02 8B 54 52 59  B2 35 30 30 89 37 38 30  |.....TRY.500.780|
000004B0: 00 BF 0C EE 02 8B 45 B1  31 32 37 89 36 39 30 00  |......E.127.690.|
000004C0: CA 0C F8 02 8B 45 B2 31  A7 8E 00 DE 0C 02 03 8F  |.....E.1........|
000004D0: 20 45 52 52 4F 52 20 48  41 4E 44 4C 45 52 00 F8  | ERROR HANDLER..|
000004E0: 0C 0C 03 45 54 24 B2 C9  28 C4 28 54 29 2C C3 28  |...ET$..(.(T),.(|
000004F0: C4 28 54 29 29 AB 31 29  00 0E 0D 16 03 8B 54 B3  |.(T)).1)......T.|
00000500: 31 30 A7 45 54 24 B2 22  30 22 AA 45 54 24 00 28  |10.ET$."0".ET$.(|
00000510: 0D 20 03 45 53 24 B2 C9  28 C4 28 53 29 2C C3 28  |. .ES$..(.(S),.(|
00000520: C4 28 53 29 29 AB 31 29  00 3E 0D 2A 03 8B 53 B3  |.(S)).1).>.*..S.|
00000530: 31 30 A7 45 53 24 B2 22  30 22 AA 45 53 24 00 62  |10.ES$."0".ES$.b|
00000540: 0D 34 03 8B 45 B1 31 AF  45 B3 31 32 A7 45 4E 24  |.4..E.1.E.12.EN$|
00000550: B2 C9 28 C4 28 45 AA 31  38 29 2C 32 29 3A 89 38  |..(.(E.18),2):.8|
00000560: 34 30 00 84 0D 3E 03 45  4E 24 B2 22 30 32 22 3A  |40...>.EN$."02":|
00000570: 45 4D 24 B2 22 3F 54 49  4D 45 20 4F 55 54 22 3A  |EM$."?TIME OUT":|
00000580: 89 38 36 30 00 A8 0D 48  03 8B 45 B2 37 B0 45 B2  |.860...H..E.7.E.|
00000590: 38 A7 45 4D 24 B2 22 57  52 49 54 45 20 45 52 52  |8.EM$."WRITE ERR|
000005A0: 4F 52 22 3A 89 38 36 30  00 BD 0D 52 03 45 4D 24  |OR":.860...R.EM$|
000005B0: B2 22 52 45 41 44 20 45  52 52 4F 52 22 00 DC 0D  |."READ ERROR"...|
000005C0: 5C 03 99 22 11 22 45 4E  24 22 2C 20 22 45 4D 24  |\.."."EN$", "EM$|
000005D0: 22 2C 22 45 54 24 22 2C  22 45 53 24 00 ED 0D 66  |","ET$","ES$...f|
000005E0: 03 99 22 11 12 46 41 49  4C 45 44 92 22 00 F5 0D  |.."..FAILED."...|
000005F0: 70 03 A0 31 35 00 FB 0D  7A 03 80 00 00 00        |p..15...z.....  |

..(.... *INSIDE COMMODORE DOS* *PG. 110*
.?.... *JJM*   *041287*.E.D.. J Q READ/W
RITE - EDIT DISK NAME.Q.N..I.1.16...X.PA
D$.PAD$.G(160)......I......".EDIT DISK N
AME - 1541".N....".REMOVE .WRITE PROTECT
 TAB."... ..".INSERT DISKETTE IN DRIVE".
.....".PRESS .RETURN. TO CONTINUE".%....
C$:.C$."".180.8....C$..G(13).180.B.H.."O
K".O.R..15,8,15.\....15,"I0".T....15,EN$
,EM$,ET$,ES$......EN$."00".290......"."E
N$", "EM$","ET$","ES$..... 15...........
. SEEK.G.".T.18.O.,.S.0...6.JOB.176...@.
.660...J.. READ...T.JOB.128...^..660.!.H
..15,"M-R"G(144)G(5)G(16).-.R..I.1.16.9.
|..#15,B$.L....B$."".B$.G(0).X...A.F(B$)
.K....A.127.A.A.128.....A.32.A.95.A.63.
.....A.34.A.63.....ODN$.ODN$.G(A)...B..I
.E.L..".OLD DISK NAME: ";ODN$...V..".NEW
 DISK NAME";NDN$......C(NDN$)..0.C(NDN$)
.17.500......630.,....".ARE YOU SURE (Y/
N)  Y...";Q$.=....Q$.."Y".630.V...NDN$.H
(NDN$.PAD$,16).W....15,"M-W"G(144)G(5)G(
16)NDN$...... WRITE...&.JOB.144...0..660
...:..15,"I0"...D..15,EN$,EM$,ET$,ES$.E.
N. 15.S.X..".DONE!".Y.B.....L.. CLOSE...
V. 15............ JOB QUEUE.....TRY.0.0.
...15,"M-W"G(10)G(0)G(2)G(T)G(S).P....15
,"M-W"G(2)G(0)G(1)G(JOB).^...TRY.TRY.1.T
....15,"M-R"G(2)G(0)...F..#15,E$...P..E$
."".E$.G(0)...Z.E.F(E$)......TRY.500.780
......E.127.690.J....E.1........ ERROR H
ANDLER.....ET$.I(D(T),C(D(T)).1)......T.
10.ET$."0".ET$.(. .ES$.I(D(S),C(D(S)).1)
.>.*..S.10.ES$."0".ES$.B.4..E.1.E.12.EN$
.I(D(E.18),2):.840...>.EN$."02":EM$."?TI
ME OUT":.860...H..E.7.E.8.EM$."WRITE ERR
OR":.860...R.EM$."READ ERROR"...\.."."EN
$", "EM$","ET$","ES$...F.."..FAILED."...
P. 15...Z.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL