GRAFIK MIT S.B.
FILE INFORMATION
FILENAME(S): GRAFIK MIT S.B.
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-12-01 02:26:00
APPEARS ON: 1 disk(s)
FILE HASH
8bf8769f5bd60f211560b8f4ec61b70bcad5ba142832f153498254402ae4c0ed
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SIMONS BASIC | GRAFIK MIT S.B. | PRG | hedning, shine | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0A 00 3A 20 99 22 93 22 3A 97 20 35 |.. ...: .".":. 5|
00000010: 33 32 38 30 2C 30 3A 97 20 35 33 32 38 31 2C 30 |3280,0:. 53281,0|
00000020: 00 42 08 14 00 99 A3 31 30 29 22 9F 4E 4F 52 4D |.B.....10)".NORM|
00000030: 41 4C 45 20 41 58 4F 4E 4F 4D 45 54 52 49 45 20 |ALE AXONOMETRIE |
00000040: 3A 22 00 6D 08 19 00 99 22 44 49 45 53 45 53 20 |:".m...."DIESES |
00000050: 50 52 4F 47 52 41 4D 4D 20 53 54 45 4C 4C 54 20 |PROGRAMM STELLT |
00000060: 45 42 45 4E 46 4C 41 45 43 48 49 47 22 00 9D 08 |EBENFLAECHIG"...|
00000070: 1E 00 99 22 42 45 47 52 45 4E 5A 54 45 20 4B 4F |..."BEGRENZTE KO|
00000080: 45 52 50 45 52 2C 4E 41 43 48 20 45 49 4E 47 41 |ERPER,NACH EINGA|
00000090: 42 45 20 42 5A 57 20 45 49 4E 4C 45 22 00 CD 08 |BE BZW EINLE"...|
000000A0: 23 00 99 22 53 45 4E 20 44 45 52 20 45 43 4B 50 |#.."SEN DER ECKP|
000000B0: 55 4E 4B 54 45 20 55 4E 44 20 44 45 52 20 56 45 |UNKTE UND DER VE|
000000C0: 52 42 49 4E 44 55 4E 47 53 56 4F 52 22 00 F9 08 |RBINDUNGSVOR"...|
000000D0: 28 00 99 22 53 43 48 52 49 46 54 20 49 4E 20 4E |(.."SCHRIFT IN N|
000000E0: 4F 52 4D 41 4C 45 52 20 41 58 4F 4E 4F 4D 45 54 |ORMALER AXONOMET|
000000F0: 52 49 45 20 44 41 52 2E 22 00 26 09 2D 00 99 22 |RIE DAR.".&.-.."|
00000100: 48 49 45 52 42 45 49 20 4B 41 4E 4E 20 44 41 53 |HIERBEI KANN DAS|
00000110: 20 41 43 48 53 45 4E 4B 52 45 55 5A 20 42 45 4C | ACHSENKREUZ BEL|
00000120: 49 45 42 49 47 22 00 3E 09 32 00 99 22 47 45 57 |IEBIG".>.2.."GEW|
00000130: 41 45 4C 48 54 20 57 45 52 44 45 4E 2E 22 00 6C |AELHT WERDEN.".l|
00000140: 09 37 00 99 22 41 4C 4C 45 54 52 44 49 4E 47 53 |.7.."ALLETRDINGS|
00000150: 20 42 4C 45 49 42 54 20 44 45 52 20 55 52 53 50 | BLEIBT DER URSP|
00000160: 52 55 4E 47 20 49 4E 20 44 45 52 22 00 84 09 3C |RUNG IN DER"...<|
00000170: 00 99 22 42 49 4C 44 53 43 48 49 52 4D 4D 49 54 |.."BILDSCHIRMMIT|
00000180: 54 45 2E 22 00 B1 09 41 00 99 22 4E 41 43 48 20 |TE."...A.."NACH |
00000190: 44 45 4D 20 5A 45 49 43 48 4E 45 4E 20 44 45 52 |DEM ZEICHNEN DER|
000001A0: 20 46 49 47 55 52 20 45 52 53 43 48 45 49 4E 54 | FIGUR ERSCHEINT|
000001B0: 22 00 DF 09 46 00 99 22 49 4E 20 44 45 52 20 4C |"...F.."IN DER L|
000001C0: 49 4E 4B 45 4E 20 4F 42 45 52 45 4E 20 45 43 4B |INKEN OBEREN ECK|
000001D0: 45 20 3C 46 45 52 54 49 47 3E 20 55 4E 44 22 00 |E <FERTIG> UND".|
000001E0: 0E 0A 4B 00 99 22 4D 41 4E 20 4B 4F 4D 4D 54 20 |..K.."MAN KOMMT |
000001F0: 44 41 4E 20 4D 49 54 20 3C 46 31 3E 20 4F 44 45 |DAN MIT <F1> ODE|
00000200: 52 20 3C 52 45 54 55 52 4E 3E 20 49 4E 22 00 25 |R <RETURN> IN".%|
00000210: 0A 4C 00 99 22 44 41 53 20 48 41 55 50 54 4D 45 |.L.."DAS HAUPTME|
00000220: 4E 55 45 2E 22 00 54 0A 50 00 99 22 44 49 45 20 |NUE.".T.P.."DIE |
00000230: 45 52 53 54 45 4C 4C 54 45 4E 20 4B 4F 45 52 50 |ERSTELLTEN KOERP|
00000240: 45 52 20 4B 4F 4E 4E 45 4E 20 44 41 4E 4E 20 41 |ER KONNEN DANN A|
00000250: 55 43 48 22 00 7A 0A 55 00 99 22 41 55 46 20 44 |UCH".z.U.."AUF D|
00000260: 49 53 4B 20 41 42 47 45 53 50 45 49 43 48 45 52 |ISK ABGESPEICHER|
00000270: 54 20 57 45 52 44 45 4E 2E 22 00 9B 0A 5A 00 99 |T WERDEN."...Z..|
00000280: 22 11 22 A3 31 31 29 22 3C 20 54 41 53 54 45 20 |".".11)"< TASTE |
00000290: 44 52 55 45 43 4B 45 4E 20 3E 22 00 B1 0A 5F 00 |DRUECKEN >"..._.|
000002A0: 97 20 31 39 38 2C 30 20 3A 20 92 20 31 39 38 2C |. 198,0 : . 198,|
000002B0: 31 00 D5 0A 64 00 9C 3A 86 20 50 54 28 31 30 30 |1...d..:. PT(100|
000002C0: 2C 33 29 2C 5A 50 28 31 30 30 29 2C 50 41 28 31 |,3),ZP(100),PA(1|
000002D0: 30 30 2C 33 29 00 04 0B 69 00 99 22 93 9F 53 4F |00,3)...i.."..SO|
000002E0: 4C 4C 20 44 45 52 20 4B 4F 45 52 50 45 52 20 56 |LL DER KOERPER V|
000002F0: 4F 4E 20 44 49 53 4B 20 45 49 4E 47 45 4C 45 53 |ON DISK EINGELES|
00000300: 53 45 4E 22 00 1A 0B 6E 00 99 22 57 45 52 44 45 |SEN"...n.."WERDE|
00000310: 4E 20 3C 4A 2F 4E 3E 20 3F 22 00 35 0B 73 00 A1 |N <J/N> ?".5.s..|
00000320: 20 41 24 20 3A 20 8B 20 41 24 B2 22 4A 22 20 A7 | A$ : . A$."J" .|
00000330: 20 31 30 30 30 00 49 0B 78 00 8B 20 41 24 B3 B1 | 1000.I.x.. A$..|
00000340: 22 4E 22 20 A7 20 31 31 35 00 73 0B 7D 00 99 22 |"N" . 115.s.}.."|
00000350: 93 42 49 54 54 45 20 55 4D 20 44 49 45 20 45 49 |.BITTE UM DIE EI|
00000360: 4E 47 41 42 45 20 44 45 52 20 45 49 4E 5A 45 4C |NGABE DER EINZEL|
00000370: 45 4E 22 00 A1 0B 7E 00 99 22 45 43 4B 50 55 4E |EN"...~.."ECKPUN|
00000380: 4B 54 45 20 4D 49 54 20 44 52 45 49 20 4B 4F 4F |KTE MIT DREI KOO|
00000390: 52 44 49 4E 41 54 45 4E 20 28 58 2C 59 2C 5A 29 |RDINATEN (X,Y,Z)|
000003A0: 22 00 CE 0B 7F 00 99 22 42 45 49 20 58 3D 27 45 |"......"BEI X='E|
000003B0: 4E 44 45 27 20 57 49 52 44 20 44 49 45 20 45 49 |NDE' WIRD DIE EI|
000003C0: 4E 47 41 42 45 20 42 45 45 4E 44 45 54 22 00 FD |NGABE BEENDET"..|
000003D0: 0B 80 00 99 22 42 45 49 20 58 3D 27 26 27 20 4B |...."BEI X='&' K|
000003E0: 41 4E 4E 20 44 45 52 20 56 4F 52 49 47 45 20 50 |ANN DER VORIGE P|
000003F0: 55 4E 4B 54 20 4E 4F 43 48 45 49 4E 22 00 19 0C |UNKT NOCHEIN"...|
00000400: 81 00 99 22 4D 41 4C 20 45 49 4E 47 45 42 45 4E |..."MAL EINGEBEN|
00000410: 20 57 45 52 44 45 4E 2E 22 00 56 0C 82 00 99 22 | WERDEN.".V...."|
00000420: 28 22 41 22 29 22 3B 20 3A 20 85 20 50 58 24 2C |("A")"; : . PX$,|
00000430: 50 59 2C 50 5A 20 3A 20 50 58 B2 C5 28 50 58 24 |PY,PZ : PX..(PX$|
00000440: 29 20 3A 20 8B 20 50 58 24 B2 22 45 4E 44 45 22 |) : . PX$."ENDE"|
00000450: 20 A7 20 32 30 30 00 67 0C 8C 00 50 54 28 41 2C | . 200.g...PT(A,|
00000460: 31 29 20 B2 20 50 58 00 78 0C 91 00 50 54 28 41 |1) . PX.x...PT(A|
00000470: 2C 32 29 20 B2 20 50 59 00 89 0C 96 00 50 54 28 |,2) . PY.....PT(|
00000480: 41 2C 33 29 20 B2 20 50 5A 00 9F 0C 9B 00 50 41 |A,3) . PZ.....PA|
00000490: 28 41 2C 31 29 20 B2 20 50 54 28 41 2C 31 29 00 |(A,1) . PT(A,1).|
000004A0: B5 0C A0 00 50 41 28 41 2C 32 29 20 B2 20 50 54 |....PA(A,2) . PT|
000004B0: 28 41 2C 32 29 00 CB 0C A5 00 50 41 28 41 2C 33 |(A,2).....PA(A,3|
000004C0: 29 20 B2 20 50 54 28 41 2C 33 29 00 DD 0C AA 00 |) . PT(A,3).....|
000004D0: 41 B2 41 AA 31 20 3A 20 89 20 31 33 30 00 E3 0C |A.A.1 : . 130...|
000004E0: C8 00 8F 00 FB 0C C9 00 8F 20 56 45 52 42 49 4E |......... VERBIN|
000004F0: 44 55 4E 47 53 4F 52 4E 55 4E 47 00 01 0D CA 00 |DUNGSORNUNG.....|
00000500: 8F 00 39 0D CD 00 45 50 20 B2 20 41 AB 31 20 3A |..9...EP . A.1 :|
00000510: 20 99 22 93 49 4E 20 57 45 4C 43 48 45 52 20 52 | .".IN WELCHER R|
00000520: 45 49 48 45 4E 46 4F 4C 47 45 20 53 4F 4C 4C 45 |EIHENFOLGE SOLLE|
00000530: 4E 20 57 45 4C 43 48 45 22 00 5A 0D D2 00 99 22 |N WELCHE".Z...."|
00000540: 50 55 4E 4B 54 45 20 56 45 52 42 55 4E 44 45 4E |PUNKTE VERBUNDEN|
00000550: 20 57 45 52 44 45 4E 20 3F 22 00 84 0D D7 00 99 | WERDEN ?"......|
00000560: 22 27 45 4E 44 45 27 20 42 45 45 4E 44 45 54 20 |"'ENDE' BEENDET |
00000570: 44 49 45 20 45 49 4E 47 41 42 45 20 57 49 45 44 |DIE EINGABE WIED|
00000580: 45 52 2E 22 00 B3 0D DC 00 99 22 27 26 27 20 4C |ER."......"'&' L|
00000590: 41 45 53 53 54 20 44 49 45 20 4B 4F 52 52 45 4B |AESST DIE KORREK|
000005A0: 54 55 52 20 44 45 52 20 56 4F 52 49 47 49 47 45 |TUR DER VORIGIGE|
000005B0: 4E 20 22 00 C6 0D E1 00 99 22 45 49 4E 47 41 42 |N "......"EINGAB|
000005C0: 45 20 5A 55 2E 22 00 DD 0D E6 00 85 22 41 55 53 |E ZU."......"AUS|
000005D0: 47 41 4E 47 53 50 55 4E 4B 54 22 3B 41 00 E9 0D |GANGSPUNKT";A...|
000005E0: EB 00 5A 50 28 30 29 B2 41 00 F8 0D F0 00 42 B2 |..ZP(0).A.....B.|
000005F0: 31 20 3A 20 99 22 11 22 00 2E 0E F5 00 99 22 56 |1 : ."."......"V|
00000600: 4F 4E 20 28 22 41 22 29 20 4E 41 43 48 20 3A 20 |ON ("A") NACH : |
00000610: 22 3B 20 3A 20 85 20 41 24 20 3A 20 8B 20 41 24 |"; : . A$ : . A$|
00000620: B2 20 22 45 4E 44 45 22 20 A7 20 32 37 30 00 52 |. "ENDE" . 270.R|
00000630: 0E FA 00 8B 20 41 24 B2 22 26 22 20 A7 20 42 B2 |.... A$."&" . B.|
00000640: 42 AB 31 20 3A 20 41 B2 41 31 20 3A 20 89 20 32 |B.1 : A.A1 : . 2|
00000650: 34 35 00 67 0E FF 00 41 31 B2 41 20 3A 20 41 B2 |45.g...A1.A : A.|
00000660: C5 28 41 24 29 20 3A 00 73 0E 04 01 5A 50 28 42 |.(A$) :.s...ZP(B|
00000670: 29 B2 41 00 85 0E 09 01 42 B2 42 AA 31 20 3A 20 |).A.....B.B.1 : |
00000680: 89 20 32 34 35 00 90 0E 0E 01 53 50 B2 42 AB 31 |. 245.....SP.B.1|
00000690: 00 96 0E 2C 01 8F 00 B8 0E 2D 01 8F 20 4B 4F 4F |...,.....-.. KOO|
000006A0: 52 44 49 4E 41 54 45 4E 53 59 53 54 45 4D 20 46 |RDINATENSYSTEM F|
000006B0: 45 53 54 4C 45 47 45 4E 00 BE 0E 2E 01 8F 00 E9 |ESTLEGEN........|
000006C0: 0E 31 01 99 22 93 42 45 53 54 49 4D 4D 45 4E 20 |.1..".BESTIMMEN |
000006D0: 53 49 45 20 4E 55 4E 20 44 41 53 20 41 43 48 53 |SIE NUN DAS ACHS|
000006E0: 45 4E 4B 52 45 55 5A 2E 22 00 10 0F 36 01 99 22 |ENKREUZ."...6.."|
000006F0: 47 45 42 45 4E 20 53 49 45 20 44 49 45 20 57 49 |GEBEN SIE DIE WI|
00000700: 4E 4B 45 4C 20 5A 57 49 53 43 48 45 4E 20 3A 22 |NKEL ZWISCHEN :"|
00000710: 00 1A 0F 3B 01 99 22 11 11 22 00 28 0F 40 01 99 |...;.."..".(.@..|
00000720: 20 A3 31 39 29 22 A7 22 00 36 0F 45 01 99 20 A3 | .19)".".6.E.. .|
00000730: 31 39 29 22 A7 22 00 6B 0F 4A 01 99 22 5A 2D 20 |19)".".k.J.."Z- |
00000740: 55 4E 44 20 59 2D 41 43 48 53 45 20 22 3B A3 31 |UND Y-ACHSE ";.1|
00000750: 39 29 22 4E 4D 22 3B A3 32 34 29 5A AB 20 55 4E |9)"NM";.24)Z. UN|
00000760: 44 20 5A AB 41 43 48 53 45 20 22 00 86 0F 4F 01 |D Z.ACHSE "...O.|
00000770: 99 20 A3 31 38 29 22 4E 20 20 4D 22 A3 32 34 29 |. .18)"N M".24)|
00000780: 22 45 49 4E 2E 22 00 99 0F 59 01 99 20 A3 31 37 |"EIN."...Y.. .17|
00000790: 29 22 4E 20 20 20 20 4D 22 00 9F 0F 5E 01 8F 00 |)"N M"...^...|
000007A0: CF 0F 63 01 85 22 11 41 4C 50 48 41 20 3D 20 31 |..c..".ALPHA = 1|
000007B0: 32 30 22 3B 41 4C 3A 99 A3 32 35 29 3B 3A 85 22 |20";AL:..25);:."|
000007C0: 11 42 45 54 41 20 3D 20 31 32 30 22 3B 42 54 00 |.BETA = 120";BT.|
000007D0: DF 0F 68 01 41 4C B2 41 4C AC 58 AD 31 38 30 00 |..h.AL.AL.X.180.|
000007E0: E5 0F 90 01 8F 00 FA 0F 92 01 8F 20 5A 45 49 43 |........... ZEIC|
000007F0: 48 45 4E 20 52 64 7F 49 4E 45 00 00 10 93 01 8F |HEN Rd.INE......|
00000800: 00 0B 10 95 01 64 01 20 35 2C 30 00 17 10 9A 01 |.....d. 5,0.....|
00000810: 41 B2 5A 50 28 30 29 00 40 10 9F 01 58 41 B2 31 |A.ZP(0).@...XA.1|
00000820: 36 30 20 AB 20 BF 28 41 4C 29 AC 50 54 28 41 2C |60 . .(AL).PT(A,|
00000830: 32 29 AA BF 28 42 54 29 AC 50 54 28 41 2C 31 29 |2)..(BT).PT(A,1)|
00000840: 00 6F 10 A4 01 59 41 B2 31 30 30 AB 50 54 28 41 |.o...YA.100.PT(A|
00000850: 2C 33 29 AB BE 28 41 4C 29 AC 50 54 28 41 2C 32 |,3)..(AL).PT(A,2|
00000860: 29 AB BE 28 42 54 29 AC 50 54 28 41 2C 31 29 00 |)..(BT).PT(A,1).|
00000870: 7E 10 A9 01 81 20 42 B2 31 20 A4 20 53 50 00 8A |~.... B.1 . SP..|
00000880: 10 AE 01 41 B2 5A 50 28 42 29 00 CE 10 B3 01 58 |...A.ZP(B).....X|
00000890: 53 B2 31 36 30 AB BF 28 41 4C 29 AC 50 54 28 41 |S.160..(AL).PT(A|
000008A0: 2C 32 29 AA BF 28 42 54 29 AC 50 54 28 41 2C 31 |,2)..(BT).PT(A,1|
000008B0: 29 3A 8B 20 58 53 B1 33 31 39 20 A7 20 58 53 B2 |):. XS.319 . XS.|
000008C0: 33 31 39 3A 8B 58 53 B3 30 A7 58 53 B2 30 00 0E |319:.XS.0.XS.0..|
000008D0: 11 B8 01 59 53 B2 31 30 30 AB 50 54 28 41 2C 33 |...YS.100.PT(A,3|
000008E0: 29 AB BE 28 41 4C 29 AC 50 54 28 41 2C 32 29 AB |)..(AL).PT(A,2).|
000008F0: BE 28 42 54 29 AC 50 54 28 41 2C 31 29 3A 8B 59 |.(BT).PT(A,1):.Y|
00000900: 53 B1 31 39 39 20 A7 20 59 53 B2 31 39 39 00 1F |S.199 . YS.199..|
00000910: 11 B9 01 8B 20 59 53 B3 30 20 A7 59 53 B2 30 00 |.... YS.0 .YS.0.|
00000920: 34 11 BD 01 64 03 20 58 41 2C 59 41 2C 58 53 2C |4...d. XA,YA,XS,|
00000930: 59 53 2C 31 00 44 11 C2 01 58 41 B2 58 53 3A 59 |YS,1.D...XA.XS:Y|
00000940: 41 B2 59 53 00 4A 11 C7 01 82 00 5C 11 CC 01 8B |A.YS.J.....\....|
00000950: 20 4B 4F B2 31 20 A7 20 31 34 31 30 00 6E 11 E0 | KO.1 . 1410.n..|
00000960: 01 44 24 B2 22 3C 46 45 52 54 49 47 3E 22 00 82 |.D$."<FERTIG>"..|
00000970: 11 E5 01 64 6F 20 35 2C 35 2C 44 24 2C 31 2C 30 |...do 5,5,D$,1,0|
00000980: 2C 37 00 AB 11 EA 01 A1 20 41 24 3A 8B 20 41 24 |,7...... A$:. A$|
00000990: B3 B1 C7 28 31 33 33 29 20 AF 20 41 24 B3 B1 20 |...(133) . A$.. |
000009A0: C7 28 31 33 29 20 A7 20 34 39 30 00 B1 11 F4 01 |.(13) . 490.....|
000009B0: 8F 00 C2 11 F5 01 8F 20 48 41 55 50 54 4D 45 4E |....... HAUPTMEN|
000009C0: 55 45 00 C8 11 F6 01 8F 00 E5 11 F9 01 64 67 3A |UE...........dg:|
000009D0: 99 22 93 22 A3 31 30 29 22 48 41 55 50 4D 45 4E |.".".10)"HAUPMEN|
000009E0: 55 45 20 3A 22 00 04 12 03 02 99 22 28 31 29 20 |UE :"......"(1) |
000009F0: 3D 20 4E 45 55 45 53 20 41 43 48 53 45 4E 4B 52 |= NEUES ACHSENKR|
00000A00: 45 55 5A 22 00 29 12 08 02 99 22 28 32 29 20 3D |EUZ".)...."(2) =|
00000A10: 20 44 52 45 48 55 4E 47 20 44 45 52 20 46 49 47 | DREHUNG DER FIG|
00000A20: 55 52 20 55 4D 20 30 30 22 00 50 12 0D 02 99 22 |UR UM 00".P...."|
00000A30: 28 33 29 20 3D 20 41 55 53 47 41 4E 53 5A 55 53 |(3) = AUSGANSZUS|
00000A40: 54 41 4E 44 20 48 45 52 53 54 45 4C 4C 45 4E 22 |TAND HERSTELLEN"|
00000A50: 00 73 12 12 02 99 22 28 34 29 20 3D 20 56 45 52 |.s...."(4) = VER|
00000A60: 53 43 48 49 45 42 45 4E 20 44 45 52 20 46 49 47 |SCHIEBEN DER FIG|
00000A70: 55 52 22 00 9E 12 17 02 99 22 28 35 29 20 3D 20 |UR"......"(5) = |
00000A80: 4B 4F 4F 52 44 49 4E 41 54 45 4E 41 43 48 53 45 |KOORDINATENACHSE|
00000A90: 4E 20 45 49 4E 5A 45 49 43 48 4E 45 4E 22 00 C8 |N EINZEICHNEN"..|
00000AA0: 12 21 02 99 22 28 36 29 20 3D 20 41 42 53 50 45 |.!.."(6) = ABSPE|
00000AB0: 49 43 48 45 52 4E 20 44 45 52 20 4B 4F 45 52 50 |ICHERN DER KOERP|
00000AC0: 45 52 44 41 54 45 4E 22 00 EA 12 26 02 99 22 28 |ERDATEN"...&.."(|
00000AD0: 37 29 20 3D 20 48 41 52 44 43 4F 50 59 20 41 55 |7) = HARDCOPY AU|
00000AE0: 46 20 44 52 55 43 4B 45 52 22 00 03 13 2B 02 99 |F DRUCKER"...+..|
00000AF0: 22 28 38 29 20 3D 20 4E 45 55 45 52 20 53 54 41 |"(8) = NEUER STA|
00000B00: 52 54 22 00 23 13 30 02 99 22 28 39 29 A0 3D 20 |RT".#.0.."(9).= |
00000B10: 5A 55 52 20 47 52 41 46 49 4B 20 5A 55 52 55 45 |ZUR GRAFIK ZURUE|
00000B20: 43 4B 22 00 35 13 44 02 99 22 28 30 29 20 3D 20 |CK".5.D.."(0) = |
00000B30: 45 4E 44 45 22 00 5E 13 49 02 A1 20 41 24 3A 8B |ENDE".^.I.. A$:.|
00000B40: 20 41 24 B3 22 30 22 20 B0 20 41 24 B1 22 39 22 | A$."0" . A$."9"|
00000B50: 20 B0 20 41 24 B2 22 22 20 A7 20 35 38 35 00 95 | . A$."" . 585..|
00000B60: 13 4E 02 91 20 C5 28 41 24 29 20 89 20 33 30 30 |.N.. .(A$) . 300|
00000B70: 2C 36 30 30 2C 38 30 30 2C 31 33 30 30 2C 31 34 |,600,800,1300,14|
00000B80: 30 30 2C 31 31 30 30 2C 31 35 30 30 2C 31 30 30 |00,1100,1500,100|
00000B90: 2C 31 32 32 30 00 9B 13 53 02 90 00 B9 13 58 02 |,1220...S.....X.|
00000BA0: 8F 20 44 52 45 48 55 4E 47 20 44 45 52 20 46 49 |. DREHUNG DER FI|
00000BB0: 47 55 52 20 55 4D 20 30 30 00 DA 13 62 02 99 22 |GUR UM 00...b.."|
00000BC0: 93 1E 44 52 45 48 55 4E 47 20 44 45 52 20 46 49 |..DREHUNG DER FI|
00000BD0: 47 55 52 20 55 4D 20 30 30 22 00 F9 13 67 02 99 |GUR UM 00"...g..|
00000BE0: 22 42 49 54 54 45 20 57 41 45 48 4C 45 4E 20 53 |"BITTE WAEHLEN S|
00000BF0: 49 45 20 41 55 53 20 3A 22 00 1E 14 6C 02 99 22 |IE AUS :"...l.."|
00000C00: 28 31 29 20 3D 20 44 52 45 48 55 4E 47 20 55 4D |(1) = DREHUNG UM|
00000C10: 20 44 49 45 20 5A 2D 41 43 48 53 45 2E 22 00 43 | DIE Z-ACHSE.".C|
00000C20: 14 71 02 99 22 28 32 29 20 3D 20 44 52 45 48 55 |.q.."(2) = DREHU|
00000C30: 4E 47 20 55 4D 20 44 49 45 20 59 2D 41 43 48 53 |NG UM DIE Y-ACHS|
00000C40: 45 2E 22 00 68 14 76 02 99 22 28 33 29 20 3D 20 |E.".h.v.."(3) = |
00000C50: 44 52 45 48 55 4E 47 20 55 4D 20 44 49 45 20 58 |DREHUNG UM DIE X|
00000C60: 2D 41 43 48 53 45 2E 22 00 82 14 7B 02 A1 20 41 |-ACHSE."...{.. A|
00000C70: 3A 8B 20 41 B3 31 20 B0 20 41 B1 33 20 A7 20 36 |:. A.1 . A.3 . 6|
00000C80: 33 35 00 9A 14 7C 02 5A B2 35 AA 32 AC 41 3A 64 |35...|.Z.5.2.A:d|
00000C90: 0D 20 5A 2C 33 2C 32 39 2C 31 00 CC 14 80 02 99 |. Z,3,29,1......|
00000CA0: 20 A3 37 29 22 42 49 54 54 45 20 44 52 45 48 57 | .7)"BITTE DREHW|
00000CB0: 49 4E 4B 45 4C 20 3A 22 3B 3A 85 20 44 45 20 3A |INKEL :";:. DE :|
00000CC0: 20 44 45 B2 44 45 AC 58 AD 31 38 30 00 E2 14 85 | DE.DE.X.180....|
00000CD0: 02 91 20 41 20 89 20 36 35 30 2C 37 30 30 2C 37 |.. A . 650,700,7|
00000CE0: 35 30 00 E8 14 8A 02 8F 00 FD 14 8B 02 8F 20 55 |50............ U|
00000CF0: 4D 20 44 49 45 20 5A 2D 41 43 48 53 45 00 0C 15 |M DIE Z-ACHSE...|
00000D00: 8F 02 81 20 58 B2 30 20 A4 20 45 50 00 57 15 94 |... X.0 . EP.W..|
00000D10: 02 45 4F B2 C1 28 50 54 28 58 2C 31 29 AD 28 50 |.EO..(PT(X,1).(P|
00000D20: 54 28 58 2C 32 29 AB 31 45 AB 33 32 29 29 AB 58 |T(X,2).1E.32)).X|
00000D30: AC 28 50 54 28 58 2C 32 29 B3 B2 30 29 AB 32 AC |.(PT(X,2)..0).2.|
00000D40: 58 AC 28 50 54 28 58 2C 31 29 B3 30 AF 50 54 28 |X.(PT(X,1).0.PT(|
00000D50: 58 2C 32 29 B1 30 29 00 7A 15 99 02 45 4F B2 45 |X,2).0).z...EO.E|
00000D60: 4F AA 44 45 3A 8B 20 45 4F B1 B2 32 AC 58 20 A7 |O.DE:. EO..2.X .|
00000D70: 20 45 4F B2 45 4F AB 32 AC 58 00 97 15 9E 02 52 | EO.EO.2.X.....R|
00000D80: B2 BA 28 50 54 28 58 2C 31 29 AE 32 AA 50 54 28 |..(PT(X,1).2.PT(|
00000D90: 58 2C 32 29 AE 32 29 00 AB 15 A3 02 50 54 28 58 |X,2).2).....PT(X|
00000DA0: 2C 31 29 B2 BF 28 45 4F 29 AC 52 00 BF 15 A8 02 |,1)..(EO).R.....|
00000DB0: 50 54 28 58 2C 32 29 B2 BE 28 45 4F 29 AC 52 00 |PT(X,2)..(EO).R.|
00000DC0: C5 15 AD 02 82 00 CF 15 B2 02 89 20 37 39 30 00 |........... 790.|
00000DD0: E4 15 BC 02 8F 20 55 4D 20 44 49 45 20 59 2D 41 |..... UM DIE Y-A|
00000DE0: 43 48 53 45 00 F3 15 C1 02 81 20 58 B2 30 20 A4 |CHSE...... X.0 .|
00000DF0: 20 45 50 00 40 16 C6 02 45 4F B2 41 4E 54 28 50 | EP.@...EO.ANT(P|
00000E00: 54 28 58 2C 33 29 AD 28 50 54 28 58 2C 31 29 AB |T(X,3).(PT(X,1).|
00000E10: 31 45 AB 33 32 29 29 AB 58 AC 28 50 54 28 58 2C |1E.32)).X.(PT(X,|
00000E20: 31 29 B3 B2 30 29 AB 32 AC 58 AC 28 50 54 28 58 |1)..0).2.X.(PT(X|
00000E30: 2C 33 29 B3 30 AF 50 54 28 58 2C 31 29 B1 30 29 |,3).0.PT(X,1).0)|
00000E40: 00 63 16 CB 02 45 4F B2 45 4F AA 44 45 3A 8B 20 |.c...EO.EO.DE:. |
00000E50: 45 4F B1 B2 32 AC 58 20 A7 20 45 4F B2 45 4F AB |EO..2.X . EO.EO.|
00000E60: 32 AC 58 00 80 16 D0 02 52 B2 BA 28 50 54 28 58 |2.X.....R..(PT(X|
00000E70: 2C 31 29 AE 32 AA 50 54 28 58 2C 33 29 AE 32 29 |,1).2.PT(X,3).2)|
00000E80: 00 94 16 D5 02 50 54 28 58 2C 31 29 B2 BE 28 45 |.....PT(X,1)..(E|
00000E90: 4F 29 AC 52 00 A8 16 DA 02 50 54 28 58 2C 33 29 |O).R.....PT(X,3)|
00000EA0: B2 BF 28 45 4F 29 AC 52 00 AE 16 DF 02 82 00 B8 |..(EO).R........|
00000EB0: 16 E4 02 89 20 37 39 30 00 BE 16 EE 02 8F 00 D3 |.... 790........|
00000EC0: 16 EF 02 8F 20 55 4D 20 44 49 45 20 58 2D 41 43 |.... UM DIE X-AC|
00000ED0: 48 53 45 00 E7 16 F3 02 50 54 28 58 2C 32 29 B2 |HSE.....PT(X,2).|
00000EE0: BF 28 45 4F 29 AC 52 00 34 17 F8 02 45 4F B2 41 |.(EO).R.4...EO.A|
00000EF0: 4E 54 28 50 54 28 58 2C 32 29 AD 28 50 54 28 58 |NT(PT(X,2).(PT(X|
00000F00: 2C 33 29 AB 31 45 AB 33 32 29 29 AB 58 AC 28 50 |,3).1E.32)).X.(P|
00000F10: 54 28 58 2C 33 29 B3 B2 30 29 AB 32 AC 58 AC 28 |T(X,3)..0).2.X.(|
00000F20: 50 54 28 58 2C 32 29 B3 30 AF 50 54 28 58 2C 33 |PT(X,2).0.PT(X,3|
00000F30: 29 B1 30 29 00 57 17 FD 02 45 4F B2 45 4F AA 44 |).0).W...EO.EO.D|
00000F40: 45 3A 8B 20 45 4F B1 B2 32 AC 58 20 A7 20 45 4F |E:. EO..2.X . EO|
00000F50: B2 45 4F AB 32 AC 58 00 74 17 FE 02 52 B2 BA 28 |.EO.2.X.t...R..(|
00000F60: 50 54 28 58 2C 32 29 AE 32 AA 50 54 28 58 2C 33 |PT(X,2).2.PT(X,3|
00000F70: 29 AE 32 29 00 88 17 02 03 50 54 28 58 2C 33 29 |).2).....PT(X,3)|
00000F80: B2 BE 28 45 4F 29 AC 52 00 8E 17 0C 03 82 00 9B |..(EO).R........|
00000F90: 17 16 03 64 70 32 3A 89 34 30 30 00 B1 17 20 03 |...dp2:.400... .|
00000FA0: 8F 20 41 55 53 47 41 4E 47 53 5A 55 53 54 41 4E |. AUSGANGSZUSTAN|
00000FB0: 44 00 B7 17 21 03 8F 00 C6 17 2A 03 81 20 58 B2 |D...!.....*.. X.|
00000FC0: 30 20 A4 20 45 50 00 D4 17 34 03 81 20 59 B2 31 |0 . EP...4.. Y.1|
00000FD0: 20 A4 20 33 00 E8 17 3E 03 50 54 28 58 2C 59 29 | . 3...>.PT(X,Y)|
00000FE0: B2 50 41 28 58 2C 59 29 00 F1 17 48 03 82 59 2C |.PA(X,Y)...H..Y,|
00000FF0: 58 00 FB 17 52 03 89 20 34 30 30 00 01 18 E7 03 |X...R.. 400.....|
00001000: 8F 00 1E 18 E8 03 8F 20 44 41 54 45 4E 20 56 41 |....... DATEN VA|
00001010: 4E 20 44 45 52 20 64 72 20 48 4F 4C 45 4E 00 24 |N DER dr HOLEN.$|
00001020: 18 E9 03 8F 00 31 18 F2 03 9F 20 31 2C 38 2C 31 |.....1.... 1,8,1|
00001030: 35 00 59 18 F7 03 99 22 42 49 54 54 45 20 44 41 |5.Y...."BITTE DA|
00001040: 54 45 49 4E 41 4D 45 4E 20 3A 22 3B 3A 85 20 4E |TEINAMEN :";:. N|
00001050: 53 24 3A 4E 24 B2 4E 53 24 00 6C 18 FC 03 4E 53 |S$:N$.NS$.l...NS|
00001060: 24 B2 4E 53 24 AA 22 2C 53 2C 52 22 00 7C 18 01 |$.NS$.",S,R".|..|
00001070: 04 9F 20 32 2C 38 2C 32 2C 4E 53 24 00 87 18 06 |.. 2,8,2,NS$....|
00001080: 04 8D 20 31 32 35 30 00 A0 18 08 04 8B 20 46 31 |.. 1250...... F1|
00001090: B2 36 32 20 A7 20 A0 20 32 3A 89 20 31 30 31 35 |.62 . . 2:. 1015|
000010A0: 00 C3 18 0B 04 99 22 45 49 4E 4C 45 53 45 4E 20 |......"EINLESEN |
000010B0: 44 45 52 20 44 41 54 45 4E 20 56 4F 4E 20 3A 22 |DER DATEN VON :"|
000010C0: 3B 4E 24 00 CD 18 10 04 84 32 2C 45 50 00 D7 18 |;N$......2,EP...|
000010D0: 15 04 84 32 2C 53 50 00 E6 18 1A 04 81 20 58 B2 |...2,SP...... X.|
000010E0: 30 20 A4 20 45 50 00 F4 18 1F 04 81 20 59 B2 31 |0 . EP...... Y.1|
000010F0: 20 A4 20 33 00 15 19 24 04 84 32 2C 50 54 28 58 | . 3...$..2,PT(X|
00001100: 2C 59 29 20 3A 20 50 41 28 58 2C 59 29 B2 50 54 |,Y) : PA(X,Y).PT|
00001110: 28 58 2C 59 29 00 1D 19 29 04 82 20 59 00 28 19 |(X,Y)...).. Y.(.|
00001120: 2E 04 8D 20 31 32 35 30 00 30 19 33 04 82 20 58 |... 1250.0.3.. X|
00001130: 00 3F 19 38 04 81 20 58 B2 30 20 A4 20 53 50 00 |.?.8.. X.0 . SP.|
00001140: 4C 19 3D 04 84 32 2C 5A 50 28 58 29 00 54 19 42 |L.=..2,ZP(X).T.B|
00001150: 04 82 20 58 00 5F 19 47 04 8D 20 31 32 35 30 00 |.. X._.G.. 1250.|
00001160: 6F 19 49 04 A0 20 32 3A A0 31 3A 89 33 30 30 00 |o.I.. 2:.1:.300.|
00001170: 76 19 4C 04 64 67 00 7C 19 4D 04 8F 00 9B 19 56 |v.L.dg.|.M.....V|
00001180: 04 99 22 93 4B 4F 45 52 50 45 52 44 41 54 45 4E |..".KOERPERDATEN|
00001190: 20 41 55 46 20 44 49 53 4B 3A 22 00 BC 19 6A 04 | AUF DISK:"...j.|
000011A0: 99 22 42 49 54 54 45 20 44 41 54 45 49 4E 41 4D |."BITTE DATEINAM|
000011B0: 45 4E 20 3A 22 3B 3A 85 20 4E 53 24 00 C9 19 74 |EN :";:. NS$...t|
000011C0: 04 9F 20 31 2C 38 2C 31 35 00 DC 19 7E 04 4E 53 |.. 1,8,15...~.NS|
000011D0: 24 B2 4E 53 24 AA 22 2C 53 2C 57 22 00 EC 19 88 |$.NS$.",S,W"....|
000011E0: 04 9F 20 32 2C 38 2C 32 2C 4E 53 24 00 FC 19 8A |.. 2,8,2,NS$....|
000011F0: 04 98 32 2C 45 50 3A 98 32 2C 53 50 00 09 1A 8D |..2,EP:.2,SP....|
00001200: 04 81 20 58 B2 30 A4 45 50 00 15 1A 92 04 81 20 |.. X.0.EP...... |
00001210: 59 B2 31 A4 33 00 24 1A 9C 04 98 32 2C 50 54 28 |Y.1.3.$....2,PT(|
00001220: 58 2C 59 29 00 2C 1A A1 04 82 20 59 00 37 1A A6 |X,Y).,.... Y.7..|
00001230: 04 8D 20 31 32 35 30 00 3F 1A AB 04 82 20 58 00 |.. 1250.?.... X.|
00001240: 4D 1A B0 04 81 20 58 B2 30 54 50 53 50 00 5A 1A |M.... X.0TPSP.Z.|
00001250: B5 04 98 32 2C 5A 50 28 58 29 00 60 1A BA 04 82 |...2,ZP(X).`....|
00001260: 00 6B 1A BF 04 8D 20 31 32 35 30 00 7F 1A C4 04 |.k.... 1250.....|
00001270: A0 32 3A 20 A0 31 3A 64 70 32 3A 89 34 39 30 00 |.2: .1:dp2:.490.|
00001280: 85 1A E2 04 8F 00 97 1A E3 04 8F 20 46 45 48 4C |........... FEHL|
00001290: 45 52 4B 41 4E 41 4C 00 9D 1A E4 04 8F 00 BC 1A |ERKANAL.........|
000012A0: E7 04 84 31 2C 46 31 2C 46 31 24 2C 46 32 2C 46 |...1,F1,F1$,F2,F|
000012B0: 33 3A 8B 20 46 31 B2 30 20 A7 20 8E 00 D9 1A EC |3:. F1.0 . .....|
000012C0: 04 99 22 46 45 48 4C 45 52 20 41 55 46 20 44 45 |.."FEHLER AUF DE|
000012D0: 52 20 44 49 53 4B 20 21 22 00 08 1B F1 04 99 22 |R DISK !"......"|
000012E0: 42 49 54 54 45 20 4D 49 54 20 3C 52 45 54 55 52 |BITTE MIT <RETUR|
000012F0: 4E 3E 20 42 45 53 54 41 45 54 49 47 45 4E 2C 4F |N> BESTAETIGEN,O|
00001300: 44 45 52 20 4D 49 54 22 00 30 1B FB 04 99 22 3C |DER MIT".0...."<|
00001310: 53 50 41 43 45 3E 20 44 41 53 20 50 52 4F 47 52 |SPACE> DAS PROGR|
00001320: 41 4D 4D 20 41 42 42 52 45 43 48 45 4E 20 21 22 |AMM ABBRECHEN !"|
00001330: 00 46 1B 00 05 A1 41 24 3A 8B 41 24 B2 C7 28 31 |.F....A$:.A$..(1|
00001340: 33 29 20 A7 20 8E 00 5D 1B 05 05 8B 20 41 4E 24 |3) . ..].... AN$|
00001350: B3 B1 C7 28 33 32 29 A7 20 31 32 38 30 00 66 1B |...(32). 1280.f.|
00001360: 0A 05 A0 31 3A 90 00 6C 1B 14 05 8F 00 88 1B 15 |...1:..l........|
00001370: 05 8F 20 56 45 52 53 43 48 49 45 42 45 4E 20 44 |.. VERSCHIEBEN D|
00001380: 45 52 20 46 49 47 55 52 00 8E 1B 16 05 8F 00 AD |ER FIGUR........|
00001390: 1B 19 05 99 22 93 56 45 52 53 43 48 49 45 42 45 |....".VERSCHIEBE|
000013A0: 4E 20 44 45 52 20 46 49 47 55 52 3A 22 00 D9 1B |N DER FIGUR:"...|
000013B0: 1E 05 99 22 42 49 54 54 45 20 55 4D 20 44 45 4E |..."BITTE UM DEN|
000013C0: 20 56 45 52 53 43 48 49 45 42 45 56 45 4B 54 4F | VERSCHIEBEVEKTO|
000013D0: 52 20 49 4E 20 44 45 52 22 00 EF 1B 23 05 99 22 |R IN DER"...#.."|
000013E0: 46 4F 52 4D 20 27 58 2C 59 2C 5A 27 A0 21 22 00 |FORM 'X,Y,Z'.!".|
000013F0: 08 1C 28 05 85 22 56 45 4B 54 4F 52 20 3A 22 3B |..(.."VEKTOR :";|
00001400: 50 58 2C 50 59 2C 50 5A 00 23 1C 2A 05 99 22 42 |PX,PY,PZ.#.*.."B|
00001410: 49 54 54 45 20 45 54 57 41 53 20 47 45 44 55 4C |ITTE ETWAS GEDUL|
00001420: 44 2E 22 00 32 1C 2D 05 81 20 41 B2 30 20 A4 20 |D.".2.-.. A.0 . |
00001430: 45 50 00 49 1C 37 05 50 54 28 41 2C 31 29 B2 50 |EP.I.7.PT(A,1).P|
00001440: 54 28 41 2C 31 29 AA 50 58 00 60 1C 3C 05 50 54 |T(A,1).PX.`.<.PT|
00001450: 28 41 2C 32 29 B2 50 54 28 41 2C 32 29 AA 50 59 |(A,2).PT(A,2).PY|
00001460: 00 77 1C 41 05 50 54 28 41 2C 33 29 B2 50 54 28 |.w.A.PT(A,3).PT(|
00001470: 41 2C 33 29 AA 50 5A 00 7F 1C 46 05 82 20 41 00 |A,3).PZ...F.. A.|
00001480: 88 1C 50 05 89 34 30 30 00 8E 1C 78 05 8F 00 A6 |..P..400...x....|
00001490: 1C 79 05 8F 20 4B 4F 4F 52 44 49 4E 41 54 45 4E |.y.. KOORDINATEN|
000014A0: 41 43 48 53 45 4E 00 AC 1C 7A 05 8F 00 CA 1C 7D |ACHSEN...z.....}|
000014B0: 05 8B 20 4B 4F B2 31 20 A7 20 54 59 B2 30 3A 4B |.. KO.1 . TY.0:K|
000014C0: 4F B2 30 3A 89 20 31 34 31 35 00 D8 1C 82 05 4B |O.0:. 1415.....K|
000014D0: 4F B2 31 3A 54 59 B2 31 00 FD 1C 87 05 58 53 B2 |O.1:TY.1.....XS.|
000014E0: 31 36 30 AB BF 28 41 4C 29 AC 39 35 3A 58 31 B2 |160..(AL).95:X1.|
000014F0: 31 36 30 AB BF 28 41 4C 29 AC 31 30 35 00 22 1D |160..(AL).105.".|
00001500: 8C 05 59 53 B2 31 30 30 AB BE 28 41 4C 29 AC 39 |..YS.100..(AL).9|
00001510: 35 3A 59 31 B2 31 30 30 AB BE 28 41 4C 29 AC 31 |5:Y1.100..(AL).1|
00001520: 30 35 00 37 1D 91 05 64 0B 20 58 31 2C 59 31 2C |05.7...d. X1,Y1,|
00001530: 32 35 2C 54 59 2C 31 00 4F 1D 96 05 64 03 20 31 |25,TY,1.O...d. 1|
00001540: 36 30 2C 31 30 30 2C 58 53 2C 59 53 2C 54 59 00 |60,100,XS,YS,TY.|
00001550: 74 1D 9B 05 58 53 B2 31 36 30 AA BF 28 42 54 29 |t...XS.160..(BT)|
00001560: AC 39 35 3A 58 31 B2 31 36 30 AA BF 28 42 54 29 |.95:X1.160..(BT)|
00001570: AC 31 30 32 00 99 1D A0 05 59 53 B2 31 30 30 AB |.102.....YS.100.|
00001580: BE 28 42 54 29 AC 39 35 3A 59 31 B2 31 30 30 AB |.(BT).95:Y1.100.|
00001590: BE 28 42 54 29 AC 31 30 35 00 B1 1D A5 05 64 03 |.(BT).105.....d.|
000015A0: 20 31 36 30 2C 31 30 30 2C 58 53 2C 59 53 2C 54 | 160,100,XS,YS,T|
000015B0: 59 00 C6 1D AA 05 64 0B 20 58 31 2C 59 31 2C 32 |Y.....d. X1,Y1,2|
000015C0: 34 2C 54 59 2C 31 00 DF 1D AF 05 64 03 20 31 36 |4,TY,1.....d. 16|
000015D0: 30 2C 31 30 30 2C 31 36 30 2C 31 30 2C 54 59 00 |0,100,160,10,TY.|
000015E0: F4 1D B4 05 64 0B 20 31 35 35 2C 30 2C 32 36 2C |....d. 155,0,26,|
000015F0: 54 59 2C 31 00 01 1E BE 05 64 70 32 3A 89 34 38 |TY,1.....dp2:.48|
00001600: 30 00 07 1E DC 05 8F 00 14 1E DD 05 8F 20 48 41 |0............ HA|
00001610: 52 44 64 77 00 1A 1E DE 05 8F 00 2E 1E E1 05 64 |RDdw...........d|
00001620: 6F 20 35 2C 35 2C 44 24 2C 30 2C 30 2C 37 00 41 |o 5,5,D$,0,0,7.A|
00001630: 1E E6 05 44 24 B2 22 48 41 52 44 43 4F 50 59 3E |...D$."HARDCOPY>|
00001640: 22 00 55 1E EB 05 64 6F 20 35 2C 35 2C 44 24 2C |".U...do 5,5,D$,|
00001650: 31 2C 30 2C 38 00 5D 1E F0 05 64 70 32 00 64 1E |1,0,8.]...dp2.d.|
00001660: F5 05 64 77 00 78 1E FA 05 64 6F 20 35 2C 35 2C |..dw.x...do 5,5,|
00001670: 44 24 2C 30 2C 30 2C 38 00 82 1E FF 05 89 20 34 |D$,0,0,8...... 4|
00001680: 38 30 00 00 00 |80... |
.. ...: .".":. 53280,0:. 53281,0.B.....1
0)".NORMALE AXONOMETRIE :".M...."DIESES
PROGRAMM STELLT EBENFLAECHIG"......"BEGR
ENZTE KOERPER,NACH EINGABE BZW EINLE".M.
#.."SEN DER ECKPUNKTE UND DER VERBINDUNG
SVOR"...(.."SCHRIFT IN NORMALER AXONOMET
RIE DAR.".&.-.."HIERBEI KANN DAS ACHSENK
REUZ BELIEBIG".>.2.."GEWAELHT WERDEN.".L
.7.."ALLETRDINGS BLEIBT DER URSPRUNG IN
DER"...<.."BILDSCHIRMMITTE."...A.."NACH
DEM ZEICHNEN DER FIGUR ERSCHEINT"...F.."
IN DER LINKEN OBEREN ECKE <FERTIG> UND".
..K.."MAN KOMMT DAN MIT <F1> ODER <RETUR
N> IN".%.L.."DAS HAUPTMENUE.".T.P.."DIE
ERSTELLTEN KOERPER KONNEN DANN AUCH".Z.U
.."AUF DISK ABGESPEICHERT WERDEN."...Z..
".".11)"< TASTE DRUECKEN >"..._.. 198,0
: . 198,1.U.D..:. PT(100,3),ZP(100),PA(1
00,3)...I.."..SOLL DER KOERPER VON DISK
EINGELESSEN"...N.."WERDEN <J/N> ?".5.S..
A$ : . A$."J" . 1000.I.X.. A$.."N" . 11
5.S.}..".BITTE UM DIE EINGABE DER EINZEL
EN"...~.."ECKPUNKTE MIT DREI KOORDINATEN
(X,Y,Z)".N..."BEI X='ENDE' WIRD DIE EI
NGABE BEENDET"......"BEI X='&' KANN DER
VORIGE PUNKT NOCHEIN"......"MAL EINGEBEN
WERDEN.".V...."("A")"; : . PX$,PY,PZ :
PX.E(PX$) : . PX$."ENDE" . 200.G...PT(A,
1) . PX.X...PT(A,2) . PY.....PT(A,3) . P
Z.....PA(A,1) . PT(A,1)... .PA(A,2) . PT
(A,2).K...PA(A,3) . PT(A,3).....A.A.1 :
. 130...H.....I.. VERBINDUNGSORNUNG...J.
..9.M.EP . A.1 : .".IN WELCHER REIHENFOL
GE SOLLEN WELCHE".Z.R.."PUNKTE VERBUNDEN
WERDEN ?"...W.."'ENDE' BEENDET DIE EING
ABE WIEDER."......"'&' LAESST DIE KORREK
TUR DER VORIGIGEN ".F...."EINGABE ZU."..
...."AUSGANGSPUNKT";A.....ZP(0).A.....B.
1 : ."."......"VON ("A") NACH : "; : . A
$ : . A$. "ENDE" . 270.R.... A$."&" . B.
B.1 : A.A1 : . 245.G...A1.A : A.E(A$) :.
S...ZP(B).A.....B.B.1 : . 245.....SP.B.1
...,.....-.. KOORDINATENSYSTEM FESTLEGEN
.........1..".BESTIMMEN SIE NUN DAS ACHS
ENKREUZ."...6.."GEBEN SIE DIE WINKEL ZWI
SCHEN :"...;.."..".(.@.. .19)".".6.E.. .
19)".".K.J.."Z- UND Y-ACHSE ";.19)"NM";.
24)Z. UND Z.ACHSE "...O.. .18)"N M".24)
"EIN."...Y.. .17)"N M"...^...O.C..".A
LPHA = 120";AL:..25);:.".BETA = 120";BT.
..H.AL.AL.X.180............ ZEICHEN RDI
NE...........D. 5,0.....A.ZP(0).@...XA.1
60 . .(AL).PT(A,2)..(BT).PT(A,1).O...YA.
100.PT(A,3)..(AL).PT(A,2)..(BT).PT(A,1).
~.... B.1 . SP.....A.ZP(B).N...XS.160..(
AL).PT(A,2)..(BT).PT(A,1):. XS.319 . XS.
319:.XS.0.XS.0.....YS.100.PT(A,3)..(AL).
PT(A,2)..(BT).PT(A,1):.YS.199 . YS.199..
.... YS.0 .YS.0.4...D. XA,YA,XS,YS,1.D.B
.XA.XS:YA.YS.J.G...\.L.. KO.1 . 1410.N..
.D$."<FERTIG>".....DO 5,5,D$,1,0,7......
A$:. A$..G(133) . A$.. G(13) . 490.....
..B.... HAUPTMENUE.H.........DG:.".".10)
"HAUPMENUE :"......"(1) = NEUES ACHSENKR
EUZ".)...."(2) = DREHUNG DER FIGUR UM 00
".P...."(3) = AUSGANSZUSTAND HERSTELLEN"
.S...."(4) = VERSCHIEBEN DER FIGUR".....
."(5) = KOORDINATENACHSEN EINZEICHNEN".H
.!.."(6) = ABSPEICHERN DER KOERPERDATEN"
...&.."(7) = HARDCOPY AUF DRUCKER"...+..
"(8) = NEUER START".#.0.."(9) = ZUR GRAF
IK ZURUECK".5.D.."(0) = ENDE".^.I.. A$:.
A$."0" . A$."9" . A$."" . 585...N.. E(A
$) . 300,600,800,1300,1400,1100,1500,100
,1220...S.....X.. DREHUNG DER FIGUR UM 0
0.Z.B.."..DREHUNG DER FIGUR UM 00"...G..
"BITTE WAEHLEN SIE AUS :"...L.."(1) = DR
EHUNG UM DIE Z-ACHSE.".C.Q.."(2) = DREHU
NG UM DIE Y-ACHSE.".H.V.."(3) = DREHUNG
UM DIE X-ACHSE."...{.. A:. A.1 . A.3 . 6
35...|.Z.5.2.A:D. Z,3,29,1.L.... .7)"BIT
TE DREHWINKEL :";:. DE : DE.DE.X.180....
.. A . 650,700,750............ UM DIE Z-
ACHSE...... X.0 . EP.W...EO.A(PT(X,1).(P
T(X,2).1E.32)).X.(PT(X,2)..0).2.X.(PT(X,
1).0.PT(X,2).0).Z...EO.EO.DE:. EO..2.X .
EO.EO.2.X.....R..(PT(X,1).2.PT(X,2).2).
....PT(X,1)..(EO).R.....PT(X,2)..(EO).R.
E.....O.... 790...... UM DIE Y-ACHSE...A
.. X.0 . EP.@.F.EO.ANT(PT(X,3).(PT(X,1).
1E.32)).X.(PT(X,1)..0).2.X.(PT(X,3).0.PT
(X,1).0).C.K.EO.EO.DE:. EO..2.X . EO.EO.
2.X...P.R..(PT(X,1).2.PT(X,3).2)...U.PT(
X,1)..(EO).R...Z.PT(X,3)..(EO).R........
.... 790.......S.... UM DIE X-ACHSE.....
PT(X,2)..(EO).R.4...EO.ANT(PT(X,2).(PT(X
,3).1E.32)).X.(PT(X,3)..0).2.X.(PT(X,2).
0.PT(X,3).0).W...EO.EO.DE:. EO..2.X . EO
.EO.2.X.T...R..(PT(X,2).2.PT(X,3).2)....
.PT(X,3)..(EO).R...........DP2:.400... .
. AUSGANGSZUSTAND...!...F.*.. X.0 . EP.T
.4.. Y.1 . 3...>.PT(X,Y).PA(X,Y)...H..Y,
X...R.. 400............ DATEN VAN DER DR
HOLEN.$.....1.... 1,8,15.Y...."BITTE DA
TEINAMEN :";:. NS$:N$.NS$.L...NS$.NS$.",
S,R".|.... 2,8,2,NS$...... 1250. .... F1
.62 . 2:. 1015.C...."EINLESEN DER DATE
N VON :";N$.M....2,EP.W....2,SP...... X.
0 . EP...... Y.1 . 3...$..2,PT(X,Y) : PA
(X,Y).PT(X,Y)...).. Y.(.... 1250.0.3.. X
.?.8.. X.0 . SP.L.=..2,ZP(X).T.B.. X._.G
.. 1250.O.I. 2: 1:.300.V.L.DG.|.M.....V
..".KOERPERDATEN AUF DISK:"...J.."BITTE
DATEINAMEN :";:. NS$.I.T.. 1,8,15...~.NS
$.NS$.",S,W"...... 2,8,2,NS$......2,EP:.
2,SP...... X.0.EP...... Y.1.3.$....2,PT(
X,Y).,.... Y.7.... 1250.?.... X.M.... X.
0TPSP.Z....2,ZP(X).`.....K.... 1250..D.
2: 1:DP2:.490............ FEHLERKANAL.
...........1,F1,F1$,F2,F3:. F1.0 . ..Y..
.."FEHLER AUF DER DISK !"......"BITTE MI
T <RETURN> BESTAETIGEN,ODER MIT".0...."<
SPACE> DAS PROGRAMM ABBRECHEN !".F....A$
:.A$.G(13) . ..].... AN$..G(32). 1280.F.
.. 1:..L.......... VERSCHIEBEN DER FIGUR
............".VERSCHIEBEN DER FIGUR:".Y.
..."BITTE UM DEN VERSCHIEBEVEKTOR IN DER
"...#.."FORM 'X,Y,Z' !"...(.."VEKTOR :";
PX,PY,PZ.#.*.."BITTE ETWAS GEDULD.".2.-.
. A.0 . EP.I.7.PT(A,1).PT(A,1).PX.`.<.PT
(A,2).PT(A,2).PY.W.A.PT(A,3).PT(A,3).PZ.
.F.. A...P..400...X.....Y.. KOORDINATEN
ACHSEN...Z...J.}.. KO.1 . TY.0:KO.0:. 14
15.X...KO.1:TY.1.....XS.160..(AL).95:X1.
160..(AL).105."...YS.100..(AL).95:Y1.100
..(AL).105.7...D. X1,Y1,25,TY,1.O...D. 1
60,100,XS,YS,TY.T...XS.160..(BT).95:X1.1
60..(BT).102... .YS.100..(BT).95:Y1.100.
.(BT).105.....D. 160,100,XS,YS,TY.F...D.
X1,Y1,24,TY,1.....D. 160,100,160,10,TY.
....D. 155,0,26,TY,1.....DP2:.480.......
..... HARDDW...........DO 5,5,D$,0,0,7.A
...D$."HARDCOPY>".U...DO 5,5,D$,1,0,8.].
..DP2.D...DW.X...DO 5,5,D$,0,0,8...... 4
80...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL