DATA WRITER

FILE INFORMATION

FILENAME(S): DATA WRITER

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 01:07:58

APPEARS ON: 5 disk(s)

FILE HASH

1cec17ccbc9f3331a4be0e256d9e3cfead40a577b1c477e6abad07d08cbd5964

FOUND ON DISKS (5 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
U TILITES	DATA WRITER	PRG	Treasure Chest - Wolfgang Rauprich	7	2	DOWNLOAD FILE
PUBLIC DOMAIN	DATA WRITER	PRG	Treasure Chest - Wolfgang Rauprich	7	4	DOWNLOAD FILE
U TILITIES	DATA WRITER	PRG	Treasure Chest - Wolfgang Rauprich	16	0	DOWNLOAD FILE
UTILITIES	DATA WRITER	PRG	Treasure Chest - Wolfgang Rauprich	16	0	DOWNLOAD FILE
FREESOFT DISK NR	DATA WRITER	PRG	Treasure Chest - Wolfgang Rauprich	7	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 20 08 05 00 8F 20  20 2A 2A 2A 2A 20 42 59  |.. ....  **** BY|
00000010: 20 53 54 45 56 45 20 43  41 54 45 53 20 2A 2A 2A  | STEVE CATES ***|
00000020: 00 26 08 06 00 3A 00 48  08 07 00 8F 20 2A 2A 2A  |.&...:.H.... ***|
00000030: 2A 20 53 41 4E 20 44 49  45 47 4F 2C 20 43 41 4C  |* SAN DIEGO, CAL|
00000040: 49 46 2E 20 2A 2A 2A 2A  00 4E 08 08 00 3A 00 7F  |IF. ****.N...:..|
00000050: 08 0A 00 99 22 93 11 11  20 20 54 48 49 53 20 50  |...."...  THIS P|
00000060: 52 4F 47 52 41 4D 20 50  45 45 4B 53 20 4D 41 43  |ROGRAM PEEKS MAC|
00000070: 48 49 4E 45 20 4C 41 4E  47 55 41 47 45 20 22 00  |HINE LANGUAGE ".|
00000080: B0 08 14 00 99 3A 99 22  50 52 4F 47 52 41 4D 53  |.....:."PROGRAMS|
00000090: 20 41 4E 44 20 43 4F 4E  53 54 52 55 43 54 53 20  | AND CONSTRUCTS |
000000A0: 44 41 54 41 20 53 54 41  54 4D 45 4E 54 53 2E 22  |DATA STATMENTS."|
000000B0: 00 D9 08 1E 00 99 22 11  11 11 11 57 48 45 4E 20  |......"....WHEN |
000000C0: 44 4F 4E 45 20 44 45 4C  45 54 45 20 4C 49 4E 45  |DONE DELETE LINE|
000000D0: 53 20 31 30 2D 33 31 30  22 00 07 09 28 00 99 22  |S 10-310"...(.."|
000000E0: 11 54 48 45 4E 20 53 41  56 45 20 44 41 54 41 20  |.THEN SAVE DATA |
000000F0: 54 41 42 4C 45 20 54 4F  20 44 49 53 4B 20 4F 52  |TABLE TO DISK OR|
00000100: 20 54 41 50 45 2E 22 00  34 09 2D 00 99 22 11 55  | TAPE.".4.-..".U|
00000110: 53 45 20 41 4E 20 41 50  50 45 4E 44 49 4E 47 20  |SE AN APPENDING |
00000120: 50 52 4F 47 52 41 4D 20  54 4F 20 41 44 44 20 44  |PROGRAM TO ADD D|
00000130: 41 54 41 22 00 5A 09 32  00 99 22 20 54 4F 20 59  |ATA".Z.2.." TO Y|
00000140: 4F 55 52 20 45 58 53 49  54 49 4E 47 20 50 52 4F  |OUR EXSITING PRO|
00000150: 47 52 41 4D 2E 22 3A 99  3A 99 00 85 09 3C 00 99  |GRAM.":.:....<..|
00000160: 3A 85 22 42 45 47 49 4E  4E 49 4E 47 20 4C 4F 43  |:."BEGINNING LOC|
00000170: 41 54 49 4F 4E 20 28 48  45 58 29 20 20 A4 9D 9D  |ATION (HEX)  ...|
00000180: 9D 22 3B 41 24 00 94 09  41 00 8B 41 24 B2 22 A4  |.";A$...A..A$.".|
00000190: 22 A7 36 30 00 BC 09 46  00 99 3A 85 22 45 4E 44  |".60...F..:."END|
000001A0: 49 4E 47 20 4C 4F 43 41  54 49 4F 4E 20 28 48 45  |ING LOCATION (HE|
000001B0: 58 29 20 20 A4 9D 9D 9D  22 3B 42 24 00 CB 09 48  |X)  ....";B$...H|
000001C0: 00 8B 42 24 B2 22 A4 22  A7 37 30 00 ED 09 4B 00  |..B$.".".70...K.|
000001D0: 45 24 B2 41 24 3A 8D 33  30 30 3A 41 B2 45 3A 45  |E$.A$:.300:A.E:E|
000001E0: 24 B2 42 24 3A 8D 33 30  30 3A 42 B2 45 00 0D 0A  |$.B$:.300:B.E...|
000001F0: 50 00 99 22 93 11 11 22  3B 3A 99 36 30 30 30 30  |P.."...";:.60000|
00000200: 3B 22 52 45 41 44 20 4C  4F 2C 48 49 22 00 29 0A  |;"READ LO,HI".).|
00000210: 5A 00 99 36 30 30 30 31  3B 22 46 4F 52 20 49 3D  |Z..60001;"FOR I=|
00000220: 4C 4F 20 54 4F 20 48 49  22 00 46 0A 64 00 99 36  |LO TO HI".F.d..6|
00000230: 30 30 30 32 3B 22 52 45  41 44 20 58 3A 50 4F 4B  |0002;"READ X:POK|
00000240: 45 20 49 2C 58 22 00 5A  0A 6E 00 99 36 30 30 30  |E I,X".Z.n..6000|
00000250: 33 3B 22 4E 45 58 54 20  49 22 00 6E 0A 78 00 99  |3;"NEXT I".n.x..|
00000260: 36 30 30 30 34 3B 22 52  45 54 55 52 4E 22 00 8E  |60004;"RETURN"..|
00000270: 0A 82 00 99 22 41 3D 22  3B 41 3B 22 3A 42 3D 22  |...."A=";A;":B="|
00000280: 3B 42 3B 22 3A 47 4F 54  4F 20 31 35 30 22 00 98  |;B;":GOTO 150"..|
00000290: 0A 8C 00 89 20 32 38 30  00 BB 0A 96 00 4B B2 36  |.... 280.....K.6|
000002A0: 30 30 30 36 3A 43 B2 B5  28 28 42 AB 41 29 AD 31  |0006:C..((B.A).1|
000002B0: 34 AA 4B 29 3A 4C B2 41  AA 31 33 00 DE 0A A0 00  |4.K):L.A.13.....|
000002C0: 99 22 93 11 11 22 3B 3A  99 36 30 30 30 35 3B 22  |."...";:.60005;"|
000002D0: 44 41 54 41 22 3B 41 3B  22 9D 2C 22 3B 42 00 FC  |DATA";A;".,";B..|
000002E0: 0A AA 00 81 20 4E B2 4B  A4 43 3A 99 20 4E 3B 22  |.... N.K.C:. N;"|
000002F0: 44 41 54 41 22 3B 3A 48  B2 48 AA 31 00 29 0B B4  |DATA";:H.H.1.)..|
00000300: 00 81 20 44 B2 41 A4 4C  3A 99 20 C2 28 44 29 3B  |.. D.A.L:. .(D);|
00000310: 22 9D 2C 22 3B 3A 8B 44  B1 42 AB 31 A7 20 99 22  |".,";:.D.B.1. ."|
00000320: 9D 20 22 3A 89 20 32 36  30 00 36 0B BE 00 82 44  |. ":. 260.6....D|
00000330: 3A 99 22 9D 20 22 00 47  0B C8 00 41 B2 4C AA 31  |:.". ".G...A.L.1|
00000340: 3A 4C B2 4C AA 31 34 00  56 0B D2 00 8B 48 B1 34  |:L.L.14.V....H.4|
00000350: 20 A7 20 32 33 30 00 5E  0B DC 00 82 20 4E 00 A0  | . 230.^.... N..|
00000360: 0B E6 00 99 22 4B 3D 22  3B 4E AA 31 3B 22 3A 41  |...."K=";N.1;":A|
00000370: 3D 22 3B 41 3B 22 3A 42  3D 22 3B 42 3B 22 3A 43  |=";A;":B=";B;":C|
00000380: 3D 22 3B 43 3B 22 3A 4C  3D 22 3B 4C 3B 22 3A 48  |=";C;":L=";L;":H|
00000390: 3D 22 3B 30 3B 22 3A 47  4F 54 4F 20 32 35 30 22  |=";0;":GOTO 250"|
000003A0: 00 AA 0B F0 00 89 20 32  38 30 00 BC 0B FA 00 99  |...... 280......|
000003B0: 22 93 11 11 22 3B 3A 89  20 31 37 30 00 D6 0B 04  |"...";:. 170....|
000003C0: 01 99 22 11 11 11 11 11  44 45 4C 45 54 45 20 31  |..".....DELETE 1|
000003D0: 30 2D 33 31 30 22 00 FB  0B 18 01 99 22 13 22 3B  |0-310"......".";|
000003E0: 3A 97 31 39 38 2C 38 3A  81 58 B2 31 A4 38 3A 97  |:.198,8:.X.1.8:.|
000003F0: 36 33 30 AA 58 2C 31 33  3A 82 58 00 01 0C 22 01  |630.X,13:.X...".|
00000400: 80 00 31 0C 2C 01 45 B2  30 3A 81 49 B2 31 A4 C3  |..1.,.E.0:.I.1..|
00000410: 28 45 24 29 3A 42 B2 C6  28 CA 28 45 24 2C 49 2C  |(E$):B..(.(E$,I,|
00000420: 31 29 29 AB 34 38 3A 8B  42 B1 39 A7 42 B2 42 AB  |1)).48:.B.9.B.B.|
00000430: 37 00 42 0C 36 01 45 B2  45 AC 31 36 AA 42 3A 82  |7.B.6.E.E.16.B:.|
00000440: 3A 8E 00 00 00                                    |:....           |

.. ....  **** BY STEVE CATES ***.&...:.H
.... **** SAN DIEGO, CALIF. ****.N...:.
...."...  THIS PROGRAM PEEKS MACHINE LAN
GUAGE "......:."PROGRAMS AND CONSTRUCTS 
DATA STATMENTS.".Y...."....WHEN DONE DEL
ETE LINES 10-310"...(..".THEN SAVE DATA 
TABLE TO DISK OR TAPE.".4.-..".USE AN AP
PENDING PROGRAM TO ADD DATA".Z.2.." TO Y
OUR EXSITING PROGRAM.":.:....<..:."BEGIN
NING LOCATION (HEX)  ....";A$...A..A$.".
".60...F..:."ENDING LOCATION (HEX)  ....
";B$.K.H..B$.".".70...K.E$.A$:.300:A.E:E
$.B$:.300:B.E...P.."...";:.60000;"READ L
O,HI".).Z..60001;"FOR I=LO TO HI".F.D..6
0002;"READ X:POKE I,X".Z.N..60003;"NEXT 
I".N.X..60004;"RETURN"......"A=";A;":B="
;B;":GOTO 150"...... 280.....K.60006:C..
((B.A).14.K):L.A.13... .."...";:.60005;"
DATA";A;".,";B...... N.K.C:. N;"DATA";:H
.H.1.).... D.A.L:. B(D);".,";:.D.B.1. ."
. ":. 260.6....D:.". ".G.H.A.L.1:L.L.14.
V.R..H.4 . 230.^.... N. ...."K=";N.1;":A
=";A;":B=";B;":C=";C;":L=";L;":H=";0;":G
OTO 250"...... 280......"...";:. 170.V..
..".....DELETE 10-310"......".";:.198,8:
.X.1.8:.630.X,13:.X..."...1.,.E.0:.I.1.C
(E$):B.F(J(E$,I,1)).48:.B.9.B.B.7.B.6.E.
E.16.B:.:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL