DATAREGELAAR 2

FILE INFORMATION

FILENAME(S): DATAREGELAAR 2

FILE TYPE(S): PRG

FILE SIZE: 1K

FIRST SEEN: 2025-11-30 21:27:57

APPEARS ON: 1 disk(s)

FILE HASH

109db918653786fddc0e0fce5f4c6ffb04c99beb00a64656191aa576a9f7a3d8

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COMMODORE INFO 1	DATAREGELAAR 2	PRG	DuncanTwain	16	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 16 08 01 00 8F 20  44 41 54 41 52 45 47 45  |....... DATAREGE|
00000010: 4C 41 41 52 20 32 00 2F  08 02 00 8F 20 44 4F 4F  |LAAR 2./.... DOO|
00000020: 52 20 4D 41 52 43 20 44  45 20 48 49 4E 47 48 00  |R MARC DE HINGH.|
00000030: 4C 08 03 00 8F 20 55 49  54 20 42 52 45 44 41 20  |L.... UIT BREDA |
00000040: 2F 20 30 37 36 2D 31 34  35 36 35 32 00 55 08 04  |/ 076-145652.U..|
00000050: 00 8F 20 35 2F 00 92 08  5C EA 8F 20 2D 20 52 55  |.. 5/...\.. - RU|
00000060: 4E 20 36 30 30 30 30 20  4F 4D 20 45 45 4E 20 47  |N 60000 OM EEN G|
00000070: 45 48 45 55 47 45 4E 42  4C 4F 4B 20 4E 41 41 52  |EHEUGENBLOK NAAR|
00000080: 20 44 41 54 41 20 54 45  20 53 43 48 52 49 4A 56  | DATA TE SCHRIJV|
00000090: 45 4E 00 D5 08 5D EA 8F  20 2D 20 52 55 4E 20 36  |EN...].. - RUN 6|
000000A0: 30 30 32 30 20 4F 4D 20  45 45 4E 20 47 45 44 45  |0020 OM EEN GEDE|
000000B0: 45 4C 54 45 20 56 41 4E  20 48 45 54 20 50 52 4F  |ELTE VAN HET PRO|
000000C0: 47 52 41 4D 4D 41 20 54  45 20 56 45 52 57 49 4A  |GRAMMA TE VERWIJ|
000000D0: 44 45 52 45 4E 00 DB 08  5E EA 8F 00 E1 08 5F EA  |DEREN...^....._.|
000000E0: 90 00 20 09 60 EA 85 22  93 53 54 41 52 54 41 44  |.. .`..".STARTAD|
000000F0: 52 45 53 22 3B 53 3A 41  B2 53 3A 85 22 20 45 49  |RES";S:A.S:." EI|
00000100: 4E 44 41 44 52 45 53 22  3B 45 3A 85 22 44 41 54  |NDADRES";E:."DAT|
00000110: 41 20 56 41 4E 41 46 20  52 45 47 45 4C 22 3B 52  |A VANAF REGEL";R|
00000120: 00 47 09 61 EA 99 22 4D  41 58 2E 20 4C 45 4E 47  |.G.a.."MAX. LENG|
00000130: 54 45 20 44 41 54 41 52  45 47 45 4C 53 20 28 3C  |TE DATAREGELS (<|
00000140: 37 39 29 22 3A 85 4B 00  6F 09 62 EA 85 22 42 41  |79)":.K.o.b.."BA|
00000150: 53 49 43 4C 4F 41 44 45  52 20 4F 50 20 52 45 47  |SICLOADER OP REG|
00000160: 45 4C 22 3B 4C 3A 97 35  33 32 36 35 2C 31 31 00  |EL";L:.53265,11.|
00000170: 7D 09 63 EA 99 22 93 11  22 3A 4E B2 30 00 8D 09  |}.c.."..":N.0...|
00000180: 64 EA 99 52 22 9D 44 41  54 41 20 22 3B 00 C1 09  |d..R".DATA ";...|
00000190: 65 EA 44 B2 C2 28 41 29  3A 44 31 B2 B5 28 44 AD  |e.D..(A):D1..(D.|
000001A0: 31 30 29 3A 44 32 B2 44  AB 31 30 AC 44 31 3A 99  |10):D2.D.10.D1:.|
000001B0: C7 28 44 31 AA 36 35 29  C7 28 44 32 AA 34 38 29  |.(D1.65).(D2.48)|
000001C0: 3B 00 D6 09 66 EA 41 B2  41 AA 31 3A 8B 41 B1 45  |;...f.A.A.1:.A.E|
000001D0: A7 36 30 30 31 30 00 EA  09 67 EA 8B B9 28 30 29  |.60010...g...(0)|
000001E0: B3 4B AB 31 89 36 30 30  30 35 00 07 0A 68 EA 99  |.K.1.60005...h..|
000001F0: 3A 52 B2 52 AA 31 3A 4E  B2 4E AA 31 3A 8B 4E B3  |:R.R.1:N.N.1:.N.|
00000200: 39 A7 36 30 30 30 34 00  43 0A 69 EA 99 22 52 3D  |9.60004.C.i.."R=|
00000210: 22 52 22 3A 41 3D 22 41  22 3A 53 3D 22 53 22 3A  |"R":A="A":S="S":|
00000220: 45 3D 22 45 22 3A 4B 3D  22 4B 22 3A 4C 3D 22 4C  |E="E":K="K":L="L|
00000230: 22 3A 47 4F 54 4F 36 30  30 30 33 22 3A 89 36 30  |":GOTO60003":.60|
00000240: 30 31 35 00 6F 0A 6A EA  99 3A 99 22 53 3D 22 53  |015.o.j..:."S="S|
00000250: 22 3A 45 3D 22 45 22 3A  4C 3D 22 4C 22 3A 47 4F  |":E="E":L="L":GO|
00000260: 54 4F 36 30 30 31 31 22  3A 89 36 30 30 31 35 00  |TO60011":.60015.|
00000270: 88 0A 6B EA 99 22 93 11  11 22 4C 22 41 3D 22 CA  |..k.."..."L"A=".|
00000280: 28 C4 28 53 29 2C 32 29  00 D5 0A 6C EA 99 4C AA  |(.(S),2)...l..L.|
00000290: 31 22 9D 52 C5 58 24 3A  46 CF 49 3D 31 54 4F 4C  |1".R.X$:F.I=1TOL|
000002A0: 45 4E 28 58 24 29 2F 32  3A 58 3D 31 30 2A 28 41  |EN(X$)/2:X=10*(A|
000002B0: D3 28 4D C9 28 58 24 2C  49 2A 32 2D 31 29 29 2D  |.(M.(X$,I*2-1))-|
000002C0: 36 35 29 2B 41 D3 28 4D  C9 28 58 24 2C 49 2A 32  |65)+A.(M.(X$,I*2|
000002D0: 29 29 2D 34 38 00 0F 0B  6D EA 99 4C AA 32 22 50  |))-48...m..L.2"P|
000002E0: CF 41 2C 58 3A 41 3D 41  2B 31 3A 4E C5 3A 49 46  |.A,X:A=A+1:N.:IF|
000002F0: 41 3C 22 CA 28 C4 28 45  AA 31 29 2C 32 29 22 47  |A<".(.(E.1),2)"G|
00000300: 4F 54 4F 22 CA 28 C4 28  4C AA 31 29 2C 32 29 00  |OTO".(.(L.1),2).|
00000310: 29 0B 6E EA 99 22 50 4F  4B 45 31 39 38 2C 30 3A  |).n.."POKE198,0:|
00000320: 53 59 53 36 35 31 32 36  22 00 50 0B 6F EA 97 31  |SYS65126".P.o..1|
00000330: 39 38 2C 31 30 3A 81 49  B2 30 A4 39 3A 97 36 33  |98,10:.I.0.9:.63|
00000340: 31 AA 49 2C 31 33 3A 82  3A 99 22 13 22 3B 3A 80  |1.I,13:.:.".";:.|
00000350: 00 91 0B 74 EA 99 22 93  52 45 47 45 4C 53 20 56  |...t..".REGELS V|
00000360: 45 52 57 49 4A 44 45 52  45 4E 22 3A 85 22 45 45  |ERWIJDEREN":."EE|
00000370: 52 53 54 45 A0 52 45 47  45 4C 22 3B 52 3A 85 22  |RSTE.REGEL";R:."|
00000380: 4C 41 41 54 53 54 45 20  52 45 47 45 4C 22 3B 52  |LAATSTE REGEL";R|
00000390: 52 00 9F 0B 75 EA 97 35  33 32 36 35 2C 31 31 00  |R...u..53265,11.|
000003A0: AD 0B 76 EA 99 22 93 11  22 3A 4E B2 30 00 CC 0B  |..v.."..":N.0...|
000003B0: 77 EA 99 52 3A 52 B2 52  AA 31 3A 4E B2 4E AA 31  |w..R:R.R.1:N.N.1|
000003C0: 3A 8B 52 B1 52 52 A7 36  30 30 31 34 00 DB 0B 78  |:.R.RR.60014...x|
000003D0: EA 8B 4E B3 39 A7 36 30  30 32 33 00 01 0C 79 EA  |..N.9.60023...y.|
000003E0: 99 22 52 3D 22 52 22 3A  52 52 3D 22 52 52 22 3A  |."R="R":RR="RR":|
000003F0: 47 4F 54 4F 36 30 30 32  32 22 3A 89 36 30 30 31  |GOTO60022":.6001|
00000400: 35 00 00 00 A0                                    |5....           |

....... DATAREGELAAR 2./.... DOOR MARC D
E HINGH.L.... UIT BREDA / 076-145652.U..
.. 5/...\.. - RUN 60000 OM EEN GEHEUGENB
LOK NAAR DATA TE SCHRIJVEN.U.].. - RUN 6
0020 OM EEN GEDEELTE VAN HET PROGRAMMA T
E VERWIJDEREN...^....._... .`..".STARTAD
RES";S:A.S:." EINDADRES";E:."DATA VANAF 
REGEL";R.G.A.."MAX. LENGTE DATAREGELS (<
79)":.K.O.B.."BASICLOADER OP REGEL";L:.5
3265,11.}.C.."..":N.0...D..R".DATA ";.A.
E.D.B(A):D1..(D.10):D2.D.10.D1:.G(D1.65)
G(D2.48);.V.F.A.A.1:.A.E.60010...G...(0)
.K.1.60005...H..:R.R.1:N.N.1:.N.9.60004.
C.I.."R="R":A="A":S="S":E="E":K="K":L="L
":GOTO60003":.60015.O.J..:."S="S":E="E":
L="L":GOTO60011":.60015...K.."..."L"A="J
(D(S),2).U.L..L.1".REX$:FOI=1TOLEN(X$)/2
:X=10*(AS(MI(X$,I*2-1))-65)+AS(MI(X$,I*2
))-48...M..L.2"POA,X:A=A+1:NE:IFA<"J(D(E
.1),2)"GOTO"J(D(L.1),2).).N.."POKE198,0:
SYS65126".P.O..198,10:.I.0.9:.631.I,13:.
:.".";:....T..".REGELS VERWIJDEREN":."EE
RSTE REGEL";R:."LAATSTE REGEL";RR...U..5
3265,11...V.."..":N.0.L.W..R:R.R.1:N.N.1
:.R.RR.60014...X..N.9.60023...Y.."R="R":
RR="RR":GOTO60022":.60015...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL