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

DATAGEN/40

FILE INFORMATION

FILENAME(S): DATAGEN/40

FILE TYPE(S): PRG

FILE SIZE: 620b

FIRST SEEN: 2025-11-30 21:11:17

APPEARS ON: 1 disk(s)

FILE HASH

669db1826d51e15c667d6ef062863fd48b538b659f2d16207bd4f6df4dcd751f

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
UTILITIES 128 2 DATAGEN/40 PRG DuncanTwain 19 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 16 1C 05 00 8F 20  44 41 54 41 47 45 4E 2F  |....... DATAGEN/|
00000010: 31 32 38 2F 34 30 00 58  1C 0B 00 85 22 53 54 41  |128/40.X...."STA|
00000020: 52 54 41 44 52 45 53 20  22 3B 53 41 24 3A 8B 20  |RTADRES ";SA$:. |
00000030: CA 28 53 41 24 2C 31 2C  31 29 B2 22 24 22 A7 53  |.(SA$,1,1)."$".S|
00000040: 41 B2 D1 28 C9 28 53 41  24 2C 34 29 29 3A D5 53  |A..(.(SA$,4)):.S|
00000050: 41 B2 C5 28 53 41 24 29  00 9A 1C 0C 00 85 22 45  |A..(SA$)......"E|
00000060: 49 4E 44 41 44 52 45 53  20 20 22 3B 45 41 24 3A  |INDADRES  ";EA$:|
00000070: 8B 20 CA 28 45 41 24 2C  31 2C 31 29 B2 22 24 22  |. .(EA$,1,1)."$"|
00000080: A7 45 41 B2 D1 28 C9 28  45 41 24 2C 34 29 29 3A  |.EA..(.(EA$,4)):|
00000090: D5 45 41 B2 C5 28 45 41  24 29 00 CD 1C 0E 00 85  |.EA..(EA$)......|
000000A0: 22 31 20 52 45 47 45 4C  4E 52 2E 20 22 3B 5A 4E  |"1 REGELNR. ";ZN|
000000B0: 3A 85 22 53 54 41 50 20  47 52 4F 54 45 20 22 3B  |:."STAP GROTE ";|
000000C0: 53 57 3A 8B 5A 4E B3 31  30 30 A7 31 34 00 ED 1C  |SW:.ZN.100.14...|
000000D0: 10 00 99 C7 28 31 34 37  29 3B 5A 4E 3B 22 46 4F  |....(147);ZN;"FO|
000000E0: 52 49 3D 22 53 41 22 54  4F 22 45 41 22 00 2D 1D  |RI="SA"TO"EA".-.|
000000F0: 12 00 5A 4E B2 5A 4E AA  53 57 3A 99 5A 4E 3B 22  |..ZN.ZN.SW:.ZN;"|
00000100: 52 45 41 44 20 41 24 3A  50 4F 4B 45 20 49 2C 44  |READ A$:POKE I,D|
00000110: 45 43 28 41 24 29 22 3A  5A 4E B2 5A 4E AA 53 57  |EC(A$)":ZN.ZN.SW|
00000120: 3A 99 5A 4E 3B 22 4E 45  58 54 20 49 22 00 42 1D  |:.ZN;"NEXT I".B.|
00000130: 14 00 5A 4E B2 5A 4E AA  53 57 3A 99 5A 4E 3B 22  |..ZN.ZN.SW:.ZN;"|
00000140: 3A 22 00 51 1D 16 00 99  22 47 4F 54 4F 20 32 36  |:".Q...."GOTO 26|
00000150: 22 00 79 1D 18 00 97 38  34 32 2C 31 39 3A 81 49  |".y....842,19:.I|
00000160: B2 31 A4 35 3A 97 38 34  32 AA 49 2C 31 33 3A 82  |.1.5:.842.I,13:.|
00000170: 3A 97 32 30 38 2C 36 3A  80 00 94 1D 1A 00 5A 4E  |:.208,6:......ZN|
00000180: B2 5A 4E AA 53 57 3A E8  3A 99 5A 4E 3B 22 44 41  |.ZN.SW:.:.ZN;"DA|
00000190: 54 41 22 3B 00 A4 1D 1C  00 81 49 B2 53 41 A4 53  |TA";......I.SA.S|
000001A0: 41 AA 31 34 00 BB 1D 1E  00 99 C9 28 D2 28 C2 28  |A.14.......(.(.(|
000001B0: 49 29 29 2C 32 29 AA 22  2C 22 3B 00 C9 1D 20 00  |I)),2).",";... .|
000001C0: 82 49 3A 99 C7 28 32 30  29 00 EE 1D 22 00 99 22  |.I:..(20)...".."|
000001D0: 53 41 3D 22 53 41 22 3A  45 41 3D 22 45 41 22 3A  |SA="SA":EA="EA":|
000001E0: 53 57 3D 22 53 57 22 3A  5A 4E 3D 22 5A 4E 00 24  |SW="SW":ZN="ZN.$|
000001F0: 1E 24 00 99 22 11 11 47  4F 54 4F 33 38 22 3A 97  |.$.."..GOTO38":.|
00000200: 20 38 34 32 2C 31 39 3A  81 54 B2 31 A4 33 3A 97  | 842,19:.T.1.3:.|
00000210: 38 34 32 AA 54 2C 31 33  3A 82 3A 97 20 32 30 38  |842.T,13:.:. 208|
00000220: 2C 35 3A 80 00 3C 1E 26  00 53 41 B2 53 41 AA 31  |,5:..<.&.SA.SA.1|
00000230: 35 3A 8B 53 41 B3 45 41  A7 20 32 36 00 69 1E 28  |5:.SA.EA. 26.i.(|
00000240: 00 E8 3A 99 22 44 45 4C  45 54 45 2D 39 39 22 3A  |..:."DELETE-99":|
00000250: 97 38 34 32 2C 31 39 3A  97 20 38 34 33 2C 31 33  |.842,19:. 843,13|
00000260: 3A 97 32 30 38 2C 32 3A  80 00 00 00              |:.208,2:....    |

....... DATAGEN/128/40.X...."STARTADRES 
";SA$:. J(SA$,1,1)."$".SA.Q(I(SA$,4)):US
A.E(SA$)......"EINDADRES  ";EA$:. J(EA$,
1,1)."$".EA.Q(I(EA$,4)):UEA.E(EA$).M....
"1 REGELNR. ";ZN:."STAP GROTE ";SW:.ZN.1
00.14......G(147);ZN;"FORI="SA"TO"EA".-.
..ZN.ZN.SW:.ZN;"READ A$:POKE I,DEC(A$)":
ZN.ZN.SW:.ZN;"NEXT I".B...ZN.ZN.SW:.ZN;"
:".Q...."GOTO 26".Y....842,19:.I.1.5:.84
2.I,13:.:.208,6:......ZN.ZN.SW:.:.ZN;"DA
TA";......I.SA.SA.14......I(R(B(I)),2)."
,";.I. ..I:.G(20)...".."SA="SA":EA="EA":
SW="SW":ZN="ZN.$.$.."..GOTO38":. 842,19:
.T.1.3:.842.T,13:.:. 208,5:..<.&.SA.SA.1
5:.SA.EA. 26.I.(..:."DELETE-99":.842,19:
. 843,13:.208,2:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL