3D-DIAGRAMM

FILE INFORMATION

FILENAME(S): 3D-DIAGRAMM

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-12-02 23:21:14

APPEARS ON: 5 disk(s)

FILE HASH

5c8f2dae6ca7a04e2cc91df5c954219036831b38e296980efc2396c1127fbcdb

FOUND ON DISKS (5 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	ACTIONS
MULTISOFT	3D-DIAGRAMM	PRG	swasti, dinkel	17	DOWNLOAD FILE
MULTISOFT	3D-DIAGRAMM	PRG	swasti, dinkel	17	DOWNLOAD FILE
DATAPACK	3D-DIAGRAMM	PRG	swasti, dinkel	17	DOWNLOAD FILE
MULTISOFT	3D-DIAGRAMM	PRG	swasti, dinkel	17	DOWNLOAD FILE
DATAPACK	3D-DIAGRAMM	PRG	swasti, dinkel	17	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 27 08 64 00 8F 20  2A 20 44 45 4D 4F 20 44  |..'.d.. * DEMO D|
00000010: 45 52 20 33 2D 44 20 44  49 41 47 52 41 4D 4D 20  |ER 3-D DIAGRAMM |
00000020: 52 4F 55 54 49 4E 45 00  4A 08 6E 00 8F 20 2A 20  |ROUTINE.J.n.. * |
00000030: 20 20 20 55 4E 44 20 42  45 49 53 50 49 45 4C 20  |   UND BEISPIEL |
00000040: 5A 55 4D 20 41 55 46 52  55 46 00 50 08 78 00 8F  |ZUM AUFRUF.P.x..|
00000050: 00 6E 08 82 00 46 31 B2  31 34 20 3A 20 8F 20 2A  |.n...F1.14 : . *|
00000060: 2A 2A 20 52 41 48 4D 45  4E 46 41 52 42 45 00 91  |** RAHMENFARBE..|
00000070: 08 8C 00 46 32 B2 30 20  20 3A 20 8F 20 2A 2A 2A  |...F2.0  : . ***|
00000080: 20 48 49 4E 54 45 52 47  52 55 4E 44 46 41 52 42  | HINTERGRUNDFARB|
00000090: 45 00 B0 08 96 00 46 33  B2 32 20 20 3A 20 8F 20  |E.....F3.2  : . |
000000A0: 2A 2A 2A 20 53 41 45 55  4C 45 4E 46 41 52 42 45  |*** SAEULENFARBE|
000000B0: 00 D5 08 A0 00 46 34 B2  37 20 20 3A 20 8F 20 2A  |.....F4.7  : . *|
000000C0: 2A 2A 20 53 41 45 55 4C  45 4E 52 41 48 4D 45 4E  |** SAEULENRAHMEN|
000000D0: 46 41 52 42 45 00 FA 08  AA 00 46 35 B2 31 34 20  |FARBE.....F5.14 |
000000E0: 3A 20 8F 20 2A 2A 2A 20  58 2D 4B 4F 4F 52 44 49  |: . *** X-KOORDI|
000000F0: 4E 41 54 45 4E 46 41 52  42 45 00 16 09 B4 00 46  |NATENFARBE.....F|
00000100: 36 B2 37 20 20 3A 20 8F  20 2A 2A 2A 20 54 45 58  |6.7  : . *** TEX|
00000110: 54 46 41 52 42 45 00 1C  09 BE 00 8F 00 62 09 C8  |TFARBE.......b..|
00000120: 00 41 4E B2 32 30 3A 86  4E 4E 24 28 41 4E 29 2C  |.AN.20:.NN$(AN),|
00000130: 57 28 41 4E 29 3A 8F 20  2A 2A 2A 20 41 4E 5A 41  |W(AN):. *** ANZA|
00000140: 48 4C 20 44 45 52 20 53  41 45 55 4C 45 4E 20 46  |HL DER SAEULEN F|
00000150: 45 53 54 4C 45 47 45 4E  20 28 4D 41 58 2E 20 32  |ESTLEGEN (MAX. 2|
00000160: 30 29 00 68 09 D2 00 8F  00 AD 09 DC 00 81 54 B2  |0).h..........T.|
00000170: 31 A4 32 30 3A 57 28 54  29 B2 B5 28 BB 28 31 29  |1.20:W(T)..(.(1)|
00000180: AC 31 36 29 AA 31 3A 82  3A 8F 20 2A 2A 2A 20 46  |.16).1:.:. *** F|
00000190: 45 53 54 4C 45 47 45 4E  20 44 45 52 20 32 30 20  |ESTLEGEN DER 20 |
000001A0: 53 41 45 55 45 4C 45 4E  57 45 52 54 45 00 BD 09  |SAEUELENWERTE...|
000001B0: E6 00 4E 4E 24 28 31 29  B2 22 4A 41 22 00 CD 09  |..NN$(1)."JA"...|
000001C0: F0 00 4E 4E 24 28 32 29  B2 22 46 45 22 00 DD 09  |..NN$(2)."FE"...|
000001D0: FA 00 4E 4E 24 28 33 29  B2 22 4D 41 22 00 ED 09  |..NN$(3)."MA"...|
000001E0: 04 01 4E 4E 24 28 34 29  B2 22 41 50 22 00 FD 09  |..NN$(4)."AP"...|
000001F0: 0E 01 4E 4E 24 28 35 29  B2 22 4D 41 22 00 0D 0A  |..NN$(5)."MA"...|
00000200: 18 01 4E 4E 24 28 36 29  B2 22 4A 55 22 00 1D 0A  |..NN$(6)."JU"...|
00000210: 22 01 4E 4E 24 28 37 29  B2 22 4A 55 22 00 2D 0A  |".NN$(7)."JU".-.|
00000220: 2C 01 4E 4E 24 28 38 29  B2 22 41 55 22 00 3D 0A  |,.NN$(8)."AU".=.|
00000230: 36 01 4E 4E 24 28 39 29  B2 22 53 45 22 00 4E 0A  |6.NN$(9)."SE".N.|
00000240: 40 01 4E 4E 24 28 31 30  29 B2 22 4F 4B 22 00 5F  |@.NN$(10)."OK"._|
00000250: 0A 4A 01 4E 4E 24 28 31  31 29 B2 22 4E 4F 22 00  |.J.NN$(11)."NO".|
00000260: 70 0A 54 01 4E 4E 24 28  31 32 29 B2 22 44 45 22  |p.T.NN$(12)."DE"|
00000270: 00 81 0A 5E 01 4E 4E 24  28 31 33 29 B2 22 4A 41  |...^.NN$(13)."JA|
00000280: 22 00 92 0A 68 01 4E 4E  24 28 31 34 29 B2 22 46  |"...h.NN$(14)."F|
00000290: 45 22 00 A3 0A 72 01 4E  4E 24 28 31 35 29 B2 22  |E"...r.NN$(15)."|
000002A0: 4D 41 22 00 B4 0A 7C 01  4E 4E 24 28 31 36 29 B2  |MA"...|.NN$(16).|
000002B0: 22 41 50 22 00 C5 0A 86  01 4E 4E 24 28 31 37 29  |"AP".....NN$(17)|
000002C0: B2 22 4D 41 22 00 D6 0A  90 01 4E 4E 24 28 31 38  |."MA".....NN$(18|
000002D0: 29 B2 22 4A 55 22 00 E7  0A 9A 01 4E 4E 24 28 31  |)."JU".....NN$(1|
000002E0: 39 29 B2 22 4A 55 22 00  F8 0A A4 01 4E 4E 24 28  |9)."JU".....NN$(|
000002F0: 32 30 29 B2 22 41 55 22  00 28 0B AE 01 8F 20 2A  |20)."AU".(.... *|
00000300: 2A 2A 20 46 45 53 54 4C  45 47 45 4E 20 44 45 52  |** FESTLEGEN DER|
00000310: 20 58 2D 57 45 52 54 20  28 4D 41 58 20 32 2E 20  | X-WERT (MAX 2. |
00000320: 5A 45 49 43 48 45 4E 29  00 2E 0B B8 01 8F 00 54  |ZEICHEN).......T|
00000330: 0B C2 01 54 58 24 B2 22  41 55 53 57 45 52 54 55  |...TX$."AUSWERTU|
00000340: 4E 47 20 38 34 2F 38 35  22 3A 8F 20 2A 2A 2A 20  |NG 84/85":. *** |
00000350: 54 45 58 54 00 8A 0B CC  01 58 58 B2 B5 28 BB 28  |TEXT.....XX..(.(|
00000360: 31 29 AC 32 33 29 AA 31  3A 59 59 B2 B5 28 BB 28  |1).23).1:YY..(.(|
00000370: 31 29 AC 32 29 AA 31 3A  8F 20 2A 2A 2A 20 54 45  |1).2).1:. *** TE|
00000380: 58 54 50 4F 53 49 54 49  4F 4E 00 90 0B D6 01 8F  |XTPOSITION......|
00000390: 00 B3 0B E0 01 8D 35 30  30 30 30 3A 8F 20 2A 2A  |......50000:. **|
000003A0: 2A 20 53 54 41 52 54 20  44 45 52 20 52 4F 55 54  |* START DER ROUT|
000003B0: 49 4E 45 00 DE 0B EA 01  81 54 B2 31 A4 32 30 30  |INE......T.1.200|
000003C0: 30 3A 82 3A 8A 3A 8F 20  2A 2A 2A 20 45 52 4E 45  |0:.:.:. *** ERNE|
000003D0: 55 54 45 52 20 44 55 52  43 48 4C 41 55 46 00 E4  |UTER DURCHLAUF..|
000003E0: 0B F4 01 8F 00 F1 0B 50  C3 8B 41 4E B1 32 30 A7  |.......P..AN.20.|
000003F0: 8E 00 2B 0C 5A C3 97 35  33 32 36 35 2C 31 32 3A  |..+.Z..53265,12:|
00000400: 97 35 33 32 38 30 2C 46  31 3A 97 35 33 32 38 31  |.53280,F1:.53281|
00000410: 2C 46 32 3A 46 41 B2 30  3A 8B 41 4E AD 32 B2 B5  |,F2:FA.0:.AN.2..|
00000420: 28 41 4E AD 32 29 A7 46  41 B2 31 00 37 0C 64 C3  |(AN.2).FA.1.7.d.|
00000430: 97 36 34 36 2C 46 31 00  74 0C 6E C3 99 C7 28 31  |.646,F1.t.n...(1|
00000440: 34 32 29 C7 28 38 29 22  93 12 33 2D 44 20 44 49  |42).(8)"..3-D DI|
00000450: 41 47 52 41 4D 4D 20 42  59 20 4F 2E 4D 55 53 4F  |AGRAMM BY O.MUSO|
00000460: 4C 46 20 28 43 29 20 4D  55 4C 54 49 53 4F 46 54  |LF (C) MULTISOFT|
00000470: 20 20 13 22 00 93 0C 78  C3 59 59 24 B2 22 11 11  |  ."...x.YY$."..|
00000480: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000490: 11 11 22 00 D0 0C 82 C3  97 36 34 36 2C 46 35 3A  |.."......646,F5:|
000004A0: 99 59 59 24 22 12 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |.YY$"...........|
000004B0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000004C0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 22 3B  |..............";|
000004D0: 00 01 0D 8C C3 99 22 20  20 20 20 20 20 20 20 20  |......"         |
000004E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000500: 3B 00 3B 0D 96 C3 99 22  20 20 20 20 20 20 20 20  |;.;...."        |
00000510: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000520: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 13  |               .|
00000530: 22 3A 97 32 30 32 33 2C  31 36 30 00 70 0D A0 C3  |":.2023,160.p...|
00000540: 81 5A 51 B2 30 A4 41 4E  AD 32 AB 46 41 3A 99 22  |.ZQ.0.AN.2.FA:."|
00000550: 13 12 11 11 11 11 22 59  59 24 A6 5A 51 AC 34 29  |......"YY$.ZQ.4)|
00000560: 4E 4E 24 28 5A 51 AC 32  AA 31 29 22 13 22 3A 82  |NN$(ZQ.2.1)".":.|
00000570: 00 A1 0D AA C3 81 5A 51  B2 31 A4 41 4E AD 32 3A  |......ZQ.1.AN.2:|
00000580: 99 22 13 12 11 11 11 22  59 59 24 A6 5A 51 AC 34  |."....."YY$.ZQ.4|
00000590: AB 32 29 4E 4E 24 28 5A  51 AC 32 29 22 13 22 3A  |.2)NN$(ZQ.2)".":|
000005A0: 82 00 D3 0D B4 C3 97 35  33 32 36 35 2C 32 37 3A  |.......53265,27:|
000005B0: 81 5A 51 B2 31 A4 41 4E  3A 47 59 B2 31 38 36 32  |.ZQ.1.AN:GY.1862|
000005C0: AA 5A 51 AC 32 3A 56 59  B2 35 36 31 33 34 AA 5A  |.ZQ.2:VY.56134.Z|
000005D0: 51 AC 32 00 F1 0D BE C3  8B 57 28 5A 51 29 B3 B2  |Q.2......W(ZQ)..|
000005E0: 30 B0 57 28 5A 51 29 B2  B1 32 32 A7 35 30 31 36  |0.W(ZQ)..22.5016|
000005F0: 30 00 26 0E C8 C3 97 47  59 2C 31 36 30 3A 97 56  |0.&....GY,160:.V|
00000600: 59 2C 46 33 3A 97 47 59  AA 31 2C 31 30 35 3A 97  |Y,F3:.GY.1,105:.|
00000610: 56 59 AA 31 2C 46 34 3A  8B 57 28 5A 51 29 B2 31  |VY.1,F4:.W(ZQ).1|
00000620: A7 35 30 31 35 30 00 63  0E D2 C3 81 43 51 B2 31  |.50150.c....CQ.1|
00000630: A4 57 28 5A 51 29 AB 31  3A 97 47 59 AB 43 51 AC  |.W(ZQ).1:.GY.CQ.|
00000640: 34 30 2C 31 36 30 3A 97  47 59 AB 43 51 AC 34 30  |40,160:.GY.CQ.40|
00000650: AA 31 2C 31 36 30 3A 97  56 59 AB 43 51 AC 34 30  |.1,160:.VY.CQ.40|
00000660: 2C 46 33 00 78 0E DC C3  97 56 59 AB 43 51 AC 34  |,F3.x....VY.CQ.4|
00000670: 30 AA 31 2C 46 34 3A 82  00 B0 0E E6 C3 97 47 59  |0.1,F4:.......GY|
00000680: AB 57 28 5A 51 29 AC 34  30 2C 32 33 33 3A 97 56  |.W(ZQ).40,233:.V|
00000690: 59 AB 57 28 5A 51 29 AC  34 30 2C 46 34 3A 97 47  |Y.W(ZQ).40,F4:.G|
000006A0: 59 AB 57 28 5A 51 29 AC  34 30 AA 31 2C 32 30 36  |Y.W(ZQ).40.1,206|
000006B0: 00 E1 0E F0 C3 97 56 59  AB 57 28 5A 51 29 AC 34  |......VY.W(ZQ).4|
000006C0: 30 AA 31 2C 46 34 3A 82  3A 8B 58 58 B1 34 30 B0  |0.1,F4:.:.XX.40.|
000006D0: 59 59 B1 32 31 B0 58 58  B3 30 B0 59 59 B3 30 A7  |YY.21.XX.0.YY.0.|
000006E0: 8E 00 05 0F FA C3 97 36  34 36 2C 46 36 3A 99 22  |.......646,F6:."|
000006F0: 13 11 22 C8 28 59 59 24  2C 59 59 29 A6 58 58 29  |..".(YY$,YY).XX)|
00000700: 54 58 24 3A 8E 00 00 00                           |TX$:....        |

..'.D.. * DEMO DER 3-D DIAGRAMM ROUTINE.
J.N.. *    UND BEISPIEL ZUM AUFRUF.P.X..
.N...F1.14 : . *** RAHMENFARBE.....F2.0 
 : . *** HINTERGRUNDFARBE.....F3.2  : . 
*** SAEULENFARBE.U. .F4.7  : . *** SAEUL
ENRAHMENFARBE.....F5.14 : . *** X-KOORDI
NATENFARBE.....F6.7  : . *** TEXTFARBE..
.....B.H.AN.20:.NN$(AN),W(AN):. *** ANZA
HL DER SAEULEN FESTLEGEN (MAX. 20).H.R..
......T.1.20:W(T)..(.(1).16).1:.:. *** F
ESTLEGEN DER 20 SAEUELENWERTE.....NN$(1)
."JA".M...NN$(2)."FE".....NN$(3)."MA"...
..NN$(4)."AP".....NN$(5)."MA".....NN$(6)
."JU"...".NN$(7)."JU".-.,.NN$(8)."AU".=.
6.NN$(9)."SE".N.@.NN$(10)."OK"._.J.NN$(1
1)."NO".P.T.NN$(12)."DE"...^.NN$(13)."JA
"...H.NN$(14)."FE"...R.NN$(15)."MA"...|.
NN$(16)."AP".E...NN$(17)."MA".V...NN$(18
)."JU".....NN$(19)."JU".....NN$(20)."AU"
.(.... *** FESTLEGEN DER X-WERT (MAX 2. 
ZEICHEN).......T.B.TX$."AUSWERTUNG 84/85
":. *** TEXT...L.XX..(.(1).23).1:YY..(.(
1).2).1:. *** TEXTPOSITION...V........50
000:. *** START DER ROUTINE......T.1.200
0:.:.:. *** ERNEUTER DURCHLAUF.........P
C.AN.20...+.ZC.53265,12:.53280,F1:.53281
,F2:FA.0:.AN.2..(AN.2).FA.1.7.DC.646,F1.
T.NC.G(142)G(8)"..3-D DIAGRAMM BY O.MUSO
LF (C) MULTISOFT  ."...XCYY$."..........
..........".P..C.646,F5:.YY$"...........
..............................";....C." 
                                       "
;.;..C."                                
       .":.2023,160.P. C.ZQ.0.AN.2.FA:."
......"YY$.ZQ.4)NN$(ZQ.2.1)".":.....C.ZQ
.1.AN.2:."....."YY$.ZQ.4.2)NN$(ZQ.2)".":
..S..C.53265,27:.ZQ.1.AN:GY.1862.ZQ.2:VY
.56134.ZQ.2....C.W(ZQ)..0.W(ZQ)..22.5016
0.&.HC.GY,160:.VY,F3:.GY.1,105:.VY.1,F4:
.W(ZQ).1.50150.C.RC.CQ.1.W(ZQ).1:.GY.CQ.
40,160:.GY.CQ.40.1,160:.VY.CQ.40,F3.X..C
.VY.CQ.40.1,F4:.....C.GY.W(ZQ).40,233:.V
Y.W(ZQ).40,F4:.GY.W(ZQ).40.1,206....C.VY
.W(ZQ).40.1,F4:.:.XX.40.YY.21.XX.0.YY.0.
.....C.646,F6:.".."H(YY$,YY).XX)TX$:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL