1 GOTO100 3 : " [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 4 : " (null) *** MATHEFIX *** (null) 5 : " [221] [221] 6 : " (null) EIN PROGRAMM VON (null) 7 : " [221] [221] 8 : " (null) JUERGEN RIEHN + THOMAS LANGER (null) 9 : " [221] GARLESSTR.22 NEUHAUSERST.20[221] 10 :" (null) 8677 SELBITZ 8677 SELBITZ (null) 11 :" [221] 08280/1063 09280/5335 [221] 12 :" (null) (null) 13 :" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 14 : 15 [143] [255] IST DAS ZEICHEN PI 100 [143] TITELBILD 105 [134]X(20) 110 [141]18200:[129]I[178]1[164]2000:[130] 1000 [143] HAUPTMENUE 1010 [141]18000 1020 do85,50,"- 1 - (null)EKTOREN",1,1,12 1030 do85,65,"- 2 - CHR$ERADEN",1,1,12 1033 do85,80,"- 3 - CHR$ERADE/VALBENE",1,1,12 1040 do85,95,"- 4 - VALBENE",1,1,12 1050 do85,110,"- 5 - VALBENE/VALBENE",1,1,12 1060 do85,135,"- 6 - VALCLOSE(null)CLOSESTR$CLOSEVAL",1,1,12 1070 do85,160,"- 7 - ATNNLEITUNG",1,1,12 1075 d23,110,55,89,1 1076 d54,89,48,89,1 1077 d54,89,54,95,1 1078 do53,81,"ATN",1,1,9 1079 do18,113,"PEEK",1,1,9 1080 [141]18600 1090 X[178][197](A$):X[178][181](X):[139]X[177]7 [176] X[179]1[167]1080 1100 [145] X [137]1200,1300,1400,1500,1600,1700,18300 1200 [143] VEKTORMENUE 1210 [141]18000 1220 do75,50,"- 1 - 2 (null)UNKTE",1,1,12 1230 do75,70,"- 2 - 1 (null)EKTOR",1,1,12 1240 do75,90,"- 3 - 2 (null)EKTOREN",1,1,12 1250 do75,110,"- 4 - 3 (null)EKTOREN",1,1,12 1260 do75,145,"- 5 - (null) E N U E",1,1,12 1270 [141]18600 1280 X[178][197](A$):X[178][181](X):[139]X[177]5 [176] X[179]1 [167]1270 1290 [145] X [141]2000,2100,2200,2300,1000 1300 [143] GERADENMENUE 1310 [141]18000 1320 do75,60,"- 1 - 1 CHR$ERADE",1,1,12 1330 do75,80,"- 2 - 2 CHR$ERADE",1,1,12 1340 do75,100,"- 3 - CHR$ERADE/(null)UNKT",1,1,12 1350 do75,140,"- 4 - LEFT$AUPTMENUE",1,1,12 1360 [141]18600:X[178][197](A$):X[178][181](X):[139]X[179]1[176]X[177]4[167]1360 1370 [145]X[137]2400,2500,2600,1000 1400 [143] E/G 1401 [141]18000:do1,40,"CHR$EBEN (null)IE DIE CHR$ERADE EIN:",1,1,12 1402 do40,65,"(null)=",1,2,12 1403 do160,65,"+A",1,2,12 1404 do70,55,"(",1,5,9 1405 do190,55,"(",1,5,9 1406 do140,55,")",1,5,9 1417 do260,55,")",1,5,9 1420 d39,61,51,61,1 1430 d53,61,47,64,1 1431 d53,61,47,58,1 1440 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11 1441 [141]19000:[139]X$[178]"LET"[167]1000 1442 X(I)[178][197](X$):I[178]I[170]1:[130] 1450 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11 1451 [141]19000:[139]X$[178]"LET"[167]1000 1452 X(I)[178][197](X$):I[178]I[170]1:[130] 1453 [139]X(4)[178]0[175]X(5)[178]0[175]X(6)[178]0[167][141]18550:[141]18600:[141]18560:[137]1400 1454 do1,100,"VALBENE IN (null)ORMALENFORM:",1,1,12 1455 do40,140,"(",1,5,9:do110,140,")",1,5,9:do130,155,"=",1,1,9 1456 do10,155,"N*",1,1,9 1457 X[178]55:I[178]7:[129]Y[178]90[170]50[164]90[170]80[169]15 1458 [141]19000:[139]X$[178]"LET"[167]1000 1459 X(I)[178][197](X$):I[178]I[170]1:[130] 1466 [139]X(7)[178]0[175]X(8)[178]0[175]X(9)[178]0[167][141]18550:[141]18600:[141]18560:[137]1400 1467 X[178]140:Y[178]155:[141]19000:X(10)[178][197](X$) 1468 [141]28500:[141]18600:[141]18000 1470 G1[178]X(1):G2[178]X(2):G3[178]X(3):UX[178]X(4):UY[178]X(5):UZ[178]X(6):N1[178]X(7):N2[178]X(8):N3[178]X(9) 1471 C[178]X(10) 1472 [141]30200:G$[178]X$:[141]18700:F$[178]X$:[139]G$[178]"E"[176]G$[178]"P"[167]1480 1473 do8,50," (null) ( / / )",1,2,12 1474 do10,100,"(null)INKEL=",1,1,12 1475 do170,100,"CHR$RAD",1,1,12 1476 X[178]GX:[141]18700:do60,53,X$,1,1,9 1477 X[178]GY:[141]18700:do60[170]85,53,X$,1,1,9 1478 X[178]GZ:[141]18700:do60[170]2[172]85,53,X$,1,1,9 1479 do110,100,F$,1,1,9:[137]1498 1480 do30,140,"ATNBSTAND:",1,1,10 1481 X[178]SP:[141]18700:do111,140,X$,1,1,9 1482 do49,160,"CHR$ERADE PARALLEL ZUR VALBENE",1,1,9 1498 [141]18500:[141]18600:[139]A$[178]" "[167]1400 1499 [137]1000 1500 [143] EBENEN 1510 [141]18000 1520 do75,80,"- 1 - VALBENE/(null)UNKT",1,1,12 1530 do75,100,"- 2 - 1 VALBENE",1,1,12 1540 do75,140,"- 3 - LEFT$AUPTMENUE",1,1,12 1550 [141]18600:X[178][181]([197](A$)) 1570 [145]X[137]2700,2800,1000 1600 [143] EBENE/EBENE 1601 [141]18000:OP[178]1 1602 [129]M[178][171]20[164]40[169]60 1603 [139]M[178]40[167]OP[178]5 1610 do1,40[170]30[170]M,"VALBENE IN (null)ORMALENFORM:",1,1,13 1611 do40,90[170]M,"(",1,5,9:do110,90[170]M,")",1,5,9:do130,105[170]M,"=",1,1,9 1612 do10,105[170]M,"N*",1,1,9 1613 X[178]55:I[178]OP:[129]Y[178]90[170]M[164]90[170]28[170]M[169]14 1614 [141]19000:[139]X$[178]"LET"[167]1000 1615 X(I)[178][197](X$):I[178]I[170]1:[130] 1616 [139]X(OP)[178]0[175]X(OP[170]1)[178]0[175]X(2[170]OP)[178]0[167][141]18550:[141]18600:[141]18560:[137]1600 1617 X[178]140:Y[178]105[170]M:[141]19000:X(3[170]OP)[178][197](X$) 1618 [130]M 1619 N1[178]X(1):N2[178]X(2):N3[178]X(3):CE[178]X(4):M1[178]X(5):M2[178]X(6):M3[178]X(7):CF[178]X(8):[141]30600 1620 [139]X$[178]"U"[167][141]17500:[141]18600:[137]1000 1621 G$[178]X$:[141]18700:R$[178]X$:X[178]EF:[141]18700:EF$[178]X$ 1650 [141]28500:[141]18600:[141]18000:[139]G$[178]"P"[167]1680 1651 do1,40,"(null)CHNITTGERADE DER VALBENEN:",1,1,12 1652 do40,65,"(null)=",1,2,12 1654 do70,55,"(",1,5,9 1655 do190,55,"(",1,5,9 1656 do140,55,")",1,5,9 1657 do260,55,")",1,5,9 1658 d39,61,51,61,1:do160,65,"+A",1,2,12 1660 d53,61,47,64,1 1661 d53,61,47,58,1 1671 X[178]S1:[141]18700:do85,55,X$,1,1,9 1672 X[178]S2:[141]18700:do85,66,X$,1,1,9 1673 X[178]S3:[141]18700:do85,77,X$,1,1,9 1674 X[178]S4:[141]18700:do205,55,X$,1,1,9 1675 X[178]S5:[141]18700:do205,66,X$,1,1,9 1676 X[178]S6:[141]18700:do205,77,X$,1,1,9 1680 [139]G$[178]"P"[167] do1,100,"STR$IE VALBENEN SIND PARALLEL !",1,1,12 1681 [139]G$[178]"S"[167] do1,100,"STR$IE VALBENEN SIND SENKRECHT !",1,1,12 1682 [139]G$[179][177]"S"[175]G$[179][177]"P"[167] do10,120,"(null)CHNITTWINKEL =",1,1,12 1683 [139]G$[179][177]"S"[175]G$[179][177]"P"[167]do245,120,"CHR$RAD",1,1,12:do185,120,R$,1,1,9 1684 [139]G$[178]"P"[175]EF[179][177]0[167]do30,140,"ATNBSTAND:",1,1,10:do123,140,EF$,1,1,9 1697 [141]18500:[141]18600:[139]A$[178]" "[167]1600 1698 [137]1000 1700 [153]"LOAD";" AUF WIEDERSEHEN !" 1710 [153]" JUERGEN RIEHN" 1720 [153]" THOMAS LANGER" 1730 [128] 2000 [143] 2 PUNKTE 2001 [141]18000 2002 do1,40,"CHR$EBEN (null)IE DIE (null)UNKTE EIN:",1,1,12 2010 do8,50," ATN ( / / )",1,2,12 2020 do8,70," PEEK ( / / )",1,2,12 2021 Y[178]53:I[178]1:[129]X[178]60[164]60[170]2[172]85[169]85 2022 [141]19000:[139]X$[178]"LET"[167]1200 2023 X(I)[178][197](X$) 2024 I[178]I[170]1:[130] 2025 Y[178]74:I[178]1 2026 [129]X[178]60[164]60[170]2[172]85[169]85 2027 [141]19000:[139]X$[178]"LET"[167]1200 2028 Y(I)[178][197](X$) 2029 I[178]I[170]1:[130] 2030 do75,140,"ATNPEEK =",1,2,10 2031 do127,130,"(",1,5,1 2032 do207,130,")",1,5,1 2040 d74,135,74[170]22,135,1 2045 d96,136,92,139,1 2046 d96,136,92,133,1 2060 A1[178]X(1):A2[178]X(2):A3[178]X(3):B1[178]Y(1):B2[178]Y(2):B3[178]Y(3) 2070 [141]24600 2071 X[178]X1:[141]18700:do143,132,X$,1,1,9 2072 X[178]X2:[141]18700:do143,132[170]11,X$,1,1,9 2073 X[178]X3:[141]18700:do143,132[170]22,X$,1,1,9 2090 [141]18500 2091 [141]18600 2092 [139] A$[178]" "[167]2000 2093 [137]1200 2100 [143] 1 VEKTOR 2101 [141]18000 2102 do1,40,"CHR$EBEN (null)IE DEN (null)EKTOR EIN:",1,1,13 2103 do100,65,"(null)=",1,2,12 2104 do130,55,"(",1,5,9:do60,147,"(",1,5,9 2105 do200,55,")",1,5,9:do130,147,")",1,5,9 2106 do10,100,"(null)INKEL(XY)=",1,1,12 2107 do10,125,"(null)(null)(null)=",1,1,12 2108 do22,160,"(null) =",1,1,12 2110 d99,61,111,61,1:do125,125,"(null)VAL",1,1,12 2111 d113,61,107,64,1 2112 d113,61,107,58,1 2113 d21,121,33,121,1 2114 d36,121,29,118,1 2115 d36,121,29,124,1 2116 d21,155,33,155,1 2117 d36,155,29,152,1 2118 d36,155,29,158,1 2119 do33,155,"O",1,1,9 2120 do200,100,"CHR$RAD",1,1,12 2121 X[178]145:I[178]1:[129]Y[178]55[164]55[170]22[169]11 2122 [141]19000:[139]X$[178]"LET"[167]1200 2123 X(I)[178][197](X$):I[178]I[170]1:[130] 2124 [139][182](X(1))[170][182](X(2))[170][182](X(3))[178]0[167][141]18550:[141]18600:[141]18560:[137]2100 2125 A1[178]X(1):A2[178]X(2):A3[178]X(3): 2126 B1[178]0:B2[178]0:B3[178]1:[141]25090:[141]24500:X[178][182](90[171]X):[141]18700 2127 do145,100,X$,1,1,9 2128 [141]25020:[143] BETRAG 2129 X[178]A:[141]18700:do60,125,X$,1,1,9 2130 [141]25000:[143] EINHEITSVEKTOR 2131 X[178]X1:[141]18700:do75,147,X$,1,1,9 2132 X[178]X2:[141]18700:do75,158,X$,1,1,9 2133 X[178]X3:[141]18700:do75,169,X$,1,1,9 2134 [141]18500:[141]18600 2135 [139]A$[178]" "[167]2100 2190 [137]1200 2200 [143] 2 VEKTOREN 2201 [141]18000:do1,40,"CHR$EBEN (null)IE DIE (null)EKTOREN EIN:",1,1,12 2202 do40,65,"ATN=",1,2,12 2203 do160,65,"PEEK=",1,2,12 2204 do70,55,"(",1,5,9 2205 do190,55,"(",1,5,9 2206 do140,55,")",1,5,9 2207 do260,55,")",1,5,9 2213 do12,150,"ATN O PEEK=",1,1,11 2215 do172,150,"ATN X PEEK=",1,1,11 2216 do245,137,"(",1,5,9:do305,137,")",1,5,9 2220 d39,61,51,61,1 2230 d53,61,47,64,1 2231 d53,61,47,58,1 2232 d120[170]39,61,51[170]120,61,1 2233 d120[170]53,61,47[170]120,64,1 2234 d120[170]53,61,47[170]120,58,1:A[178]45 2235 d11,146,22,146,1:d11[170]A,146,22[170]A,146,1 2236 d24,146,21,143,1:d24[170]A,146,21[170]A,143,1 2237 d24,146,21,149,1:d24[170]A,146,21[170]A,149,1 2238 [139] A[178]45 [167]A[178]160:[137]2235 2239 [139] A[178]160 [167]A[178]205:[137]2235 2240 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11 2241 [141]19000:[139]X$[178]"LET"[167]1200 2242 X(I)[178][197](X$):I[178]I[170]1:[130] 2243 [139]X(1)[178]0[175]X(2)[178]0[175]X(3)[178]0[167][141]18550:[141]18600:[141]18560:[137]2200 2250 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11 2251 [141]19000:[139]X$[178]"LET"[167]1200 2252 X(I)[178][197](X$):I[178]I[170]1:[130] 2253 [139]X(4)[178]0[175]X(5)[178]0[175]X(6)[178]0[167][141]18550:[141]18600:[141]18560:[137]2200 2260 A1[178]X(1):A2[178]X(2):A3[178]X(3):B1[178]X(4):B2[178]X(5):B3[178]X(6) 2261 [141]25160 2262 [139]X$[178]"P"[167]:do10,100,"STR$IE (null)EKTOREN SIND PARALLEL !",1,1,11:[137]2290 2263 [139]X$[178]"S"[167]:do10,100,"STR$IE (null)EKTOREN SIND SENKRECHT !",1,1,10:[137]2290 2264 do10,100,"(null)CHNITTWINKEL:",1,1,12 2265 do245,100,"CHR$RAD",1,1,12 2268 X[178][197](X$):[141]18700:do180,100,X$,1,1,9 2290 [141]25050:[141]18700:do80,150,X$,1,1,9:do10,115,"ASCLAECHE:",1,1,12 2291 [141]25110:X[178]X1:[141]18700 2292 do250,137,X$,1,1,9:do170,115,"ASCVAL",1,1,12 2293 X[178]X2:[141]18700:do250,148,X$,1,1,9 2294 X[178]X3:[141]18700:do250,159,X$,1,1,9 2295 [141]25140:X[178]A:[141]18700 2296 do110,115,X$,1,1,9 2297 [141]18500:[141]18600:[139]A$[178]" "[167]2200 2298 [137]1200 2300 [143] 3 VEKTOREN 2301 [141]18000:do1,40,"CHR$EBEN (null)IE DIE (null)EKTOREN EIN:",1,1,12 2302 do5,65,"ATN=",1,2,12 2303 do115,65,"PEEK=",1,2,12 2304 do35,55,"(",1,5,9 2305 do142,55,"(",1,5,9 2306 do105,55,")",1,5,9 2307 do212,55,")",1,5,9 2308 do223,65,"LEN=",1,2,12 2309 do243,55,"(",1,5,9 2310 do313,55,")",1,5,9:A[178]0 2311 d4[170]A,61,16[170]A,61,1 2312 d19[170]A,61,18[170]A[171]4,64,1 2313 d19[170]A,61,18[170]A[171]4,58,1 2314 [139] A[178]0[167]A[178]110:[137]2311 2315 [139] A[178]110 [167]A[178]220:[137]2311 2340 X[178]50:I[178]1:[129]Y[178]55[164]55[170]22[169]11 2341 [141]19000:[139]X$[178]"LET"[167]1200 2342 X(I)[178][197](X$):I[178]I[170]1:[130] 2343 [139]X(1)[178]0[175]X(2)[178]0[175]X(3)[178]0[167][141]18550:[141]18600:[141]18560:[137]2300 2350 X[178]157:I[178]4:[129]Y[178]55[164]55[170]22[169]11 2351 [141]19000:[139]X$[178]"LET"[167]1200 2352 X(I)[178][197](X$):I[178]I[170]1:[130] 2353 [139]X(4)[178]0[175]X(5)[178]0[175]X(6)[178]0[167][141]18550:[141]18600:[141]18560:[137]2300 2360 X[178]258:I[178]7:[129]Y[178]55[164]55[170]22[169]11 2361 [141]19000:[139]X$[178]"LET"[167]1200 2362 X(I)[178][197](X$):I[178]I[170]1:[130] 2363 [139]X(7)[178]0[175]X(8)[178]0[175]X(9)[178]0[167][141]18550:[141]18600:[141]18560:[137]2300 2364 [141]25300 2365 [139]D[178]0[167]:do3,120,"STR$IE (null)EKTOREN SIND KOMLANAR !",1,1,11 2366 [139]D[179][177]0[167]do7,120,"STR$= (null)OLUMEN= (null)VAL",1,1,11 2367 [139]D[179][177]0[167]X[178]D:[141]18700:do38,120,X$,1,1,9 2368 [139]D[179][177]0[167]X[178][182](D):[141]18700 2369 [139]D[179][177]0[167]do221,120,X$,1,1,9 2397 [141]18500:[141]18600:[139]A$[178]" "[167]2300 2398 [137]1200 2400 [143] 1 GERADE 2401 [141]18000:do1,40,"CHR$EBEN (null)IE DIE CHR$ERADE EIN:",1,1,12 2402 do40,65,"(null)=",1,2,12 2403 do160,65,"+A",1,2,12 2404 do70,55,"(",1,5,9 2405 do190,55,"(",1,5,9 2406 do140,55,")",1,5,9 2407 do260,55,")",1,5,9 2408 X1$[178]"":X2$[178]"":X3$[178]"" 2420 d39,61,51,61,1 2430 d53,61,47,64,1 2431 d53,61,47,58,1 2440 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11 2441 [141]19000:[139]X$[178]"LET"[167]1300 2442 X(I)[178][197](X$):I[178]I[170]1:[130] 2450 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11 2451 [141]19000:[139]X$[178]"LET"[167]1300 2452 X(I)[178][197](X$):I[178]I[170]1:[130] 2453 [139]X(4)[178]0[175]X(5)[178]0[175]X(6)[178]0[167][141]18550:[141]18600:[141]18560:[137]2400 2455 [141]28500:N1[178]0:N2[178]0:N3[178]1:C[178]0:G1[178]X(1):G2[178]X(2):G3[178]X(3):UX[178]X(4):UY[178]X(5):UZ[178]X(6) 2456 [141]30200:[141]18700:do138,120,X$,1,1,9:do10,120,"(null)INKEL(XY)=",1,1,12 2457 do200,120,"CHR$RAD",1,1,12:[141]18600 2458 AX[178]X(1):AY[178]X(2):AZ[178]X(3):UX[178]X(4):UY[178]X(5):UZ[178]X(6):[141]28600 2459 [129]I[178]1[164]9:X[178]Z(I):[141]18700:Z$(I)[178]X$:[130] 2460 [141]18000 2461 do10,40,"(null)PURPUNKTE:",1,1,12 2462 [139]X1$[179][177]"N"[167]:do8,60," (null)(null)( / / )",1,2,12 2463 [139]X2$[179][177]"N"[167]:do8,90," (null)(null)( / / )",1,2,12 2464 [139]X3$[179][177]"N"[167]:do8,120," (null)(null)( / / )",1,2,12 2465 [139]X1$[179][177]"N"[167][129]I[178]0[164]2:do53[170]I[172]85,63,Z$(I[170]1),1,1,9:[130] 2466 [139]X2$[179][177]"N"[167][129]I[178]0[164]2:do53[170]I[172]85,93,Z$(I[170]4),1,1,9:[130] 2467 [139]X3$[179][177]"N"[167][129]I[178]0[164]2:do53[170]I[172]85,123,Z$(I[170]7),1,1,9:[130] 2497 [141]18500:[141]18600:[139]A$[178]" "[167]2400 2498 [137]1300 2500 [143] 2 GERADE 2501 [141]18000:do1,40,"CHR$EBEN (null)IE DIE CHR$ERADEN EIN:",1,1,12:G$[178]"" 2502 do40,65,"(null)=",1,2,12 2503 do160,65,"+A",1,2,12 2504 do70,55,"(",1,5,9 2505 do190,55,"(",1,5,9 2506 do140,55,")",1,5,9 2507 do260,55,")",1,5,9 2512 do40,125,"(null)=",1,2,12 2513 do160,125,"+B",1,2,12 2514 do70,115,"(",1,5,9 2515 do190,115,"(",1,5,9 2516 do140,115,")",1,5,9 2517 do260,115,")",1,5,9 2520 d39,61,51,61,1 2530 d53,61,47,64,1 2531 d53,61,47,58,1 2532 d39,121,51,121,1 2533 d53,121,47,124,1 2534 d53,121,47,118,1 2540 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11 2541 [141]19000:[139]X$[178]"LET"[167]1300 2542 X(I)[178][197](X$):I[178]I[170]1:[130] 2550 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11 2551 [141]19000:[139]X$[178]"LET"[167]1300 2552 X(I)[178][197](X$):I[178]I[170]1:[130] 2553 [139]X(4)[178]0[175]X(5)[178]0[175]X(6)[178]0[167][141]18550:[141]18600:[141]18560:[137]2500 2560 X[178]85:I[178]7:[129]Y[178]115[164]115[170]22[169]11 2561 [141]19000:[139]X$[178]"LET"[167]1300 2562 X(I)[178][197](X$):I[178]I[170]1:[130] 2570 X[178]205:I[178]10:[129]Y[178]115[164]115[170]22[169]11 2571 [141]19000:[139]X$[178]"LET"[167]1300 2572 X(I)[178][197](X$):I[178]I[170]1:[130] 2573 [139]X(10)[178]0[175]X(11)[178]0[175]X(12)[178]0[167][141]18550:[141]18600:[141]18560:[137]2500 2575 [141]28500 2580 [141]18600 2581 [141]18000 2583 do10,100,"(null)INKEL(XY)=",1,1,12 2584 do200,100,"CHR$RAD",1,1,12 2585 AX[178]X(1):AY[178]X(2):AZ[178]X(3):UX[178]X(4):UY[178]X(5):UZ[178]X(6) 2586 BX[178]X(7):BY[178]X(8):BZ[178]X(9):VX[178]X(10):VY[178]X(11):VZ[178]X(12):[141]29200:A[178]T:A$[178]G$ 2587 [139]A[179][177]0[175]A$[179][177]"W"[167]do8,50," (null) ( / / )",1,2,12 2588 X[178]SX:[141]18700:SX$[178]X$:X[178]SY:[141]18700:SY$[178]X$:X[178]SZ:[141]18700:SZ$[178]X$ 2589 [139]A[179][177]0[175]A$[179][177]"W"[167]do60,53,SX$,1,1,9:do145,53,SY$,1,1,9 2590 [139]A[179][177]0[175]A$[179][177]"W"[167]do230,53,SZ$,1,1,9 2591 X[178]T:[141]18700:do140,100,X$,1,1,9 2592 [139]A$[178]"P"[167]do10,140,"STR$IE CHR$ERADEN SIND PARALLEL",1,1,9 2593 [139]A$[178]"W"[167]do10,140,"STR$IE CHR$ERADEN SIND WINDSCHIEF",1,1,9 2594 [139]A$[178]"S"[167]do10,140,"STR$IE CHR$ERADEN SIND SENKRECHT",1,1,9 2595 [139]A$[178]"W"[167]do10,160,"ATNBSTAND:",1,1,9:X[178]FP:[141]18700:do100,160,X$,1,1,12 2596 [139]A$[178]"P"[167]do10,160,"ATNBSTAND:",1,1,9:X[178]FP:[141]18700:do100,160,X$,1,1,12 2597 [141]18500:[141]18600:[139]A$[178]" "[167]2500 2598 [137]1300 2600 [143] GERADE + PUNKT 2601 [141]18000:do1,40,"CHR$EBEN (null)IE DIE CHR$ERADE EIN:",1,1,12 2602 do40,65,"(null)=",1,2,12 2603 do160,65,"+A",1,2,12 2604 do70,55,"(",1,5,9 2605 do190,55,"(",1,5,9 2606 do140,55,")",1,5,9 2607 do260,55,")",1,5,9 2620 d39,61,51,61,1 2630 d53,61,47,64,1 2631 d53,61,47,58,1 2632 do1,100,"CHR$EBEN (null)IE DEN (null)UNKT EIN:",1,1,13 2633 do8,120," ATN ( / / )",1,2,12 2640 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11 2641 [141]19000:[139]X$[178]"LET"[167]1300 2642 X(I)[178][197](X$):I[178]I[170]1:[130] 2650 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11 2651 [141]19000:[139]X$[178]"LET"[167]1300 2652 X(I)[178][197](X$):I[178]I[170]1:[130] 2653 [139]X(4)[178]0[175]X(5)[178]0[175]X(6)[178]0[167][141]18550:[141]18600:[141]18560:[137]2600 2671 Y[178]123:I[178]7:[129]X[178]60[164]60[170]2[172]85[169]85 2672 [141]19000:[139]X$[178]"LET"[167]1300 2673 X(I)[178][197](X$) 2674 I[178]I[170]1:[130] 2680 do30,140,"ATNBSTAND:",1,1,10 2681 AX[178]X(1):AY[178]X(2):AZ[178]X(3):UX[178]X(4):UY[178]X(5):UZ[178]X(6):P1[178]X(7):P2[178]X(8):P3[178]X(9) 2682 [141]29000:A[178]X 2683 X[178]FP:[141]18700:do145,140,X$,1,1,9 2684 [141]28500:[141]18600:[141]18000 2685 do1,40,"STR$IE SENKRECHTE (null)ROJEKTION:",1,1,12 2686 do8,50," ATN ( / / )",1,2,12 2687 X[178]F1:[141]18700:do60,53,X$,1,1,9 2688 X[178]F2:[141]18700:do60[170]85,53,X$,1,1,9 2689 X[178]F3:[141]18700:do60[170]2[172]85,53,X$,1,1,9:[139]FP[178]0[167]X1[178]0:X2[178]0:X3[178]0 2690 X[178]X1:[141]18700:do55,90,X$,1,1,9 2691 X[178]X2:[141]18700:do55,90[170]15,X$,1,1,9 2692 X[178]X3:[141]18700:do55,90[170]15[172]2,X$,1,1,9 2693 do40,90,"(",1,5,9:do110,90,")",1,5,9:do10,105,"N*",1,1,9 2694 do130,105,"=",1,1,9 2695 X[178]A:[141]18700:do140,105,X$,1,1,9 2697 [141]18500:[141]18600:[139]A$[178]" "[167]2600 2698 [137]1300 2700 [143] EBENE/PUNKT 2701 [141]18000 2702 do1,40,"VALBENE IN (null)ORMALENFORM:",1,1,12 2703 do8,120," (null) ( / / )",1,2,12 2704 do40,70,"(",1,5,9:do110,70,")",1,5,9:do130,85,"=",1,1,9 2705 do10,85,"N*",1,1,9 2706 X[178]55:I[178]1:[129]Y[178]70[164]70[170]28[169]14 2707 [141]19000:[139]X$[178]"LET"[167]1500 2708 X(I)[178][197](X$):I[178]I[170]1:[130] 2709 X[178]140:I[178]4:Y[178]85 2710 [141]19000:[139]X$[178]"LET"[167]1500 2711 X(I)[178][197](X$) 2712 [139]X(1)[178]0[175]X(2)[178]0[175]X(3)[178]0[167][141]18550:[141]18600:[141]18560:[137]2700 2713 Y[178]123:I[178]5:[129]X[178]55[164]55[170]2[172]85[169]85 2714 [141]19000:[139]X$[178]"LET"[167]1500 2715 X(I)[178][197](X$):I[178]I[170]1:[130] 2720 NX[178]X(1):NY[178]X(2):NZ[178]X(3):C[178]X(4):XE[178]X(5):YE[178]X(6):ZE[178]X(7):[141]30000 2750 [141]28500:[141]18600:[141]18000 2751 do1,40,"(null)ROJEKTION VON ATN AUF VALBENE:",1,1,9 2752 do8,50," (null) ( / / )",1,2,12 2753 X[178]GX:[141]18700:do60,53,X$,1,1,9 2754 X[178]GY:[141]18700:do60[170]85,53,X$,1,1,9 2756 X[178]GZ:[141]18700:do60[170]2[172]85,53,X$,1,1,9 2757 do30,140,"ATNBSTAND:",1,1,10 2758 X[178]D:[141]18700:do108,140,X$,1,1,9 2798 [141]18500:[141]18600:[139]A$[178]" "[167]2700 2799 [137]1500 2800 [143] EBENEMENUE 2810 [141]18000 2820 do65,70,"- 1 - (null)ORMALENFORM",1,1,12 2830 do65,90,"- 2 - (null)ARAMETERFORM",1,1,12 2840 do65,130,"- 3 - LEFT$AUPTMENUE",1,1,12 2850 [141]18600:X[178][181]([197](A$)) 2860 [139] X[177]3 [176] X[179]1 [167] 2850 2870 [145] X [137]3300,3100,1000 2995 X[178]FP:[141]18700:do100,160,X$,1,1,9 2996 do100,160,"ATNBSTAND:",1,1,9 3100 [143] PARAMETERFORMEINGABE 3101 [141]18000:do1,40,"VALBENE IN (null)ARAMETERFORM:",1,1,12 3102 do5,65,"(null)=",1,2,12:do115,65,"+A",1,2,12:do35,55,"(",1,5,9 3103 do142,55,"(",1,5,9:do105,55,")",1,5,9:do212,55,")",1,5,9 3104 do223,65,"+B",1,2,12:do243,55,"(",1,5,9:do313,55,")",1,5,9 3105 d4,61,16,61,1 3106 d19,61,18[171]4,64,1 3107 d19,61,18[171]4,58,1 3108 X[178]50:I[178]1:[129]Y[178]55[164]55[170]22[169]11 3109 [141]19000:[139]X$[178]"LET"[167]2800 3110 X(I)[178][197](X$):I[178]I[170]1:[130] 3111 X[178]157:I[178]4:[129]Y[178]55[164]55[170]22[169]11 3112 [141]19000:[139]X$[178]"LET"[167]2800 3113 X(I)[178][197](X$):I[178]I[170]1:[130] 3114 [139]X(4)[178]0[175]X(5)[178]0[175]X(6)[178]0[167][141]18550:[141]18600:[141]18560:[137]3100 3115 X[178]258:I[178]7:[129]Y[178]55[164]55[170]22[169]11 3116 [141]19000:[139]X$[178]"LET"[167]2800 3117 X(I)[178][197](X$):I[178]I[170]1:[130] 3118 [139]X(7)[178]0[175]X(8)[178]0[175]X(9)[178]0[167][141]18550:[141]18600:[141]18560:[137]3100 3150 [141]28500:[141]18600:[141]18000:do1,40,"VALBENE IN (null)ORMALENFORM:",1,1,12 3151 do40,90,"(",1,5,9:do110,90,")",1,5,9:do130,105,"=",1,1,9 3152 do10,105,"N*",1,1,9 3153 E1[178]X(1):E2[178]X(2):E3[178]X(3):E4[178]X(4):E5[178]X(5):E6[178]X(6):E7[178]X(7):E8[178]X(8):E9[178]X(9) 3154 [141]30400 3160 X[178]N1:[141]18700:do55,90,X$,1,1,9 3161 X[178]N2:[141]18700:do55,90[170]15,X$,1,1,9 3162 X[178]N3:[141]18700:do55,90[170]30,X$,1,1,9 3163 X[178]C:[141]18700:do140,105,X$,1,1,9 3164 X(1)[178]N1:X(2)[178]N2:X(3)[178]N3:X(4)[178]C 3198 [141]28500:[141]18600 3199 [137]5000 3300 [143] NORMALENFORMEINGABE 3301 [141]18000 3310 do1,40,"VALBENE IN (null)ORMALENFORM:",1,1,12 3311 do40,90,"(",1,5,9:do110,90,")",1,5,9:do130,105,"=",1,1,9 3312 do10,105,"N*",1,1,9 3313 X[178]55:I[178]1:[129]Y[178]90[164]90[170]30[169]15 3314 [141]19000:[139]X$[178]"LET"[167]2800 3315 X(I)[178][197](X$):I[178]I[170]1:[130] 3316 [139]X(1)[178]0[175]X(2)[178]0[175]X(3)[178]0[167][141]18550:[141]18600:[141]18560:[137]3300 3317 X[178]140:Y[178]105:[141]19000:X(4)[178][197](X$) 3318 [141]28500:[141]18600:[141]18000 3319 N1[178]1:N2[178]0:N3[178]0:CE[178]0:M1[178]X(1):M2[178]X(2):M3[178]X(3):CF[178]X(4):[141]30600 3350 do1,40,"VALBENE IN (null)ARAMETERFORM:",1,1,12 3351 do5,65,"(null)=",1,2,12:do115,65,"+A",1,2,12:do35,55,"(",1,5,9 3352 do142,55,"(",1,5,9:do105,55,")",1,5,9:do212,55,")",1,5,9 3353 do223,65,"+B",1,2,12:do243,55,"(",1,5,9:do313,55,")",1,5,9 3355 d4,61,16,61,1 3356 d19,61,18[171]4,64,1 3357 d19,61,18[171]4,58,1 3360 X[178]F1:[141]18700:do50,55,X$,1,1,9 3361 X[178]F2:[141]18700:do50,66,X$,1,1,9 3362 X[178]F3:[141]18700:do50,77,X$,1,1,9 3363 X[178]F4:[141]18700:do157,55,X$,1,1,9 3364 X[178]F5:[141]18700:do157,66,X$,1,1,9 3365 X[178]F6:[141]18700:do157,77,X$,1,1,9 3366 X[178]F7:[141]18700:do258,55,X$,1,1,9 3367 X[178]F8:[141]18700:do258,66,X$,1,1,9 3368 X[178]F9:[141]18700:do258,77,X$,1,1,9 3398 [141]28500:[141]18600:[137]5000 5000 [143] ZU EBENE 1 5001 [141]18000:[141]20000 5002 do10,40,"(null)PURPUNKTE:",1,1,12 5003 [139]X1$[179][177]"N"[167]:do8,60," (null) ( / / )",1,2,12 5004 [139]X2$[179][177]"N"[167]:do8,90," (null) ( / / )",1,2,12 5005 [139]X3$[179][177]"N"[167]:do8,120," (null) ( / / )",1,2,12 5006 [139]X1$[179][177]"N"[167][129]I[178]0[164]2:do53[170]I[172]85,63,Z$(I[170]1),1,1,9:[130] 5007 [139]X2$[179][177]"N"[167][129]I[178]0[164]2:do53[170]I[172]85,93,Z$(I[170]4),1,1,9:[130] 5008 [139]X3$[179][177]"N"[167][129]I[178]0[164]2:do53[170]I[172]85,123,Z$(I[170]7),1,1,9:[130] 5009 [141]28500:[141]18600:[141]18000 5020 [139]X1$[178]"N"[175]X2$[178]"N"[167]5040 5021 do1,40,"(null)PURGERADE IN XY-VALBENE:",1,1,12 5022 do40,65,"(null)=",1,2,12 5023 do160,65,"+A",1,2,12 5024 do70,55,"(",1,5,9 5025 do190,55,"(",1,5,9 5026 do140,55,")",1,5,9 5027 do260,55,")",1,5,9 5030 d39,61,51,61,1 5031 d53,61,47,64,1 5032 d53,61,47,58,1:[141]20500 5033 [141]28500:[141]18600:[141]18000 5040 [139]X1$[178]"N"[175]X3$[178]"N"[167]5053 5041 do1,40,"(null)PURGERADE IN XZ-VALBENE:",1,1,12 5042 do40,65,"(null)=",1,2,12 5043 do160,65,"+A",1,2,12 5044 do70,55,"(",1,5,9 5045 do190,55,"(",1,5,9 5046 do140,55,")",1,5,9 5047 do260,55,")",1,5,9 5050 d39,61,51,61,1 5051 d53,61,47,64,1 5052 d53,61,47,58,1:[141]20600 5053 [139]X2$[178]"N"[175]X3$[178]"N"[167]5110 5060 [141]28500:[141]18600:[141]18000 5061 do1,40,"(null)PURGERADE IN YZ-VALBENE:",1,1,12 5062 do40,65,"(null)=",1,2,12 5063 do160,65,"+A",1,2,12 5064 do70,55,"(",1,5,9 5065 do190,55,"(",1,5,9 5066 do140,55,")",1,5,9 5067 do260,55,")",1,5,9 5070 d39,61,51,61,1 5071 d53,61,47,64,1 5072 d53,61,47,58,1:[141]20700 5110 [141]18500:[141]18600 5120 [137]2800 17500 [143] ZURUECK 17510 do23,191," NICHT LOESBAR !",1,1,15 17515 d0,187,320,187,1 17520 [142] 18000 d5,1:do28,8," *** (null)ATN(null)LEFT$VALASCRIGHT$(null) ***",1,2,15 18010 d0,30,320,30,1 18100 [142] 18200 [143] TITELBILD ERSTELLEN 18210 d5,1 18220 do20,5,"*** (null)ATHEFIX ***",1,2,16 18230 do135,50,"VON",1,1,12 18240 do107,75,"MID$.(null)IEHN",1,3,16 18250 do92,130,"(null)H.(null)ANGER",1,3,16 18260 do135,111,"UND",1,1,12 18270 do119,173,"IM MID$UNI 1985",1,1,12 18271 [143] KOORDINATENSYSTEM 18272 d32,158,32,178,1 18273 d32,178,52,178,1 18274 d32,178,22,188,1 18275 do28,149,"Z",1,1,9 18276 do18,190,"X",1,1,9 18277 do56,174,"Y",1,1,9 18280 [143] PFEILE 18281 d32,158,29,161,1 18282 d32,158,35,161,1 18283 d52,178,49,175,1 18284 d52,178,49,181,1 18285 d22,188,26,188,1 18286 d22,188,22,184,1 18290 [142] 18299 [143] ANLEITUNG 18300 [141]18000:do95,40,"ATN(null)(null)VALRIGHT$(null)(null)(null)CHR$:",1,1,16 18313 do2,55,"(null)IT DIESEM (null)ROGRAMM KOENNEN FAST",1,1,10 18314 do2,65,"ALLE ATNUFGABEN AUS DEM PEEKEREICH DER",1,1,9 18315 do2,75,"(null)EKTORGEOMETRIE GELOEST WERDEN.",1,1,10 18316 do2,85,"STR$AS (null)ROGRAMM VERLANGT VALINGABEN",1,1,10 18317 do2,95,"IN ASCORM VON KARTESISCHEN (null)OOR-",1,1,10 18318 do2,105,"DINATEN IM DREIDIMENSIONALEN",1,1,11 18319 do2,115,"(null)AUM.",1,1,10 18320 do2,125,"PEEKEFINDEN (null)IE SICH IN (null)2, SO",1,1,11 18321 do2,135,"SETZEN (null)IE EINFACH DIE (null)3-",1,1,12 18322 do2,145,"(null)OORDINATE AUF 0.",1,1,12 18325 do2,155,"ATNLLE VALRGEBNISSE WERDEN AUF 2",1,1,11 18326 do2,165,"(null)TELLEN NACH DEM (null)OMMA GE-",1,1,12 18327 do2,175,"RUNDET AUSGEGEBEN !",1,1,13 18330 [141]28500:[141]18600 18340 [141]18000:do95,40,"ATN(null)(null)VALRIGHT$(null)(null)(null)CHR$:",1,1,16 18345 do2,55,"(null)IT ASC1 KANN EINE LEFT$ARDCOPY",1,1,13 18350 do2,65,"ERSTELLT WERDEN.",1,1,13 18360 do2,75,"(null)IT ASC7 KANN MAN WIEDER INS LEFT$AUPT-",1,1,9 18370 do2,85,"MENUE ZURUECKGEHEN.",1,1,13 18371 do2,95,"(null)IT (null)(null)ATNLENVAL WIRD DIESELBE (null)ECHNUNG",1,1,10 18372 do2,105,"MIT ANDEREN (null)AHLENWERTEN WIEDER-",1,1,10 18373 do2,115,"HOLT.",1,1,10 18390 [141]28500:[141]18600:[137]1000 18500 [143] ZURUECK 18510 do23,191,"(null)URUECK MIT (null)VAL(null)(null)(null)(null) !",1,1,14 18515 d0,187,320,187,1 18520 [142] 18550 do23,191,"ASCEHLER IN VALINGABE !",1,1,15 18551 d0,187,320,187,1 18552 [142] 18560 do23,191,"ASCEHLER IN VALINGABE !",0,1,15 18561 d0,187,320,187,0 18562 [142] 18600 [161]A$:[139]A$[178]""[167]18600 18610 [139]A$[178]"INPUT"[167]dw:[137]18600 18620 [142] 18700 [143] PRINT USING 18710 X[178]([181](X[172]100[170]0.5))[173]100 18720 X$[178]" "[170][196](X) 18730 [139][202](X$,[195](X$)[171]1,1)[178]"."[167]X$[178]X$[170]"0":[137]18760 18740 [139][202](X$,[195](X$)[171]2,1)[178]"."[167]18760 18750 [139][202](X$,[195](X$)[171]1,1)[179][177]"."[167]X$[178]X$[170]".00" 18760 [139][202](X$,[195](X$)[171]3,1)[178]" "[167]X$[178]"0"[170][201](X$,3) 18770 [139][202](X$,[195](X$)[171]3,1)[178]"-"[167]X$[178]"-0"[170][201](X$,3) 18780 X$[178][201](" "[170]X$,6):[142] 19000 [143] EINGABE 19010 X$[178]"":QW[178]1 19020 doX[170]QW[172]9[171]9,Y[170]5,"-",1,1,9 19030 [141]18600 19040 [139][198](A$)[178]13[167][139]X$[179][177]""[167]doX[170]QW[172]9[171]9,Y[170]5,"-",0,1,9:[142] 19041 [139][198](A$)[178]13[167][141]18550:[141]18600:[141]18560:[137]19000 19050 [139][198](A$)[178]20 [176] [198](A$)[178]148[167]19300 19051 [139] A$[178]"LET"[167]X$[178]A$:[142] 19055 [139] d(A$,"1-234567890.")[178]0[167]19030 19060 doX[170]QW[172]9[171]9,Y,""[170]A$,1,1,9 19070 QW[178]QW[170]1:X$[178]X$[170]A$:[137]19020 19300 [139]X$[178]""[167][137]19020 19310 doX[170]QW[172]9[171]18,Y,""[170][201](X$,1),0,1,9:doX[170]QW[172]9[171]9,Y[170]5,"-",0,1,9 19320 QW[178]QW[171]1 19330 X$[178][200](X$,[195](X$)[171]1) 19340 [137]19020 20000 [143] SPURPUNKTE 20001 G1[178]0:G2[178]0:G3[178]0:N1[178]X(1):N2[178]X(2):N3[178]X(3):C[178]X(4):X1$[178]"":X2$[178]"":X3$[178]"" 20002 UX[178]1:UY[178]0:UZ[178]0:[141]30200 20003 Z(1)[178]GX:Z(2)[178]GY:Z(3)[178]GZ:[139]X$[178]"P"[176]X$[178]"E"[167]X1$[178]"N" 20004 UX[178]0:UY[178]1:UZ[178]0:[141]30200 20005 Z(4)[178]GX:Z(5)[178]GY:Z(6)[178]GZ:[139]X$[178]"P"[176]X$[178]"E"[167]X2$[178]"N" 20006 UX[178]0:UY[178]0:UZ[178]1:[141]30200 20007 Z(7)[178]GX:Z(8)[178]GY:Z(9)[178]GZ:[139]X$[178]"P"[176]X$[178]"E"[167]X3$[178]"N" 20009 [129]I[178]1[164]9 20010 X[178]Z(I):[141]18700:Z$(I)[178]X$:[130]:[142] 20500 [143] SPURGERADE ZU XY 20501 N1[178]X(1):N2[178]X(2):N3[178]X(3):CE[178]X(4) 20502 M1[178]0:M2[178]0:M3[178]1:CF[178]0:[141]30600 20503 G$[178]X$:[141]18700:R$[178]X$ 20504 [139]G$[178]"U"[167][141]18700:[141]18600:[142] 20510 X[178]S1:[141]18700:do85,55,X$,1,1,9 20511 X[178]S2:[141]18700:do85,66,X$,1,1,9 20512 X[178]S3:[141]18700:do85,77,X$,1,1,9 20513 X[178]S4:[141]18700:do205,55,X$,1,1,9 20514 X[178]S5:[141]18700:do205,66,X$,1,1,9 20515 X[178]S6:[141]18700:do205,77,X$,1,1,9 20516 [139]G$[178]"P"[167] do1,100,"STR$IE VALBENE IST PARALLEL !",1,1,12 20517 [139]G$[178]"S"[167] do1,100,"STR$IE VALBENE IST SENKRECHT !",1,1,12 20518 [139]G$[178]"P"[175]EF[179][177]0[167]do30,140,"ATNBSTAND:",1,1,10:do123,140,EF$,1,1,9 20519 [139]G$[179][177]"S"[175]G$[179][177]"P"[167] do10,120,"(null)INKEL:",1,1,12 20520 [139]G$[179][177]"S"[175]G$[179][177]"P"[167]do185,120,"CHR$RAD",1,1,12:do115,120,R$,1,1,9 20530 [142] 20600 [143] SPURGERADE ZU XZ 20601 N1[178]X(1):N2[178]X(2):N3[178]X(3):CE[178]X(4) 20602 M1[178]0:M2[178]1:M3[178]0:CF[178]0:[141]30600 20603 G$[178]X$:[141]18700:R$[178]X$ 20604 [139]G$[178]"U"[167][141]18700:[141]18600:[142] 20610 X[178]S1:[141]18700:do85,55,X$,1,1,9 20611 X[178]S2:[141]18700:do85,66,X$,1,1,9 20612 X[178]S3:[141]18700:do85,77,X$,1,1,9 20613 X[178]S4:[141]18700:do205,55,X$,1,1,9 20614 X[178]S5:[141]18700:do205,66,X$,1,1,9 20615 X[178]S6:[141]18700:do205,77,X$,1,1,9 20616 [139]G$[178]"P"[167] do1,100,"STR$IE VALBENE IST PARALLEL !",1,1,12 20617 [139]G$[178]"S"[167] do1,100,"STR$IE VALBENE IST SENKRECHT !",1,1,12 20618 [139]G$[178]"P"[175]EF[179][177]0[167]do30,140,"ATNBSTAND:",1,1,10:do123,140,EF$,1,1,9 20619 [139]G$[179][177]"S"[175]G$[179][177]"P"[167] do10,120,"(null)INKEL:",1,1,12 20620 [139]G$[179][177]"S"[175]G$[179][177]"P"[167]do185,120,"CHR$RAD",1,1,12:do115,120,R$,1,1,9 20630 [142] 20700 [143] SPURGERADE ZU YZ 20701 M1[178]X(1):M2[178]X(2):M3[178]X(3):CF[178]X(4) 20702 N1[178]1:N2[178]0:N3[178]0:CE[178]0:[141]30600 20703 G$[178]X$:[141]18700:R$[178]X$ 20704 [139]G$[178]"U"[167][141]18700:[141]18600:[142] 20710 X[178]S1:[141]18700:do85,55,X$,1,1,9 20711 X[178]S2:[141]18700:do85,66,X$,1,1,9 20712 X[178]S3:[141]18700:do85,77,X$,1,1,9 20713 X[178]S4:[141]18700:do205,55,X$,1,1,9 20714 X[178]S5:[141]18700:do205,66,X$,1,1,9 20715 X[178]S6:[141]18700:do205,77,X$,1,1,9 20716 [139]G$[178]"P"[167] do1,100,"STR$IE VALBENE IST PARALLEL !",1,1,12 20717 [139]G$[178]"S"[167] do1,100,"STR$IE VALBENE IST SENKRECHT !",1,1,12 20718 [139]G$[178]"P"[175]EF[179][177]0[167]do30,140,"ATNBSTAND:",1,1,10:do123,140,EF$,1,1,9 20719 [139]G$[179][177]"S"[175]G$[179][177]"P"[167] do10,120,"(null)INKEL:",1,1,12 20720 [139]G$[179][177]"S"[175]G$[179][177]"P"[167]do185,120,"CHR$RAD",1,1,12:do115,120,R$,1,1,9 20730 [142] 24500 [143] BOGEN IN GRAD 24510 X[178](X[172]180)[173][255]:[142] 24600 [143] VEKTOR AB 24610 X1[178]B1[171]A1 24611 X2[178]B2[171]A2 24612 X3[178]B3[171]A3:[142] 25000 [141]25040:[141]25010:[142] 25010 X1[178]A1[173]A:X2[178]A2[173]A:X3[178]A3[173]A:[142] 25020 [141]25040:[142] 25040 A[178](A1[174]2[170]A2[174]2[170]A3[174]2)[174]0.5:[142] 25050 [143] SKALARPRODUKT 25060 X[178]A1[172]B1[170]A2[172]B2[170]A3[172]B3:[142] 25090 [141]25060:S[178]X:[141]25040:A0[178]A:V1[178]A1:V2[178]A2:V3[178]A3:A1[178]B1:A2[178]B2:A3[178]B3:[141]25040 25091 A1[178]V1:A2[178]V2:A3[178]V3:B[178]A:A[178]A0 25100 X[178][182](S[173](A[172]B)) 25101 [139]X[178]1[167]X[178]0:[142] 25103 X[178][171][193](X[173][186](1[171]X[174]2))[170][255][173]2 25104 [139]S[179]0[167]X[178][255][171]X 25105 [142] 25110 [143] VEKTORPRODUKT 25120 : 25130 X1[178]A2[172]B3[171]A3[172]B2:X2[178]A3[172]B1[171]A1[172]B3:X3[178]A1[172]B2[171]A2[172]B1:[142] 25140 [143] FLAECHE 2 VEKTOREN 25150 [141]25120:A1[178]X1:A2[178]X2:A3[178]X3:[141]25040:[142] 25160 [143] LAGE VON VEKTOREN 25170 [141]25090:[139][181](X[172]100[170].5)[178]314[167]X[178]O 25171 [139][181](X[172]100[170].5)[178]157[167]X$[178]"S":X[178][255][173]2:[142] 25180 [139][181](X[172]100[170].5)[178]0[167]X$[178]"P":X[178]0:[142] 25190 [141]24500:[141]18700:X[178][197](X$):[142] 25300 [143] DETERMINANTE 25301 D[178]X(1)[172]X(5)[172]X(9)[170]X(4)[172]X(8)[172]X(3)[170]X(7)[172]X(2)[172]X(6)[171]X(3)[172]X(5)[172]X(7) 25302 D[178]D[171]X(6)[172]X(8)[172]X(1)[171]X(9)[172]X(2)[172]X(4) 25303 [142] 28500 [143] WEITER 28510 do23,191,"(null)EITER MIT (null)VAL(null)(null)(null)(null) !",1,1,15 28515 d0,187,320,187,1 28520 [142] 28600 [143] SPURPUNKTE 28601 [143] IN YZ-EBENE 28602 : 28610 [139]UX[178]0[167]X1$[178]"N":[137]28640 28620 KX[178][171]AX[173]UX:Z(1)[178]0:Z(2)[178]AY[170]KX[172]UY:Z(3)[178]AZ[170]KX[172]UZ 28630 : 28631 [143] IN XZ-EBENE 28640 [139]UY[178]0[167]X2$[178]"N":[137]28670 28650 KY[178][171]AY[173]UY:Z(4)[178]AX[170]KY[172]UX:Z(5)[178]0:Z(6)[178]AZ[170]KY[172]UZ 28660 : 28661 [143] IN XY-EBENE 28670 [139]UZ[178]0[167]X3$[178]"N":[137]28690 28680 KZ[178][171]AZ[173]UZ:Z(7)[178]AX[170]KZ[172]UX:Z(9)[178]0:Z(8)[178]AY[170]KZ[172]UY 28690 [142] 29000 [143] ABSTAND PUNKT/GERADE ... 29020 KG[178](P1[172]UX[170]P2[172]UY[170]P3[172]UZ[171]AX[172]UX[171]AY[172]UY[171]AZ[172]UZ)[173](UX[174]2[170]UY[174]2[170]UZ[174]2) 29030 F1[178]AX[170]KG[172]UX 29031 F2[178]AY[170]KG[172]UY 29032 F3[178]AZ[170]KG[172]UZ 29040 FX[178]P1[171]F1:FY[178]P2[171]F2:FZ[178]P3[171]F3:FP[178](FX[174]2[170]FY[174]2[170]FZ[174]2)[174].5 29100 PX[178]P1[171]2[172]FX:PY[178]PZ[171]2[172]FY:PZ[178]P3[171]2[172]FZ 29130 A1[178]P1[171]AX:A2[178]P2[171]AY:A3[178]P3[171]AZ:B1[178]UX:B2[178]UY:B3[178]UZ 29140 [141]25130 29150 A1[178]X(1):A2[178]X(2):A3[178]X(3):B1[178]X1:B2[178]X2:B3[178]X3:[141]25060 29170 [142] 29200 [143] G/G 29219 A1[178]UX:A2[178]UY:A3[178]UZ:B1[178]VX:B2[178]VY:B3[178]VZ 29220 [141]25170:T[178]X:[139]X$[178]"P"[167]T[178]0:G$[178]"P":[137]29240 29221 [139]X$[178]"S"[167]T[178]90:G$[178]"S" 29230 [137]29250 29240 P1[178]BX:P2[178]BY:P3[178]BZ:[137]29020 29241 [139] T[177]90 [167]T[178]180[171]T 29242 [142] 29250 [143] WINDSCHIEF ? 29251 X(1)[178]BX[171]AX:X(2)[178]BY[171]AY:X(3)[178]BZ[171]AZ 29252 X(4)[178]UX:X(5)[178]UY:X(6)[178]UZ:X(7)[178]VX:X(8)[178]VY:X(9)[178]VZ:[141]25301 29253 [139]D[179][177]0[167]G$[178]"W":[137]29270 29254 [137]29320 29270 [143] WINDSCHIEF ABSTAND 29280 A1[178]UX:A2[178]UY:A3[178]UZ:B1[178]VX:B2[178]VY:B3[178]VZ:[141]25110:A1[178]X1:A2[178]X2:A3[178]X3:B1[178]AX 29281 B2[178]AY:B3[178]AZ:[141]25060:NX[178]X1:NY[178]X2:NZ[178]X3:C[178]X:XE[178]BX:YE[178]BY:ZE[178]BZ 29290 [141]30000:FP[178]D 29291 [139]T[177]90 [167]T[178]180[171]T 29320 [143] SCHNITTPUNKTSBEdHNUNG 29330 [139]UX[178]0[175]VX[179][177]0[167]29350 29340 [137]29400 29350 KB[178](AX[171]BX)[173]VX 29360 [139]UY[179][177]0[167]KA[178](BY[171]AY[170]KB[172]VY)[173]UY 29370 [139]AZ[170]KA[172]UZ[178]BZ[170]KB[172]VZ[167]29900 29380 [139]UY[178]0[167]KA[178](BZ[171]AZ[170]KB[172]VZ)[173]UZ 29390 [139]AY[170]KA[172]UY[178]BY[170]KB[172]VY[167]29900 29392 [142] 29400 [139]UY[178]0[175]VY[179][177]0[167]29420 29410 [137]29470 29420 KB[178](AY[171]BY)[173]VY 29430 [139]UX[179][177]0[167]KA[178](BX[171]AX[170]KB[172]VX)[173]UX 29440 [139]AZ[170]KA[172]UZ[178]BZ[170]KB[172]VZ[167]29900 29450 [139]UX[178]0[167]KA[178](BZ[171]AZ[170]KB[172]VZ)[173]UZ 29460 [139]AX[170]KA[172]UX[178]BX[170]KB[172]VX[167]29900 29470 [139]UZ[178]0[175]VZ[179][177]0[167]29490 29480 [137]29540 29490 KB[178](AZ[171]BZ)[173]VZ 29500 [139]UX[179][177]0[167]KA[178](BX[171]AX[170]KB[172]VX)[173]UX 29510 [139]AY[170]KA[172]UY[178]BY[170]KB[172]VY[167]29900 29520 [139]UX[178]0[167]KA[178](BY[171]AY[170]KB[172]VY)[173]UY 29530 [139]AZ[170]KA[172]UZ[178]BZ[170]KB[172]VZ[167]29900 29540 [139]UX[178]0[175]VX[178]0[167]29600 29550 [139]UY[178]0[175]VY[178]0[167]29610 29560 [139]UZ[178]0[175]VZ[178]0[167]29620 29570 [139]UY[172]VZ[179][177]UZ[172]VY[167]29600 29580 [139]UX[172]VZ[179][177]UZ[172]VX[167]29610 29590 [139]UX[172]VY[179][177]UY[172]VX[167]29620 29595 [144] 29600 KA[178]([171](AY[171]BY)[172]VZ[170](AZ[171]BZ)[172]VY)[173](UY[172]VZ[171]UZ[172]VY):[137]29900 29610 KA[178]([171](AX[171]BX)[172]VY[170](AZ[171]BZ)[172]VX)[173](UX[172]VZ[171]UZ[172]VX):[137]29900 29620 KA[178]([171](AX[171]BX)[172]VY[170](AY[171]BY)[172]VX)[173](UX[172]VY[171]UY[172]VX) 29900 SX[178]AX[170]KA[172]UX:SY[178]AY[170]KA[172]UY:SZ[178]AZ[170]KA[172]UZ:[139]T[177]90 [167]T[178]180[171]T 29901 [142] 30000 [143] PUNKT/EBENE 30010 [141]30500:X[178][184](X) 30020 N1[178]NX:N2[178]NY:N3[178]NZ:G1[178]XE:G2[178]YE:G3[178]ZE:UX[178]NX:UY[178]NY:UZ[178]NZ:[141]30200 30030 [142] 30200 [143] G/E 30220 A1[178]UX:A2[178]UY:A3[178]UZ:B1[178]N1:B2[178]N2:B3[178]N3:[141]25170:[139]X$[178]"S"[167]X[178]90 30230 [139]X$[178]"P"[167]X$[178]"S":[137]30270 30231 [139]X$[178]"S"[167]X$[178]"P":[137]30233 30232 [137]30270 30233 NX[178]N1:NY[178]N2:NZ[178]N3:XE[178]G1:YE[178]G2:ZE[178]G3 30240 [141]30000:SP[178]D 30250 [139]SP[178]0[167]X$[178]"E":[142] 30260 [139]SP[179][177]0[167]X$[178]"P":[142] 30270 U1[178]UX:U2[178]UY:U3[178]UZ:[141]30340 30280 GX[178]G1[170]KE[172]UX:GY[178]G2[170]KE[172]UY:GZ[178]G3[170]KE[172]UZ 30290 X[178][182](90[171]X):[142] 30300 [143] SCHNITTPUNKT G/E 30340 KE[178]U1[172]N1[170]U2[172]N2[170]U3[172]N3 30350 [139]KE[178]0[167][144] 30360 KE[178](C[171]N1[172]G1[171]N2[172]G2[171]N3[172]G3)[173]KE:[142] 30400 [143] UMdHNUNG PARA->NORMAL 30430 A1[178]E4:A2[178]E5:A3[178]E6:B1[178]E7:B2[178]E8:B3[178]E9 30440 [141]25130:N1[178]X1:N2[178]X2:N3[178]X3 30450 A1[178]N1:A2[178]N2:A3[178]N3:B1[178]E1:B2[178]E2:B3[178]E3 30460 [141]25060:C[178]X:[142] 30500 [143] HNF AUFSTELLEN 30530 A1[178]NX:A2[178]NY:A3[178]NZ:[141]25040:N[178]A 30540 [139]C[177][178]0[167]D[178](NX[172]XE[170]NY[172]YE[170]NZ[172]ZE[171]C)[173]N 30550 [139]C[179]0[167]D[178](NX[172]XE[170]NY[172]YE[170]NZ[172]ZE[171]C)[173]([171]N) 30560 D[178][182](D):[142] 30600 [143] LAGE E/E 30620 A1[178]N1:A2[178]N2:A3[178]N3:B1[178]M1:B2[178]M2:B3[178]M3:[141]25170:[139]X$[178]"S"[176]X[179][177]0[167]30740 30630 NX[178]N1:NY[178]N2:NZ[178]N3:C[178]CE:[141]30530 30640 DE[178]D 30690 NX[178]M1:NY[178]M2:NZ[178]M3:C[178]CF:[141]30530 30700 DF[178]D:[139](CE[179]0[175]CF[177]0)[176](CE[177]0[175]CF[179]0)[167]DF[178][171]DF 30710 EF[178][182](DE[171]DF):X$[178]"P":[142] 30740 [143] SCHNITTGERADE VON E/E 30741 I[178]1 30750 F4[178][171]M2:F5[178]M1:F6[178]0:F7[178]0:F8[178][171]M3:F9[178]M2 30760 [139]M1[178]0[175]M2[178]0[167]F4[178]I:F5[178]I[170]1:F6[178]0:F7[178]I[170]2:F8[178]I[170]3:F9[178]0 30770 [139]M1[178]0[175]M3[178]0[167]F4[178]I:F5[178]0:F6[178]I[170]1:F7[178]I[170]2:F8[178]0:F9[178]I[170]3 30780 [139]M2[178]0[175]M3[178]0[167]F4[178]0:F5[178]I:F6[178]I[170]1:F7[178]0:F8[178]I[170]2:F9[178]I[170]3 30790 [139]M3[179][177]0[167]F1[178]0:F2[178]0:F3[178]CF[173]M3:[137]30820 30800 [139]M2[179][177]0[167]F1[178]0:F2[178]CF[173]M2:F3[178]0:[137]30820 30810 [139]M1[179][177]0[167]F1[178]CF[173]M1:F2[178]0:F3[178]0:[137]30820 30820 T1[178]F4:T2[178]F5:T3[178]F6:G1[178]F7:G2[178]F8:G3[178]F9 30821 FX[178]T1:FY[178]T2:FZ[178]T3:GX[178]G1:GY[178]T2:GZ[178]T3 30830 L[178]N1[172]FX[170]N2[172]FY[170]N3[172]FZ 30835 [139] L[178]0[175]I[178]30[167]FX[178]G1:FY[178]G2:FZ[178]G3:GX[178]T1:GY[178]T2:GZ[178]T3:[137]30830 30840 [139] L[178]0[175]I[177]100[167]X$[178]"U":[142] 30850 [139] L[178]0[167]I[178]I[170]1:[137]30750 30860 R[178](CE[171]N1[172]F1[171]N2[172]F2[171]N3[172]F3)[173]L 30870 T[178]([171]N1[172]GX[171]N2[172]GY[171]N3[172]GZ)[173]L 30880 S1[178]F1[170]R[172]FX:S2[178]F2[170]R[172]FY:S3[178]F3[170]R[172]FZ 30890 S4[178]T[172]FX[170]GX:S5[178]T[172]FY[170]GY:S6[178]T[172]FZ[170]GZ 30895 [139]X[177]90[167]X[178]180[171]X 30900 [142]