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

DATAGEN 128

FILE INFORMATION

FILENAME(S): DATAGEN 128

FILE TYPE(S): PRG

FILE SIZE: 673b

FIRST SEEN: 2025-11-30 01:12:33

APPEARS ON: 1 disk(s)

FILE HASH

4939a5a9c4aa9bbd648f7fcd0ac95ca3217eb46b83772f4c7f2a764e0f884dfc

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SONDERHEFT 7 86 DATAGEN 128 PRG C64er 24 14 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 1C 1C 02 00 8F 20  2A 2A 2A 20 20 44 41 54  |....... ***  DAT|
00000010: 41 47 45 4E 20 31 32 38  20 2A 2A 2A 00 37 1C 04  |AGEN 128 ***.7..|
00000020: 00 8F 20 2A 2A 2A 20 28  43 29 20 54 2E 20 46 41  |.. *** (C) T. FA|
00000030: 48 4C 45 20 2A 2A 2A 00  3D 1C 06 00 3A 00 43 1C  |HLE ***.=...:.C.|
00000040: 08 00 E8 00 85 1C 0A 00  85 22 53 54 41 52 54 41  |........."STARTA|
00000050: 44 52 2E 22 3B 53 41 24  3A 8B 20 CA 28 53 41 24  |DR.";SA$:. .(SA$|
00000060: 2C 31 2C 31 29 B2 22 24  22 A7 20 53 41 B2 D1 28  |,1,1)."$". SA..(|
00000070: C9 28 53 41 24 2C 34 29  29 3A D5 20 53 41 B2 C5  |.(SA$,4)):. SA..|
00000080: 28 53 41 24 29 00 C5 1C  0C 00 85 22 45 4E 44 41  |(SA$)......"ENDA|
00000090: 44 52 2E 22 3B 45 41 24  3A 8B 20 CA 28 45 41 24  |DR.";EA$:. .(EA$|
000000A0: 2C 31 2C 31 29 B2 22 24  22 A7 20 45 41 B2 D1 28  |,1,1)."$". EA..(|
000000B0: C9 28 45 41 24 2C 34 29  29 3A D5 20 45 41 B2 C5  |.(EA$,4)):. EA..|
000000C0: 28 45 41 24 29 00 FA 1C  0E 00 85 22 31 2E 5A 45  |(EA$)......"1.ZE|
000000D0: 49 4C 45 4E 4E 52 2E 22  3B 5A 4E 3A 85 22 53 43  |ILENNR.";ZN:."SC|
000000E0: 48 52 49 54 54 57 45 49  54 45 22 3B 53 57 3A 8B  |HRITTWEITE";SW:.|
000000F0: 5A 4E B3 33 38 20 A7 20  31 34 00 1A 1D 10 00 99  |ZN.38 . 14......|
00000100: C7 28 31 34 37 29 3B 5A  4E 3B 22 46 4F 52 49 3D  |.(147);ZN;"FORI=|
00000110: 22 53 41 22 54 4F 22 45  41 22 00 5A 1D 12 00 5A  |"SA"TO"EA".Z...Z|
00000120: 4E B2 5A 4E AA 53 57 3A  99 5A 4E 3B 22 52 45 41  |N.ZN.SW:.ZN;"REA|
00000130: 44 20 41 24 3A 50 4F 4B  45 20 49 2C 44 45 43 28  |D A$:POKE I,DEC(|
00000140: 41 24 29 22 3A 5A 4E B2  5A 4E AA 53 57 3A 99 5A  |A$)":ZN.ZN.SW:.Z|
00000150: 4E 3B 22 4E 45 58 54 20  49 22 00 6F 1D 14 00 5A  |N;"NEXT I".o...Z|
00000160: 4E B2 5A 4E AA 53 57 3A  99 5A 4E 3B 22 3A 22 00  |N.ZN.SW:.ZN;":".|
00000170: 7E 1D 16 00 99 22 47 4F  54 4F 20 32 36 22 00 A9  |~...."GOTO 26"..|
00000180: 1D 18 00 97 20 38 34 32  2C 31 39 3A 81 20 49 B2  |.... 842,19:. I.|
00000190: 31 A4 35 3A 97 20 38 34  32 AA 49 2C 31 33 3A 82  |1.5:. 842.I,13:.|
000001A0: 3A 97 32 30 38 2C 36 3A  80 00 C4 1D 1A 00 5A 4E  |:.208,6:......ZN|
000001B0: B2 5A 4E AA 53 57 3A E8  3A 99 5A 4E 3B 22 44 41  |.ZN.SW:.:.ZN;"DA|
000001C0: 54 41 22 3B 00 D5 1D 1C  00 81 20 49 B2 53 41 A4  |TA";...... I.SA.|
000001D0: 53 41 AA 31 34 00 EE 1D  1E 00 3A 20 99 C9 28 D2  |SA.14.....: ..(.|
000001E0: 28 C2 28 49 29 29 2C 32  29 AA 22 2C 22 3B 00 FD  |(.(I)),2).",";..|
000001F0: 1D 20 00 82 20 49 3A 99  C7 28 32 30 29 00 22 1E  |. .. I:..(20).".|
00000200: 22 00 99 22 53 41 3D 22  53 41 22 3A 45 41 3D 22  |".."SA="SA":EA="|
00000210: 45 41 22 3A 53 57 3D 22  53 57 22 3A 5A 4E 3D 22  |EA":SW="SW":ZN="|
00000220: 5A 4E 00 58 1E 24 00 99  22 11 11 47 4F 54 4F 33  |ZN.X.$.."..GOTO3|
00000230: 38 22 3A 97 20 38 34 32  2C 31 39 3A 81 54 B2 31  |8":. 842,19:.T.1|
00000240: A4 33 3A 97 38 34 32 AA  54 2C 31 33 3A 82 3A 97  |.3:.842.T,13:.:.|
00000250: 20 32 30 38 2C 35 3A 80  00 71 1E 26 00 53 41 B2  | 208,5:..q.&.SA.|
00000260: 53 41 AA 31 35 3A 8B 53  41 B3 45 41 20 A7 20 32  |SA.15:.SA.EA . 2|
00000270: 36 00 9E 1E 28 00 E8 3A  99 22 44 45 4C 45 54 45  |6...(..:."DELETE|
00000280: 2D 34 30 22 3A 97 38 34  32 2C 31 39 3A 97 20 38  |-40":.842,19:. 8|
00000290: 34 33 2C 31 33 3A 97 32  30 38 2C 32 3A 80 00 00  |43,13:.208,2:...|
000002A0: 00                                                |.               |

....... ***  DATAGEN 128 ***.7.... *** (
C) T. FAHLE ***.=...:.C.........."STARTA
DR.";SA$:. J(SA$,1,1)."$". SA.Q(I(SA$,4)
):U SA.E(SA$).E...."ENDADR.";EA$:. J(EA$
,1,1)."$". EA.Q(I(EA$,4)):U EA.E(EA$)...
..."1.ZEILENNR.";ZN:."SCHRITTWEITE";SW:.
ZN.38 . 14......G(147);ZN;"FORI="SA"TO"E
A".Z...ZN.ZN.SW:.ZN;"READ A$:POKE I,DEC(
A$)":ZN.ZN.SW:.ZN;"NEXT I".O...ZN.ZN.SW:
.ZN;":".~...."GOTO 26"...... 842,19:. I.
1.5:. 842.I,13:.:.208,6:..D...ZN.ZN.SW:.
:.ZN;"DATA";.U.... I.SA.SA.14.....: .I(R
(B(I)),2).",";... .. I:.G(20).".".."SA="
SA":EA="EA":SW="SW":ZN="ZN.X.$.."..GOTO3
8":. 842,19:.T.1.3:.842.T,13:.:. 208,5:.
.Q.&.SA.SA.15:.SA.EA . 26...(..:."DELETE
-40":.842,19:. 843,13:.208,2:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL