GRAFIEK

FILE INFORMATION

FILENAME(S): GRAFIEK

FILE TYPE(S): PRG

FILE SIZE: 2K

FIRST SEEN: 2025-12-02 00:01:59

APPEARS ON: 1 disk(s)

FILE HASH

b1f1d761a3e4bb79385889c57f99b6b4d801a48a9628f34a17d0206b341dc3f3

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DE GROOT	GRAFIEK	PRG	earthshaker	1	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 28 08 05 00 8F 2A  2A 2A 4C 45 4E 47 54 45  |..(....***LENGTE|
00000010: 47 52 41 46 49 45 4B 20  53 49 4D 4F 4E 27 53 20  |GRAFIEK SIMON'S |
00000020: 42 41 53 49 43 2A 2A 2A  00 46 08 06 00 8D 31 35  |BASIC***.F....15|
00000030: 30 30 3A 20 8F 20 4F 50  56 52 41 47 45 4E 20 53  |00: . OPVRAGEN S|
00000040: 43 48 41 64 59 47 00 5B  08 0A 00 64 01 31 2C 31  |CHAdYG.[...d.1,1|
00000050: 31 3A 64 19 20 31 32 2C  39 2C 36 00 8E 08 14 00  |1:d. 12,9,6.....|
00000060: 64 08 20 30 2C 30 2C 33  31 39 2C 31 39 39 2C 31  |d. 0,0,319,199,1|
00000070: 3A 8F 20 64 08 48 54 48  4F 45 4B 20 41 4C 53 20  |:. d.HTHOEK ALS |
00000080: 4F 4D 54 52 45 4B 20 47  52 41 46 49 45 4B 00 AB  |OMTREK GRAFIEK..|
00000090: 08 1E 00 64 03 20 32 30  2C 32 30 2C 32 30 2C 31  |...d. 20,20,20,1|
000000A0: 38 30 2C 31 3A 8F 20 59  2D 41 53 00 CA 08 28 00  |80,1:. Y-AS...(.|
000000B0: 64 03 20 32 30 2C 31 38  30 2C 32 38 30 2C 31 38  |d. 20,180,280,18|
000000C0: 30 2C 31 3A 8F 20 58 2D  41 53 00 EC 08 2D 00 87  |0,1:. X-AS...-..|
000000D0: 20 50 2C 51 3A 8F 20 49  4E 4C 45 5A 45 4E 20 31  | P,Q:. INLEZEN 1|
000000E0: 45 20 4D 45 45 54 57 41  41 52 44 45 00 2A 09 2E  |E MEETWAARDE.*..|
000000F0: 00 58 B2 28 44 AA 43 AC  50 29 AD 32 3A 20 59 B2  |.X.(D.C.P).2: Y.|
00000100: 42 AA 41 AC 51 3A 8F 20  42 45 50 41 4C 45 4E 20  |B.A.Q:. BEPALEN |
00000110: 58 20 45 4E 20 59 20 57  41 41 52 44 45 20 56 4F  |X EN Y WAARDE VO|
00000120: 4F 52 20 47 52 41 46 49  45 4B 00 38 09 32 00 81  |OR GRAFIEK.8.2..|
00000130: 20 5A B2 31 20 A4 20 37  00 74 09 3C 00 87 20 50  | Z.1 . 7.t.<.. P|
00000140: 2C 51 3A 8F 20 42 45 50  41 4C 45 4E 20 56 41 4E  |,Q:. BEPALEN VAN|
00000150: 20 4F 56 45 52 49 47 45  20 58 20 45 4E 20 59 20  | OVERIGE X EN Y |
00000160: 57 41 41 52 44 45 4E 20  56 4F 4F 52 20 47 52 41  |WAARDEN VOOR GRA|
00000170: 46 49 45 4B 00 8E 09 46  00 58 31 B2 28 44 AA 43  |FIEK...F.X1.(D.C|
00000180: AC 50 29 AD 32 3A 59 31  B2 42 AA 41 AC 51 00 CE  |.P).2:Y1.B.A.Q..|
00000190: 09 50 00 64 03 20 58 2C  59 2C 58 31 2C 59 31 2C  |.P.d. X,Y,X1,Y1,|
000001A0: 31 3A 8F 20 54 52 45 4B  20 4C 49 4A 4E 20 54 55  |1:. TREK LIJN TU|
000001B0: 53 53 45 4E 20 48 45 54  20 50 55 4E 54 20 28 58  |SSEN HET PUNT (X|
000001C0: 2C 59 29 20 45 4E 20 28  58 31 2C 59 31 29 00 10  |,Y) EN (X1,Y1)..|
000001D0: 0A 5A 00 58 B2 58 31 3A  59 B2 59 31 3A 8F 20 48  |.Z.X.X1:Y.Y1:. H|
000001E0: 45 54 20 4F 55 44 45 20  50 55 4E 54 20 28 58 31  |ET OUDE PUNT (X1|
000001F0: 2C 59 31 29 20 57 4F 52  44 54 20 48 45 54 20 4E  |,Y1) WORDT HET N|
00000200: 49 45 55 57 45 20 50 55  4E 54 20 28 58 2C 59 29  |IEUWE PUNT (X,Y)|
00000210: 00 17 0A 5F 00 82 5A 00  56 0A 60 00 83 20 30 2C  |..._..Z.V.`.. 0,|
00000220: 35 32 2C 31 2C 38 32 2C  31 2E 35 2C 38 38 2C 32  |52,1,82,1.5,88,2|
00000230: 2E 33 2C 31 30 31 2C 33  2E 36 2C 31 31 30 2C 34  |.3,101,3.6,110,4|
00000240: 2E 39 2C 31 32 31 2C 36  2E 35 2C 31 33 33 2C 38  |.9,121,6.5,133,8|
00000250: 2E 35 2C 31 34 37 00 6E  0A 62 00 64 6F 20 58 31  |.5,147.n.b.do X1|
00000260: 2C 59 31 2C 22 01 4C 22  2C 31 2C 31 2C 35 00 8C  |,Y1,".L",1,1,5..|
00000270: 0A 22 01 41 24 B2 22 43  4D 20 20 20 20 20 4C 45  |.".A$."CM     LE|
00000280: 4E 47 54 45 47 52 41 46  49 45 4B 22 00 C0 0A 27  |NGTEGRAFIEK"...'|
00000290: 01 64 6F 20 33 2C 35 2C  41 24 2C 31 2C 31 2C 37  |.do 3,5,A$,1,1,7|
000002A0: 3A 8F 20 41 46 44 52 55  4B 4B 45 4E 20 54 45 4B  |:. AFDRUKKEN TEK|
000002B0: 53 54 20 42 4F 56 45 4E  20 47 52 41 46 49 45 4B  |ST BOVEN GRAFIEK|
000002C0: 00 DE 0A 2C 01 81 51 B2  56 31 20 A4 20 56 32 20  |...,..Q.V1 . V2 |
000002D0: A9 20 B5 28 28 56 32 AB  56 31 29 AD 39 29 00 EA  |. .((V2.V1).9)..|
000002E0: 0A 36 01 59 B2 41 AC 51  AA 42 00 19 0B 40 01 64  |.6.Y.A.Q.B...@.d|
000002F0: 03 20 31 35 2C 59 2C 33  31 39 2C 59 2C 31 3A 8F  |. 15,Y,319,Y,1:.|
00000300: 20 54 52 45 4B 4B 45 4E  20 48 4F 52 49 5A 4F 4E  | TREKKEN HORIZON|
00000310: 54 41 4C 45 20 4C 49 4A  4E 00 2F 0B 42 01 41 24  |TALE LIJN./.B.A$|
00000320: B2 C4 28 51 29 3A 42 24  B2 22 01 22 AA 41 24 00  |..(Q):B$.".".A$.|
00000330: 64 0B 45 01 64 6F 20 31  2C 59 AB 32 2C 42 24 2C  |d.E.do 1,Y.2,B$,|
00000340: 31 2C 31 2C 35 3A 8F 20  41 46 44 52 55 4B 4B 45  |1,1,5:. AFDRUKKE|
00000350: 4E 20 57 41 41 52 44 45  20 42 49 4A 20 44 45 20  |N WAARDE BIJ DE |
00000360: 4C 49 4A 4E 00 6C 0B 4A  01 82 20 51 00 8C 0B 5E  |LIJN.l.J.. Q...^|
00000370: 01 81 20 4B B2 55 31 20  A4 20 55 32 20 A9 20 B5  |.. K.U1 . U2 . .|
00000380: 28 28 55 32 AB 55 31 29  AD 31 31 29 00 99 0B 68  |((U2.U1).11)...h|
00000390: 01 58 31 B2 43 AC 4B AA  44 00 A5 0B 6D 01 58 31  |.X1.C.K.D...m.X1|
000003A0: B2 58 31 AD 32 00 BB 0B  72 01 64 03 20 58 31 2C  |.X1.2...r.d. X1,|
000003B0: 31 38 35 2C 58 31 2C 32  30 2C 31 00 D1 0B 74 01  |185,X1,20,1...t.|
000003C0: 41 24 B2 C4 28 4B 29 3A  42 24 B2 22 01 22 AA 41  |A$..(K):B$.".".A|
000003D0: 24 00 EB 0B 77 01 64 6F  20 58 31 AB 31 30 2C 31  |$...w.do X1.10,1|
000003E0: 38 36 2C 42 24 2C 31 2C  31 2C 35 00 F3 0B 7C 01  |86,B$,1,1,5...|.|
000003F0: 82 20 4B 00 1E 0C 90 01  87 20 50 2C 51 3A 8F 20  |. K...... P,Q:. |
00000400: 42 45 47 49 4E 57 41 41  52 44 45 20 47 45 4D 49  |BEGINWAARDE GEMI|
00000410: 44 44 45 4C 44 45 20 49  4E 4C 45 5A 45 4E 00 36  |DDELDE INLEZEN.6|
00000420: 0C 9A 01 58 B2 28 43 AC  50 AA 44 29 AD 32 3A 59  |...X.(C.P.D).2:Y|
00000430: B2 41 AC 51 AA 42 00 45  0C A4 01 81 20 5A B2 31  |.A.Q.B.E.... Z.1|
00000440: 20 A4 20 31 31 00 74 0C  AE 01 87 20 50 2C 51 3A  | . 11.t.... P,Q:|
00000450: 8F 20 4F 56 45 52 49 47  45 20 57 41 41 52 44 45  |. OVERIGE WAARDE|
00000460: 4E 20 47 45 4D 49 44 44  45 4C 44 45 20 49 4E 4C  |N GEMIDDELDE INL|
00000470: 45 5A 45 4E 00 8E 0C B8  01 58 31 B2 28 43 AC 50  |EZEN.....X1.(C.P|
00000480: AA 44 29 AD 32 3A 59 31  B2 41 AC 51 AA 42 00 CE  |.D).2:Y1.A.Q.B..|
00000490: 0C C2 01 64 03 20 58 2C  59 2C 58 31 2C 59 31 2C  |...d. X,Y,X1,Y1,|
000004A0: 31 3A 8F 20 54 52 45 4B  20 4C 49 4A 4E 20 56 41  |1:. TREK LIJN VA|
000004B0: 4E 20 4F 55 44 45 20 50  55 4E 54 20 28 58 2C 59  |N OUDE PUNT (X,Y|
000004C0: 29 20 4E 41 41 52 20 28  58 31 2C 59 31 29 00 FA  |) NAAR (X1,Y1)..|
000004D0: 0C CC 01 58 B2 58 31 3A  59 B2 59 31 3A 8F 20 4E  |...X.X1:Y.Y1:. N|
000004E0: 49 45 55 57 45 20 50 55  4E 54 20 57 4F 52 44 54  |IEUWE PUNT WORDT|
000004F0: 20 4F 55 44 45 20 50 55  4E 54 00 01 0D D6 01 82  | OUDE PUNT......|
00000500: 5A 00 32 0D DB 01 8F 20  31 32 20 50 41 41 52 20  |Z.2.... 12 PAAR |
00000510: 4C 45 4E 47 54 45 20 57  41 41 52 4E 45 4D 49 4E  |LENGTE WAARNEMIN|
00000520: 47 45 4E 20 5A 49 4A 4E  20 4F 50 47 45 4E 4F 4D  |GEN ZIJN OPGENOM|
00000530: 45 4E 00 72 0D DC 01 8F  20 42 56 2E 20 30 20 4A  |EN.r.... BV. 0 J|
00000540: 41 41 52 20 4D 45 54 20  4C 45 4E 47 54 45 20 35  |AAR MET LENGTE 5|
00000550: 30 20 43 4D 2C 20 31 20  4A 41 41 52 20 4D 45 54  |0 CM, 1 JAAR MET|
00000560: 20 4C 45 4E 47 54 45 20  37 34 20 43 4D 20 45 4E  | LENGTE 74 CM EN|
00000570: 5A 2E 00 BE 0D E0 01 83  20 30 2C 35 30 2C 31 2C  |Z....... 0,50,1,|
00000580: 37 34 2C 32 2C 38 37 2C  33 2C 39 33 2C 34 2C 31  |74,2,87,3,93,4,1|
00000590: 30 32 2C 35 2C 31 30 36  2C 36 2C 31 31 32 2C 37  |02,5,106,6,112,7|
000005A0: 2C 31 31 39 2C 38 2C 31  32 35 2C 39 2C 31 33 31  |,119,8,125,9,131|
000005B0: 2C 31 30 2C 31 33 37 2C  31 31 2C 31 34 32 00 E8  |,10,137,11,142..|
000005C0: 0D E5 01 83 20 33 31 2C  37 30 2C 33 35 2C 37 32  |.... 31,70,35,72|
000005D0: 2C 33 39 2C 37 33 2C 34  33 2C 37 34 2C 34 38 2C  |,39,73,43,74,48,|
000005E0: 37 35 2C 35 32 2C 37 36  00 05 0E E8 01 64 6F 20  |75,52,76.....do |
000005F0: 58 31 AB 31 30 2C 59 31  2C 22 01 47 45 4D 22 2C  |X1.10,Y1,".GEM",|
00000600: 31 2C 31 2C 35 00 0E 0E  E7 03 8F 20 64 77 00 18  |1,1,5...... dw..|
00000610: 0E E8 03 89 31 30 30 30  00 32 0E DC 05 8F 20 53  |....1000.2.... S|
00000620: 43 48 41 4C 45 4E 20 56  41 4E 20 47 52 41 46 49  |CHALEN VAN GRAFI|
00000630: 45 4B 00 79 0E E6 05 99  22 93 53 43 48 41 4C 49  |EK.y....".SCHALI|
00000640: 4E 47 20 59 2D 41 53 3A  20 49 4E 20 39 20 53 54  |NG Y-AS: IN 9 ST|
00000650: 41 50 50 45 4E 20 56 41  4E 20 42 45 47 49 4E 2D  |APPEN VAN BEGIN-|
00000660: 20 20 57 41 41 52 44 45  20 4E 41 41 52 20 45 49  |  WAARDE NAAR EI|
00000670: 4E 44 57 41 41 52 44 45  22 00 97 0E F0 05 85 22  |NDWAARDE"......"|
00000680: 42 45 47 49 4E 57 41 41  52 44 45 20 28 42 56 2E  |BEGINWAARDE (BV.|
00000690: 35 30 29 22 3B 56 31 00  B5 0E FA 05 85 22 45 49  |50)";V1......"EI|
000006A0: 4E 44 57 41 41 52 44 45  20 28 42 56 2E 31 38 30  |NDWAARDE (BV.180|
000006B0: 29 22 3B 56 32 00 DA 0E  04 06 8F 20 4F 50 20 42  |)";V2...... OP B|
000006C0: 45 45 4C 44 53 43 48 45  52 4D 20 59 31 3D 31 38  |EELDSCHERM Y1=18|
000006D0: 30 20 45 4E 20 59 32 3D  32 30 00 EB 0E 0E 06 59  |0 EN Y2=20.....Y|
000006E0: 31 B2 31 38 30 3A 59 32  B2 32 30 00 11 0F 18 06  |1.180:Y2.20.....|
000006F0: 41 B2 28 59 31 AB 59 32  29 AD 28 56 31 AB 56 32  |A.(Y1.Y2).(V1.V2|
00000700: 29 3A 8F 41 3D 49 4E 54  28 41 2A 31 30 29 2F 31  |):.A=INT(A*10)/1|
00000710: 30 00 26 0F 22 06 42 B2  59 31 AB 41 AC 56 31 3A  |0.&.".B.Y1.A.V1:|
00000720: 42 B2 B5 28 42 29 00 6C  0F 2C 06 99 22 53 43 48  |B..(B).l.,.."SCH|
00000730: 41 4C 45 4E 20 58 2D 41  53 3A 20 49 4E 20 31 30  |ALEN X-AS: IN 10|
00000740: 20 53 54 41 50 50 45 4E  20 20 56 41 4E 20 42 45  | STAPPEN  VAN BE|
00000750: 47 49 4E 2D 20 57 41 41  52 44 45 20 4E 41 41 52  |GIN- WAARDE NAAR|
00000760: 20 45 49 4E 44 57 41 41  52 44 45 22 00 89 0F 36  | EINDWAARDE"...6|
00000770: 06 85 22 42 45 47 49 4E  57 41 41 52 44 45 20 28  |.."BEGINWAARDE (|
00000780: 42 56 2E 30 29 22 3B 55  31 00 A6 0F 40 06 85 22  |BV.0)";U1...@.."|
00000790: 45 49 4E 44 57 41 41 52  44 45 20 28 42 56 2E 31  |EINDWAARDE (BV.1|
000007A0: 31 29 22 3B 55 32 00 CB  0F 4A 06 8F 20 4F 50 20  |1)";U2...J.. OP |
000007B0: 42 45 45 4C 44 53 43 48  45 52 4D 20 58 31 3D 34  |BEELDSCHERM X1=4|
000007C0: 30 20 45 4E 20 58 32 3D  33 30 30 00 DC 0F 54 06  |0 EN X2=300...T.|
000007D0: 58 31 B2 34 30 3A 58 32  B2 33 30 30 00 F2 0F 5E  |X1.40:X2.300...^|
000007E0: 06 43 B2 28 58 31 AB 58  32 29 AD 28 55 31 AB 55  |.C.(X1.X2).(U1.U|
000007F0: 32 29 00 07 10 68 06 44  B2 58 31 AB 43 AC 55 31  |2)...h.D.X1.C.U1|
00000800: 3A 44 B2 B5 28 44 29 00  0D 10 7C 06 8E 00 00 00  |:D..(D)...|.....|
00000810: 20                                                |                |

..(....***LENGTEGRAFIEK SIMON'S BASIC***
.F....1500: . OPVRAGEN SCHADYG.[...D.1,1
1:D. 12,9,6.....D. 0,0,319,199,1:. D.HTH
OEK ALS OMTREK GRAFIEK.....D. 20,20,20,1
80,1:. Y-AS.J.(.D. 20,180,280,180,1:. X-
AS...-.. P,Q:. INLEZEN 1E MEETWAARDE.*..
.X.(D.C.P).2: Y.B.A.Q:. BEPALEN X EN Y W
AARDE VOOR GRAFIEK.8.2.. Z.1 . 7.T.<.. P
,Q:. BEPALEN VAN OVERIGE X EN Y WAARDEN 
VOOR GRAFIEK...F.X1.(D.C.P).2:Y1.B.A.Q.N
.P.D. X,Y,X1,Y1,1:. TREK LIJN TUSSEN HET
 PUNT (X,Y) EN (X1,Y1)...Z.X.X1:Y.Y1:. H
ET OUDE PUNT (X1,Y1) WORDT HET NIEUWE PU
NT (X,Y)..._..Z.V.`.. 0,52,1,82,1.5,88,2
.3,101,3.6,110,4.9,121,6.5,133,8.5,147.N
.B.DO X1,Y1,".L",1,1,5...".A$."CM     LE
NGTEGRAFIEK"...'.DO 3,5,A$,1,1,7:. AFDRU
KKEN TEKST BOVEN GRAFIEK...,..Q.V1 . V2 
. .((V2.V1).9)...6.Y.A.Q.B...@.D. 15,Y,3
19,Y,1:. TREKKEN HORIZONTALE LIJN./.B.A$
.D(Q):B$.".".A$.D.E.DO 1,Y.2,B$,1,1,5:. 
AFDRUKKEN WAARDE BIJ DE LIJN.L.J.. Q...^
.. K.U1 . U2 . .((U2.U1).11)...H.X1.C.K.
D...M.X1.X1.2...R.D. X1,185,X1,20,1.Q.T.
A$.D(K):B$.".".A$...W.DO X1.10,186,B$,1,
1,5...|.. K...... P,Q:. BEGINWAARDE GEMI
DDELDE INLEZEN.6...X.(C.P.D).2:Y.A.Q.B.E
.... Z.1 . 11.T.... P,Q:. OVERIGE WAARDE
N GEMIDDELDE INLEZEN.....X1.(C.P.D).2:Y1
.A.Q.B.N.B.D. X,Y,X1,Y1,1:. TREK LIJN VA
N OUDE PUNT (X,Y) NAAR (X1,Y1)...L.X.X1:
Y.Y1:. NIEUWE PUNT WORDT OUDE PUNT...V..
Z.2.... 12 PAAR LENGTE WAARNEMINGEN ZIJN
 OPGENOMEN.R.... BV. 0 JAAR MET LENGTE 5
0 CM, 1 JAAR MET LENGTE 74 CM ENZ.......
 0,50,1,74,2,87,3,93,4,102,5,106,6,112,7
,119,8,125,9,131,10,137,11,142...... 31,
70,35,72,39,73,43,74,48,75,52,76.....DO 
X1.10,Y1,".GEM",1,1,5...... DW......1000
.2.... SCHALEN VAN GRAFIEK.Y....".SCHALI
NG Y-AS: IN 9 STAPPEN VAN BEGIN-  WAARDE
 NAAR EINDWAARDE"......"BEGINWAARDE (BV.
50)";V1......"EINDWAARDE (BV.180)";V2.Z.
... OP BEELDSCHERM Y1=180 EN Y2=20.....Y
1.180:Y2.20.....A.(Y1.Y2).(V1.V2):.A=INT
(A*10)/10.&.".B.Y1.A.V1:B..(B).L.,.."SCH
ALEN X-AS: IN 10 STAPPEN  VAN BEGIN- WAA
RDE NAAR EINDWAARDE"...6.."BEGINWAARDE (
BV.0)";U1...@.."EINDWAARDE (BV.11)";U2.K
.J.. OP BEELDSCHERM X1=40 EN X2=300...T.
X1.40:X2.300...^.C.(X1.X2).(U1.U2)...H.D
.X1.C.U1:D..(D)...|.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL