_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DATA GENERATOR

FILE INFORMATION

FILENAME(S): DATA GENERATOR

FILE TYPE(S): PRG

FILE SIZE: 606b

FIRST SEEN: 2025-11-30 21:12:08

APPEARS ON: 1 disk(s)

FILE HASH

f89177f3aa583f1f8f632a6f9b5a94f11503f85a6fdc07abc5abd5aba2296d77

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MASTER 128D04 DATA GENERATOR PRG DuncanTwain 19 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 08 1C 0A 00 DE 35  00 4A 1C 0B 00 85 22 53  |.......5.J...."S|
00000010: 54 41 52 54 41 44 52 45  53 20 22 3B 53 41 24 3A  |TARTADRES ";SA$:|
00000020: 8B 20 CA 28 53 41 24 2C  31 2C 31 29 B2 22 24 22  |. .(SA$,1,1)."$"|
00000030: A7 53 41 B2 D1 28 C9 28  53 41 24 2C 34 29 29 3A  |.SA..(.(SA$,4)):|
00000040: D5 53 41 B2 C5 28 53 41  24 29 00 8C 1C 0C 00 85  |.SA..(SA$)......|
00000050: 22 45 49 4E 44 41 44 52  45 53 20 20 22 3B 45 41  |"EINDADRES  ";EA|
00000060: 24 3A 8B 20 CA 28 45 41  24 2C 31 2C 31 29 B2 22  |$:. .(EA$,1,1)."|
00000070: 24 22 A7 45 41 B2 D1 28  C9 28 45 41 24 2C 34 29  |$".EA..(.(EA$,4)|
00000080: 29 3A D5 45 41 B2 C5 28  45 41 24 29 00 BF 1C 0E  |):.EA..(EA$)....|
00000090: 00 85 22 31 20 52 45 47  45 4C 4E 52 2E 20 22 3B  |.."1 REGELNR. ";|
000000A0: 5A 4E 3A 85 22 53 54 41  50 20 47 52 4F 54 45 20  |ZN:."STAP GROTE |
000000B0: 22 3B 53 57 3A 8B 5A 4E  B3 31 30 30 A7 31 34 00  |";SW:.ZN.100.14.|
000000C0: DF 1C 10 00 99 C7 28 31  34 37 29 3B 5A 4E 3B 22  |......(147);ZN;"|
000000D0: 46 4F 52 49 3D 22 53 41  22 54 4F 22 45 41 22 00  |FORI="SA"TO"EA".|
000000E0: 1F 1D 12 00 5A 4E B2 5A  4E AA 53 57 3A 99 5A 4E  |....ZN.ZN.SW:.ZN|
000000F0: 3B 22 52 45 41 44 20 41  24 3A 50 4F 4B 45 20 49  |;"READ A$:POKE I|
00000100: 2C 44 45 43 28 41 24 29  22 3A 5A 4E B2 5A 4E AA  |,DEC(A$)":ZN.ZN.|
00000110: 53 57 3A 99 5A 4E 3B 22  4E 45 58 54 20 49 22 00  |SW:.ZN;"NEXT I".|
00000120: 34 1D 14 00 5A 4E B2 5A  4E AA 53 57 3A 99 5A 4E  |4...ZN.ZN.SW:.ZN|
00000130: 3B 22 3A 22 00 43 1D 16  00 99 22 47 4F 54 4F 20  |;":".C...."GOTO |
00000140: 32 36 22 00 6B 1D 18 00  97 38 34 32 2C 31 39 3A  |26".k....842,19:|
00000150: 81 49 B2 31 A4 35 3A 97  38 34 32 AA 49 2C 31 33  |.I.1.5:.842.I,13|
00000160: 3A 82 3A 97 32 30 38 2C  36 3A 80 00 86 1D 1A 00  |:.:.208,6:......|
00000170: 5A 4E B2 5A 4E AA 53 57  3A E8 3A 99 5A 4E 3B 22  |ZN.ZN.SW:.:.ZN;"|
00000180: 44 41 54 41 22 3B 00 96  1D 1C 00 81 49 B2 53 41  |DATA";......I.SA|
00000190: A4 53 41 AA 31 34 00 AD  1D 1E 00 99 C9 28 D2 28  |.SA.14.......(.(|
000001A0: C2 28 49 29 29 2C 32 29  AA 22 2C 22 3B 00 BB 1D  |.(I)),2).",";...|
000001B0: 20 00 82 49 3A 99 C7 28  32 30 29 00 E0 1D 22 00  | ..I:..(20)...".|
000001C0: 99 22 53 41 3D 22 53 41  22 3A 45 41 3D 22 45 41  |."SA="SA":EA="EA|
000001D0: 22 3A 53 57 3D 22 53 57  22 3A 5A 4E 3D 22 5A 4E  |":SW="SW":ZN="ZN|
000001E0: 00 16 1E 24 00 99 22 11  11 47 4F 54 4F 33 38 22  |...$.."..GOTO38"|
000001F0: 3A 97 20 38 34 32 2C 31  39 3A 81 54 B2 31 A4 33  |:. 842,19:.T.1.3|
00000200: 3A 97 38 34 32 AA 54 2C  31 33 3A 82 3A 97 20 32  |:.842.T,13:.:. 2|
00000210: 30 38 2C 35 3A 80 00 2E  1E 26 00 53 41 B2 53 41  |08,5:....&.SA.SA|
00000220: AA 31 35 3A 8B 53 41 B3  45 41 A7 20 32 36 00 5B  |.15:.SA.EA. 26.[|
00000230: 1E 28 00 E8 3A 99 22 44  45 4C 45 54 45 2D 39 39  |.(..:."DELETE-99|
00000240: 22 3A 97 38 34 32 2C 31  39 3A 97 20 38 34 33 2C  |":.842,19:. 843,|
00000250: 31 33 3A 97 32 30 38 2C  32 3A 80 00 00 00        |13:.208,2:....  |
.......5.J...."STARTADRES ";SA$:. J(SA$,
1,1)."$".SA.Q(I(SA$,4)):USA.E(SA$)......
"EINDADRES  ";EA$:. J(EA$,1,1)."$".EA.Q(
I(EA$,4)):UEA.E(EA$)......"1 REGELNR. ";
ZN:."STAP GROTE ";SW:.ZN.100.14......G(1
47);ZN;"FORI="SA"TO"EA".....ZN.ZN.SW:.ZN
;"READ A$:POKE I,DEC(A$)":ZN.ZN.SW:.ZN;"
NEXT I".4...ZN.ZN.SW:.ZN;":".C...."GOTO 
26".K....842,19:.I.1.5:.842.I,13:.:.208,
6:......ZN.ZN.SW:.:.ZN;"DATA";......I.SA
.SA.14......I(R(B(I)),2).",";... ..I:.G(
20)...".."SA="SA":EA="EA":SW="SW":ZN="ZN
...$.."..GOTO38":. 842,19:.T.1.3:.842.T,
13:.:. 208,5:....&.SA.SA.15:.SA.EA. 26.[
.(..:."DELETE-99":.842,19:. 843,13:.208,
2:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL