DATA GENERATOR

FILE INFORMATION

FILENAME(S): DATA GENERATOR

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-02 17:01:49

APPEARS ON: 1 disk(s)

FILE HASH

edbb2a9f6d312ab1ff2c057c00fb86119cfaa387433d1955781cf91943f06524

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
ASSEMBL1	DATA GENERATOR	PRG	Treasure Chest - Spook	6	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 2A 08 01 00 99 22  93 11 11 11 22 A3 38 29  |..*...."....".8)|
00000010: 22 44 41 54 41 20 53 54  41 54 45 4D 45 4E 54 20  |"DATA STATEMENT |
00000020: 47 45 4E 45 52 41 54 4F  52 22 00 50 08 02 00 99  |GENERATOR".P....|
00000030: A3 38 29 22 23 23 23 23  23 23 23 23 23 23 23 23  |.8)"############|
00000040: 23 23 23 23 23 23 23 23  23 23 23 23 11 11 11 22  |############..."|
00000050: 00 76 08 03 00 99 A3 37  29 22 11 5B 41 5D 20 43  |.v.....7)".[A] C|
00000060: 52 45 41 54 45 20 44 41  54 41 20 53 54 41 54 45  |REATE DATA STATE|
00000070: 4D 45 4E 54 53 22 00 9C  08 04 00 99 A3 37 29 22  |MENTS".......7)"|
00000080: 11 5B 42 5D 20 44 45 4C  45 54 45 20 44 41 54 41  |.[B] DELETE DATA|
00000090: 20 53 54 41 54 45 4D 45  4E 54 53 22 00 BB 08 05  | STATEMENTS"....|
000000A0: 00 99 A3 37 29 22 11 5B  43 5D 20 45 52 41 53 45  |...7)".[C] ERASE|
000000B0: 20 47 45 4E 45 52 41 54  4F 52 22 00 CF 08 06 00  | GENERATOR".....|
000000C0: 99 A3 37 29 22 11 5B 44  5D 20 45 58 49 54 22 00  |..7)".[D] EXIT".|
000000D0: FA 08 07 00 99 A3 36 29  22 11 11 11 12 50 52 45  |......6)"....PRE|
000000E0: 53 53 20 4B 45 59 20 46  4F 52 20 44 45 53 49 52  |SS KEY FOR DESIR|
000000F0: 45 44 20 4F 50 54 49 4F  4E 22 00 0B 09 08 00 A1  |ED OPTION"......|
00000100: 41 24 3A 8B 41 24 B2 22  22 A7 38 00 25 09 09 00  |A$:.A$."".8.%...|
00000110: 41 B2 C6 28 41 24 29 AB  36 34 3A 8B 41 B3 31 B0  |A..(A$).64:.A.1.|
00000120: 41 B1 34 A7 38 00 38 09  0A 00 91 41 89 31 32 2C  |A.4.8.8....A.12,|
00000130: 33 39 2C 35 34 2C 31 31  00 3E 09 0B 00 80 00 62  |39,54,11.>.....b|
00000140: 09 0C 00 85 22 93 11 11  53 54 41 52 54 20 4C 4F  |...."...START LO|
00000150: 43 41 54 49 4F 4E 22 3B  41 24 3A 41 B2 C5 28 41  |CATION";A$:A..(A|
00000160: 24 29 00 7C 09 0D 00 8B  41 24 B2 22 22 B0 41 B3  |$).|....A$."".A.|
00000170: 30 B0 41 B1 36 35 35 33  35 A7 31 32 00 9D 09 0E  |0.A.65535.12....|
00000180: 00 85 22 45 4E 44 20 20  20 4C 4F 43 41 54 49 4F  |.."END   LOCATIO|
00000190: 4E 22 3B 42 24 3A 42 B2  C5 28 42 24 29 00 BE 09  |N";B$:B..(B$)...|
000001A0: 0F 00 8B 42 24 B2 22 22  B0 42 B3 41 B0 42 B1 36  |...B$."".B.A.B.6|
000001B0: 35 35 33 35 A7 99 22 91  91 22 3A 89 31 34 00 E2  |5535.."..":.14..|
000001C0: 09 10 00 85 22 11 53 54  41 52 54 20 4C 49 4E 45  |....".START LINE|
000001D0: 20 28 3E 35 39 29 22 3B  43 24 3A 43 B2 C5 28 43  | (>59)";C$:C..(C|
000001E0: 24 29 00 05 0A 11 00 8B  43 24 B2 22 22 B0 43 B3  |$)......C$."".C.|
000001F0: 36 30 B0 43 B1 36 33 39  39 39 A7 99 22 91 91 91  |60.C.63999.."...|
00000200: 22 3A 89 31 36 00 1D 0A  12 00 85 22 53 54 45 50  |":.16......"STEP|
00000210: 22 3B 44 24 3A 44 25 B2  C5 28 44 24 29 00 39 0A  |";D$:D%..(D$).9.|
00000220: 13 00 8B 44 25 B3 B2 30  B0 44 25 B1 32 35 35 A7  |...D%..0.D%.255.|
00000230: 99 22 91 91 22 3A 89 31  38 00 76 0A 14 00 8B B5  |."..":.18.v.....|
00000240: 28 28 42 AB 41 29 AD 31  36 29 AC 44 25 AA 43 B1  |((B.A).16).D%.C.|
00000250: 36 33 39 39 39 A7 99 22  11 54 4F 4F 20 4D 41 4E  |63999..".TOO MAN|
00000260: 59 20 4C 49 4E 45 53 22  3A 81 49 B2 31 A4 31 30  |Y LINES":.I.1.10|
00000270: 30 30 3A 82 3A 8A 00 9E  0A 15 00 41 31 B2 B5 28  |00:.:......A1..(|
00000280: 41 AD 32 35 36 29 3A 42  31 B2 B5 28 42 AD 32 35  |A.256):B1..(B.25|
00000290: 36 29 3A 43 31 B2 B5 28  43 AD 32 35 36 29 00 B8  |6):C1..(C.256)..|
000002A0: 0A 16 00 97 32 35 31 2C  41 AB 41 31 AC 32 35 36  |....251,A.A1.256|
000002B0: 3A 97 32 35 32 2C 41 31  00 D2 0A 17 00 97 32 35  |:.252,A1......25|
000002C0: 33 2C 42 AB 42 31 AC 32  35 36 3A 97 32 35 34 2C  |3,B.B1.256:.254,|
000002D0: 42 31 00 EE 0A 18 00 97  31 30 32 30 2C 43 AB 43  |B1......1020,C.C|
000002E0: 31 AC 32 35 36 3A 97 31  30 32 31 2C 43 31 00 FB  |1.256:.1021,C1..|
000002F0: 0A 19 00 97 31 30 32 32  2C 44 25 00 26 0B 1A 00  |....1022,D%.&...|
00000300: 97 36 33 31 2C 31 39 3A  97 36 33 32 2C 31 33 3A  |.631,19:.632,13:|
00000310: 97 36 33 33 2C 31 33 3A  97 36 33 34 2C 31 37 3A  |.633,13:.634,17:|
00000320: 97 31 39 38 2C 33 00 5C  0B 1B 00 41 B2 C2 28 31  |.198,3.\...A..(1|
00000330: 30 32 30 29 AA 32 35 36  AC C2 28 31 30 32 31 29  |020).256..(1021)|
00000340: 3A 42 B2 C2 28 32 35 31  29 AA 32 35 36 AC C2 28  |:B..(251).256..(|
00000350: 32 35 32 29 3A 41 24 B2  C4 28 41 29 00 7A 0B 1C  |252):A$..(A).z..|
00000360: 00 99 22 93 22 C9 28 41  24 2C C3 28 41 24 29 AB  |..".".(A$,.(A$).|
00000370: 31 29 22 20 44 41 54 41  22 3B 00 97 0B 1D 00 81  |1)" DATA";......|
00000380: 49 B2 30 A4 31 35 3A 43  B2 C2 28 42 AA 49 29 3A  |I.0.15:C..(B.I):|
00000390: 41 24 B2 C4 28 43 29 00  C1 0B 1E 00 8B 42 AA 49  |A$..(C)......B.I|
000003A0: B1 C2 28 32 35 33 29 AA  32 35 36 AC C2 28 32 35  |..(253).256..(25|
000003B0: 34 29 A7 99 22 2D 31 22  3A 99 22 52 55 4E 22 3A  |4).."-1":."RUN":|
000003C0: 80 00 D8 0B 1F 00 99 C9  28 41 24 2C C3 28 41 24  |........(A$,.(A$|
000003D0: 29 AB 31 29 22 2C 22 3B  00 FC 0B 20 00 44 B2 44  |).1)",";... .D.D|
000003E0: AA 43 3A 82 3A 42 24 B2  C4 28 44 29 3A 99 C9 28  |.C:.:B$..(D):..(|
000003F0: 42 24 2C C3 28 42 24 29  AB 31 29 3B 00 13 0C 21  |B$,.(B$).1);...!|
00000400: 00 41 B2 41 AA C2 28 31  30 32 32 29 3A 42 B2 42  |.A.A..(1022):B.B|
00000410: AA 31 36 00 2F 0C 22 00  41 31 B2 B5 28 41 AD 32  |.16./.".A1..(A.2|
00000420: 35 36 29 3A 42 31 B2 B5  28 42 AD 32 35 36 29 00  |56):B1..(B.256).|
00000430: 4B 0C 23 00 97 31 30 32  30 2C 41 AB 41 31 AC 32  |K.#..1020,A.A1.2|
00000440: 35 36 3A 97 31 30 32 31  2C 41 31 00 65 0C 24 00  |56:.1021,A1.e.$.|
00000450: 97 32 35 31 2C 42 AB 42  31 AC 32 35 36 3A 97 32  |.251,B.B1.256:.2|
00000460: 35 32 2C 42 31 00 8E 0C  25 00 8B 42 B1 C2 28 32  |52,B1...%..B..(2|
00000470: 35 33 29 AA 32 35 36 AC  C2 28 32 35 34 29 A7 99  |53).256..(254)..|
00000480: 22 2C 2D 31 22 3A 99 22  52 55 4E 22 3A 80 00 9F  |",-1":."RUN":...|
00000490: 0C 26 00 99 3A 99 22 52  55 4E 32 36 22 3A 80 00  |.&..:."RUN26":..|
000004A0: C5 0C 27 00 85 22 93 11  11 53 54 41 52 54 20 4C  |..'.."...START L|
000004B0: 49 4E 45 20 28 3E 35 39  29 22 3B 41 24 3A 41 B2  |INE (>59)";A$:A.|
000004C0: C5 28 41 24 29 00 E0 0C  28 00 8B 41 24 B2 22 22  |.(A$)...(..A$.""|
000004D0: B0 41 B3 36 30 B0 41 B1  36 33 39 39 39 A7 33 39  |.A.60.A.63999.39|
000004E0: 00 03 0D 29 00 85 22 45  4E 44 20 20 20 4C 49 4E  |...).."END   LIN|
000004F0: 45 20 20 20 20 20 20 22  3B 42 24 3A 42 B2 C5 28  |E      ";B$:B..(|
00000500: 42 24 29 00 24 0D 2A 00  8B 42 24 B2 22 22 B0 42  |B$).$.*..B$."".B|
00000510: B3 41 B0 42 B1 36 33 39  39 39 A7 99 22 91 91 22  |.A.B.63999..".."|
00000520: 3A 89 34 31 00 3D 0D 2B  00 85 22 11 53 54 45 50  |:.41.=.+..".STEP|
00000530: 22 3B 43 24 3A 43 25 B2  C5 28 43 24 29 00 5A 0D  |";C$:C%..(C$).Z.|
00000540: 2C 00 8B 43 25 B3 B2 30  B0 43 25 B1 32 35 35 A7  |,..C%..0.C%.255.|
00000550: 99 22 91 91 91 22 3A 89  34 33 00 76 0D 2D 00 41  |."...":.43.v.-.A|
00000560: 31 B2 B5 28 41 AD 32 35  36 29 3A 42 31 B2 B5 28  |1..(A.256):B1..(|
00000570: 42 AD 32 35 36 29 00 90  0D 2E 00 97 32 35 31 2C  |B.256)......251,|
00000580: 41 AB 41 31 AC 32 35 36  3A 97 32 35 32 2C 41 31  |A.A1.256:.252,A1|
00000590: 00 AA 0D 2F 00 97 32 35  33 2C 42 AB 42 31 AC 32  |.../..253,B.B1.2|
000005A0: 35 36 3A 97 32 35 34 2C  42 31 00 BC 0D 30 00 97  |56:.254,B1...0..|
000005B0: 31 30 32 30 2C 43 25 3A  99 22 93 22 00 DF 0D 31  |1020,C%:."."...1|
000005C0: 00 97 36 33 31 2C 31 39  3A 97 36 33 32 2C 31 33  |..631,19:.632,13|
000005D0: 3A 97 36 33 33 2C 31 33  3A 97 31 39 38 2C 33 00  |:.633,13:.198,3.|
000005E0: 15 0E 32 00 41 B2 C2 28  32 35 31 29 AA 32 35 36  |..2.A..(251).256|
000005F0: AC C2 28 32 35 32 29 3A  42 B2 C2 28 32 35 33 29  |..(252):B..(253)|
00000600: AA 32 35 36 AC C2 28 32  35 34 29 3A 43 B2 C2 28  |.256..(254):C..(|
00000610: 31 30 32 30 29 00 2D 0E  33 00 99 22 13 22 41 3A  |1020).-.3.."."A:|
00000620: 8B 41 B3 42 A7 99 22 52  55 4E 34 39 22 00 61 0E  |.A.B.."RUN49".a.|
00000630: 34 00 41 B2 41 AA 43 3A  8B 41 B3 B2 42 A7 41 31  |4.A.A.C:.A..B.A1|
00000640: B2 B5 28 41 AD 32 35 36  29 3A 97 32 35 31 2C 41  |..(A.256):.251,A|
00000650: AB 41 31 AC 32 35 36 3A  97 32 35 32 2C 41 31 3A  |.A1.256:.252,A1:|
00000660: 80 00 70 0E 35 00 99 22  52 55 4E 20 20 22 3A 80  |..p.5.."RUN  ":.|
00000670: 00 9F 0E 36 00 85 22 93  11 11 41 52 45 20 59 4F  |...6.."...ARE YO|
00000680: 55 20 53 55 52 45 22 3B  41 24 3A 8B 41 24 B3 B1  |U SURE";A$:.A$..|
00000690: 22 59 22 AF 41 24 B3 B1  22 59 45 53 22 A7 8A 00  |"Y".A$.."YES"...|
000006A0: AF 0E 37 00 99 22 93 22  3A 97 32 35 31 2C 31 00  |..7..".":.251,1.|
000006B0: D2 0E 38 00 97 36 33 31  2C 31 39 3A 97 36 33 32  |..8..631,19:.632|
000006C0: 2C 31 33 3A 97 36 33 33  2C 31 33 3A 97 31 39 38  |,13:.633,13:.198|
000006D0: 2C 33 00 FF 0E 39 00 41  B2 C2 28 32 35 31 29 3A  |,3...9.A..(251):|
000006E0: 8B 41 B3 35 36 A7 99 22  13 22 41 3A 99 22 52 55  |.A.56.."."A:."RU|
000006F0: 4E 35 36 22 3A 97 32 35  31 2C 41 AA 31 3A 80 00  |N56":.251,A.1:..|
00000700: 35 0F 3A 00 99 22 93 35  36 11 9D 9D 35 37 11 9D  |5.:..".56...57..|
00000710: 9D 35 38 22 3A 97 36 33  34 2C 31 33 3A 97 36 33  |.58":.634,13:.63|
00000720: 35 2C 31 37 3A 97 36 33  36 2C 31 37 3A 97 31 39  |5,17:.636,17:.19|
00000730: 38 2C 36 3A 80 00 00 00                           |8,6:....        |

..*...."....".8)"DATA STATEMENT GENERATO
R".P.....8)"########################..."
.V.....7)".[A] CREATE DATA STATEMENTS"..
.....7)".[B] DELETE DATA STATEMENTS"....
...7)".[C] ERASE GENERATOR".O.....7)".[D
] EXIT".......6)"....PRESS KEY FOR DESIR
ED OPTION"......A$:.A$."".8.%...A.F(A$).
64:.A.1.A.4.8.8....A.12,39,54,11.>.....B
...."...START LOCATION";A$:A.E(A$).|....
A$."".A.0.A.65535.12......"END   LOCATIO
N";B$:B.E(B$)......B$."".B.A.B.65535..".
.":.14......".START LINE (>59)";C$:C.E(C
$)......C$."".C.60.C.63999.."...":.16...
..."STEP";D$:D%.E(D$).9....D%..0.D%.255.
."..":.18.V.....((B.A).16).D%.C.63999.."
.TOO MANY LINES":.I.1.1000:.:......A1..(
A.256):B1..(B.256):C1..(C.256)......251,
A.A1.256:.252,A1.R....253,B.B1.256:.254,
B1......1020,C.C1.256:.1021,C1......1022
,D%.&....631,19:.632,13:.633,13:.634,17:
.198,3.\...A.B(1020).256.B(1021):B.B(251
).256.B(252):A$.D(A).Z...."."I(A$,C(A$).
1)" DATA";......I.0.15:C.B(B.I):A$.D(C).
A....B.I.B(253).256.B(254).."-1":."RUN":
..X....I(A$,C(A$).1)",";... .D.D.C:.:B$.
D(D):.I(B$,C(B$).1);...!.A.A.B(1022):B.B
.16./.".A1..(A.256):B1..(B.256).K.#..102
0,A.A1.256:.1021,A1.E.$..251,B.B1.256:.2
52,B1...%..B.B(253).256.B(254)..",-1":."
RUN":....&..:."RUN26":..E.'.."...START L
INE (>59)";A$:A.E(A$)...(..A$."".A.60.A.
63999.39...).."END   LINE      ";B$:B.E(
B$).$.*..B$."".B.A.B.63999.."..":.41.=.+
..".STEP";C$:C%.E(C$).Z.,..C%..0.C%.255.
."...":.43.V.-.A1..(A.256):B1..(B.256)..
....251,A.A1.256:.252,A1.../..253,B.B1.2
56:.254,B1...0..1020,C%:."."...1..631,19
:.632,13:.633,13:.198,3...2.A.B(251).256
.B(252):B.B(253).256.B(254):C.B(1020).-.
3.."."A:.A.B.."RUN49".A.4.A.A.C:.A..B.A1
..(A.256):.251,A.A1.256:.252,A1:..P.5.."
RUN  ":....6.."...ARE YOU SURE";A$:.A$..
"Y".A$.."YES".....7..".":.251,1.R.8..631
,19:.632,13:.633,13:.198,3...9.A.B(251):
.A.56.."."A:."RUN56":.251,A.1:..5.:..".5
6...57...58":.634,13:.635,17:.636,17:.19
8,6:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL