DATA MAKER

FILE INFORMATION

FILENAME(S): DATA MAKER

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-12-02 00:16:57

APPEARS ON: 1 disk(s)

FILE HASH

4f730dcaa0413a5815fdf48c67fce4e87dabf1de0f01cd9851351318650c7974

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
PETE WORK DISK	DATA MAKER	PRG	Maestro	4	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 3A 08 05 00 97 20  35 33 32 38 30 2C 39 3A  |..:.... 53280,9:|
00000010: 97 20 35 33 32 38 31 2C  38 3A 99 22 93 05 4D 41  |. 53281,8:."..MA|
00000020: 43 48 49 4E 45 20 43 4F  44 45 20 54 4F 20 44 41  |CHINE CODE TO DA|
00000030: 54 41 20 4D 41 4B 45 52  2E 22 00 83 08 0A 00 99  |TA MAKER."......|
00000040: 22 11 54 48 49 53 20 50  52 4F 47 52 41 4D 20 54  |".THIS PROGRAM T|
00000050: 41 4B 45 53 20 41 20 53  45 43 54 49 4F 4E 20 4F  |AKES A SECTION O|
00000060: 46 20 4D 45 4D 4F 52 59  20 20 41 4E 44 20 43 4F  |F MEMORY  AND CO|
00000070: 4E 56 45 52 54 53 20 54  48 45 20 42 59 54 45 53  |NVERTS THE BYTES|
00000080: 20 22 3B 00 BA 08 0F 00  99 22 49 54 20 46 49 4E  | ";......"IT FIN|
00000090: 44 53 20 54 48 45 52 45  20 20 20 49 4E 54 4F 20  |DS THERE   INTO |
000000A0: 41 20 53 45 54 20 4F 46  20 44 41 54 41 20 53 54  |A SET OF DATA ST|
000000B0: 41 54 45 4D 45 4E 54 53  2E 22 00 09 09 14 00 99  |ATEMENTS."......|
000000C0: 22 11 48 41 56 49 4E 47  20 44 4F 4E 45 20 54 48  |".HAVING DONE TH|
000000D0: 41 54 2C 20 49 54 20 54  48 45 4E 20 45 4C 49 4D  |AT, IT THEN ELIM|
000000E0: 49 4E 41 54 45 53 20 20  20 20 49 54 53 45 4C 46  |INATES    ITSELF|
000000F0: 2C 20 4C 45 41 56 49 4E  47 20 4A 55 53 54 20 54  |, LEAVING JUST T|
00000100: 48 45 20 44 41 54 41 2E  22 00 34 09 19 00 99 22  |HE DATA.".4...."|
00000110: 11 50 52 45 53 53 20 27  5F 27 20 54 4F 20 4C 4F  |.PRESS '_' TO LO|
00000120: 41 44 20 54 48 45 20 4E  45 58 54 20 50 52 4F 47  |AD THE NEXT PROG|
00000130: 52 41 4D 22 00 6F 09 1E  00 99 22 4F 52 20 27 53  |RAM".o...."OR 'S|
00000140: 50 41 43 45 27 20 54 4F  20 42 52 45 41 4B 20 49  |PACE' TO BREAK I|
00000150: 4E 54 4F 20 54 48 49 53  20 4F 4E 45 20 41 4E 44  |NTO THIS ONE AND|
00000160: 20 20 20 4C 4F 4F 4B 20  41 54 20 49 54 2E 22 00  |   LOOK AT IT.".|
00000170: A1 09 23 00 A1 20 41 24  3A 8B 41 24 B2 22 5F 22  |..#.. A$:.A$."_"|
00000180: 20 A7 20 99 22 93 11 11  4C 4F 41 44 13 22 3B 3A  | . ."...LOAD.";:|
00000190: 97 31 39 38 2C 31 3A 97  20 36 33 31 2C 31 33 3A  |.198,1:. 631,13:|
000001A0: 80 00 B2 09 28 00 8B 20  41 24 B3 B1 22 20 22 A7  |....(.. A$.." ".|
000001B0: 33 35 00 EB 09 2D 00 99  22 11 4F 4B 41 59 2C 20  |35...-..".OKAY, |
000001C0: 59 4F 55 20 43 41 4E 20  4E 4F 57 20 4C 49 53 54  |YOU CAN NOW LIST|
000001D0: 20 41 4E 44 20 45 58 41  4D 49 4E 45 20 54 48 49  | AND EXAMINE THI|
000001E0: 53 20 50 52 4F 47 52 41  4D 2E 22 00 2E 0A 32 00  |S PROGRAM."...2.|
000001F0: 99 22 11 57 48 45 4E 20  53 41 54 49 53 46 49 45  |.".WHEN SATISFIE|
00000200: 44 2C 20 50 52 45 53 53  20 53 48 49 46 54 20 41  |D, PRESS SHIFT A|
00000210: 4E 44 20 52 55 4E 2F 53  54 4F 50 54 4F 20 43 41  |ND RUN/STOPTO CA|
00000220: 52 52 59 20 4F 4E 20 41  47 41 49 4E 2E 22 00 34  |RRY ON AGAIN.".4|
00000230: 0A 37 00 80 00 70 0A 64  00 85 22 53 54 41 52 54  |.7...p.d.."START|
00000240: 20 41 44 44 52 45 53 53  22 3B 53 3A 97 38 33 30  | ADDRESS";S:.830|
00000250: 2C 53 AD 32 35 36 3A 85  22 45 4E 44 20 41 44 44  |,S.256:."END ADD|
00000260: 52 45 53 53 22 3B 45 3A  8B 45 B3 53 A7 31 30 30  |RESS";E:.E.S.100|
00000270: 00 9D 0A 82 00 97 38 32  38 2C 30 3A 97 38 32 39  |......828,0:.829|
00000280: 2C 30 3A 97 38 33 31 2C  30 3A 5A B2 B5 28 28 45  |,0:.831,0:Z..((E|
00000290: AB 53 29 AD 38 29 3A 97  38 32 39 2C 5A 00 BB 0A  |.S).8):.829,Z...|
000002A0: AA 05 8B C2 28 38 32 39  29 AC 38 AA 37 B3 C2 28  |....(829).8.7..(|
000002B0: 38 32 38 29 AC 38 A7 31  35 38 30 00 DA 0A AB 05  |828).8.1580.....|
000002C0: 53 B2 C2 28 38 33 30 29  3A 53 B2 53 AC 32 35 36  |S..(830):S.S.256|
000002D0: AA C2 28 38 33 31 29 AC  37 32 00 0B 0B AF 05 99  |..(831).72......|
000002E0: 22 93 11 11 11 22 3B C2  28 38 32 38 29 AA 33 30  |"....";.(828).30|
000002F0: 30 30 30 3B 22 52 45 4D  20 42 4C 4F 43 4B 20 23  |000;"REM BLOCK #|
00000300: 22 3B C2 28 38 32 38 29  AD 31 30 00 24 0B B4 05  |";.(828).10.$...|
00000310: 97 38 32 38 2C C2 28 38  32 38 29 AA 31 3A 81 49  |.828,.(828).1:.I|
00000320: B2 30 A4 38 00 3D 0B BE  05 99 C2 28 38 32 38 29  |.0.8.=.....(828)|
00000330: AA 33 30 30 30 30 22 44  41 54 41 22 3B 00 48 0B  |.30000"DATA";.H.|
00000340: C8 05 81 4A B2 30 A4 37  00 5A 0B D2 05 42 42 B2  |...J.0.7.Z...BB.|
00000350: C2 28 53 AA 49 AC 38 AA  4A 29 00 76 0B DC 05 42  |.(S.I.8.J).v...B|
00000360: 42 24 B2 C9 28 C4 28 42  42 29 2C C3 28 C4 28 42  |B$..(.(BB),.(.(B|
00000370: 42 29 29 AB 31 29 00 84  0B E6 05 99 42 42 24 3B  |B)).1)......BB$;|
00000380: 22 2C 22 3B 00 8C 0B F0  05 82 20 4A 00 A4 0B FA  |",";...... J....|
00000390: 05 99 22 9D 20 22 3A 97  38 32 38 2C C2 28 38 32  |..". ":.828,.(82|
000003A0: 38 29 AA 31 00 AC 0B 04  06 82 20 49 00 BD 0B 18  |8).1...... I....|
000003B0: 06 99 22 47 4F 54 4F 31  34 35 30 13 22 00 EF 0B  |.."GOTO1450."...|
000003C0: 22 06 97 20 31 39 38 2C  31 32 3A 81 49 B2 30 A4  |".. 198,12:.I.0.|
000003D0: 31 31 3A 97 36 33 31 AA  49 2C 31 33 3A 82 49 3A  |11:.631.I,13:.I:|
000003E0: 97 38 33 31 2C C2 28 38  33 31 29 AA 31 3A 80 00  |.831,.(831).1:..|
000003F0: 2B 0C 2C 06 99 22 93 11  11 11 22 3B 35 3A 99 31  |+.,.."....";5:.1|
00000400: 30 3A 99 31 35 3A 99 32  30 3A 99 32 35 3A 99 33  |0:.15:.20:.25:.3|
00000410: 30 3A 99 33 35 3A 99 34  30 3A 99 34 35 3A 99 35  |0:.35:.40:.45:.5|
00000420: 30 3A 99 35 35 3A 89 31  36 38 30 00 76 0C 40 06  |0:.55:.1680.v.@.|
00000430: 99 22 93 11 11 11 22 3B  31 30 30 3A 99 31 33 30  |."....";100:.130|
00000440: 3A 99 31 34 35 30 3A 99  31 34 35 31 3A 99 31 34  |:.1450:.1451:.14|
00000450: 35 35 3A 99 31 34 36 30  3A 99 31 34 37 30 3A 99  |55:.1460:.1470:.|
00000460: 31 34 38 30 3A 99 31 34  39 30 3A 99 31 35 30 30  |1480:.1490:.1500|
00000470: 3A 99 31 35 31 30 00 80  0C 4A 06 89 31 37 30 30  |:.1510...J..1700|
00000480: 00 CD 0C 54 06 99 22 93  11 11 11 22 3B 31 35 32  |...T.."....";152|
00000490: 30 3A 99 31 35 33 30 3A  99 31 35 34 30 3A 99 31  |0:.1530:.1540:.1|
000004A0: 35 36 30 3A 99 31 35 37  30 3A 99 31 36 30 30 3A  |560:.1570:.1600:|
000004B0: 99 31 36 31 30 3A 99 31  36 32 30 3A 99 31 37 30  |.1610:.1620:.170|
000004C0: 30 3A 99 31 37 31 30 3A  99 31 36 33 30 00 D7 0C  |0:.1710:.1630...|
000004D0: 5E 06 89 31 37 32 30 00  E8 0C 90 06 99 22 47 4F  |^..1720......"GO|
000004E0: 54 4F 31 36 30 30 13 22  00 0C 0D 9A 06 97 20 31  |TO1600."...... 1|
000004F0: 39 38 2C 31 32 3A 81 49  B2 30 A4 31 31 3A 97 36  |98,12:.I.0.11:.6|
00000500: 33 31 AA 49 2C 31 33 3A  82 49 3A 80 00 1D 0D A4  |31.I,13:.I:.....|
00000510: 06 99 22 47 4F 54 4F 31  36 32 30 13 22 00 41 0D  |.."GOTO1620.".A.|
00000520: AE 06 97 20 31 39 38 2C  31 32 3A 81 49 B2 30 A4  |... 198,12:.I.0.|
00000530: 31 31 3A 97 36 33 31 AA  49 2C 31 33 3A 82 49 3A  |11:.631.I,13:.I:|
00000540: 80 00 7C 0D B8 06 99 22  20 31 37 32 30 22 3A 99  |..|...." 1720":.|
00000550: 22 20 31 37 33 30 22 3A  99 22 20 31 35 38 30 22  |" 1730":." 1580"|
00000560: 3A 99 22 20 31 36 38 30  22 3A 99 22 20 31 36 39  |:." 1680":." 169|
00000570: 30 22 3A 99 22 20 4C 49  53 54 13 22 00 A0 0D C2  |0":." LIST."....|
00000580: 06 97 20 31 39 38 2C 31  37 3A 81 49 B2 30 A4 31  |.. 198,17:.I.0.1|
00000590: 36 3A 97 36 33 31 AA 49  2C 31 33 3A 82 49 3A 80  |6:.631.I,13:.I:.|
000005A0: 00 00 00                                          |...             |

..:.... 53280,9:. 53281,8:."..MACHINE CO
DE TO DATA MAKER."......".THIS PROGRAM T
AKES A SECTION OF MEMORY  AND CONVERTS T
HE BYTES ";......"IT FINDS THERE   INTO 
A SET OF DATA STATEMENTS."......".HAVING
 DONE THAT, IT THEN ELIMINATES    ITSELF
, LEAVING JUST THE DATA.".4....".PRESS '
_' TO LOAD THE NEXT PROGRAM".O...."OR 'S
PACE' TO BREAK INTO THIS ONE AND   LOOK 
AT IT."...#.. A$:.A$."_" . ."...LOAD.";:
.198,1:. 631,13:....(.. A$.." ".35...-..
".OKAY, YOU CAN NOW LIST AND EXAMINE THI
S PROGRAM."...2..".WHEN SATISFIED, PRESS
 SHIFT AND RUN/STOPTO CARRY ON AGAIN.".4
.7...P.D.."START ADDRESS";S:.830,S.256:.
"END ADDRESS";E:.E.S.100......828,0:.829
,0:.831,0:Z..((E.S).8):.829,Z......B(829
).8.7.B(828).8.1580.Z...S.B(830):S.S.256
.B(831).72......"....";B(828).30000;"REM
 BLOCK #";B(828).10.$....828,B(828).1:.I
.0.8.=....B(828).30000"DATA";.H.H..J.0.7
.Z.R.BB.B(S.I.8.J).V...BB$.I(D(BB),C(D(B
B)).1)......BB$;",";...... J......". ":.
828,B(828).1...... I......"GOTO1450."...
".. 198,12:.I.0.11:.631.I,13:.I:.831,B(8
31).1:..+.,.."....";5:.10:.15:.20:.25:.3
0:.35:.40:.45:.50:.55:.1680.V.@.."....";
100:.130:.1450:.1451:.1455:.1460:.1470:.
1480:.1490:.1500:.1510...J..1700.M.T..".
...";1520:.1530:.1540:.1560:.1570:.1600:
.1610:.1620:.1700:.1710:.1630.W.^..1720.
....."GOTO1600."...... 198,12:.I.0.11:.6
31.I,13:.I:......."GOTO1620.".A.... 198,
12:.I.0.11:.631.I,13:.I:..|...." 1720":.
" 1730":." 1580":." 1680":." 1690":." LI
ST.". .B.. 198,17:.I.0.16:.631.I,13:.I:.
...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL