KUCHENDIAGRAMME
FILE INFORMATION
FILENAME(S): KUCHENDIAGRAMME
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 16:18:12
APPEARS ON: 3 disk(s)
FILE HASH
b5af2e5fcc23e8697f678c15907f81a10d663e82c0ce5208ae7ba31c88d083a5
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRAFIKBUCH | KUCHENDIAGRAMME | PRG | BrainSkull, Leopold Zyka | 27 | 3 | DOWNLOAD FILE |
| UTILITIES COPIE | KUCHENDIAGRAMME | PRG | Curtcool, Hans Curt | 27 | 3 | DOWNLOAD FILE |
| C64 HULP 1 2 | KUCHENDIAGRAMME | PRG | DuncanTwain | 28 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000020: 3D 08 6E 00 8F 20 2A 2A 20 20 20 20 20 20 20 20 |=.n.. ** |
00000030: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 00 5B 08 | **.[.|
00000040: 78 00 8F 20 2A 2A 20 20 4B 55 43 48 45 4E 44 49 |x.. ** KUCHENDI|
00000050: 41 47 52 41 4D 4D 45 20 20 2A 2A 00 79 08 82 00 |AGRAMME **.y...|
00000060: 8F 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 |. ** |
00000070: 20 20 20 20 20 20 20 2A 2A 00 97 08 8C 00 8F 20 | **...... |
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 00 9D 08 96 00 8F 00 BE 08 |*******.........|
000000A0: E6 00 8F 20 2A 2A 2A 2A 20 47 52 41 50 48 49 4B |... **** GRAPHIK|
000000B0: 2D 52 4F 55 54 49 4E 45 4E 20 2A 2A 2A 2A 00 DA |-ROUTINEN ****..|
000000C0: 08 F0 00 8F 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A |.... ******|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 08 09 FA 00 49 |**********.....I|
000000E0: 4E B2 35 31 32 30 30 20 3A 20 4F 46 B2 35 31 32 |N.51200 : OF.512|
000000F0: 30 33 20 3A 8F 20 49 4E 49 54 20 20 2F 47 52 41 |03 :. INIT /GRA|
00000100: 50 48 49 4B 20 4F 46 46 00 34 09 04 01 47 43 B2 |PHIK OFF.4...GC.|
00000110: 35 31 32 30 36 20 3A 20 53 43 B2 35 31 32 30 39 |51206 : SC.51209|
00000120: 20 3A 8F 20 47 43 4C 45 41 52 2F 53 45 54 20 43 | :. GCLEAR/SET C|
00000130: 4F 4C 4F 52 00 5B 09 0E 01 50 43 B2 35 31 32 31 |OLOR.[...PC.5121|
00000140: 32 20 3A 20 50 4C B2 35 31 32 31 35 20 3A 8F 20 |2 : PL.51215 :. |
00000150: 50 43 4F 4C 4F 52 2F 50 4C 4F 54 00 86 09 18 01 |PCOLOR/PLOT.....|
00000160: 55 50 B2 35 31 32 31 38 20 3A 20 53 4C B2 35 31 |UP.51218 : SL.51|
00000170: 32 32 31 20 3A 8F 20 55 4E 50 4C 4F 54 2F 53 45 |221 :. UNPLOT/SE|
00000180: 54 20 4C 49 4E 45 00 AE 09 22 01 43 4C B2 35 31 |T LINE...".CL.51|
00000190: 32 32 34 20 3A 20 47 4C B2 35 31 32 32 37 20 3A |224 : GL.51227 :|
000001A0: 8F 20 43 4C 49 4E 45 20 2F 47 4C 4F 41 44 00 D9 |. CLINE /GLOAD..|
000001B0: 09 2C 01 47 53 B2 35 31 32 33 30 20 3A 20 48 43 |.,.GS.51230 : HC|
000001C0: B2 35 31 32 33 33 20 3A 8F 20 47 53 41 56 45 20 |.51233 :. GSAVE |
000001D0: 2F 48 41 52 44 43 4F 50 59 00 DF 09 40 01 8F 00 |/HARDCOPY...@...|
000001E0: F7 09 4A 01 8F 20 2A 2A 2A 2A 20 45 4C 4C 49 50 |..J.. **** ELLIP|
000001F0: 53 45 20 2A 2A 2A 2A 00 0A 0A 54 01 8F 20 20 20 |SE ****...T.. |
00000200: 20 20 20 2A 2A 2A 2A 2A 2A 2A 00 18 0A 5E 01 50 | *******...^.P|
00000210: 49 B2 33 2E 31 34 31 35 00 47 0A 68 01 9E 20 49 |I.3.1415.G.h.. I|
00000220: 4E 20 3A 20 9E 20 47 43 20 3A 20 9E 20 53 43 2C |N : . GC : . SC,|
00000230: 31 36 AC 35 AA 31 33 20 3A 20 8F 47 52 41 50 48 |16.5.13 : .GRAPH|
00000240: 49 4B 20 49 4E 49 54 00 7B 0A 72 01 41 20 B2 20 |IK INIT.{.r.A . |
00000250: 31 30 30 20 3A 20 42 20 B2 20 36 30 20 3A 20 56 |100 : B . 60 : V|
00000260: 31 B2 31 36 30 20 3A 20 56 32 B2 38 30 20 3A 20 |1.160 : V2.80 : |
00000270: 8F 20 50 41 52 41 4D 45 54 45 52 00 AD 0A 7C 01 |. PARAMETER...|.|
00000280: 57 B2 30 3A 8D 20 39 33 30 3A 58 31 B2 58 3A 59 |W.0:. 930:X1.X:Y|
00000290: 31 B2 59 3A 20 8F 20 58 31 20 55 4E 44 20 58 32 |1.Y: . X1 UND X2|
000002A0: 20 56 4F 52 42 45 53 54 49 4D 4D 45 4E 00 C6 0A | VORBESTIMMEN...|
000002B0: 86 01 53 50 B2 37 AC 50 49 AD 31 38 30 20 3A 20 |..SP.7.PI.180 : |
000002C0: 8F 20 53 54 45 50 00 F0 0A 90 01 42 45 B2 30 3A |. STEP.....BE.0:|
000002D0: 45 4E B2 32 AC 50 49 20 3A 20 8F 20 53 54 41 52 |EN.2.PI : . STAR|
000002E0: 54 2D 20 55 4E 44 20 45 4E 44 57 49 4E 4B 45 4C |T- UND ENDWINKEL|
000002F0: 00 0F 0B 9A 01 8D 20 38 30 30 20 3A 20 8F 20 45 |...... 800 : . E|
00000300: 4C 4C 49 50 53 45 20 5A 45 49 43 48 4E 45 4E 00 |LLIPSE ZEICHNEN.|
00000310: 35 0B A4 01 42 45 B2 30 3A 45 4E B2 31 2E 30 33 |5...BE.0:EN.1.03|
00000320: AC 50 49 20 3A 20 8F 20 45 54 57 41 20 31 38 30 |.PI : . ETWA 180|
00000330: 20 47 52 41 44 00 52 0B AE 01 56 32 B2 31 30 30 | GRAD.R...V2.100|
00000340: 20 3A 20 8F 20 54 49 45 46 45 52 20 53 45 54 5A | : . TIEFER SETZ|
00000350: 45 4E 00 71 0B B8 01 8D 20 38 30 30 20 3A 20 8F |EN.q.... 800 : .|
00000360: 20 45 4C 4C 49 50 53 45 20 5A 45 49 43 48 4E 45 | ELLIPSE ZEICHNE|
00000370: 4E 00 77 0B F4 01 8F 00 95 0B FE 01 8F 20 2A 2A |N.w.......... **|
00000380: 2A 2A 20 4B 55 43 48 45 4E 53 54 55 45 43 4B 45 |** KUCHENSTUECKE|
00000390: 20 2A 2A 2A 2A 00 AE 0B 08 02 8F 20 20 20 20 20 | ****...... |
000003A0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D6 | *************..|
000003B0: 0B 12 02 87 20 5A 41 20 3A 20 86 20 54 28 5A 41 |.... ZA : . T(ZA|
000003C0: 29 20 3A 20 8F 20 41 4E 5A 41 48 4C 20 44 45 52 |) : . ANZAHL DER|
000003D0: 20 54 45 49 4C 45 00 E5 0B 1C 02 81 20 53 B2 31 | TEILE...... S.1|
000003E0: 20 A4 20 5A 41 00 00 0C 26 02 87 20 54 28 53 29 | . ZA...&.. T(S)|
000003F0: 20 3A 20 8F 20 44 41 54 45 4E 20 4C 45 53 45 4E | : . DATEN LESEN|
00000400: 00 20 0C 30 02 53 55 B2 53 55 AA 54 28 53 29 20 |. .0.SU.SU.T(S) |
00000410: 3A 20 8F 20 53 55 4D 4D 45 20 42 49 4C 44 45 4E |: . SUMME BILDEN|
00000420: 00 28 0C 3A 02 82 20 53 00 42 0C 44 02 57 20 B2 |.(.:.. S.B.D.W .|
00000430: 20 30 20 3A 20 8F 20 53 54 41 52 54 57 49 4E 4B | 0 : . STARTWINK|
00000440: 45 4C 00 51 0C 4E 02 81 20 53 B2 31 20 A4 20 5A |EL.Q.N.. S.1 . Z|
00000450: 41 00 77 0C 58 02 50 52 B2 54 28 53 29 AD 53 55 |A.w.X.PR.T(S).SU|
00000460: 20 3A 20 8F 20 50 52 4F 5A 45 4E 54 20 41 55 53 | : . PROZENT AUS|
00000470: 52 45 43 48 4E 45 4E 00 A2 0C 62 02 57 41 B2 32 |RECHNEN...b.WA.2|
00000480: AC 50 49 AC 50 52 20 3A 20 8F 20 57 49 4E 4B 45 |.PI.PR : . WINKE|
00000490: 4C 20 44 45 53 20 41 55 53 53 43 48 4E 49 54 54 |L DES AUSSCHNITT|
000004A0: 45 53 00 C3 0C 6C 02 57 B2 57 AA 57 41 20 3A 20 |ES...l.W.W.WA : |
000004B0: 8F 20 57 49 52 4B 4C 49 43 48 45 52 20 57 49 4E |. WIRKLICHER WIN|
000004C0: 4B 45 4C 00 EB 0C 76 02 56 32 B2 38 30 3A 8D 20 |KEL...v.V2.80:. |
000004D0: 39 33 30 3A 8F 20 4B 4F 4F 52 44 49 4E 41 54 45 |930:. KOORDINATE|
000004E0: 4E 20 45 52 52 45 43 48 4E 45 4E 00 0D 0D 80 02 |N ERRECHNEN.....|
000004F0: 9E 20 53 4C 2C 56 31 2C 56 32 2C 58 2C 59 20 3A |. SL,V1,V2,X,Y :|
00000500: 20 8F 20 54 52 45 4E 4E 4C 49 4E 49 45 00 3F 0D | . TRENNLINIE.?.|
00000510: 8A 02 8B 20 57 B1 50 49 20 A7 20 36 39 30 20 3A |... W.PI . 690 :|
00000520: 20 8F 20 4E 55 52 20 41 55 46 20 44 45 52 20 53 | . NUR AUF DER S|
00000530: 49 43 48 54 42 41 52 45 4E 20 53 45 49 54 45 00 |ICHTBAREN SEITE.|
00000540: 58 0D 94 02 58 31 B2 58 3A 59 31 B2 59 20 3A 20 |X...X1.X:Y1.Y : |
00000550: 8F 20 4D 45 52 4B 45 4E 00 83 0D 9E 02 56 32 B2 |. MERKEN.....V2.|
00000560: 31 30 30 3A 8D 20 39 33 30 3A 8F 20 55 4E 54 45 |100:. 930:. UNTE|
00000570: 52 45 20 4B 4F 4F 52 44 2E 20 45 52 52 45 43 48 |RE KOORD. ERRECH|
00000580: 4E 45 4E 00 B7 0D A8 02 9E 20 53 4C 2C 58 31 2C |NEN...... SL,X1,|
00000590: 59 31 2C 58 2C 59 20 3A 20 8F 20 53 45 4E 4B 52 |Y1,X,Y : . SENKR|
000005A0: 45 43 48 54 45 20 5A 55 4D 20 55 4E 54 45 52 45 |ECHTE ZUM UNTERE|
000005B0: 4E 20 42 4F 47 45 4E 00 BF 0D B2 02 82 20 53 00 |N BOGEN...... S.|
000005C0: D4 0D 1F 03 92 20 31 39 38 2C 32 35 35 3A 9E 20 |..... 198,255:. |
000005D0: 4F 46 3A 80 00 DA 0D 20 03 8F 00 F8 0D 2A 03 8F |OF:.... .....*..|
000005E0: 20 2A 2A 2A 2A 20 45 4C 4C 49 50 53 45 4E 42 4F | **** ELLIPSENBO|
000005F0: 47 45 4E 20 2A 2A 2A 2A 00 11 0E 34 03 8F 20 20 |GEN ****...4.. |
00000600: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ************|
00000610: 2A 00 3E 0E 3E 03 81 20 57 B2 42 45 20 A4 20 45 |*.>.>.. W.BE . E|
00000620: 4E AA 53 50 20 A9 20 53 50 20 3A 20 8F 20 57 49 |N.SP . SP : . WI|
00000630: 4E 4B 45 4C 20 42 45 53 54 49 4D 4D 45 4E 00 62 |NKEL BESTIMMEN.b|
00000640: 0E 48 03 8D 20 39 33 30 20 3A 20 8F 20 4B 4F 4F |.H.. 930 : . KOO|
00000650: 52 44 49 4E 41 54 45 4E 20 42 45 53 54 49 4D 4D |RDINATEN BESTIMM|
00000660: 45 4E 00 7F 0E 52 03 9E 20 53 4C 2C 58 31 2C 59 |EN...R.. SL,X1,Y|
00000670: 31 2C 58 2C 59 20 3A 20 8F 20 4C 49 4E 49 45 00 |1,X,Y : . LINIE.|
00000680: 8D 0E 5C 03 58 31 B2 58 3A 59 31 B2 59 00 99 0E |..\.X1.X:Y1.Y...|
00000690: 66 03 82 20 57 20 3A 20 8E 00 9F 0E 84 03 8F 00 |f.. W : ........|
000006A0: BF 0E 8E 03 8F 20 2A 2A 2A 2A 20 50 55 4E 4B 54 |..... **** PUNKT|
000006B0: 20 42 45 52 45 43 48 4E 45 4E 20 2A 2A 2A 2A 00 | BERECHNEN ****.|
000006C0: DA 0E 98 03 8F 20 20 20 20 20 20 2A 2A 2A 2A 2A |..... *****|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 0E A2 03 58 |**********.....X|
000006E0: 20 B2 20 41 AC BE 28 57 29 20 AA 20 56 31 00 06 | . A..(W) . V1..|
000006F0: 0F AC 03 59 20 B2 20 42 AC BF 28 57 29 20 AA 20 |...Y . B..(W) . |
00000700: 56 32 20 3A 20 8E 00 0C 0F E8 03 8F 00 22 0F F2 |V2 : ........"..|
00000710: 03 8F 20 2A 2A 2A 2A 20 44 41 54 45 4E 20 2A 2A |.. **** DATEN **|
00000720: 2A 2A 00 33 0F FC 03 8F 20 20 20 20 20 20 2A 2A |**.3.... **|
00000730: 2A 2A 2A 00 46 0F 4C 04 83 20 36 20 3A 20 8F 20 |***.F.L.. 6 : . |
00000740: 41 4E 5A 41 48 4C 00 5D 0F 56 04 83 20 32 30 2C |ANZAHL.].V.. 20,|
00000750: 31 30 2C 31 35 2C 34 30 2C 33 30 2C 38 00 79 0F |10,15,40,30,8.y.|
00000760: D0 07 9F 31 2C 38 2C 31 35 3A 84 31 2C 41 24 2C |...1,8,15:.1,A$,|
00000770: 42 24 3A 99 41 24 2C 42 24 00 00 00 |B$:.A$,B$... |
....D.. ***********************.=.N.. **
**.[.X.. ** KUCHENDI
AGRAMME **.Y.... ** *
*...... ***********************.........
... **** GRAPHIK-ROUTINEN ****.Z....
****************.....IN.51200 : OF.512
03 :. INIT /GRAPHIK OFF.4...GC.51206 :
SC.51209 :. GCLEAR/SET COLOR.[...PC.5121
2 : PL.51215 :. PCOLOR/PLOT.....UP.51218
: SL.51221 :. UNPLOT/SET LINE...".CL.51
224 : GL.51227 :. CLINE /GLOAD.Y.,.GS.51
230 : HC.51233 :. GSAVE /HARDCOPY...@...
..J.. **** ELLIPSE ****...T.. *****
**...^.PI.3.1415.G.H.. IN : . GC : . SC,
16.5.13 : .GRAPHIK INIT.{.R.A . 100 : B
. 60 : V1.160 : V2.80 : . PARAMETER...|.
W.0:. 930:X1.X:Y1.Y: . X1 UND X2 VORBEST
IMMEN.F...SP.7.PI.180 : . STEP.....BE.0:
EN.2.PI : . START- UND ENDWINKEL...... 8
00 : . ELLIPSE ZEICHNEN.5...BE.0:EN.1.03
.PI : . ETWA 180 GRAD.R...V2.100 : . TIE
FER SETZEN.Q.... 800 : . ELLIPSE ZEICHNE
N.W.......... **** KUCHENSTUECKE ****...
... *************.V.... ZA : . T(ZA
) : . ANZAHL DER TEILE...... S.1 . ZA...
&.. T(S) : . DATEN LESEN. .0.SU.SU.T(S)
: . SUMME BILDEN.(.:.. S.B.D.W . 0 : . S
TARTWINKEL.Q.N.. S.1 . ZA.W.X.PR.T(S).SU
: . PROZENT AUSRECHNEN...B.WA.2.PI.PR :
. WINKEL DES AUSSCHNITTES.C.L.W.W.WA :
. WIRKLICHER WINKEL...V.V2.80:. 930:. KO
ORDINATEN ERRECHNEN...... SL,V1,V2,X,Y :
. TRENNLINIE.?.... W.PI . 690 : . NUR A
UF DER SICHTBAREN SEITE.X...X1.X:Y1.Y :
. MERKEN.....V2.100:. 930:. UNTERE KOORD
. ERRECHNEN...... SL,X1,Y1,X,Y : . SENKR
ECHTE ZUM UNTEREN BOGEN...... S.T.... 19
8,255:. OF:..Z. .....*.. **** ELLIPSENBO
GEN ****...4.. *************.>.>..
W.BE . EN.SP . SP : . WINKEL BESTIMMEN.B
.H.. 930 : . KOORDINATEN BESTIMMEN..R..
SL,X1,Y1,X,Y : . LINIE...\.X1.X:Y1.Y...
F.. W : ............. **** PUNKT BERECHN
EN ****.Z.... ***************.....X
. A..(W) . V1.....Y . B..(W) . V2 : ...
.....".... **** DATEN ****.3.... **
***.F.L.. 6 : . ANZAHL.].V.. 20,10,15,40
,30,8.Y.P..1,8,15:.1,A$,B$:.A$,B$...
> CLICK IMAGE PREVIEW FOR FULL MODAL