home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507a.d64 / mathefix (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  28KB  |  892 lines
  1. 1 GOTO100
  2. 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]
  3. 4 : " (null)        *** MATHEFIX ***       (null)
  4. 5 : " [221]                               [221]
  5. 6 : " (null)        EIN PROGRAMM VON       (null)
  6. 7 : " [221]                               [221]
  7. 8 : " (null) JUERGEN RIEHN + THOMAS LANGER (null)
  8. 9 : " [221] GARLESSTR.22    NEUHAUSERST.20[221]
  9. 10 :" (null) 8677 SELBITZ    8677 SELBITZ  (null)
  10. 11 :" [221]  08280/1063      09280/5335   [221]
  11. 12 :" (null)                               (null)
  12. 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]
  13. 14 :
  14. 15 [143] [255] IST DAS ZEICHEN PI
  15. 100 [143] TITELBILD
  16. 105 [134]X(20)
  17. 110 [141]18200:[129]I[178]1[164]2000:[130]
  18. 1000 [143] HAUPTMENUE
  19. 1010 [141]18000
  20. 1020 do85,50,"- 1 - (null)EKTOREN",1,1,12
  21. 1030 do85,65,"- 2 - CHR$ERADEN",1,1,12
  22. 1033 do85,80,"- 3 - CHR$ERADE/VALBENE",1,1,12
  23. 1040 do85,95,"- 4 - VALBENE",1,1,12
  24. 1050 do85,110,"- 5 - VALBENE/VALBENE",1,1,12
  25. 1060 do85,135,"- 6 - VALCLOSE(null)CLOSESTR$CLOSEVAL",1,1,12
  26. 1070 do85,160,"- 7 - ATNNLEITUNG",1,1,12
  27. 1075 d23,110,55,89,1
  28. 1076 d54,89,48,89,1
  29. 1077 d54,89,54,95,1
  30. 1078 do53,81,"ATN",1,1,9
  31. 1079 do18,113,"PEEK",1,1,9
  32. 1080 [141]18600
  33. 1090 X[178][197](A$):X[178][181](X):[139]X[177]7 [176] X[179]1[167]1080
  34. 1100 [145] X [137]1200,1300,1400,1500,1600,1700,18300
  35. 1200 [143] VEKTORMENUE
  36. 1210 [141]18000
  37. 1220 do75,50,"- 1 -  2 (null)UNKTE",1,1,12
  38. 1230 do75,70,"- 2 -  1 (null)EKTOR",1,1,12
  39. 1240 do75,90,"- 3 -  2 (null)EKTOREN",1,1,12
  40. 1250 do75,110,"- 4 -  3 (null)EKTOREN",1,1,12
  41. 1260 do75,145,"- 5 -  (null) E N U E",1,1,12
  42. 1270 [141]18600
  43. 1280 X[178][197](A$):X[178][181](X):[139]X[177]5 [176] X[179]1 [167]1270
  44. 1290 [145] X [141]2000,2100,2200,2300,1000
  45. 1300 [143] GERADENMENUE
  46. 1310 [141]18000
  47. 1320 do75,60,"- 1 -  1 CHR$ERADE",1,1,12
  48. 1330 do75,80,"- 2 -  2 CHR$ERADE",1,1,12
  49. 1340 do75,100,"- 3 -  CHR$ERADE/(null)UNKT",1,1,12
  50. 1350 do75,140,"- 4 -  LEFT$AUPTMENUE",1,1,12
  51. 1360 [141]18600:X[178][197](A$):X[178][181](X):[139]X[179]1[176]X[177]4[167]1360
  52. 1370 [145]X[137]2400,2500,2600,1000
  53. 1400 [143] E/G
  54. 1401 [141]18000:do1,40,"CHR$EBEN (null)IE DIE CHR$ERADE EIN:",1,1,12
  55. 1402 do40,65,"(null)=",1,2,12
  56. 1403 do160,65,"+A",1,2,12
  57. 1404 do70,55,"(",1,5,9
  58. 1405 do190,55,"(",1,5,9
  59. 1406 do140,55,")",1,5,9
  60. 1417 do260,55,")",1,5,9
  61. 1420 d39,61,51,61,1
  62. 1430 d53,61,47,64,1
  63. 1431 d53,61,47,58,1
  64. 1440 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11
  65. 1441 [141]19000:[139]X$[178]"LET"[167]1000
  66. 1442 X(I)[178][197](X$):I[178]I[170]1:[130]
  67. 1450 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11
  68. 1451 [141]19000:[139]X$[178]"LET"[167]1000
  69. 1452 X(I)[178][197](X$):I[178]I[170]1:[130]
  70. 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
  71. 1454 do1,100,"VALBENE IN (null)ORMALENFORM:",1,1,12
  72. 1455 do40,140,"(",1,5,9:do110,140,")",1,5,9:do130,155,"=",1,1,9
  73. 1456 do10,155,"N*",1,1,9
  74. 1457 X[178]55:I[178]7:[129]Y[178]90[170]50[164]90[170]80[169]15
  75. 1458 [141]19000:[139]X$[178]"LET"[167]1000
  76. 1459 X(I)[178][197](X$):I[178]I[170]1:[130]
  77. 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
  78. 1467 X[178]140:Y[178]155:[141]19000:X(10)[178][197](X$)
  79. 1468 [141]28500:[141]18600:[141]18000
  80. 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)
  81. 1471 C[178]X(10)
  82. 1472 [141]30200:G$[178]X$:[141]18700:F$[178]X$:[139]G$[178]"E"[176]G$[178]"P"[167]1480
  83. 1473 do8,50," (null) (      /      /      )",1,2,12
  84. 1474 do10,100,"(null)INKEL=",1,1,12
  85. 1475 do170,100,"CHR$RAD",1,1,12
  86. 1476 X[178]GX:[141]18700:do60,53,X$,1,1,9
  87. 1477 X[178]GY:[141]18700:do60[170]85,53,X$,1,1,9
  88. 1478 X[178]GZ:[141]18700:do60[170]2[172]85,53,X$,1,1,9
  89. 1479 do110,100,F$,1,1,9:[137]1498
  90. 1480 do30,140,"ATNBSTAND:",1,1,10
  91. 1481 X[178]SP:[141]18700:do111,140,X$,1,1,9
  92. 1482 do49,160,"CHR$ERADE PARALLEL ZUR VALBENE",1,1,9
  93. 1498 [141]18500:[141]18600:[139]A$[178]" "[167]1400
  94. 1499 [137]1000
  95. 1500 [143] EBENEN
  96. 1510 [141]18000
  97. 1520 do75,80,"- 1 -  VALBENE/(null)UNKT",1,1,12
  98. 1530 do75,100,"- 2 -  1 VALBENE",1,1,12
  99. 1540 do75,140,"- 3 -  LEFT$AUPTMENUE",1,1,12
  100. 1550 [141]18600:X[178][181]([197](A$))
  101. 1570 [145]X[137]2700,2800,1000
  102. 1600 [143] EBENE/EBENE
  103. 1601 [141]18000:OP[178]1
  104. 1602 [129]M[178][171]20[164]40[169]60
  105. 1603 [139]M[178]40[167]OP[178]5
  106. 1610 do1,40[170]30[170]M,"VALBENE IN (null)ORMALENFORM:",1,1,13
  107. 1611 do40,90[170]M,"(",1,5,9:do110,90[170]M,")",1,5,9:do130,105[170]M,"=",1,1,9
  108. 1612 do10,105[170]M,"N*",1,1,9
  109. 1613 X[178]55:I[178]OP:[129]Y[178]90[170]M[164]90[170]28[170]M[169]14
  110. 1614 [141]19000:[139]X$[178]"LET"[167]1000
  111. 1615 X(I)[178][197](X$):I[178]I[170]1:[130]
  112. 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
  113. 1617 X[178]140:Y[178]105[170]M:[141]19000:X(3[170]OP)[178][197](X$)
  114. 1618 [130]M
  115. 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
  116. 1620 [139]X$[178]"U"[167][141]17500:[141]18600:[137]1000
  117. 1621 G$[178]X$:[141]18700:R$[178]X$:X[178]EF:[141]18700:EF$[178]X$
  118. 1650 [141]28500:[141]18600:[141]18000:[139]G$[178]"P"[167]1680
  119. 1651 do1,40,"(null)CHNITTGERADE DER VALBENEN:",1,1,12
  120. 1652 do40,65,"(null)=",1,2,12
  121. 1654 do70,55,"(",1,5,9
  122. 1655 do190,55,"(",1,5,9
  123. 1656 do140,55,")",1,5,9
  124. 1657 do260,55,")",1,5,9
  125. 1658 d39,61,51,61,1:do160,65,"+A",1,2,12
  126. 1660 d53,61,47,64,1
  127. 1661 d53,61,47,58,1
  128. 1671 X[178]S1:[141]18700:do85,55,X$,1,1,9
  129. 1672 X[178]S2:[141]18700:do85,66,X$,1,1,9
  130. 1673 X[178]S3:[141]18700:do85,77,X$,1,1,9
  131. 1674 X[178]S4:[141]18700:do205,55,X$,1,1,9
  132. 1675 X[178]S5:[141]18700:do205,66,X$,1,1,9
  133. 1676 X[178]S6:[141]18700:do205,77,X$,1,1,9
  134. 1680 [139]G$[178]"P"[167] do1,100,"STR$IE VALBENEN SIND PARALLEL !",1,1,12
  135. 1681 [139]G$[178]"S"[167] do1,100,"STR$IE VALBENEN SIND SENKRECHT !",1,1,12
  136. 1682 [139]G$[179][177]"S"[175]G$[179][177]"P"[167] do10,120,"(null)CHNITTWINKEL =",1,1,12
  137. 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
  138. 1684 [139]G$[178]"P"[175]EF[179][177]0[167]do30,140,"ATNBSTAND:",1,1,10:do123,140,EF$,1,1,9
  139. 1697 [141]18500:[141]18600:[139]A$[178]" "[167]1600
  140. 1698 [137]1000
  141. 1700 [153]"LOAD";"        AUF  WIEDERSEHEN !"
  142. 1710 [153]"                  JUERGEN RIEHN"
  143. 1720 [153]"                     THOMAS LANGER"
  144. 1730 [128]
  145. 2000 [143] 2 PUNKTE
  146. 2001 [141]18000
  147. 2002 do1,40,"CHR$EBEN (null)IE DIE (null)UNKTE EIN:",1,1,12
  148. 2010 do8,50," ATN (      /      /      )",1,2,12
  149. 2020 do8,70," PEEK (      /      /      )",1,2,12
  150. 2021 Y[178]53:I[178]1:[129]X[178]60[164]60[170]2[172]85[169]85
  151. 2022 [141]19000:[139]X$[178]"LET"[167]1200
  152. 2023 X(I)[178][197](X$)
  153. 2024 I[178]I[170]1:[130]
  154. 2025 Y[178]74:I[178]1
  155. 2026 [129]X[178]60[164]60[170]2[172]85[169]85
  156. 2027 [141]19000:[139]X$[178]"LET"[167]1200
  157. 2028 Y(I)[178][197](X$)
  158. 2029 I[178]I[170]1:[130]
  159. 2030 do75,140,"ATNPEEK =",1,2,10
  160. 2031 do127,130,"(",1,5,1
  161. 2032 do207,130,")",1,5,1
  162. 2040 d74,135,74[170]22,135,1
  163. 2045 d96,136,92,139,1
  164. 2046 d96,136,92,133,1
  165. 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)
  166. 2070 [141]24600
  167. 2071 X[178]X1:[141]18700:do143,132,X$,1,1,9
  168. 2072 X[178]X2:[141]18700:do143,132[170]11,X$,1,1,9
  169. 2073 X[178]X3:[141]18700:do143,132[170]22,X$,1,1,9
  170. 2090 [141]18500
  171. 2091 [141]18600
  172. 2092 [139] A$[178]" "[167]2000
  173. 2093 [137]1200
  174. 2100 [143] 1 VEKTOR
  175. 2101 [141]18000
  176. 2102 do1,40,"CHR$EBEN (null)IE DEN (null)EKTOR EIN:",1,1,13
  177. 2103 do100,65,"(null)=",1,2,12
  178. 2104 do130,55,"(",1,5,9:do60,147,"(",1,5,9
  179. 2105 do200,55,")",1,5,9:do130,147,")",1,5,9
  180. 2106 do10,100,"(null)INKEL(XY)=",1,1,12
  181. 2107 do10,125,"(null)(null)(null)=",1,1,12
  182. 2108 do22,160,"(null) =",1,1,12
  183. 2110 d99,61,111,61,1:do125,125,"(null)VAL",1,1,12
  184. 2111 d113,61,107,64,1
  185. 2112 d113,61,107,58,1
  186. 2113 d21,121,33,121,1
  187. 2114 d36,121,29,118,1
  188. 2115 d36,121,29,124,1
  189. 2116 d21,155,33,155,1
  190. 2117 d36,155,29,152,1
  191. 2118 d36,155,29,158,1
  192. 2119 do33,155,"O",1,1,9
  193. 2120 do200,100,"CHR$RAD",1,1,12
  194. 2121 X[178]145:I[178]1:[129]Y[178]55[164]55[170]22[169]11
  195. 2122 [141]19000:[139]X$[178]"LET"[167]1200
  196. 2123 X(I)[178][197](X$):I[178]I[170]1:[130]
  197. 2124 [139][182](X(1))[170][182](X(2))[170][182](X(3))[178]0[167][141]18550:[141]18600:[141]18560:[137]2100
  198. 2125 A1[178]X(1):A2[178]X(2):A3[178]X(3):
  199. 2126 B1[178]0:B2[178]0:B3[178]1:[141]25090:[141]24500:X[178][182](90[171]X):[141]18700
  200. 2127 do145,100,X$,1,1,9
  201. 2128 [141]25020:[143] BETRAG
  202. 2129 X[178]A:[141]18700:do60,125,X$,1,1,9
  203. 2130 [141]25000:[143] EINHEITSVEKTOR
  204. 2131 X[178]X1:[141]18700:do75,147,X$,1,1,9
  205. 2132 X[178]X2:[141]18700:do75,158,X$,1,1,9
  206. 2133 X[178]X3:[141]18700:do75,169,X$,1,1,9
  207. 2134 [141]18500:[141]18600
  208. 2135 [139]A$[178]" "[167]2100
  209. 2190 [137]1200
  210. 2200 [143] 2 VEKTOREN
  211. 2201 [141]18000:do1,40,"CHR$EBEN (null)IE DIE (null)EKTOREN EIN:",1,1,12
  212. 2202 do40,65,"ATN=",1,2,12
  213. 2203 do160,65,"PEEK=",1,2,12
  214. 2204 do70,55,"(",1,5,9
  215. 2205 do190,55,"(",1,5,9
  216. 2206 do140,55,")",1,5,9
  217. 2207 do260,55,")",1,5,9
  218. 2213 do12,150,"ATN O PEEK=",1,1,11
  219. 2215 do172,150,"ATN X PEEK=",1,1,11
  220. 2216 do245,137,"(",1,5,9:do305,137,")",1,5,9
  221. 2220 d39,61,51,61,1
  222. 2230 d53,61,47,64,1
  223. 2231 d53,61,47,58,1
  224. 2232 d120[170]39,61,51[170]120,61,1
  225. 2233 d120[170]53,61,47[170]120,64,1
  226. 2234 d120[170]53,61,47[170]120,58,1:A[178]45
  227. 2235 d11,146,22,146,1:d11[170]A,146,22[170]A,146,1
  228. 2236 d24,146,21,143,1:d24[170]A,146,21[170]A,143,1
  229. 2237 d24,146,21,149,1:d24[170]A,146,21[170]A,149,1
  230. 2238 [139] A[178]45 [167]A[178]160:[137]2235
  231. 2239 [139] A[178]160 [167]A[178]205:[137]2235
  232. 2240 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11
  233. 2241 [141]19000:[139]X$[178]"LET"[167]1200
  234. 2242 X(I)[178][197](X$):I[178]I[170]1:[130]
  235. 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
  236. 2250 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11
  237. 2251 [141]19000:[139]X$[178]"LET"[167]1200
  238. 2252 X(I)[178][197](X$):I[178]I[170]1:[130]
  239. 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
  240. 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)
  241. 2261 [141]25160
  242. 2262 [139]X$[178]"P"[167]:do10,100,"STR$IE (null)EKTOREN SIND PARALLEL !",1,1,11:[137]2290
  243. 2263 [139]X$[178]"S"[167]:do10,100,"STR$IE (null)EKTOREN SIND SENKRECHT !",1,1,10:[137]2290
  244. 2264 do10,100,"(null)CHNITTWINKEL:",1,1,12
  245. 2265 do245,100,"CHR$RAD",1,1,12
  246. 2268 X[178][197](X$):[141]18700:do180,100,X$,1,1,9
  247. 2290 [141]25050:[141]18700:do80,150,X$,1,1,9:do10,115,"ASCLAECHE:",1,1,12
  248. 2291 [141]25110:X[178]X1:[141]18700
  249. 2292 do250,137,X$,1,1,9:do170,115,"ASCVAL",1,1,12
  250. 2293 X[178]X2:[141]18700:do250,148,X$,1,1,9
  251. 2294 X[178]X3:[141]18700:do250,159,X$,1,1,9
  252. 2295 [141]25140:X[178]A:[141]18700
  253. 2296 do110,115,X$,1,1,9
  254. 2297 [141]18500:[141]18600:[139]A$[178]" "[167]2200
  255. 2298 [137]1200
  256. 2300 [143] 3 VEKTOREN
  257. 2301 [141]18000:do1,40,"CHR$EBEN (null)IE DIE (null)EKTOREN EIN:",1,1,12
  258. 2302 do5,65,"ATN=",1,2,12
  259. 2303 do115,65,"PEEK=",1,2,12
  260. 2304 do35,55,"(",1,5,9
  261. 2305 do142,55,"(",1,5,9
  262. 2306 do105,55,")",1,5,9
  263. 2307 do212,55,")",1,5,9
  264. 2308 do223,65,"LEN=",1,2,12
  265. 2309 do243,55,"(",1,5,9
  266. 2310 do313,55,")",1,5,9:A[178]0
  267. 2311 d4[170]A,61,16[170]A,61,1
  268. 2312 d19[170]A,61,18[170]A[171]4,64,1
  269. 2313 d19[170]A,61,18[170]A[171]4,58,1
  270. 2314 [139] A[178]0[167]A[178]110:[137]2311
  271. 2315 [139] A[178]110 [167]A[178]220:[137]2311
  272. 2340 X[178]50:I[178]1:[129]Y[178]55[164]55[170]22[169]11
  273. 2341 [141]19000:[139]X$[178]"LET"[167]1200
  274. 2342 X(I)[178][197](X$):I[178]I[170]1:[130]
  275. 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
  276. 2350 X[178]157:I[178]4:[129]Y[178]55[164]55[170]22[169]11
  277. 2351 [141]19000:[139]X$[178]"LET"[167]1200
  278. 2352 X(I)[178][197](X$):I[178]I[170]1:[130]
  279. 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
  280. 2360 X[178]258:I[178]7:[129]Y[178]55[164]55[170]22[169]11
  281. 2361 [141]19000:[139]X$[178]"LET"[167]1200
  282. 2362 X(I)[178][197](X$):I[178]I[170]1:[130]
  283. 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
  284. 2364 [141]25300
  285. 2365 [139]D[178]0[167]:do3,120,"STR$IE (null)EKTOREN SIND KOMLANAR !",1,1,11
  286. 2366 [139]D[179][177]0[167]do7,120,"STR$=         (null)OLUMEN=       (null)VAL",1,1,11
  287. 2367 [139]D[179][177]0[167]X[178]D:[141]18700:do38,120,X$,1,1,9
  288. 2368 [139]D[179][177]0[167]X[178][182](D):[141]18700
  289. 2369 [139]D[179][177]0[167]do221,120,X$,1,1,9
  290. 2397 [141]18500:[141]18600:[139]A$[178]" "[167]2300
  291. 2398 [137]1200
  292. 2400 [143] 1 GERADE
  293. 2401 [141]18000:do1,40,"CHR$EBEN (null)IE DIE CHR$ERADE EIN:",1,1,12
  294. 2402 do40,65,"(null)=",1,2,12
  295. 2403 do160,65,"+A",1,2,12
  296. 2404 do70,55,"(",1,5,9
  297. 2405 do190,55,"(",1,5,9
  298. 2406 do140,55,")",1,5,9
  299. 2407 do260,55,")",1,5,9
  300. 2408 X1$[178]"":X2$[178]"":X3$[178]""
  301. 2420 d39,61,51,61,1
  302. 2430 d53,61,47,64,1
  303. 2431 d53,61,47,58,1
  304. 2440 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11
  305. 2441 [141]19000:[139]X$[178]"LET"[167]1300
  306. 2442 X(I)[178][197](X$):I[178]I[170]1:[130]
  307. 2450 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11
  308. 2451 [141]19000:[139]X$[178]"LET"[167]1300
  309. 2452 X(I)[178][197](X$):I[178]I[170]1:[130]
  310. 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
  311. 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)
  312. 2456 [141]30200:[141]18700:do138,120,X$,1,1,9:do10,120,"(null)INKEL(XY)=",1,1,12
  313. 2457 do200,120,"CHR$RAD",1,1,12:[141]18600
  314. 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
  315. 2459 [129]I[178]1[164]9:X[178]Z(I):[141]18700:Z$(I)[178]X$:[130]
  316. 2460 [141]18000
  317. 2461 do10,40,"(null)PURPUNKTE:",1,1,12
  318. 2462 [139]X1$[179][177]"N"[167]:do8,60," (null)(null)(      /      /      )",1,2,12
  319. 2463 [139]X2$[179][177]"N"[167]:do8,90," (null)(null)(      /      /      )",1,2,12
  320. 2464 [139]X3$[179][177]"N"[167]:do8,120," (null)(null)(      /      /      )",1,2,12
  321. 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]
  322. 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]
  323. 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]
  324. 2497 [141]18500:[141]18600:[139]A$[178]" "[167]2400
  325. 2498 [137]1300
  326. 2500 [143] 2 GERADE
  327. 2501 [141]18000:do1,40,"CHR$EBEN (null)IE DIE CHR$ERADEN EIN:",1,1,12:G$[178]""
  328. 2502 do40,65,"(null)=",1,2,12
  329. 2503 do160,65,"+A",1,2,12
  330. 2504 do70,55,"(",1,5,9
  331. 2505 do190,55,"(",1,5,9
  332. 2506 do140,55,")",1,5,9
  333. 2507 do260,55,")",1,5,9
  334. 2512 do40,125,"(null)=",1,2,12
  335. 2513 do160,125,"+B",1,2,12
  336. 2514 do70,115,"(",1,5,9
  337. 2515 do190,115,"(",1,5,9
  338. 2516 do140,115,")",1,5,9
  339. 2517 do260,115,")",1,5,9
  340. 2520 d39,61,51,61,1
  341. 2530 d53,61,47,64,1
  342. 2531 d53,61,47,58,1
  343. 2532 d39,121,51,121,1
  344. 2533 d53,121,47,124,1
  345. 2534 d53,121,47,118,1
  346. 2540 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11
  347. 2541 [141]19000:[139]X$[178]"LET"[167]1300
  348. 2542 X(I)[178][197](X$):I[178]I[170]1:[130]
  349. 2550 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11
  350. 2551 [141]19000:[139]X$[178]"LET"[167]1300
  351. 2552 X(I)[178][197](X$):I[178]I[170]1:[130]
  352. 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
  353. 2560 X[178]85:I[178]7:[129]Y[178]115[164]115[170]22[169]11
  354. 2561 [141]19000:[139]X$[178]"LET"[167]1300
  355. 2562 X(I)[178][197](X$):I[178]I[170]1:[130]
  356. 2570 X[178]205:I[178]10:[129]Y[178]115[164]115[170]22[169]11
  357. 2571 [141]19000:[139]X$[178]"LET"[167]1300
  358. 2572 X(I)[178][197](X$):I[178]I[170]1:[130]
  359. 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
  360. 2575 [141]28500
  361. 2580 [141]18600
  362. 2581 [141]18000
  363. 2583 do10,100,"(null)INKEL(XY)=",1,1,12
  364. 2584 do200,100,"CHR$RAD",1,1,12
  365. 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)
  366. 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$
  367. 2587 [139]A[179][177]0[175]A$[179][177]"W"[167]do8,50," (null) (      /      /      )",1,2,12
  368. 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$
  369. 2589 [139]A[179][177]0[175]A$[179][177]"W"[167]do60,53,SX$,1,1,9:do145,53,SY$,1,1,9
  370. 2590 [139]A[179][177]0[175]A$[179][177]"W"[167]do230,53,SZ$,1,1,9
  371. 2591 X[178]T:[141]18700:do140,100,X$,1,1,9
  372. 2592 [139]A$[178]"P"[167]do10,140,"STR$IE CHR$ERADEN SIND PARALLEL",1,1,9
  373. 2593 [139]A$[178]"W"[167]do10,140,"STR$IE CHR$ERADEN SIND WINDSCHIEF",1,1,9
  374. 2594 [139]A$[178]"S"[167]do10,140,"STR$IE CHR$ERADEN SIND SENKRECHT",1,1,9
  375. 2595 [139]A$[178]"W"[167]do10,160,"ATNBSTAND:",1,1,9:X[178]FP:[141]18700:do100,160,X$,1,1,12
  376. 2596 [139]A$[178]"P"[167]do10,160,"ATNBSTAND:",1,1,9:X[178]FP:[141]18700:do100,160,X$,1,1,12
  377. 2597 [141]18500:[141]18600:[139]A$[178]" "[167]2500
  378. 2598 [137]1300
  379. 2600 [143] GERADE + PUNKT
  380. 2601 [141]18000:do1,40,"CHR$EBEN (null)IE DIE CHR$ERADE EIN:",1,1,12
  381. 2602 do40,65,"(null)=",1,2,12
  382. 2603 do160,65,"+A",1,2,12
  383. 2604 do70,55,"(",1,5,9
  384. 2605 do190,55,"(",1,5,9
  385. 2606 do140,55,")",1,5,9
  386. 2607 do260,55,")",1,5,9
  387. 2620 d39,61,51,61,1
  388. 2630 d53,61,47,64,1
  389. 2631 d53,61,47,58,1
  390. 2632 do1,100,"CHR$EBEN (null)IE DEN (null)UNKT EIN:",1,1,13
  391. 2633 do8,120," ATN (      /      /      )",1,2,12
  392. 2640 X[178]85:I[178]1:[129]Y[178]55[164]55[170]22[169]11
  393. 2641 [141]19000:[139]X$[178]"LET"[167]1300
  394. 2642 X(I)[178][197](X$):I[178]I[170]1:[130]
  395. 2650 X[178]205:I[178]4:[129]Y[178]55[164]55[170]22[169]11
  396. 2651 [141]19000:[139]X$[178]"LET"[167]1300
  397. 2652 X(I)[178][197](X$):I[178]I[170]1:[130]
  398. 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
  399. 2671 Y[178]123:I[178]7:[129]X[178]60[164]60[170]2[172]85[169]85
  400. 2672 [141]19000:[139]X$[178]"LET"[167]1300
  401. 2673 X(I)[178][197](X$)
  402. 2674 I[178]I[170]1:[130]
  403. 2680 do30,140,"ATNBSTAND:",1,1,10
  404. 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)
  405. 2682 [141]29000:A[178]X
  406. 2683 X[178]FP:[141]18700:do145,140,X$,1,1,9
  407. 2684 [141]28500:[141]18600:[141]18000
  408. 2685 do1,40,"STR$IE SENKRECHTE (null)ROJEKTION:",1,1,12
  409. 2686 do8,50," ATN (      /      /      )",1,2,12
  410. 2687 X[178]F1:[141]18700:do60,53,X$,1,1,9
  411. 2688 X[178]F2:[141]18700:do60[170]85,53,X$,1,1,9
  412. 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
  413. 2690 X[178]X1:[141]18700:do55,90,X$,1,1,9
  414. 2691 X[178]X2:[141]18700:do55,90[170]15,X$,1,1,9
  415. 2692 X[178]X3:[141]18700:do55,90[170]15[172]2,X$,1,1,9
  416. 2693 do40,90,"(",1,5,9:do110,90,")",1,5,9:do10,105,"N*",1,1,9
  417. 2694 do130,105,"=",1,1,9
  418. 2695 X[178]A:[141]18700:do140,105,X$,1,1,9
  419. 2697 [141]18500:[141]18600:[139]A$[178]" "[167]2600
  420. 2698 [137]1300
  421. 2700 [143] EBENE/PUNKT
  422. 2701 [141]18000
  423. 2702 do1,40,"VALBENE IN (null)ORMALENFORM:",1,1,12
  424. 2703 do8,120," (null) (      /      /      )",1,2,12
  425. 2704 do40,70,"(",1,5,9:do110,70,")",1,5,9:do130,85,"=",1,1,9
  426. 2705 do10,85,"N*",1,1,9
  427. 2706 X[178]55:I[178]1:[129]Y[178]70[164]70[170]28[169]14
  428. 2707 [141]19000:[139]X$[178]"LET"[167]1500
  429. 2708 X(I)[178][197](X$):I[178]I[170]1:[130]
  430. 2709 X[178]140:I[178]4:Y[178]85
  431. 2710 [141]19000:[139]X$[178]"LET"[167]1500
  432. 2711 X(I)[178][197](X$)
  433. 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
  434. 2713 Y[178]123:I[178]5:[129]X[178]55[164]55[170]2[172]85[169]85
  435. 2714 [141]19000:[139]X$[178]"LET"[167]1500
  436. 2715 X(I)[178][197](X$):I[178]I[170]1:[130]
  437. 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
  438. 2750 [141]28500:[141]18600:[141]18000
  439. 2751 do1,40,"(null)ROJEKTION VON ATN AUF VALBENE:",1,1,9
  440. 2752 do8,50," (null) (      /      /      )",1,2,12
  441. 2753 X[178]GX:[141]18700:do60,53,X$,1,1,9
  442. 2754 X[178]GY:[141]18700:do60[170]85,53,X$,1,1,9
  443. 2756 X[178]GZ:[141]18700:do60[170]2[172]85,53,X$,1,1,9
  444. 2757 do30,140,"ATNBSTAND:",1,1,10
  445. 2758 X[178]D:[141]18700:do108,140,X$,1,1,9
  446. 2798 [141]18500:[141]18600:[139]A$[178]" "[167]2700
  447. 2799 [137]1500
  448. 2800 [143] EBENEMENUE
  449. 2810 [141]18000
  450. 2820 do65,70,"- 1 -  (null)ORMALENFORM",1,1,12
  451. 2830 do65,90,"- 2 -  (null)ARAMETERFORM",1,1,12
  452. 2840 do65,130,"- 3 -  LEFT$AUPTMENUE",1,1,12
  453. 2850 [141]18600:X[178][181]([197](A$))
  454. 2860 [139] X[177]3 [176] X[179]1 [167] 2850
  455. 2870 [145] X [137]3300,3100,1000
  456. 2995 X[178]FP:[141]18700:do100,160,X$,1,1,9
  457. 2996 do100,160,"ATNBSTAND:",1,1,9
  458. 3100 [143] PARAMETERFORMEINGABE
  459. 3101 [141]18000:do1,40,"VALBENE IN (null)ARAMETERFORM:",1,1,12
  460. 3102 do5,65,"(null)=",1,2,12:do115,65,"+A",1,2,12:do35,55,"(",1,5,9
  461. 3103 do142,55,"(",1,5,9:do105,55,")",1,5,9:do212,55,")",1,5,9
  462. 3104 do223,65,"+B",1,2,12:do243,55,"(",1,5,9:do313,55,")",1,5,9
  463. 3105 d4,61,16,61,1
  464. 3106 d19,61,18[171]4,64,1
  465. 3107 d19,61,18[171]4,58,1
  466. 3108 X[178]50:I[178]1:[129]Y[178]55[164]55[170]22[169]11
  467. 3109 [141]19000:[139]X$[178]"LET"[167]2800
  468. 3110 X(I)[178][197](X$):I[178]I[170]1:[130]
  469. 3111 X[178]157:I[178]4:[129]Y[178]55[164]55[170]22[169]11
  470. 3112 [141]19000:[139]X$[178]"LET"[167]2800
  471. 3113 X(I)[178][197](X$):I[178]I[170]1:[130]
  472. 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
  473. 3115 X[178]258:I[178]7:[129]Y[178]55[164]55[170]22[169]11
  474. 3116 [141]19000:[139]X$[178]"LET"[167]2800
  475. 3117 X(I)[178][197](X$):I[178]I[170]1:[130]
  476. 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
  477. 3150 [141]28500:[141]18600:[141]18000:do1,40,"VALBENE IN (null)ORMALENFORM:",1,1,12
  478. 3151 do40,90,"(",1,5,9:do110,90,")",1,5,9:do130,105,"=",1,1,9
  479. 3152 do10,105,"N*",1,1,9
  480. 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)
  481. 3154 [141]30400
  482. 3160 X[178]N1:[141]18700:do55,90,X$,1,1,9
  483. 3161 X[178]N2:[141]18700:do55,90[170]15,X$,1,1,9
  484. 3162 X[178]N3:[141]18700:do55,90[170]30,X$,1,1,9
  485. 3163 X[178]C:[141]18700:do140,105,X$,1,1,9
  486. 3164 X(1)[178]N1:X(2)[178]N2:X(3)[178]N3:X(4)[178]C
  487. 3198 [141]28500:[141]18600
  488. 3199 [137]5000
  489. 3300 [143] NORMALENFORMEINGABE
  490. 3301 [141]18000
  491. 3310 do1,40,"VALBENE IN (null)ORMALENFORM:",1,1,12
  492. 3311 do40,90,"(",1,5,9:do110,90,")",1,5,9:do130,105,"=",1,1,9
  493. 3312 do10,105,"N*",1,1,9
  494. 3313 X[178]55:I[178]1:[129]Y[178]90[164]90[170]30[169]15
  495. 3314 [141]19000:[139]X$[178]"LET"[167]2800
  496. 3315 X(I)[178][197](X$):I[178]I[170]1:[130]
  497. 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
  498. 3317 X[178]140:Y[178]105:[141]19000:X(4)[178][197](X$)
  499. 3318 [141]28500:[141]18600:[141]18000
  500. 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
  501. 3350 do1,40,"VALBENE IN (null)ARAMETERFORM:",1,1,12
  502. 3351 do5,65,"(null)=",1,2,12:do115,65,"+A",1,2,12:do35,55,"(",1,5,9
  503. 3352 do142,55,"(",1,5,9:do105,55,")",1,5,9:do212,55,")",1,5,9
  504. 3353 do223,65,"+B",1,2,12:do243,55,"(",1,5,9:do313,55,")",1,5,9
  505. 3355 d4,61,16,61,1
  506. 3356 d19,61,18[171]4,64,1
  507. 3357 d19,61,18[171]4,58,1
  508. 3360 X[178]F1:[141]18700:do50,55,X$,1,1,9
  509. 3361 X[178]F2:[141]18700:do50,66,X$,1,1,9
  510. 3362 X[178]F3:[141]18700:do50,77,X$,1,1,9
  511. 3363 X[178]F4:[141]18700:do157,55,X$,1,1,9
  512. 3364 X[178]F5:[141]18700:do157,66,X$,1,1,9
  513. 3365 X[178]F6:[141]18700:do157,77,X$,1,1,9
  514. 3366 X[178]F7:[141]18700:do258,55,X$,1,1,9
  515. 3367 X[178]F8:[141]18700:do258,66,X$,1,1,9
  516. 3368 X[178]F9:[141]18700:do258,77,X$,1,1,9
  517. 3398 [141]28500:[141]18600:[137]5000
  518. 5000 [143] ZU EBENE 1
  519. 5001 [141]18000:[141]20000
  520. 5002 do10,40,"(null)PURPUNKTE:",1,1,12
  521. 5003 [139]X1$[179][177]"N"[167]:do8,60," (null) (      /      /      )",1,2,12
  522. 5004 [139]X2$[179][177]"N"[167]:do8,90," (null) (      /      /      )",1,2,12
  523. 5005 [139]X3$[179][177]"N"[167]:do8,120," (null) (      /      /      )",1,2,12
  524. 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]
  525. 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]
  526. 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]
  527. 5009 [141]28500:[141]18600:[141]18000
  528. 5020 [139]X1$[178]"N"[175]X2$[178]"N"[167]5040
  529. 5021 do1,40,"(null)PURGERADE IN XY-VALBENE:",1,1,12
  530. 5022 do40,65,"(null)=",1,2,12
  531. 5023 do160,65,"+A",1,2,12
  532. 5024 do70,55,"(",1,5,9
  533. 5025 do190,55,"(",1,5,9
  534. 5026 do140,55,")",1,5,9
  535. 5027 do260,55,")",1,5,9
  536. 5030 d39,61,51,61,1
  537. 5031 d53,61,47,64,1
  538. 5032 d53,61,47,58,1:[141]20500
  539. 5033 [141]28500:[141]18600:[141]18000
  540. 5040 [139]X1$[178]"N"[175]X3$[178]"N"[167]5053
  541. 5041 do1,40,"(null)PURGERADE IN XZ-VALBENE:",1,1,12
  542. 5042 do40,65,"(null)=",1,2,12
  543. 5043 do160,65,"+A",1,2,12
  544. 5044 do70,55,"(",1,5,9
  545. 5045 do190,55,"(",1,5,9
  546. 5046 do140,55,")",1,5,9
  547. 5047 do260,55,")",1,5,9
  548. 5050 d39,61,51,61,1
  549. 5051 d53,61,47,64,1
  550. 5052 d53,61,47,58,1:[141]20600
  551. 5053 [139]X2$[178]"N"[175]X3$[178]"N"[167]5110
  552. 5060 [141]28500:[141]18600:[141]18000
  553. 5061 do1,40,"(null)PURGERADE IN YZ-VALBENE:",1,1,12
  554. 5062 do40,65,"(null)=",1,2,12
  555. 5063 do160,65,"+A",1,2,12
  556. 5064 do70,55,"(",1,5,9
  557. 5065 do190,55,"(",1,5,9
  558. 5066 do140,55,")",1,5,9
  559. 5067 do260,55,")",1,5,9
  560. 5070 d39,61,51,61,1
  561. 5071 d53,61,47,64,1
  562. 5072 d53,61,47,58,1:[141]20700
  563. 5110 [141]18500:[141]18600
  564. 5120 [137]2800
  565. 17500 [143] ZURUECK
  566. 17510 do23,191,"  NICHT LOESBAR !",1,1,15
  567. 17515 d0,187,320,187,1
  568. 17520 [142]
  569. 18000 d5,1:do28,8," *** (null)ATN(null)LEFT$VALASCRIGHT$(null) ***",1,2,15
  570. 18010 d0,30,320,30,1
  571. 18100 [142]
  572. 18200 [143] TITELBILD ERSTELLEN
  573. 18210 d5,1
  574. 18220 do20,5,"***  (null)ATHEFIX  ***",1,2,16
  575. 18230 do135,50,"VON",1,1,12
  576. 18240 do107,75,"MID$.(null)IEHN",1,3,16
  577. 18250 do92,130,"(null)H.(null)ANGER",1,3,16
  578. 18260 do135,111,"UND",1,1,12
  579. 18270 do119,173,"IM MID$UNI 1985",1,1,12
  580. 18271 [143] KOORDINATENSYSTEM
  581. 18272 d32,158,32,178,1
  582. 18273 d32,178,52,178,1
  583. 18274 d32,178,22,188,1
  584. 18275 do28,149,"Z",1,1,9
  585. 18276 do18,190,"X",1,1,9
  586. 18277 do56,174,"Y",1,1,9
  587. 18280 [143] PFEILE
  588. 18281 d32,158,29,161,1
  589. 18282 d32,158,35,161,1
  590. 18283 d52,178,49,175,1
  591. 18284 d52,178,49,181,1
  592. 18285 d22,188,26,188,1
  593. 18286 d22,188,22,184,1
  594. 18290 [142]
  595. 18299 [143] ANLEITUNG
  596. 18300 [141]18000:do95,40,"ATN(null)(null)VALRIGHT$(null)(null)(null)CHR$:",1,1,16
  597. 18313 do2,55,"(null)IT DIESEM (null)ROGRAMM KOENNEN FAST",1,1,10
  598. 18314 do2,65,"ALLE ATNUFGABEN AUS DEM PEEKEREICH DER",1,1,9
  599. 18315 do2,75,"(null)EKTORGEOMETRIE GELOEST WERDEN.",1,1,10
  600. 18316 do2,85,"STR$AS (null)ROGRAMM VERLANGT VALINGABEN",1,1,10
  601. 18317 do2,95,"IN ASCORM VON KARTESISCHEN (null)OOR-",1,1,10
  602. 18318 do2,105,"DINATEN IM DREIDIMENSIONALEN",1,1,11
  603. 18319 do2,115,"(null)AUM.",1,1,10
  604. 18320 do2,125,"PEEKEFINDEN (null)IE SICH IN (null)2, SO",1,1,11
  605. 18321 do2,135,"SETZEN (null)IE EINFACH DIE (null)3-",1,1,12
  606. 18322 do2,145,"(null)OORDINATE AUF 0.",1,1,12
  607. 18325 do2,155,"ATNLLE VALRGEBNISSE WERDEN AUF 2",1,1,11
  608. 18326 do2,165,"(null)TELLEN NACH DEM (null)OMMA GE-",1,1,12
  609. 18327 do2,175,"RUNDET AUSGEGEBEN !",1,1,13
  610. 18330 [141]28500:[141]18600
  611. 18340 [141]18000:do95,40,"ATN(null)(null)VALRIGHT$(null)(null)(null)CHR$:",1,1,16
  612. 18345 do2,55,"(null)IT ASC1 KANN EINE LEFT$ARDCOPY",1,1,13
  613. 18350 do2,65,"ERSTELLT WERDEN.",1,1,13
  614. 18360 do2,75,"(null)IT ASC7 KANN MAN WIEDER INS LEFT$AUPT-",1,1,9
  615. 18370 do2,85,"MENUE ZURUECKGEHEN.",1,1,13
  616. 18371 do2,95,"(null)IT (null)(null)ATNLENVAL WIRD DIESELBE (null)ECHNUNG",1,1,10
  617. 18372 do2,105,"MIT ANDEREN (null)AHLENWERTEN WIEDER-",1,1,10
  618. 18373 do2,115,"HOLT.",1,1,10
  619. 18390 [141]28500:[141]18600:[137]1000
  620. 18500 [143] ZURUECK
  621. 18510 do23,191,"(null)URUECK MIT (null)VAL(null)(null)(null)(null) !",1,1,14
  622. 18515 d0,187,320,187,1
  623. 18520 [142]
  624. 18550 do23,191,"ASCEHLER IN VALINGABE !",1,1,15
  625. 18551 d0,187,320,187,1
  626. 18552 [142]
  627. 18560 do23,191,"ASCEHLER IN VALINGABE !",0,1,15
  628. 18561 d0,187,320,187,0
  629. 18562 [142]
  630. 18600 [161]A$:[139]A$[178]""[167]18600
  631. 18610 [139]A$[178]"INPUT"[167]dw:[137]18600
  632. 18620 [142]
  633. 18700 [143] PRINT USING
  634. 18710 X[178]([181](X[172]100[170]0.5))[173]100
  635. 18720 X$[178]" "[170][196](X)
  636. 18730 [139][202](X$,[195](X$)[171]1,1)[178]"."[167]X$[178]X$[170]"0":[137]18760
  637. 18740 [139][202](X$,[195](X$)[171]2,1)[178]"."[167]18760
  638. 18750 [139][202](X$,[195](X$)[171]1,1)[179][177]"."[167]X$[178]X$[170]".00"
  639. 18760 [139][202](X$,[195](X$)[171]3,1)[178]" "[167]X$[178]"0"[170][201](X$,3)
  640. 18770 [139][202](X$,[195](X$)[171]3,1)[178]"-"[167]X$[178]"-0"[170][201](X$,3)
  641. 18780 X$[178][201]("        "[170]X$,6):[142]
  642. 19000 [143] EINGABE
  643. 19010 X$[178]"":QW[178]1
  644. 19020 doX[170]QW[172]9[171]9,Y[170]5,"-",1,1,9
  645. 19030 [141]18600
  646. 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]
  647. 19041 [139][198](A$)[178]13[167][141]18550:[141]18600:[141]18560:[137]19000
  648. 19050 [139][198](A$)[178]20 [176] [198](A$)[178]148[167]19300
  649. 19051 [139] A$[178]"LET"[167]X$[178]A$:[142]
  650. 19055 [139] d(A$,"1-234567890.")[178]0[167]19030
  651. 19060 doX[170]QW[172]9[171]9,Y,""[170]A$,1,1,9
  652. 19070 QW[178]QW[170]1:X$[178]X$[170]A$:[137]19020
  653. 19300 [139]X$[178]""[167][137]19020
  654. 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
  655. 19320 QW[178]QW[171]1
  656. 19330 X$[178][200](X$,[195](X$)[171]1)
  657. 19340 [137]19020
  658. 20000 [143] SPURPUNKTE
  659. 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]""
  660. 20002 UX[178]1:UY[178]0:UZ[178]0:[141]30200
  661. 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"
  662. 20004 UX[178]0:UY[178]1:UZ[178]0:[141]30200
  663. 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"
  664. 20006 UX[178]0:UY[178]0:UZ[178]1:[141]30200
  665. 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"
  666. 20009 [129]I[178]1[164]9
  667. 20010 X[178]Z(I):[141]18700:Z$(I)[178]X$:[130]:[142]
  668. 20500 [143] SPURGERADE ZU XY
  669. 20501 N1[178]X(1):N2[178]X(2):N3[178]X(3):CE[178]X(4)
  670. 20502 M1[178]0:M2[178]0:M3[178]1:CF[178]0:[141]30600
  671. 20503 G$[178]X$:[141]18700:R$[178]X$
  672. 20504 [139]G$[178]"U"[167][141]18700:[141]18600:[142]
  673. 20510 X[178]S1:[141]18700:do85,55,X$,1,1,9
  674. 20511 X[178]S2:[141]18700:do85,66,X$,1,1,9
  675. 20512 X[178]S3:[141]18700:do85,77,X$,1,1,9
  676. 20513 X[178]S4:[141]18700:do205,55,X$,1,1,9
  677. 20514 X[178]S5:[141]18700:do205,66,X$,1,1,9
  678. 20515 X[178]S6:[141]18700:do205,77,X$,1,1,9
  679. 20516 [139]G$[178]"P"[167] do1,100,"STR$IE VALBENE IST PARALLEL !",1,1,12
  680. 20517 [139]G$[178]"S"[167] do1,100,"STR$IE VALBENE IST SENKRECHT !",1,1,12
  681. 20518 [139]G$[178]"P"[175]EF[179][177]0[167]do30,140,"ATNBSTAND:",1,1,10:do123,140,EF$,1,1,9
  682. 20519 [139]G$[179][177]"S"[175]G$[179][177]"P"[167] do10,120,"(null)INKEL:",1,1,12
  683. 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
  684. 20530 [142]
  685. 20600 [143] SPURGERADE ZU XZ
  686. 20601 N1[178]X(1):N2[178]X(2):N3[178]X(3):CE[178]X(4)
  687. 20602 M1[178]0:M2[178]1:M3[178]0:CF[178]0:[141]30600
  688. 20603 G$[178]X$:[141]18700:R$[178]X$
  689. 20604 [139]G$[178]"U"[167][141]18700:[141]18600:[142]
  690. 20610 X[178]S1:[141]18700:do85,55,X$,1,1,9
  691. 20611 X[178]S2:[141]18700:do85,66,X$,1,1,9
  692. 20612 X[178]S3:[141]18700:do85,77,X$,1,1,9
  693. 20613 X[178]S4:[141]18700:do205,55,X$,1,1,9
  694. 20614 X[178]S5:[141]18700:do205,66,X$,1,1,9
  695. 20615 X[178]S6:[141]18700:do205,77,X$,1,1,9
  696. 20616 [139]G$[178]"P"[167] do1,100,"STR$IE VALBENE IST PARALLEL !",1,1,12
  697. 20617 [139]G$[178]"S"[167] do1,100,"STR$IE VALBENE IST SENKRECHT !",1,1,12
  698. 20618 [139]G$[178]"P"[175]EF[179][177]0[167]do30,140,"ATNBSTAND:",1,1,10:do123,140,EF$,1,1,9
  699. 20619 [139]G$[179][177]"S"[175]G$[179][177]"P"[167] do10,120,"(null)INKEL:",1,1,12
  700. 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
  701. 20630 [142]
  702. 20700 [143] SPURGERADE ZU YZ
  703. 20701 M1[178]X(1):M2[178]X(2):M3[178]X(3):CF[178]X(4)
  704. 20702 N1[178]1:N2[178]0:N3[178]0:CE[178]0:[141]30600
  705. 20703 G$[178]X$:[141]18700:R$[178]X$
  706. 20704 [139]G$[178]"U"[167][141]18700:[141]18600:[142]
  707. 20710 X[178]S1:[141]18700:do85,55,X$,1,1,9
  708. 20711 X[178]S2:[141]18700:do85,66,X$,1,1,9
  709. 20712 X[178]S3:[141]18700:do85,77,X$,1,1,9
  710. 20713 X[178]S4:[141]18700:do205,55,X$,1,1,9
  711. 20714 X[178]S5:[141]18700:do205,66,X$,1,1,9
  712. 20715 X[178]S6:[141]18700:do205,77,X$,1,1,9
  713. 20716 [139]G$[178]"P"[167] do1,100,"STR$IE VALBENE IST PARALLEL !",1,1,12
  714. 20717 [139]G$[178]"S"[167] do1,100,"STR$IE VALBENE IST SENKRECHT !",1,1,12
  715. 20718 [139]G$[178]"P"[175]EF[179][177]0[167]do30,140,"ATNBSTAND:",1,1,10:do123,140,EF$,1,1,9
  716. 20719 [139]G$[179][177]"S"[175]G$[179][177]"P"[167] do10,120,"(null)INKEL:",1,1,12
  717. 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
  718. 20730 [142]
  719. 24500 [143] BOGEN IN GRAD
  720. 24510 X[178](X[172]180)[173][255]:[142]
  721. 24600 [143] VEKTOR AB
  722. 24610 X1[178]B1[171]A1
  723. 24611 X2[178]B2[171]A2
  724. 24612 X3[178]B3[171]A3:[142]
  725. 25000 [141]25040:[141]25010:[142]
  726. 25010 X1[178]A1[173]A:X2[178]A2[173]A:X3[178]A3[173]A:[142]
  727. 25020 [141]25040:[142]
  728. 25040 A[178](A1[174]2[170]A2[174]2[170]A3[174]2)[174]0.5:[142]
  729. 25050 [143] SKALARPRODUKT
  730. 25060 X[178]A1[172]B1[170]A2[172]B2[170]A3[172]B3:[142]
  731. 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
  732. 25091 A1[178]V1:A2[178]V2:A3[178]V3:B[178]A:A[178]A0
  733. 25100 X[178][182](S[173](A[172]B))
  734. 25101 [139]X[178]1[167]X[178]0:[142]
  735. 25103 X[178][171][193](X[173][186](1[171]X[174]2))[170][255][173]2
  736. 25104 [139]S[179]0[167]X[178][255][171]X
  737. 25105 [142]
  738. 25110 [143] VEKTORPRODUKT
  739. 25120 :
  740. 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]
  741. 25140 [143] FLAECHE 2 VEKTOREN
  742. 25150 [141]25120:A1[178]X1:A2[178]X2:A3[178]X3:[141]25040:[142]
  743. 25160 [143] LAGE VON VEKTOREN
  744. 25170 [141]25090:[139][181](X[172]100[170].5)[178]314[167]X[178]O
  745. 25171 [139][181](X[172]100[170].5)[178]157[167]X$[178]"S":X[178][255][173]2:[142]
  746. 25180 [139][181](X[172]100[170].5)[178]0[167]X$[178]"P":X[178]0:[142]
  747. 25190 [141]24500:[141]18700:X[178][197](X$):[142]
  748. 25300 [143] DETERMINANTE
  749. 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)
  750. 25302 D[178]D[171]X(6)[172]X(8)[172]X(1)[171]X(9)[172]X(2)[172]X(4)
  751. 25303 [142]
  752. 28500 [143] WEITER
  753. 28510 do23,191,"(null)EITER MIT (null)VAL(null)(null)(null)(null) !",1,1,15
  754. 28515 d0,187,320,187,1
  755. 28520 [142]
  756. 28600 [143] SPURPUNKTE
  757. 28601 [143] IN YZ-EBENE
  758. 28602 :
  759. 28610 [139]UX[178]0[167]X1$[178]"N":[137]28640
  760. 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
  761. 28630 :
  762. 28631 [143] IN XZ-EBENE
  763. 28640 [139]UY[178]0[167]X2$[178]"N":[137]28670
  764. 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
  765. 28660 :
  766. 28661 [143] IN XY-EBENE
  767. 28670 [139]UZ[178]0[167]X3$[178]"N":[137]28690
  768. 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
  769. 28690 [142]
  770. 29000 [143] ABSTAND PUNKT/GERADE ...
  771. 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)
  772. 29030 F1[178]AX[170]KG[172]UX
  773. 29031 F2[178]AY[170]KG[172]UY
  774. 29032 F3[178]AZ[170]KG[172]UZ
  775. 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
  776. 29100 PX[178]P1[171]2[172]FX:PY[178]PZ[171]2[172]FY:PZ[178]P3[171]2[172]FZ
  777. 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
  778. 29140 [141]25130
  779. 29150 A1[178]X(1):A2[178]X(2):A3[178]X(3):B1[178]X1:B2[178]X2:B3[178]X3:[141]25060
  780. 29170 [142]
  781. 29200 [143] G/G
  782. 29219 A1[178]UX:A2[178]UY:A3[178]UZ:B1[178]VX:B2[178]VY:B3[178]VZ
  783. 29220 [141]25170:T[178]X:[139]X$[178]"P"[167]T[178]0:G$[178]"P":[137]29240
  784. 29221 [139]X$[178]"S"[167]T[178]90:G$[178]"S"
  785. 29230 [137]29250
  786. 29240 P1[178]BX:P2[178]BY:P3[178]BZ:[137]29020
  787. 29241 [139] T[177]90 [167]T[178]180[171]T
  788. 29242 [142]
  789. 29250 [143] WINDSCHIEF ?
  790. 29251 X(1)[178]BX[171]AX:X(2)[178]BY[171]AY:X(3)[178]BZ[171]AZ
  791. 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
  792. 29253 [139]D[179][177]0[167]G$[178]"W":[137]29270
  793. 29254 [137]29320
  794. 29270 [143] WINDSCHIEF ABSTAND
  795. 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
  796. 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
  797. 29290 [141]30000:FP[178]D
  798. 29291 [139]T[177]90 [167]T[178]180[171]T
  799. 29320 [143] SCHNITTPUNKTSBEdHNUNG
  800. 29330 [139]UX[178]0[175]VX[179][177]0[167]29350
  801. 29340 [137]29400
  802. 29350 KB[178](AX[171]BX)[173]VX
  803. 29360 [139]UY[179][177]0[167]KA[178](BY[171]AY[170]KB[172]VY)[173]UY
  804. 29370 [139]AZ[170]KA[172]UZ[178]BZ[170]KB[172]VZ[167]29900
  805. 29380 [139]UY[178]0[167]KA[178](BZ[171]AZ[170]KB[172]VZ)[173]UZ
  806. 29390 [139]AY[170]KA[172]UY[178]BY[170]KB[172]VY[167]29900
  807. 29392 [142]
  808. 29400 [139]UY[178]0[175]VY[179][177]0[167]29420
  809. 29410 [137]29470
  810. 29420 KB[178](AY[171]BY)[173]VY
  811. 29430 [139]UX[179][177]0[167]KA[178](BX[171]AX[170]KB[172]VX)[173]UX
  812. 29440 [139]AZ[170]KA[172]UZ[178]BZ[170]KB[172]VZ[167]29900
  813. 29450 [139]UX[178]0[167]KA[178](BZ[171]AZ[170]KB[172]VZ)[173]UZ
  814. 29460 [139]AX[170]KA[172]UX[178]BX[170]KB[172]VX[167]29900
  815. 29470 [139]UZ[178]0[175]VZ[179][177]0[167]29490
  816. 29480 [137]29540
  817. 29490 KB[178](AZ[171]BZ)[173]VZ
  818. 29500 [139]UX[179][177]0[167]KA[178](BX[171]AX[170]KB[172]VX)[173]UX
  819. 29510 [139]AY[170]KA[172]UY[178]BY[170]KB[172]VY[167]29900
  820. 29520 [139]UX[178]0[167]KA[178](BY[171]AY[170]KB[172]VY)[173]UY
  821. 29530 [139]AZ[170]KA[172]UZ[178]BZ[170]KB[172]VZ[167]29900
  822. 29540 [139]UX[178]0[175]VX[178]0[167]29600
  823. 29550 [139]UY[178]0[175]VY[178]0[167]29610
  824. 29560 [139]UZ[178]0[175]VZ[178]0[167]29620
  825. 29570 [139]UY[172]VZ[179][177]UZ[172]VY[167]29600
  826. 29580 [139]UX[172]VZ[179][177]UZ[172]VX[167]29610
  827. 29590 [139]UX[172]VY[179][177]UY[172]VX[167]29620
  828. 29595 [144]
  829. 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
  830. 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
  831. 29620 KA[178]([171](AX[171]BX)[172]VY[170](AY[171]BY)[172]VX)[173](UX[172]VY[171]UY[172]VX)
  832. 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
  833. 29901 [142]
  834. 30000 [143] PUNKT/EBENE
  835. 30010 [141]30500:X[178][184](X)
  836. 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
  837. 30030 [142]
  838. 30200 [143] G/E
  839. 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
  840. 30230 [139]X$[178]"P"[167]X$[178]"S":[137]30270
  841. 30231 [139]X$[178]"S"[167]X$[178]"P":[137]30233
  842. 30232 [137]30270
  843. 30233 NX[178]N1:NY[178]N2:NZ[178]N3:XE[178]G1:YE[178]G2:ZE[178]G3
  844. 30240 [141]30000:SP[178]D
  845. 30250 [139]SP[178]0[167]X$[178]"E":[142]
  846. 30260 [139]SP[179][177]0[167]X$[178]"P":[142]
  847. 30270 U1[178]UX:U2[178]UY:U3[178]UZ:[141]30340
  848. 30280 GX[178]G1[170]KE[172]UX:GY[178]G2[170]KE[172]UY:GZ[178]G3[170]KE[172]UZ
  849. 30290 X[178][182](90[171]X):[142]
  850. 30300 [143] SCHNITTPUNKT G/E
  851. 30340 KE[178]U1[172]N1[170]U2[172]N2[170]U3[172]N3
  852. 30350 [139]KE[178]0[167][144]
  853. 30360 KE[178](C[171]N1[172]G1[171]N2[172]G2[171]N3[172]G3)[173]KE:[142]
  854. 30400 [143] UMdHNUNG PARA->NORMAL
  855. 30430 A1[178]E4:A2[178]E5:A3[178]E6:B1[178]E7:B2[178]E8:B3[178]E9
  856. 30440 [141]25130:N1[178]X1:N2[178]X2:N3[178]X3
  857. 30450 A1[178]N1:A2[178]N2:A3[178]N3:B1[178]E1:B2[178]E2:B3[178]E3
  858. 30460 [141]25060:C[178]X:[142]
  859. 30500 [143] HNF AUFSTELLEN
  860. 30530 A1[178]NX:A2[178]NY:A3[178]NZ:[141]25040:N[178]A
  861. 30540 [139]C[177][178]0[167]D[178](NX[172]XE[170]NY[172]YE[170]NZ[172]ZE[171]C)[173]N
  862. 30550 [139]C[179]0[167]D[178](NX[172]XE[170]NY[172]YE[170]NZ[172]ZE[171]C)[173]([171]N)
  863. 30560 D[178][182](D):[142]
  864. 30600 [143] LAGE E/E
  865. 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
  866. 30630 NX[178]N1:NY[178]N2:NZ[178]N3:C[178]CE:[141]30530
  867. 30640 DE[178]D
  868. 30690 NX[178]M1:NY[178]M2:NZ[178]M3:C[178]CF:[141]30530
  869. 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
  870. 30710 EF[178][182](DE[171]DF):X$[178]"P":[142]
  871. 30740 [143] SCHNITTGERADE VON E/E
  872. 30741 I[178]1
  873. 30750 F4[178][171]M2:F5[178]M1:F6[178]0:F7[178]0:F8[178][171]M3:F9[178]M2
  874. 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
  875. 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
  876. 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
  877. 30790 [139]M3[179][177]0[167]F1[178]0:F2[178]0:F3[178]CF[173]M3:[137]30820
  878. 30800 [139]M2[179][177]0[167]F1[178]0:F2[178]CF[173]M2:F3[178]0:[137]30820
  879. 30810 [139]M1[179][177]0[167]F1[178]CF[173]M1:F2[178]0:F3[178]0:[137]30820
  880. 30820 T1[178]F4:T2[178]F5:T3[178]F6:G1[178]F7:G2[178]F8:G3[178]F9
  881. 30821 FX[178]T1:FY[178]T2:FZ[178]T3:GX[178]G1:GY[178]T2:GZ[178]T3
  882. 30830 L[178]N1[172]FX[170]N2[172]FY[170]N3[172]FZ
  883. 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
  884. 30840 [139] L[178]0[175]I[177]100[167]X$[178]"U":[142]
  885. 30850 [139] L[178]0[167]I[178]I[170]1:[137]30750
  886. 30860 R[178](CE[171]N1[172]F1[171]N2[172]F2[171]N3[172]F3)[173]L
  887. 30870 T[178]([171]N1[172]GX[171]N2[172]GY[171]N3[172]GZ)[173]L
  888. 30880 S1[178]F1[170]R[172]FX:S2[178]F2[170]R[172]FY:S3[178]F3[170]R[172]FZ
  889. 30890 S4[178]T[172]FX[170]GX:S5[178]T[172]FY[170]GY:S6[178]T[172]FZ[170]GZ
  890. 30895 [139]X[177]90[167]X[178]180[171]X
  891. 30900 [142]
  892.