home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 October / 64er_Magazin_90-10_1990_Markt__Technik_de_Side_A.d64 / 0l-systeme.bas (.txt) next >
Commodore BASIC  |  2022-10-26  |  10KB  |  526 lines
  1. 0 rem *********************************
  2. 1 rem *                               *
  3. 2 rem *         0l-systeme            *
  4. 3 rem *                               *
  5. 4 rem * (c) 1990      kurt zimmermann *
  6. 5 rem *                               *
  7. 6 rem * idee+algorythmus:dietmar saupe*
  8. 7 rem * grafikroutinen:  heimo ponnath*
  9. 8 rem *  compilieren mit basic boss   *
  10. 9 rem *********************************
  11. 10 :
  12. 11 rem
  13. 12 rem steuerbefehle fuer basic boss
  14. 13 rem
  15. 14 :
  16. 15 rem@ \otheron
  17. 20 rem@ \allram
  18. 30 rem@ \varstart $9fd0:\heapend $fff0
  19. 40 rem@ \fastfor:\shortif:\fastarray
  20. 50 rem@ \datatype byte
  21. 55 rem@ \systext "0l-systeme (c) 1990"
  22. 60 rem@ \constant gr,cl,co,te,li,lo,sa,x,y,sm,ma,n
  23. 70 rem@ \byte a(,s(,s0( =$4400,sd(,a,i,td,j,ss,fl,v,k(,c,m,b
  24. 80 rem@ \word im,s,s0,l,k,x0,y0,xn,yn,ii
  25. 90 rem@ \integer d
  26. 91 rem@ \ignore
  27. 92 print "[147][196]ieses [208]rogramm laeuft erst, nachdem es"
  28. 93 print "mit '[194]asic [194]oss' compiliert wurde !!!!!"
  29. 94 end
  30. 95 rem@ \use
  31. 96 :
  32. 97 rem konstanten definition
  33. 98 :
  34. 99 ma=23500
  35. 100 dim a(101),s(ma),s0(ma),k(16),r$(16),co(50),si(50),sx(10),sy(10)
  36. 105 dim sd(10)
  37. 110 n=7:x=320:y=200:sm=10
  38. 120 gr=16384:cl=16387:co=16390:te=16393:li=16396:lo=16399:sa=16402
  39. 130 _load "h4.turtle.com",8
  40. 140 :
  41. 200 rem einleitung
  42. 201 :
  43. 210 poke 53280,0:poke 53281,0
  44. 220 print chr$(14);"[147]                       ";
  45. 230 print"              "
  46. 240 print"                        ";
  47. 250 print"           "
  48. 260 print"                        "
  49. 270 print:print:print
  50. 280 print "[208]rogramm zum generieren von 0[204]-[211]ystemen"
  51. 290 print
  52. 300 print "[195]opyright (c) 1990      [203]urt [218]immermann
  53. 310 [153]:[153]
  54. 320 [153] "right$dee und atnlgorythmus:   str$ietmar (NULL)aupe"
  55. 330 [153]
  56. 340 [153] "chr$rafikroutinen:         left$eimo (NULL)onnath"
  57. 350 [153]
  58. 360 [153] "lenompiliert mit:         peekasic peekoss"
  59. 370 [153]:[153]
  60. 380 [153] "      peekitte druecken sie eine (NULL)aste"
  61. 390 [161] a$:[139] a$[178]"" [167] 390
  62. 450 :
  63. 500 [143] steuerprogramm
  64. 501 :
  65. 510 [151] 53280,0:[151] 53281,0
  66. 520 [153] [199](14);"load (NULL)rogramm zum erzeugen von 0(NULL)-(NULL)ystemen"
  67. 530 [153]:[153]:[153]
  68. 540 [153] "(a)  valrzeugen von 0(NULL)-(NULL)ystemen"
  69. 550 [153] "(b)  0(NULL)-(NULL)ystem-peekibliothek"
  70. 560 [153]
  71. 562 [153] "(c)  0(NULL)-(NULL)arameter ansehen"
  72. 564 [153] "(d)  0(NULL)-(NULL)arameter aendern"
  73. 566 [153]
  74. 570 [153] "(e)  0(NULL)-(NULL)arameter laden"
  75. 580 [153] "(f)  0(NULL)-(NULL)arameter speichern"
  76. 590 [153]
  77. 592 [153] "(g)  peekild laden"
  78. 594 [153] "(h)  peekild speichern"
  79. 596 [153] "(i)  peekild ansehen"
  80. 598 [153]
  81. 600 [153] "(j)  str$iskbefehl senden"
  82. 610 [153] "(k)  str$irectory"
  83. 650 [161] a$:[139] a$[178]"" [167] 650
  84. 660 b[178][198](a$)[171]64
  85. 670 [139] b[179]1 [176] b[177]11 [167] 650
  86. 680 [145] b [141] 1000,8000,12500,13000,10000,10500,11500,11000,12000,9500,9000
  87. 690 [137] 500
  88. 700 :
  89. 1000 [143] hauptprogramm plot-0l-system
  90. 1001 :
  91. 1010 [141] 2000:[143] eingabe
  92. 1020 fl[178]0
  93. 1023 [141] 3000:[143] generiert 'string'
  94. 1025 [139] fl[178]1 [167] 1060
  95. 1027 fl[178]0
  96. 1030 [141] 4000:[143] 'string' aufraeumen
  97. 1032 [139] fl[178]1 [167] 1060
  98. 1035 fl[178]0
  99. 1040 [141] 5000:[143] berechnet groesse
  100. 1045 [139] fl[178]1 [167] 1060
  101. 1050 [141] 6000:[143] wertet 'string' aus
  102. 1060 [161] a$:[139] a$[178]"" [167] 1060
  103. 1070 [158] te:[153] [199](14):[151] 53280,0
  104. 1075 fa[178]s[172]10000
  105. 1076 fa[178][181](fa[173]ma)[173]100
  106. 1077 [153] "(NULL)peicherauslastung:";fa;"%"
  107. 1079 [153]
  108. 1080 [153] "(NULL)ekursionstiefe aendern?"
  109. 1090 [161] a$:[139] a$[178]"" [167] 1090
  110. 1100 [139] a$[178]"n" [167] [142]
  111. 1105 [139] a$[179][177]"j" [167] 1090
  112. 1110 [141] 2280
  113. 1120 [137] 1020
  114. 1130 :
  115. 2000 [143] eingabe der parameter
  116. 2001 :
  117. 2010 [153] [199](14);"loadvalingabe der (NULL)arameter:"
  118. 2020 [153]:[153]:[153]
  119. 2030 [133] "atnnzahl der (NULL)ariablen:";v
  120. 2040 [139] v[177]9 [167] 2030
  121. 2045 m[178]n[170]v
  122. 2047 [140]
  123. 2050 [129] i[178]1 [164] n
  124. 2060 :[135] k(i)
  125. 2070 [130] i
  126. 2080 [139] v[178]0 [167] 2120
  127. 2090 :[129] i[178]1 [164] v
  128. 2100 ::k(i[170]n)[178]70[170]i
  129. 2110 :[130] i
  130. 2120 [153]:[153] "atnxiom:"
  131. 2130 [133] a$
  132. 2140 a[178][195](a$)
  133. 2150 [129] i[178]1 [164] a
  134. 2160 :a(i)[178][198]([202](a$,i,1))
  135. 2170 [130] i
  136. 2180 [153]
  137. 2190 [133] "atnnzahl der (NULL)ichtungen:";td
  138. 2200 [139] td[177]50 [167] 2190
  139. 2210 [153] "load(NULL)roduktionsgesetze eingeben:"
  140. 2220 [153]:[153]
  141. 2230 [129] i[178]1 [164] m
  142. 2240 :[153] [199](k(i));":"
  143. 2250 :[133] "  ";r$(i)
  144. 2260 :[139] r$(i)[178]"" [167] r$(i)[178][199](k(i))
  145. 2270 [130] i
  146. 2280 [133] "load(NULL)ekursionstiefe:";im
  147. 2290 [142]
  148. 2300 [131] 70,198,43,45,95,91,93
  149. 2310 :
  150. 3000 [143] generiert 'string'
  151. 3001 :
  152. 3005 [151] 53280,2
  153. 3010 [129] i[178]1 [164] a
  154. 3020 :s0(i)[178]a(i)
  155. 3030 [130] i
  156. 3040 s0[178]a
  157. 3060 [129] l[178]1 [164] im
  158. 3065 :s[178]0
  159. 3070 :[129] k[178]1 [164] s0
  160. 3080 ::c[178]s0(k)
  161. 3090 ::i[178]1
  162. 3100 :::[139] i[177]m [176] c[178]k(i) [167] 3130
  163. 3110 :::i[178]i[170]1
  164. 3120 ::[137] 3100
  165. 3130 ::[139] c[179][177]k(i) [167] 3170
  166. 3140 ::[129] j[178]1 [164] [195](r$(i))
  167. 3150 :::s(s[170]1)[178][198]([202](r$(i),j,1))
  168. 3155 :::s[178]s[170]1
  169. 3157 :::[139] s[177]ma [167] 3240
  170. 3160 ::[130] j
  171. 3170 :[130] k
  172. 3180 :[129] k[178]1 [164] s
  173. 3190 ::s0(k)[178]s(k)
  174. 3200 :[130] k
  175. 3210 :s0[178]s
  176. 3220 [130] l
  177. 3230 [142]
  178. 3240 fl[178]1
  179. 3242 [153]
  180. 3245 [153] "(NULL)peicherueberlauf bei";l;"ter right$teration"
  181. 3250 [142]
  182. 3260 :
  183. 4000 [143] raeumt 'string' auf
  184. 4001 :
  185. 4005 [151] 53280,6
  186. 4010 s0[178]0
  187. 4020 [129] l[178]1 [164] s
  188. 4030 :c[178]s(l)
  189. 4040 :i[178]1
  190. 4050 ::[139] c[179][177]k(i) [167] 4090
  191. 4060 :::s0[178]s0[170]1
  192. 4070 :::s0(s0)[178]s(l)
  193. 4080 ::[137] 4110
  194. 4090 ::i[178]i[170]1
  195. 4100 :[139] i[179]m[170]1 [167] 4050
  196. 4110 [130] l
  197. 4120 [129] l[178]1 [164] s0
  198. 4130 :s(l)[178]s0(l)
  199. 4140 [130] l
  200. 4150 s[178]s0
  201. 4155 [139] s[178]0 [167] 4170
  202. 4160 [142]
  203. 4170 fl[178]1
  204. 4180 [153]
  205. 4190 [153] "(NULL)och nichts zu zeichnen. (NULL)ekursionstiefeerhoehen !"
  206. 4200 [142]
  207. 4210 :
  208. 5000 [143] bestimmt groesse
  209. 5001 :
  210. 5005 [151] 53280,5
  211. 5010 [129] i[178]0 [164] td[171]1
  212. 5020 :co(i)[178][190](2[172][255][172]i[173]td)
  213. 5030 :si(i)[178][191](2[172][255][172]i[173]td)
  214. 5040 [130] i
  215. 5050 d[178]0
  216. 5060 tx[178]0:ty[178]0
  217. 5070 xr[178]0:xl[178]0:yo[178]0:yu[178]0
  218. 5080 [129] l[178]1 [164] s
  219. 5090 :c[178]s(l)
  220. 5100 :[141] 7000
  221. 5110 :[139] c[179][177]70 [175] c[179][177]198 [167] 5200
  222. 5120 ::[139] tx[179]xr [167] 5140
  223. 5130 ::xr[178]tx
  224. 5140 ::[139] tx[177]xl [167] 5160
  225. 5150 ::xl[178]tx
  226. 5160 ::[139] ty[179]yo [167] 5180
  227. 5170 ::yo[178]ty
  228. 5180 ::[139] ty[177]yu [167] 5200
  229. 5190 ::yu[178]ty
  230. 5200 [130] l
  231. 5205 [139] xr[178]xl [176] yo[178]yu [167] 5220
  232. 5210 [142]
  233. 5220 fl[178]1
  234. 5230 [153]
  235. 5240 [153] "(NULL)eine (NULL)eichenbefehle vorhanden."
  236. 5250 [153] "(NULL)roduktionsgesetze ueberpruefen !"
  237. 5260 [142]
  238. 5270 :
  239. 6000 [143] wertet 'string' aus
  240. 6001 :
  241. 6005 [158] cl:[158] co,0,5:[158] gr
  242. 6010 tx[178](x[171]1)[173](xr[171]xl)
  243. 6020 ty[178](y[171]1)[173](yo[171]yu)
  244. 6030 [139] tx[177]ty [167] 6060
  245. 6040 :fa[178]tx
  246. 6050 :[137] 6070
  247. 6060 fa[178]ty
  248. 6070 d[178]0
  249. 6080 tx[178]0:ty[178]0
  250. 6096 x0[178][181]([182](fa[172]xl))
  251. 6098 y0[178]199[171][181]([182](fa[172]yu))
  252. 6100 [129] l[178]1 [164] s
  253. 6110 :c[178]s(l)
  254. 6120 :[141] 7000
  255. 6130 :xn[178][181](fa[172](tx[171]xl))
  256. 6140 :yn[178]199[171][181](fa[172](ty[171]yu))
  257. 6150 :[139] c[179][177]70 [167] 6180
  258. 6160 ::[158] li,x0,y0,xn,yn,1
  259. 6170 ::
  260. 6180 ::
  261. 6190 ::x0[178]xn:y0[178]yn
  262. 6200 [130] l
  263. 6210 [142]
  264. 6220 :
  265. 7000 [143] erneuert turtle
  266. 7001 :
  267. 7010 [139] c[179][177]70 [175] c[179][177]198 [167] 7050
  268. 7020 :tx[178]tx[170]co(d)
  269. 7030 :ty[178]ty[170]si(d)
  270. 7040 :[137] 7400
  271. 7050 [139] c[179][177]43 [167] 7090
  272. 7060 :d[178]d[171]1
  273. 7070 :[139] d[179]0 [167] d[178]td[171]1
  274. 7080 :[137] 7400
  275. 7090 [139] c[179][177]45 [167] 7130
  276. 7100 :d[178]d[170]1
  277. 7110 :[139] d[178]td [167] d[178]0
  278. 7120 :[137] 7400
  279. 7130 [139] c[179][177]95 [167] 7170
  280. 7140 :d[178]d[170]td[173]2
  281. 7150 :[139] d[177]td [167] d[178]d[171]td
  282. 7160 :[137] 7400
  283. 7170 [139] c[179][177]91 [167] 7240
  284. 7180 :[139] ss[178]sm [167] 7410
  285. 7190 :sx(ss)[178]tx
  286. 7200 :sy(ss)[178]ty
  287. 7210 :sd(ss)[178]d
  288. 7220 :ss[178]ss[170]1
  289. 7230 :[137] 7400
  290. 7240 [139] c[179][177]93 [167] 7310
  291. 7250 :[139] ss[178]0 [167] 7440
  292. 7260 :ss[178]ss[171]1
  293. 7270 :tx[178]sx(ss)
  294. 7280 :ty[178]sy(ss)
  295. 7290 :d[178]sd(ss)
  296. 7300 :[137] 7400
  297. 7310 [143]
  298. 7400 [142]
  299. 7410 [153] "(NULL)tackueberlauf"
  300. 7420 fl[178]1
  301. 7430 [137] 7400
  302. 7440 [153] "(NULL)tack leer"
  303. 7450 fl[178]1
  304. 7460 [137] 7400
  305. 7470 :
  306. 8000 [143] fertige systeme
  307. 8001 :
  308. 8005 [153] "load0(NULL)-(NULL)ystem-peekibliothek:"
  309. 8010 [153]:[153]
  310. 8020 [153] "peekitte waehlen sie"
  311. 8030 [153]
  312. 8040 [153] " (a) (NULL)och (NULL)chneeflockenkurve"
  313. 8050 [153] " (b) (NULL)uadratische (NULL)och right$nsel"
  314. 8060 [153] " (c) asclaechenfuellende left$ilbert (NULL)urve"
  315. 8070 [153] " (d) asclaechenfuellende (NULL)eano (NULL)urve"
  316. 8080 [153] " (e) (NULL)lassisches (NULL)ierpinsky str$reieck"
  317. 8090 [153] " (f) (NULL)uadratische (NULL)ierpinsky (NULL)urve"
  318. 8100 [153] " (g) str$rachen (NULL)urve"
  319. 8110 [153] " (h) peekusch 1"
  320. 8120 [153] " (i) peekusch 2"
  321. 8130 [153] " (j) peekusch 3"
  322. 8140 [153] " (k) peekusch 4"
  323. 8200 [153]
  324. 8210 [161] a$:[139] a$[178]"" [167] 8210
  325. 8215 fl[178][198](a$)[171]64
  326. 8220 [139] fl[179]1 [176] fl[177]11 [167] 8210
  327. 8225 [140] 8510
  328. 8230 [129] j[178]1 [164] fl
  329. 8240 :[135] v:m[178]n[170]v
  330. 8250 :[135] td
  331. 8260 :[135] a$
  332. 8270 :a[178][195](a$)
  333. 8280 :[129] i[178]1 [164] a
  334. 8290 ::a(i)[178][198]([202](a$,i,1))
  335. 8300 :[130] i
  336. 8310 :[135] r$(1),r$(2)
  337. 8320 :r$(3)[178]"+":r$(4)[178]"-":r$(5)[178]"_":r$(6)[178]"[":r$(7)[178]"]"
  338. 8330 :[139] v[178]0 [167] 8365
  339. 8340 :[129] i[178]1 [164] v
  340. 8350 ::[135] r$(7[170]i)
  341. 8360 :[130] i
  342. 8365 [130] j
  343. 8370 [140]
  344. 8380 [129] i[178]1 [164] n
  345. 8390 :[135] k(i)
  346. 8400 [130] i
  347. 8410 [139] v[178]0 [167] 8460
  348. 8420 :[129] i[178]1 [164] v
  349. 8430 ::k(i[170]n)[178]70[170]i
  350. 8440 :[130] i
  351. 8460 [137] 1110
  352. 8500 [143]@ \datatype string
  353. 8510 [131] 0,6,"f","f-f++f-f","asc"
  354. 8520 [131] 0,4,"f+f+f+f","f+f-f-ff+f+f-f","asc"
  355. 8530 [131] 2,4,"g","f","asc","-hf+gfg+fh-","+gf-hfh-fg+"
  356. 8540 [131] 2,4,"g","f","asc","gfhfg+f+hfgfh-f-gfhfg","hfgfh-f-gfhfg+f+hfgfh"
  357. 8550 [131] 1,6,"fgf--ff--ff","ff","asc","--fgf++fgf++fgf--"
  358. 8560 [131] 0,4,"f+f+f+f","ff+f+f+f+ff","asc"
  359. 8570 [131] 2,4,"g","f","asc","g+hf+","-fg-h"
  360. 8580 [131] 0,14,"f","f[+f]f[-f]f","asc"
  361. 8590 [131] 2,14,"g","f","asc","gfh[+g][-g]","h[-fff][+fff]fh"
  362. 8600 [131] 0,16,"f","ff+[+f-f-f]-[-f+f+f]","asc"
  363. 8610 [131] 5,20,"ijfff","f","asc","+h[-g]j","-g[+h]j","[+++g][---g]ki"
  364. 8615 [131] "[-fff][+fff]f","kj"
  365. 8620 :
  366. 9000 [143] directory zeigen
  367. 9001 :
  368. 9010 a$[178]"i0":fl[178]1:[141] 9610
  369. 9020 [153] "load 0 ";:[159] 1,8,0,"$"
  370. 9030 [151] 781,1:[158] 65478
  371. 9040 [161] a$,a$,a$,a$:x$[178][199](0)
  372. 9050 [129] i[178]1 [164] 7
  373. 9060 :[161] a$,b$,c$,d$
  374. 9070 :[153] a$b$c$d$;
  375. 9080 [130] i
  376. 9090 [153]:[161] a$,a$,a$,b$
  377. 9100 [139] st [167] [158] 65484:[160] 1:                      [137] 9120
  378. 9110 [153] [198](a$[170]x$)[170]256[172][198](b$[170]x$);:           [137] 9050
  379. 9120 [161] a$:[139] a$[178]"" [167] 9120
  380. 9130 [142]
  381. 9140 :
  382. 9500 [143] diskbefehl senden
  383. 9501 :
  384. 9510 fl[178]0
  385. 9520 [153] "loadstr$iskbefehl senden:"
  386. 9530 [153]:[153]
  387. 9540 [153] "peekefehl:";
  388. 9550 [158] 42336:a$[178]"":ii[178]512
  389. 9560 b[178][194](ii)
  390. 9570 [139] b[178]0 [167] 9610
  391. 9580 a$[178]a$[170][199](b)
  392. 9590 ii[178]ii[170]1
  393. 9600 [137] 9560
  394. 9610 [159] 15,8,15,a$
  395. 9620 [153]:[153]
  396. 9630 [132]15,b,a$
  397. 9640 [160] 15
  398. 9650 [139] fl[178]1 [167] 9680
  399. 9660 [153] b;a$
  400. 9670 [161] a$:[139] a$[178]"" [167] 9670
  401. 9680 [142]
  402. 9690 :
  403. 10000 [143] system laden
  404. 10001 :
  405. 10005 [153] "load0(NULL)-(NULL)ystem laden:"
  406. 10010 [153]:[153]
  407. 10015 a$[178]"i0":fl[178]1:[141] 9610
  408. 10020 [133] "ascilename:";a$
  409. 10025 [139] a$[178]"$" [167] 10200
  410. 10030 [159] 1,8,2,a$[170]",s,r"
  411. 10040 [132]1,v:m[178]n[170]v
  412. 10050 [132]1,td
  413. 10070 [132]1,a
  414. 10080 [129] i[178]1 [164] a
  415. 10090 :[132]1,a(i)
  416. 10100 [130] i
  417. 10110 [132]1,r$(1)
  418. 10120 [132]1,r$(2)
  419. 10130 r$(3)[178]"+":r$(4)[178]"-":r$(5)[178]"_":r$(6)[178]"[":r$(7)[178]"]"
  420. 10140 [139] v[178]0 [167] 10180
  421. 10150 [129] i[178]1 [164] v
  422. 10160 :[132]1,r$(n[170]i)
  423. 10170 [130] i
  424. 10180 [160] 1
  425. 10190 [137] 1110
  426. 10200 [141] 9000
  427. 10210 [137] 10000
  428. 10220 :
  429. 10500 [143] system speichern
  430. 10510 :
  431. 10520 [153] "load0(NULL)-(NULL)ystem speichern:"
  432. 10530 [153]:[153]
  433. 10535 a$[178]"i0":fl[178]1:[141] 9610
  434. 10540 [133] "ascilename:";a$
  435. 10545 [139] a$[178]"$" [167] 10710
  436. 10550 [159] 1,8,2,a$[170]",s,w"
  437. 10560 [152]1,v
  438. 10570 [152]1,td
  439. 10580 [152]1,a
  440. 10590 [129] i[178]1 [164] a
  441. 10600 :[152]1,a(i)
  442. 10610 [130] i
  443. 10630 [152]1,r$(1)
  444. 10640 [152]1,r$(2)
  445. 10650 [139] v[178]0 [167] 10690
  446. 10660 [129] i[178]1 [164] v
  447. 10670 :[152]1,r$(n[170]i)
  448. 10680 [130] i
  449. 10690 [160] 1
  450. 10700 [142]
  451. 10710 [141] 9000
  452. 10720 [137] 10500
  453. 10730 :
  454. 11000 [143] bild speichern
  455. 11001 :
  456. 11010 [153] "loadpeekild wird abgespeichert:"
  457. 11020 [153]:[153]
  458. 11030 a$[178]"i0":fl[178]1:[141] 9610
  459. 11040 [133] "ascilename:";a$
  460. 11050 [139] a$[178]"$" [167] 11160
  461. 11120 [158] sa,a$
  462. 11150 [142]
  463. 11160 [141] 9000
  464. 11170 [137] 11000
  465. 11180 :
  466. 11500 [143] bild laden
  467. 11501 :
  468. 11510 [153] "loadpeekild wird geladen:"
  469. 11520 [153]:[153]
  470. 11530 a$[178]"i0":fl[178]1:[141] 9610
  471. 11540 [133] "ascilename:";a$
  472. 11550 [139] a$[178]"$" [167]11610
  473. 11590 [158] lo,a$
  474. 11600 [142]
  475. 11610 [141] 9000
  476. 11620 [137] 11500
  477. 11630 :
  478. 12000 [143] bild ansehen
  479. 12001 :
  480. 12010 [158] co,0,5:[151] 53280,5:[158] gr
  481. 12020 [161] a$:[139] a$[178]"" [167] 12020
  482. 12030 [151] 53280,0:[158] te
  483. 12040 [142]
  484. 12050 :
  485. 12500 [143] parameter ansehen
  486. 12501 :
  487. 12510 [153] "load(NULL)arameter:"
  488. 12520 [153]:[153]
  489. 12530 [153] "atnnzahl der (NULL)ichtungen:";td
  490. 12540 [153]
  491. 12550 [153] "atnxiom:";
  492. 12560 [129] i[178]1 [164] a
  493. 12570 :[153] [199](a(i));
  494. 12580 [130] i
  495. 12590 [153]:[153]
  496. 12600 [129] i[178]1 [164] m
  497. 12610 :[153] [199](k(i));" -> ";r$(i)
  498. 12620 [130] i
  499. 12630 [161] a$:[139] a$[178]"" [167] 12630
  500. 12640 [142]
  501. 12650 :
  502. 13000 [143] parameter aendern
  503. 13001 :
  504. 13010 [153] "load(NULL)arameter aendern:"
  505. 13020 [153]:[153]
  506. 13030 [153] "atnnzahl der (NULL)ichtungen: ";td
  507. 13040 [133] "on";td
  508. 13050 [153]
  509. 13060 [153] "atnxiom:  ";
  510. 13070 [129] i[178]1 [164] a
  511. 13080 :[153] [199](a(i));
  512. 13090 [130] i
  513. 13100 [153]
  514. 13110 [133] "on";a$
  515. 13120 a[178][195](a$)
  516. 13130 [129] i[178]1 [164] a
  517. 13140 :a(i)[178][198]([202](a$,i,1))
  518. 13150 [130] i
  519. 13160 [153]
  520. 13170 [129] i[178]1 [164] m
  521. 13180 :[153] [199](k(i));" ->   ";r$(i)
  522. 13190 :[133] "on";r$(i)
  523. 13200 [130] i
  524. 13210 [137] 1110
  525. 13220 :
  526.