home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9010a.d64 / 0l-systeme.bas (.txt) next >
Commodore BASIC  |  1995-03-30  |  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.