00000000: 01 40 11 40 01 00 E8 3A E7 34 2C 31 3A E7 30 2C |.@.@...:.4,1:.0,|
00000010: 31 00 1E 40 03 00 DE 20 31 2C 31 3A DE 30 00 2E |1..@... 1,1:.0..|
00000020: 40 05 00 50 49 B2 33 2E 31 34 31 35 39 32 00 5E |@..PI.3.141592.^|
00000030: 40 07 00 85 20 22 53 54 41 4E 44 41 52 44 47 52 |@... "STANDARDGR|
00000040: 4F 45 53 53 45 20 28 4A 2F 4E 29 20 22 3B 41 24 |OESSE (J/N) ";A$|
00000050: 3A 8B 20 41 24 B2 22 4A 22 A7 20 89 20 39 00 97 |:. A$."J". . 9..|
00000060: 40 08 00 85 20 22 58 4C 3D 20 22 3B 58 4C 3A 85 |@... "XL= ";XL:.|
00000070: 20 22 58 52 3D 20 22 3B 58 52 3A 85 20 22 59 42 | "XR= ";XR:. "YB|
00000080: 3D 20 22 3B 59 42 3A 85 20 22 59 54 3D 20 22 3B |= ";YB:. "YT= ";|
00000090: 59 54 3A 89 20 31 30 00 B3 40 09 00 58 4C B2 30 |YT:. 10..@..XL.0|
000000A0: 3A 58 52 B2 36 34 30 3A 59 42 B2 30 3A 59 54 B2 |:XR.640:YB.0:YT.|
000000B0: 34 30 30 00 F0 40 0A 00 4D 48 B2 58 4C AA 28 58 |400..@..MH.XL.(X|
000000C0: 52 AB 58 4C 29 AD 32 3A 4D 56 B2 59 42 AA 28 59 |R.XL).2:MV.YB.(Y|
000000D0: 54 AB 59 42 29 AD 32 3A 58 46 41 B2 30 2E 37 38 |T.YB).2:XFA.0.78|
000000E0: 3A 59 46 41 B2 30 2E 36 39 3A 89 20 32 30 30 30 |:YFA.0.69:. 2000|
000000F0: 00 20 41 D2 00 85 20 22 41 4E 5A 41 48 4C 20 44 |. A... "ANZAHL D|
00000100: 45 52 20 5A 55 20 56 45 52 42 49 4E 44 45 4E 44 |ER ZU VERBINDEND|
00000110: 45 4E 20 50 55 4E 4B 54 45 22 B2 20 22 3B 4E 55 |EN PUNKTE". ";NU|
00000120: 00 42 41 E8 03 58 43 B2 58 41 AC 43 5A AB 59 41 |.BA..XC.XA.CZ.YA|
00000130: AC 53 5A 3A 59 43 B2 58 41 AC 53 5A AA 59 41 AC |.SZ:YC.XA.SZ.YA.|
00000140: 43 5A 00 60 41 F2 03 58 41 B2 B5 20 28 58 43 AA |CZ.`A..XA.. (XC.|
00000150: 4D 58 29 3A 59 41 B2 B5 20 28 59 43 AA 59 4D 29 |MX):YA.. (YC.YM)|
00000160: 00 79 41 FC 03 8B 20 46 4D 41 54 24 B2 22 56 22 |.yA... FMAT$."V"|
00000170: 20 A7 20 89 20 31 30 35 30 00 8D 41 06 04 58 41 | . . 1050..A..XA|
00000180: B2 58 41 AA 4D 48 3A 89 20 31 31 30 30 00 A6 41 |.XA.MH:. 1100..A|
00000190: 1A 04 54 54 B2 59 41 3A 59 41 B2 4D 56 AB 58 41 |..TT.YA:YA.MV.XA|
000001A0: 3A 58 41 B2 54 54 00 AC 41 4C 04 8F 00 BF 41 08 |:XA.TT..AL....A.|
000001B0: 07 8B 20 50 B1 30 20 A7 20 89 20 31 38 32 30 00 |.. P.0 . . 1820.|
000001C0: D9 41 12 07 E6 20 58 41 AC 58 46 41 2C 32 30 30 |.A... XA.XFA,200|
000001D0: AB 59 41 AC 59 46 41 3A 8E 00 F5 41 1C 07 E5 20 |.YA.YFA:...A... |
000001E0: A4 20 58 41 AC 58 46 41 2C 32 30 30 AB 59 41 AC |. XA.XFA,200.YA.|
000001F0: 59 46 41 3A 8E 00 30 42 D0 07 85 20 22 48 4F 52 |YFA:..0B... "HOR|
00000200: 49 5A 4F 4E 54 41 4C 45 53 20 28 48 29 20 4F 44 |IZONTALES (H) OD|
00000210: 45 52 20 56 45 52 54 49 4B 41 4C 45 53 20 46 4F |ER VERTIKALES FO|
00000220: 52 4D 41 54 20 28 56 29 20 22 3B 46 4D 41 54 24 |RMAT (V) ";FMAT$|
00000230: 00 60 42 3E 08 85 20 22 41 4E 5A 41 48 4C 20 44 |.`B>.. "ANZAHL D|
00000240: 45 52 20 5A 55 20 56 45 52 42 49 4E 44 45 4E 44 |ER ZU VERBINDEND|
00000250: 45 4E 20 50 55 4E 4B 54 45 20 3D 20 22 3B 4E 55 |EN PUNKTE = ";NU|
00000260: 00 86 42 B8 0B 85 20 22 56 45 52 53 43 48 49 45 |..B... "VERSCHIE|
00000270: 42 55 4E 47 20 50 41 52 41 4C 4C 45 4C 20 58 20 |BUNG PARALLEL X |
00000280: 3D 20 22 3B 4D 58 00 AB 42 C2 0B 85 20 22 56 45 |= ";MX..B... "VE|
00000290: 52 53 43 48 49 45 42 55 4E 47 20 50 41 52 41 4C |RSCHIEBUNG PARAL|
000002A0: 4C 45 4C 20 59 20 3D 22 3B 4D 59 00 DC 42 CC 0B |LEL Y =";MY..B..|
000002B0: 85 20 22 52 4F 54 41 54 49 4F 4E 20 55 4D 20 44 |. "ROTATION UM D|
000002C0: 49 45 20 5A 2D 41 43 48 53 45 20 22 3B 52 5A 3A |IE Z-ACHSE ";RZ:|
000002D0: 52 5A B2 52 5A AC 50 49 AD 31 38 30 00 F4 42 E0 |RZ.RZ.PI.180..B.|
000002E0: 0B 53 5A B2 BF 20 28 52 5A 29 3A 43 5A B2 BE 20 |.SZ.. (RZ):CZ.. |
000002F0: 28 52 5A 29 00 0A 43 A0 0F 86 20 58 41 28 4E 55 |(RZ)..C... XA(NU|
00000300: 29 3A 86 20 59 41 28 4E 55 29 00 19 43 AA 0F 81 |):. YA(NU)..C...|
00000310: 20 49 B2 30 20 A4 20 4E 55 00 3A 43 B4 0F 99 20 | I.0 . NU.:C... |
00000320: 22 44 49 45 53 20 49 53 54 20 50 55 4E 4B 54 20 |"DIES IST PUNKT |
00000330: 4E 55 4D 4D 45 52 20 22 3B 49 00 63 43 BE 0F 85 |NUMMER ";I.cC...|
00000340: 20 22 58 20 2D 20 4B 4F 4F 52 44 49 4E 41 54 45 | "X - KOORDINATE|
00000350: 20 44 45 53 20 50 55 4E 4B 54 45 53 20 3D 20 22 | DES PUNKTES = "|
00000360: 3B 58 41 00 8C 43 C8 0F 85 20 22 59 20 2D 20 4B |;XA..C... "Y - K|
00000370: 4F 4F 52 44 49 4E 41 54 45 20 44 45 53 20 50 55 |OORDINATE DES PU|
00000380: 4E 4B 54 45 53 20 3D 20 22 3B 59 41 00 A2 43 D2 |NKTES = ";YA..C.|
00000390: 0F 58 41 28 49 29 B2 58 41 3A 59 41 28 49 29 B2 |.XA(I).XA:YA(I).|
000003A0: 59 41 00 A8 43 DC 0F 82 00 B2 43 88 13 DE 20 31 |YA..C.....C... 1|
000003B0: 2C 30 00 BB 43 8D 13 53 32 B2 30 00 CA 43 92 13 |,0..C..S2.0..C..|
000003C0: 81 20 49 B2 30 20 A4 20 4E 55 00 DA 43 9C 13 81 |. I.0 . NU..C...|
000003D0: 20 4A B2 53 32 20 A4 20 4E 55 00 EB 43 A1 13 8B | J.S2 . NU..C...|
000003E0: 20 4A B2 31 20 89 20 35 30 35 30 00 0C 44 A6 13 | J.1 . 5050..D..|
000003F0: 58 41 B2 58 41 28 49 29 3A 59 41 B2 59 41 28 49 |XA.XA(I):YA.YA(I|
00000400: 29 3A 50 B2 30 3A 8D 20 31 30 30 30 00 2D 44 B0 |):P.0:. 1000.-D.|
00000410: 13 58 41 B2 58 41 28 4A 29 3A 59 41 B2 59 41 28 |.XA.XA(J):YA.YA(|
00000420: 4A 29 3A 50 B2 31 3A 8D 20 31 30 30 30 00 35 44 |J):P.1:. 1000.5D|
00000430: BA 13 82 20 4A 00 41 44 BF 13 53 32 B2 53 32 AA |... J.AD..S2.S2.|
00000440: 31 00 49 44 C4 13 82 20 49 00 4F 44 10 27 80 00 |1.ID... I.OD.'..|
00000450: 00 00 |.. |
.@.@...:.4,1:.0,1..@... 1,1:.0..@..PI.3.
141592.^@... "STANDARDGROESSE (J/N) ";A$
:. A$."J". . 9..@... "XL= ";XL:. "XR= ";
XR:. "YB= ";YB:. "YT= ";YT:. 10..@..XL.0
:XR.640:YB.0:YT.400..@..MH.XL.(XR.XL).2:
MV.YB.(YT.YB).2:XFA.0.78:YFA.0.69:. 2000
. AR.. "ANZAHL DER ZU VERBINDENDEN PUNKT
E". ";NU.BA..XC.XA.CZ.YA.SZ:YC.XA.SZ.YA.
CZ.`A..XA.. (XC.MX):YA.. (YC.YM).YA... F
MAT$."V" . . 1050..A..XA.XA.MH:. 1100..A
..TT.YA:YA.MV.XA:XA.TT..AL....A... P.0 .
. 1820.YA... XA.XFA,200.YA.YFA:...A...
. XA.XFA,200.YA.YFA:..0BP.. "HORIZONTALE
S (H) ODER VERTIKALES FORMAT (V) ";FMAT$
.`B>.. "ANZAHL DER ZU VERBINDENDEN PUNKT
E = ";NU..B... "VERSCHIEBUNG PARALLEL X
= ";MX..BB.. "VERSCHIEBUNG PARALLEL Y ="
;MY..BL.. "ROTATION UM DIE Z-ACHSE ";RZ:
RZ.RZ.PI.180..B..SZ.. (RZ):CZ.. (RZ)..C
.. XA(NU):. YA(NU)..C... I.0 . NU.:C...
"DIES IST PUNKT NUMMER ";I.CC... "X - KO
ORDINATE DES PUNKTES = ";XA..CH.. "Y - K
OORDINATE DES PUNKTES = ";YA..CR.XA(I).X
A:YA(I).YA..C.....C... 1,0..C..S2.0.JC..
. I.0 . NU.ZC... J.S2 . NU..C... J.1 . 5
050..D..XA.XA(I):YA.YA(I):P.0:. 1000.-D.
.XA.XA(J):YA.YA(J):P.1:. 1000.5D... J.AD
..S2.S2.1.IDD.. I.OD.'....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL