GRAFIK64

FILE INFORMATION

FILENAME(S): GRAFIK64

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-02 17:01:56

APPEARS ON: 3 disk(s)

FILE HASH

a1a51172314427d05d2e3c522c49db1fa8af83c94ef656313f4f0a8710160e40

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10711 11 87	GRAFIK64	PRG	Treasure Chest - Spook	13	2	DOWNLOAD FILE
10711 11 87	GRAFIK64	PRG	C64er	13	2	DOWNLOAD FILE
10711 11 87	GRAFIK64	PRG	DuncanTwain	13	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 30 08 01 00 8F 20  53 41 56 45 22 40 30 3A  |..0.... SAVE"@0:|
00000010: 47 52 41 46 49 4B 36 34  22 2C 38 3A 52 45 4D 20  |GRAFIK64",8:REM |
00000020: 50 2E 20 4B 49 54 54 45  4C 20 39 2E 36 2E 38 37  |P. KITTEL 9.6.87|
00000030: 00 56 08 0A 00 99 22 93  0E 12 C7 52 41 46 49 4B  |.V...."....RAFIK|
00000040: 20 2D 20 45 54 57 41 53  20 4B 55 45 4E 53 54 4C  | - ETWAS KUENSTL|
00000050: 45 52 49 53 43 48 00 66  08 14 00 99 22 11 D0 52  |ERISCH.f...."..R|
00000060: 49 4E 5A 49 50 3A 00 89  08 1E 00 99 22 11 C5 49  |INZIP:......"..I|
00000070: 4E 20 D0 4F 4C 59 47 4F  4E 20 49 53 54 20 56 4F  |N .OLYGON IST VO|
00000080: 52 5A 55 47 45 42 45 4E  2E 00 B0 08 20 00 99 22  |RZUGEBEN.... .."|
00000090: C4 49 45 20 D0 55 4E 4B  54 45 20 57 45 52 44 45  |.IE .UNKTE WERDE|
000000A0: 4E 20 44 45 52 20 D2 45  49 48 45 20 4E 41 43 48  |N DER .EIHE NACH|
000000B0: 00 D5 08 22 00 99 22 56  45 52 42 55 4E 44 45 4E  |...".."VERBUNDEN|
000000C0: 2C 20 44 45 52 45 4E 20  C1 42 53 54 41 4E 44 20  |, DEREN .BSTAND |
000000D0: 44 41 42 45 49 00 FA 08  24 00 99 22 4A 45 44 4F  |DABEI...$.."JEDO|
000000E0: 43 48 20 4D 49 54 20 56  4F 52 47 45 47 45 42 45  |CH MIT VORGEGEBE|
000000F0: 4E 45 4D 20 C6 41 4B 54  4F 52 00 19 09 26 00 99  |NEM .AKTOR...&..|
00000100: 22 4D 55 4C 54 49 50 4C  49 5A 49 45 52 54 2E 20  |"MULTIPLIZIERT. |
00000110: C5 52 47 45 42 4E 49 53  3A 00 3B 09 28 00 99 22  |.RGEBNIS:.;.(.."|
00000120: 49 4E 20 53 49 43 48 20  52 4F 54 49 45 52 45 4E  |IN SICH ROTIEREN|
00000130: 44 45 20 C7 45 42 49 4C  44 45 2E 00 66 09 64 00  |DE .EBILDE..f.d.|
00000140: 99 22 11 C2 45 49 53 50  49 45 4C 44 41 54 45 4E  |."..EISPIELDATEN|
00000150: 20 46 55 45 52 20 D3 50  49 52 41 4C 2D C4 52 45  | FUER .PIRAL-.RE|
00000160: 49 45 43 4B 3A 11 00 7C  09 67 00 99 22 D0 55 4E  |IECK:..|.g..".UN|
00000170: 4B 54 41 4E 5A 41 48 4C  20 3D 20 33 00 8E 09 68  |KTANZAHL = 3...h|
00000180: 00 99 22 58 31 2C 59 31  20 3D 20 30 2C 30 00 A2  |.."X1,Y1 = 0,0..|
00000190: 09 69 00 99 22 58 32 2C  59 32 20 3D 20 37 34 30  |.i.."X2,Y2 = 740|
000001A0: 2C 30 00 C5 09 6A 00 99  22 58 33 2C 59 33 20 3D  |,0...j.."X3,Y3 =|
000001B0: 20 33 37 30 2C 39 33 30  20 20 28 58 33 3D 58 32  | 370,930  (X3=X2|
000001C0: 2F 32 20 21 29 00 D9 09  6B 00 99 22 C6 41 4B 54  |/2 !)...k..".AKT|
000001D0: 4F 52 20 3D 20 30 2E 39  35 00 ED 09 6C 00 99 22  |OR = 0.95...l.."|
000001E0: 11 D6 49 45 4C 20 D3 50  41 53 53 21 11 00 1E 0A  |..IEL .PASS!....|
000001F0: E7 03 8F 20 56 45 52 53  49 4F 4E 20 46 55 45 52  |... VERSION FUER|
00000200: 20 46 58 2D 38 30 2D 50  4C 4F 54 54 45 52 20 41  | FX-80-PLOTTER A|
00000210: 4D 20 43 20 36 34 2C 20  37 2E 36 2E 38 37 00 5C  |M C 64, 7.6.87.\|
00000220: 0A E8 03 50 B2 31 34 32  AC 32 35 36 3A 8B C2 28  |...P.142.256:..(|
00000230: 50 29 B3 B1 37 36 B0 C2  28 50 AA 33 29 B3 B1 37  |P)..76..(P.3)..7|
00000240: 36 A7 97 35 36 2C 31 34  32 3A 9C 3A 93 22 46 58  |6..56,142:.:."FX|
00000250: 50 4C 4F 54 31 32 2A 22  2C 38 2C 31 00 76 0A EB  |PLOT12*",8,1.v..|
00000260: 03 97 50 AA 34 31 2C 30  3A 8F 20 41 53 50 45 4B  |..P.41,0:. ASPEK|
00000270: 54 20 4E 45 49 4E 00 8C  0A EC 03 9E 50 AA 32 31  |T NEIN......P.21|
00000280: 3A 58 58 25 B2 30 3A 59  59 25 B2 30 00 AD 0A 40  |:XX%.0:YY%.0...@|
00000290: 1F 85 22 11 D0 55 4E 4B  54 41 4E 5A 41 48 4C 22  |.."..UNKTANZAHL"|
000002A0: 3B 4E 3A 86 58 28 4E 29  2C 59 28 4E 29 00 E7 0A  |;N:.X(N),Y(N)...|
000002B0: 4A 1F 81 49 B2 31 A4 4E  3A 99 22 D0 4B 54 22 49  |J..I.1.N:.".KT"I|
000002C0: 22 49 4E 20 D0 4C 4F 54  54 45 52 2D CB 4F 4F 52  |"IN .LOTTER-.OOR|
000002D0: 44 3A 22 3B 3A 85 22 58  2C 59 22 3B 58 28 49 29  |D:";:."X,Y";X(I)|
000002E0: 2C 59 28 49 29 3A 82 00  F7 0A 4F 1F 85 22 C6 41  |,Y(I):....O..".A|
000002F0: 4B 54 4F 52 22 3B 46 00  1A 0B 50 1F 99 22 11 C6  |KTOR";F...P.."..|
00000300: 49 47 55 52 20 4B 41 4E  4E 20 44 55 52 43 48 20  |IGUR KANN DURCH |
00000310: 42 45 4C 49 45 42 49 47  45 4E 00 40 0B 51 1F 99  |BELIEBIGEN.@.Q..|
00000320: 22 D4 41 53 54 45 4E 44  52 55 43 4B 20 41 42 47  |".ASTENDRUCK ABG|
00000330: 45 42 52 4F 43 48 45 4E  20 57 45 52 44 45 4E 2E  |EBROCHEN WERDEN.|
00000340: 00 6D 0B 54 1F 58 58 25  B2 58 28 4E 29 3A 59 59  |.m.T.XX%.X(N):YY|
00000350: 25 B2 59 28 4E 29 3A 9E  50 3A 9E 50 AA 36 3A 8F  |%.Y(N):.P:.P.6:.|
00000360: 20 45 52 53 54 45 52 20  50 55 4E 4B 54 00 9D 0B  | ERSTER PUNKT...|
00000370: 5E 1F 81 49 B2 31 A4 4E  3A 58 58 25 B2 58 28 49  |^..I.1.N:XX%.X(I|
00000380: 29 3A 59 59 25 B2 59 28  49 29 3A 9E 50 3A 82 3A  |):YY%.Y(I):.P:.:|
00000390: 8F 20 45 52 53 54 45 20  52 55 4E 44 45 00 A9 0B  |. ERSTE RUNDE...|
000003A0: 68 1F 49 B2 30 3A 4A B2  4E 00 BE 0B 71 1F 8F 20  |h.I.0:J.N...q.. |
000003B0: 48 41 55 50 54 53 43 48  4C 45 49 46 45 3A 00 D1  |HAUPTSCHLEIFE:..|
000003C0: 0B 72 1F 49 B2 49 AA 31  3A 8B 49 B1 4E A7 49 B2  |.r.I.I.1:.I.N.I.|
000003D0: 31 00 05 0C 7C 1F 58 28  49 29 B2 58 28 4A 29 AA  |1...|.X(I).X(J).|
000003E0: 46 AC 28 58 28 49 29 AB  58 28 4A 29 29 3A 59 28  |F.(X(I).X(J)):Y(|
000003F0: 49 29 B2 59 28 4A 29 AA  46 AC 28 59 28 49 29 AB  |I).Y(J).F.(Y(I).|
00000400: 59 28 4A 29 29 00 22 0C  86 1F A1 41 24 3A 8B 41  |Y(J))."....A$:.A|
00000410: 24 B3 B1 22 22 A7 9E 50  AA 33 3A 9E 50 AA 33 37  |$..""..P.3:.P.37|
00000420: 3A 80 00 4B 0C 90 1F 58  58 25 B2 58 28 49 29 AA  |:..K...XX%.X(I).|
00000430: 2E 35 3A 59 59 25 B2 59  28 49 29 AA 2E 35 3A 9E  |.5:YY%.Y(I)..5:.|
00000440: 50 3A 4A B2 49 3A 89 38  30 35 30 00 00 00        |P:J.I:.8050...  |

..0.... SAVE"@0:GRAFIK64",8:REM P. KITTE
L 9.6.87.V...."...GRAFIK - ETWAS KUENSTL
ERISCH.F....".PRINZIP:......".EIN POLYGO
N IST VORZUGEBEN.... .."DIE PUNKTE WERDE
N DER REIHE NACH.U.".."VERBUNDEN, DEREN 
ABSTAND DABEI...$.."JEDOCH MIT VORGEGEBE
NEM FAKTOR...&.."MULTIPLIZIERT. ERGEBNIS
:.;.(.."IN SICH ROTIERENDE GEBILDE..F.D.
.".BEISPIELDATEN FUER SPIRAL-DREIECK:..|
.G.."PUNKTANZAHL = 3...H.."X1,Y1 = 0,0..
.I.."X2,Y2 = 740,0.E.J.."X3,Y3 = 370,930
  (X3=X2/2 !).Y.K.."FAKTOR = 0.95...L.."
.VIEL SPASS!....... VERSION FUER FX-80-P
LOTTER AM C 64, 7.6.87.\...P.142.256:.B(
P)..76.B(P.3)..76..56,142:.:."FXPLOT12*"
,8,1.V....P.41,0:. ASPEKT NEIN......P.21
:XX%.0:YY%.0...@..".PUNKTANZAHL";N:.X(N)
,Y(N)...J..I.1.N:."PKT"I"IN PLOTTER-KOOR
D:";:."X,Y";X(I),Y(I):....O.."FAKTOR";F.
..P..".FIGUR KANN DURCH BELIEBIGEN.@.Q..
"TASTENDRUCK ABGEBROCHEN WERDEN..M.T.XX%
.X(N):YY%.Y(N):.P:.P.6:. ERSTER PUNKT...
^..I.1.N:XX%.X(I):YY%.Y(I):.P:.:. ERSTE 
RUNDE...H.I.0:J.N...Q.. HAUPTSCHLEIFE:.Q
.R.I.I.1:.I.N.I.1...|.X(I).X(J).F.(X(I).
X(J)):Y(I).Y(J).F.(Y(I).Y(J))."....A$:.A
$..""..P.3:.P.37:..K...XX%.X(I)..5:YY%.Y
(I)..5:.P:J.I:.8050...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL