home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 45 / 64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64 / funprint (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  11.5 KB  |  350 lines
  1. 1 poke649,1:poke56,67:clr
  2. 2 deffna(x)=0:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  3. 3 deffnb(x)=0:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4. 4 deffnc(x)=0:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  5. 5 x1%=0:x2%=0:y1=0:y2=0:x1=0:x2=0:m%=40:z1=0:z2=0:x=0:j=0:f%=0:ko%=1
  6. 6 f=55296:v=53248:gosub510
  7. 7 tx%=0:rd%=1:pz=4:gosub699:ks%=4:gosub649:poke53280,0:poke53281,11
  8. 8 ifpeek(17803)+peek(22956)<>33thensys57812"prograf",8,1:poke780,0:sys65493
  9. 9 poke777,67:!clr,11,0:!loc,320,200,2,636,2,396
  10. 10 rem --- bei fehler: goto 10 ---
  11. 11 print"[142][147][154]";
  12. 12 print"   [213][192][192][192]          [213][192][192][192][201]
  13. 13 [153]"   peek             peek   peek     (NULL)      peek
  14. 14 print"   [171][192] [178]  [213] [213][192][192][201]  [194][192][192][192][203] [178][192][201]   [213][192][192][201] [219][192]
  15. 15 [153]"   peek  peek  peek peek  peek  peek     peek   peek peek  peek peek
  16. 16 print"   [177]  [202][192][192][203] [177]  [202]  [177]     [177]   [202] [177]  [202] [202]
  17. 18 [143] author b.hafner, 8934 grossaitingen
  18. 19 [143] revised n.heusler, 8000 muenchen 71
  19. 20 [153]"stop(NULL)tantantantantantantantantanright$   3      (NULL)tantantan=tantantanright$ (NULL)tantantantantantantanright$";
  20. 21 [153]"peekfunktion peek 2 ^ 4  6(NULL)(NULL)_right$ peek ^ mid$right$peek+  -  \waitpeek";
  21. 22 [153]"peekkurve  2dpeek1  peek  5  peekuprint#   stoppeekprint#   stopmpeekpeek       waitpeek";
  22. 23 [153]"peekflaeche  peek (NULL) peek (NULL)   peekvprint#   stoppeekprint#   stopnpeekpeek@  *  ^waitpeek";
  23. 24 [153]"peekstrecke2dpeek  (NULL)peek(NULL) <=>peekwprint#   stoppeekprint#   stopopeekpeek       waitpeek";
  24. 25 [153]"mid$right$  (NULL)tantantantantan(NULL)  tan(NULL)tantantan(NULL)tanmid$tantantantan>tantantantan(NULL)peek:  ;  =waitpeek";
  25. 26 [153]" peekf1peek(NULL)tantantantanright$(NULL)tantantantanright$print#   stop  term(NULL)tantantanright$mid$right$     (NULL)(NULL)";
  26. 27 [153]" mid$tantan(NULL)peekf578peekpeeklwaitoadpeek    f3 print#  stoppeekclrpeek peek kwaits  peek
  27. 28 print" [213][192][192][192][203]    [194][194]s[146]ave[202][201] [213][192][192][192][192][192][192][203]   [202][201][171][192][192][192][192][192][179]
  28. 29 [153]" peekzeichnenpeekpeekdwaitruckpeek peek  loeschen peekpeekein 0waitpeek
  29. 30 print" [202][192][192][192][192][192][192][192][192][203][202][192][192][192][192][192][203] [202][192][192][192][192][192][192][192][192][192][192][192][203][202][192][192][192][192][192][203]
  30. 32 ff[178]12:[141]54:[151][165]ks(ks%),12:[151]f[170]597,12[172]ko%:[141]801:[141]802
  31. 33 [151]f[170]pf%(pz),12
  32. 35 [141]781
  33. 40 [151]198,0:[146]198,1:[161]d$:d[178][198](d$):sh[178][194](653):[139]d$[179][177]"l"[175]d$[179][177]"s"[167]45
  34. 41 [141]701:cy%[178]19:[141]711:cx%[178]7:d$[178]nn$:il[178]14:[139]d[178]83[167]43
  35. 42 [139]d[178]76[167][153]" load:":[141]721:[139]d$[179][177]"0"[167]nn$[178]d$:![147]d$
  36. 43 [139]d[178]83[167][153]" save:":[141]721:[139]d$[179][177]"0"[167]nn$[178]d$:![148]d$
  37. 44 [137]35
  38. 45 [139](d[175]127)[178]19[167][141]771:[137]35
  39. 46 [139]d[178]136[167][141]201:[137]165
  40. 47 [139]d[178]140[167]381
  41. 48 [139]d[178]135[167][141]210:[137]165
  42. 49 [139]d[179][177]133[167]55
  43. 50 ff[178]0:[141]54:f%[178][171](f%[170]1)[172](f%[179]5):ff[178]12:[141]54:[139]f%[178]0[176]f%[178]3[167]52
  44. 51 [151]1031[170]fu%(f%),50[171]1[172](f%[178]2[176]f%[178]5)
  45. 52 a$[178]"":b$[178]"":c$[178]"":i1[178]0:i2[178]0:i3[178]0:j1[178]0:j2[178]0:j3[178]0
  46. 53 [151]512,48:[151]513,0:fl%[178]32:[141]191:fl%[178]111:[141]191:fl%[178]190:[141]191:[137]35
  47. 54 [129]i[178]0[164]8:[151]f[170]fu%(f%)[170]i,ff:[130]:[142]
  48. 55 [139]d[178]13[167]165
  49. 56 [129]i[178]0[164]9:[139]d$[178][202](ks$,i[170]1,1)[167][151][165]ks(ks%),0:ks%[178]i:i[178]11
  50. 57 [130]:[139]i[178]10[167]60
  51. 58 [151][165]ks(ks%),12:[139]ks%[178]9[167][141]611:[137]35
  52. 59 [141]649:[137]40
  53. 60 [139]d[178]68[167]401
  54. 61 [139][168]((d[178]134[175]fi[179]fz)[176](d[178]138[175]fi[177]1))[167]64
  55. 62 fi[178]fi[170]1[170]2[172](d[178]138):ff[178]0:[141]54:[141]801:[141]390:[137]166
  56. 64 [139]d[178]48[167]ko%[178]1[171]ko%:[151]f[170]597,12[172]ko%:[137]40
  57. 65 [139]d[179][177]157[175]d[179][177]17[167]70
  58. 66 [139]m%[177]10[167]m%[178]m%[171]5:[141]801
  59. 68 [139][194](203)[179][177]64[167]66
  60. 69 [137]40
  61. 70 [139]d[179][177]29[167]74
  62. 71 [139]m%[179]200[167]m%[178]m%[170]5:[141]801
  63. 72 [139][194](203)[178]2[167]71
  64. 73 [137]40
  65. 74 [139]d[179]49[176]d[177]54[167]80
  66. 75 [151]f[170]pf%(pz),0:pz[178]d[171]49:[151]f[170]pf%(pz),12:[139]pz[178]5[167][141]651:[137]35
  67. 76 [141]699:[137]40
  68. 80 [139](d[175]127)[179]85[176](d[175]127)[177]87[167]84
  69. 81 d[178](d[175]3):r%(d)[178]r%(d)[170]15[171]30[172]sh:r%(d)[178]r%(d)[171]360[172](r%(d)[179]0)[170]360[172](r%(d)[177]350)
  70. 82 ii[178]1286[170]d[172]40:i[178]r%(d):[141]805:[139][194](203)[179][177]64[167]81
  71. 83 [137]40
  72. 84 [139](d[175]127)[179]77[176](d[175]127)[177]79[167]88
  73. 85 d[178](d[175]3):t%(d)[178]t%(d)[170]1[171]2[172]sh
  74. 86 ii[178]1286[170]d[172]40:i[178]t%(d):[141]806:[139][194](203)[179][177]64[167]85
  75. 87 [137]40
  76. 88 [145]f%[170]1[137]91,101,121,121,141,141
  77. 90 [143] --- funktionen eingabe ------
  78. 91 [139]d$[179][177]"f"[167]40
  79. 92 cx%[178]8:cy%[178]18:d$[178]a$:il[178]66:[141]721:a$[178]d$:i1[178][171]2000:i2[178]2000
  80. 93 [141]181:![150][165]a:[139]kl%[167]92
  81. 95 [141]191:[139]dt%[167][141]171
  82. 96 [137]35
  83. 100 [143] kurve 2d
  84. 101 [139]d$[179][177]"x"[167]105
  85. 102 cy%[178]18:d$[178]a$:[141]130:![150][165]a:a$[178]d$:[139]kl%[167]102
  86. 104 [137]35
  87. 105 [139]d$[179][177]"y"[167]110
  88. 106 cy%[178]20:d$[178]b$:[141]130:![150][165]b:b$[178]d$:[139]kl%[167]106
  89. 108 [137]35
  90. 110 [139]d$[179][177]"i"[167]115
  91. 111 cx%[178]7:cy%[178]16:il[178]6:d$[178][196](i1):[141]721:i1[178][197](d$):cx%[178]18:d$[178][196](i2)
  92. 112 [141]721:i2[178][197](d$):cx%[178]30:il[178]8:d$[178][196](i3):[141]721:i3[178][182]([197](d$))
  93. 113 [139]i1[177]i2[167]d[178]i1:i1[178]i2:i2[178]d
  94. 114 [137]35
  95. 115 [139]d$[179][177]"j"[176]f%[179][177]3[167]40
  96. 116 cx%[178]7:cy%[178]17:il[178]6:d$[178][196](j1):[141]721:j1[178][197](d$):cx%[178]18:d$[178][196](j2)
  97. 117 [141]721:j2[178][197](d$):cx%[178]30:il[178]8:d$[178][196](j3):[141]721:j3[178][182]([197](d$))
  98. 118 [139]j1[177]j2[167]d[178]j1:j1[178]j2:j2[178]d
  99. 119 [137]35
  100. 120 [143] kurve 3d /flaeche
  101. 121 [139]d$[179][177]"z"[167]101
  102. 122 cy%[178]22:d$[178]c$:[141]130:![150][165]c:c$[178]d$:[139]kl%[167]122
  103. 125 [137]35
  104. 130 cx%[178]8:il[178]66:[141]721:[141]181:[142]
  105. 140 [143] strecke
  106. 141 [139]d$[179][177]"a"[175]d$[179][177]"b"[167]40
  107. 142 cy%[178]18:il[178]6:[139]d$[178]"b"[167]150
  108. 143 cx%[178]1:d$[178][196](i1):[141]721:i1[178][197](d$)
  109. 144 cy%[178]20:d$[178][196](i2):[141]721:i2[178][197](d$):[139]f%[179]5[167]35
  110. 145 cy%[178]22:d$[178][196](i3):[141]721:i3[178][197](d$):[137]35
  111. 150 cx%[178]16:d$[178][196](j1):[141]721:j1[178][197](d$)
  112. 151 cy%[178]20:d$[178][196](j2):[141]721:j2[178][197](d$):[139]f%[179]5[167]35
  113. 152 cy%[178]22:d$[178][196](j3):[141]721:j3[178][197](d$):[137]35
  114. 165 [151]198,0:!draw:[141]801:[137]40
  115. 166 [141]388:[151]f[170]pf%(pz),0:pz[178]5:[151][165]ks(ks%),0:ks%[178]9:[137]32
  116. 169 :
  117. 170 [143] def.bereich
  118. 171 [141]701
  119. 172 [153]:[153]" in welchem intervall (x1,x2) ist":[153]" "dt$(dt%)" in"
  120. 173 [153]"print# "d$:[153]"stop definiert?":cx%[178]0:cy%[178]23:[141]711
  121. 175 [153]" x1 = ";[163]20);"x2 = ":cx%[178]6:d$[178]"":il[178]8:[141]721:i1[178][197](d$)
  122. 176 cx%[178]25:d$[178]"":[141]721:i2[178][197](d$):[142]
  123. 180 [143] def.bereich
  124. 181 kl%[178]0:[129]i[178]1[164][195](d$):a[178][198]([202](d$,i,1)):[151]511[170]i,a:[139]a[178]40[167]kl%[178]kl%[170]1
  125. 182 [139]a[178]41[167]kl%[178]kl%[171]1
  126. 185 [130]:[151]511[170]i,0:[142]
  127. 191 i[178]0:dt%[178]0
  128. 193 a[178][194](2080[170]i):[139]a[178]186[167]dt%[178]dt%[176]1
  129. 194 [139]a[178]188[167]dt%[178]dt%[176]2
  130. 195 [139]a[178]174[167]dt%[178]dt%[176]4
  131. 198 [139]a[179][177]58[167]i[178]i[170]1:[137]193
  132. 199 [142]
  133. 200 [143] --- zeichnen ----------------
  134. 201 [139]fz[178]35[167]210
  135. 202 fz[178]fz[170]1:fi[178]fz:[141]205:[137]210
  136. 205 f%(fi)[178]f%:a$(fi)[178]a$:b$(fi)[178]b$:c$(fi)[178]c$:i1(fi)[178]i1:i2(fi)[178]i2:i3(fi)[178]i3
  137. 206 j1(fi)[178]j1:j2(fi)[178]j2:j3(fi)[178]j3:[142]
  138. 210 !proz,p%(1),p%(2),p%(3):!loc,ox%,oy%:!scn,1
  139. 219 [139]ko%[178]0[176]kr%[178]1[167]234
  140. 220 [143] koord.system
  141. 222 kr%[178]1:!rot,0,0,0:!trans,0,0,0:!line,[171]ox%,0,640[171]ox%,0:!line,0,oy%,0,oy%[171]400
  142. 225 [129]x[178][171]m%[172][181](ox%[173]m%)[164]640[169]m%:!line,x,1,x,[171]2:[130]
  143. 226 [129]y[178][171]m%[172][181](oy%[173]m%)[164]400[169]m%:!line,2,[171]y,[171]1,[171]y:[130]
  144. 227 [139]f%[179]2[176]f%[178]4[167]235
  145. 228 [129]i[178]m%[172]([181](p%(2)[173]m%)[170]4)[164]20[172]m%[169]m%:!zplot,0,i,0:[130]
  146. 234 !rot,r%(1)[173]57.3,r%(2)[173]57.3,r%(3)[173]57.3:!trans,t%(1)[172]m%,t%(2)[172]m%,t%(3)[172]m%
  147. 235 [145]f%[170]1[137]241,271,291,311,341,342
  148. 240 [143] *** funktion ***
  149. 241 [139]a$[178]""[167]40
  150. 242 x1%[178][171]ox%:[139]x1%[179]i1[172]m%[167]x1%[178]i1[172]m%
  151. 243 x3%[178][171]ox%[170]639:[139]x3%[177]i2[172]m%[167]x3%[178]i2[172]m%
  152. 244 [139]x3%[179]x1%[170]4[167]40
  153. 245 y1[178]m%[172][165]a((x1%[170].1)[173]m%)
  154. 246 [129]i[178]x1%[170].1[164]x3%[171].1[169]4:x2%[178]x1%:y2[178]y1
  155. 247 x1%[178]i:y1[178]m%[172][165]a(i[173]m%):[139][182](y1[171]y2)[179]120[167]:!line,x1%,y1,x2%,y2:[137]250
  156. 249 [139]x1%[171]x2%[177]2[167][139]y2[177][171]200[167][139]y2[179]600[167]i[178]i[171]2:[137]247
  157. 250 [139][194](198)[167][141]335:[139]d[167][142]
  158. 251 [130]:[137]374
  159. 270 [143] *** kurve 2d ***
  160. 271 i[178]i1:x1[178][165]a(x)[172]m%:y1[178][165]b(x)[172]m%
  161. 272 i[178]i[170]i3:[139]i[177]i2[167]374
  162. 273 [139][194](198)[167][141]335:[139]d[167][142]
  163. 274 x2[178]x1:y2[178]y1:x1[178][165]a(x)[172]m%:y1[178][165]b(x)[172]m%:!line,x1,y1,x2,y2:[137]272
  164. 290 [143] *** kurve 3d ***
  165. 291 i[178]i1:x1[178][165]a(x)[172]m%:y1[178][165]b(x)[172]m%:z1[178][165]c(x)[172]m%
  166. 293 i[178]i[170]i3:[139]i[177]i2[167]374
  167. 294 [139][194](198)[167][141]335:[139]d[167][142]
  168. 295 [141]370:[137]293
  169. 310 [143] *** flaeche ***
  170. 311 i[178]i1
  171. 313 j[178]j1:x1[178][165]a(x)[172]m%:y1[178][165]b(x)[172]m%:z1[178][165]c(x)[172]m%
  172. 314 j[178]j[170]j3:[139]j[177]j2[167]320
  173. 315 [139][194](198)[167][141]335:[139]d[167][142]
  174. 316 [141]370:[137]314
  175. 320 i[178]i[170]i3:[139]i[177]i2[167]322
  176. 321 [137]313
  177. 322 j[178]j1
  178. 323 i[178]i1:x1[178][165]a(x)[172]m%:y1[178][165]b(x)[172]m%:z1[178][165]c(x)[172]m%
  179. 324 i[178]i[170]i3:[139]i[177]i2[167]330
  180. 325 [139][194](198)[167][141]335:[139]d[167][142]
  181. 326 [141]370:[137]324
  182. 330 j[178]j[170]j3:[139]j[177]j2[167]374
  183. 331 [137]323
  184. 335 d[178]1:[139][194](631)[178]95[167]d[178]0:!draw:!scn,1
  185. 336 [142]
  186. 340 [143] *** strecke ***
  187. 341 !line,i1[172]m%,i2[172]m%,j1[172]m%,j2[172]m%:[137]374
  188. 342 !zline,i1[172]m%,i2[172]m%,i3[172]m%,j1[172]m%,j2[172]m%,j3[172]m%:[137]374
  189. 370 x2[178]x1:y2[178]y1:z2[178]z1:x1[178][165]a(x)[172]m%:y1[178][165]b(x)[172]m%:z1[178][165]c(x)[172]m%
  190. 371 !zline,x1,y1,z1,x2,y2,z2:[142]
  191. 374 fj[178]1
  192. 375 [142]
  193. 380 [143] gemerkte funktionen
  194. 381 fi[178]0:[139]fz[178]0[167]40
  195. 382 !scn,1:ff[178]0:[141]54
  196. 383 fi[178]fi[170]1:[139]fi[177]fz[167]fi[178]fz:[137]386
  197. 385 [141]390:fj[178]0:[141]210:[139]fj[167]383
  198. 386 [151]198,0:!draw:[137]166
  199. 388 [139]f%[177]0[175]f%[179][177]3[167][151]1031[170]fu%(f%),50[171](f%[178]2[176]f%[178]5)
  200. 389 [142]
  201. 390 f%[178]f%(fi):[139]f%[179]4[167]a$[178]a$(fi):d$[178]a$:[141]181:![150][165]a
  202. 391 [139]f%[167][139]f%[179]4[167]b$[178]b$(fi):d$[178]b$:[141]181:![150][165]b
  203. 392 [139]f%[178]3[176]f%[178]2[167]c$[178]c$(fi):d$[178]c$:[141]181:![150][165]c
  204. 393 i1[178]i1(fi):i2[178]i2(fi):i3[178]i3(fi):j1[178]j1(fi):j2[178]j2(fi):j3[178]j3(fi):[142]
  205. 400 [143] --- drucken -----------------
  206. 401 [141]701:gr%[178]0
  207. 402 cy%[178]17:[141]711:[153],"   ausdruck
  208. 405 cy%=19:gosub711:print" 320*200  0 [146] schnell   mit rand  r [146]
  209. 406 cy%[178]20:[141]711:[153]" 640*400  1 wait klein
  210. 407 cy%=21:gosub711:print"   opti-  2 [146] mittel    mit text  t [146]
  211. 408 cy%[178]22:[141]711:[153]"   miert  3 wait gross
  212. 410 pokef+770+gr%*40,12:pokef+793,12*rd%:pokef+873,12*tx%
  213. 420 poke198,0:wait198,1:getd$:d=asc(d$)
  214. 421 ifd$="r"thenrd%=1-rd%:goto402
  215. 422 ifd$="t"thentx%=1-tx%:goto402
  216. 423 ifd>47andd<52thengr%=d-48:goto402
  217. 425 goto430
  218. 426 print,"[152]drucker einschalten[144][145]
  219. 427 [151]198,0:[146]198,1:[161]d$
  220. 428 [139]d$[179][177][199](13)[175]d$[179][177]"d"[167]35
  221. 430 [159]1,4,1:[160]1:[139]st[179]0[167]426
  222. 440 !scn,1:!loc,0,0,0,638,0,398
  223. 446 !line,0,0,638,0,rd%[172]255:!line,0,0,0,[171]398,rd%[172]255
  224. 447 !line,0,[171]398,638,[171]398,rd%[172]255:!line,638,0,638,[171]398,rd%[172]255
  225. 448 !loc,ox%,oy%,2,636,2,396
  226. 450 [159]2,4,1:[143] 1= sek.adr. fuer gross/grafik
  227. 460 !copy,gr%,14:[143] 14=sek.adr. fuer linearkanal
  228. 468 [139]tx%[178]0[176]fz[178]0[167]492
  229. 470 [129]i[178]1[164]fz:[139]f%(i)[178]0[167][152]2,"f(x) = "[170]a$(i):[137]485
  230. 471 [139]f%(i)[179]4[167][152]2,"x = "[170]a$(i):[152]2,"y = "[170]b$(i)
  231. 473 [139]f%(i)[178]2[176]f%(i)[178]3[167][152]2,"z = "[170]c$(i)
  232. 474 [139]f%(i)[177]3[167]480
  233. 475 [152]2,"i von "[170][196](i1(i))[170]" bis "[170][196](i2(i))[170]", schrittw."[170][196](i3(i))
  234. 476 [139]f%(i)[179]3[167]485
  235. 477 [152]2,"j von "[170][196](j1(i))[170]" bis "[170][196](j2(i))[170]", schrittw."[170][196](j3(i))
  236. 478 [137]485
  237. 480 [152]2,"("[170][196](i1(i))[170]","[170][196](i2(i));
  238. 481 [139]f%(i)[178]5[167][152]2,","[170][196](i3(i));
  239. 482 [152]2,")  -  ("[170][196](j1(i))[170]","[170][196](j2(i));
  240. 483 [139]f%(i)[178]5[167][152]2,","[170][196](j3(i));
  241. 484 [152]2,")"
  242. 485 [152]2:[130]
  243. 486 [152]2,"ursprung ("[196](ox%)","[196](oy%)"), einheit"[196](m%);
  244. 487 [139]f%[179]2[176]f%[178]4[167]492
  245. 488 [152]2,", projektionszentrum ("[196](p%(1))","[196](p%(2))","[196](p%(3))")"
  246. 490 [152]2,"winkel: ("[196](r%(1))","[196](r%(2))","[196](r%(3))"), ";
  247. 491 [152]2,"verschiebung: ("[196](t%(1))","[196](t%(2))","[196](t%(3))") "
  248. 492 [152]2:[160]2:!scn,0:[137]35
  249. 500 [143] --- strings,data,felder -----
  250. 510 nn$[178]"name":ks$[178]"+-\@*^:;=k":[150][165]ks(x)[178]f[170]272[170]3[172]x[170]71[172][181](x[173]3)[171]2[172](x[178]9)
  251. 521 [150][165]e(x)[178]x[171][181](x[173]10)[172]10[170]48
  252. 522 [150][165]z(x)[178]32[171](16[170][181]((x[171][181](x[173]100)[172]100)[173]10))[172](x[177]9)
  253. 523 [150][165]h(x)[178]32[171](16[170][181](x[173]100))[172](x[177]99):[150][165]v(x)[178]32[171]13[172](x[179]0)
  254. 531 [131]241,281,281,321,361,361:[129]i[178]0[164]5:[135]fu%(i):[130]
  255. 541 [131],"sqr(..)","log(..)","sqr(..) und log(..)","(..)^"
  256. 542 [131]"sqr(..) und (..)^","log(..) und (..)^","sqr(..) und log(..) und (..)^"
  257. 543 [129]i[178]0[164]7:[135]dt$(i):[130]
  258. 551 [134]p1(4),p2(4),p3(4),pf%(5),r%(3),p%(3),t%(3)
  259. 552 [129]i[178]0[164]4:[135]p1(i),p2(i),p3(i):[130]:[129]i[178]0[164]5:[135]pf%(i):[130]
  260. 554 [131]-240,-1100,200,-180,-1100,300,0,-1100,330,180,-1100,300,240,-1100,200
  261. 555 [131]291,252,214,256,297,259
  262. 560 [134]f%(35),a$(35),b$(35),c$(35),i1(35),i2(35),i3(35),j1(35),j2(35),j3(35)
  263. 561 [142]
  264. 600 [143] --- unterprogramme -----------
  265. 610 [143] ursprung
  266. 611 [141]701:[153]:[153]" koordinaten des ursprungs:"
  267. 612 [151]198,0:cy%[178]19:[141]711:[153]" x = print#";ox%;"cmd    "
  268. 613 cy%[178]21:[141]711:[153]"stop y = print#";oy%;"stopcmd    "
  269. 614 [139][194](203)[179][177]64[167]616
  270. 615 [146]198,1:[161]d$
  271. 616 [139]d$[178]"(NULL)"[167]ox%[178]ox%[171]20:[137]612
  272. 617 [139]d$[178]"y"[167]oy%[178]oy%[170]20:[137]612
  273. 618 [139]d$[178]"(NULL)"[167]oy%[178]oy%[171]20:[137]612
  274. 619 [139]d$[178]"x"[167]ox%[178]ox%[170]20:[137]612
  275. 648 [142]
  276. 649 ox%[178]240[172](ks%[171][181](ks%[173]3)[172]3)[170]80:oy%[178]140[172][181](ks%[173]3)[170]60:[142]
  277. 650 [143] projektionszentrum
  278. 651 [141]701:[153]:[153]" koordinaten des projektionszentrums:"
  279. 652 [151]198,0:[129]i[178]1[164]3:cy%[178]17[170]2[172]i:[141]711:[153]"stop"[199](87[170]i)" = print#"p%(i);
  280. 653 [153]"stopcmd    ":[130]
  281. 655 [139][194](203)[179][177]64[167]657
  282. 656 [146]198,1:[161]d$:[129]ii[178]1[164]6
  283. 657 [129]i[178]1[164]6
  284. 658 [139]d$[178][202]("x(NULL)y(NULL)z(NULL)",i,1)[167]d[178][181]((i[170]1)[173]2):p%(d)[178]p%(d)[170]20[170]40[172](i[173]2[178]d):[137]652
  285. 659 [130]:[142]
  286. 699 p%(1)[178]p1(pz):p%(2)[178]p2(pz):p%(3)[178]p3(pz):[142]
  287. 700 [143] eingabefeld loeschen
  288. 701 [129]i[178]16[164]24:[151]781,i:[158]59903:[130]:cx%[178]0:cy%[178]16:[141]711:[142]
  289. 710 [143] cursor
  290. 711 [151]211,cx%:[151]214,cy%:[158]58640:[142]
  291. 720 [143] input
  292. 721 [139]d$[179][177]""[167][139][200](d$,1)[178]" "[167]d$[178][201](d$,[195](d$)[171]1)
  293. 722 d$[178]d$[170]"                                                                   "
  294. 723 x2%[178]0:d$[178][200](d$,il)
  295. 725 [141]711:[153]""[170]d$[170]"wait ";:x1[178]f[170]cx%[170]40[172]cy%[170]x2%
  296. 730 [151]x1,12:[161]e$:[139]e$[178]""[167]730
  297. 731 d[178][198](e$):[139]d[178]13[167]760
  298. 732 [139]d[178]29[167][139]x2%[179]il[171]1[167]x2%[178]x2%[170]1:[151]x1,0:x1[178]x1[170]1:[137]730
  299. 734 [139]d[178]157[167][139]x2%[167]x2%[178]x2%[171]1:[151]x1,0:x1[178]x1[171]1:[137]730
  300. 735 [139]d[179][177]20[167]737
  301. 736 [139]x2%[167]x2%[178]x2%[171]1:d$[178][200](d$,x2%)[170][202](d$,x2%[170]2,il[171]1[171]x2%)[170]" ":[137]725
  302. 737 [139]d[178]148[167]d$[178][200](d$,x2%)[170]" "[170][202](d$,x2%[170]1,il[171]1[171]x2%):[137]725
  303. 738 [139]d[179]59[167][139]d[177]39[167][139]d[179][177]44[167]745
  304. 740 [139]d[177]63[167][139]d[179]89[167][139]il[178]66[176]il[178]14[167]745
  305. 741 [139]d[178]32[176]d[178]94[167]745
  306. 742 [139]d[178]222[167]e$[178][199](255):[137]745
  307. 743 [137]725
  308. 745 d$[178][200](d$,x2%)[170]e$[170][202](d$,x2%[170]2,il[171]1[171]x2%):[139]x2%[179]il[171]1[167]x2%[178]x2%[170]1
  309. 750 [137]725
  310. 760 [151]x1,0:i[178]1
  311. 761 [139][202](d$,i,1)[179][177]" "[167][139]i[179][195](d$)[170]1[167]i[178]i[170]1:[137]761
  312. 762 d$[178][200](d$,i[171]1):[139]d$[178]""[167]d$[178]"0"
  313. 763 [142]
  314. 770 [143] fkt. loeschen
  315. 771 cx%[178]20:cy%[178]14:[141]711:[153]"print#bstopildprint#tstopermprint#gstopes":[151]198,0:[146]198,1
  316. 772 [161]d$:[139]d$[178]"g"[167]:![156]:fz[178]0:fi[178]0:kr%[178]0:[141]801:[137]778
  317. 773 [139]d$[178]"b"[167]:![156]:kr%[178]0:[137]778
  318. 774 [139]d$[179][177]"t"[176]fz[178]0[167]778
  319. 775 [139]fi[178]fz[167]fi[178]fi[171]1:[137]777
  320. 776 ii[178]fi:fi[178]0:[141]205:fi[178]fz:[141]390:fi[178]ii:[141]205:fi[178]0:[141]390:fi[178]ii
  321. 777 fz[178]fz[171]1
  322. 778 [141]711:[153]"  loeschen ":[142]
  323. 780 [143] anzeige eingabefeld
  324. 781 [141]701:[139]f%[177]3[167]791
  325. 782 [139]f%[178]0[167]f1$[178]"f(x) = ":f2$[178]"":f3$[178]"":[137]785
  326. 783 [139]f%[178]3[167]f1$[178]"cmdx(i,j)= ":f2$[178]"cmdy(i,j)= ":f3$[178]"cmdz(i,j)= ":[137]785
  327. 784 f1$[178]"x(i) = ":f2$[178]"y(i) = ":f3$[178]"":[139]f%[178]2[167]f3$[178]"z(i) = "
  328. 785 [139]f%[167][153]" i von ";i1;"cmd";[163]14);"bis ";i2;"cmd";[163]25);"step ";i3
  329. 786 cy%[178]17:[141]711
  330. 787 [139]f%[178]3[167][153]" j von ";j1;"cmd";[163]14);"bis ";j2;"cmd";[163]25);"step ";j3
  331. 788 cy%[178]18:[141]711:[153]" "f1$;a$:[139]f%[167]cy%[178]20:[141]711:[153]" "f2$;b$
  332. 789 [139]f%[177]1[167]cy%[178]22:[141]711:[153]" "f3$;c$;
  333. 790 [142]
  334. 791 [153]" punkt a        punkt b
  335. 792 cy%=18:gosub711:print" ";i1;tab(16);j1
  336. 793 cy%=20:gosub711:print" ";i2;tab(16);j2
  337. 794 iff%=5thency%=22:gosub711:print" ";i3;tab(16);j3
  338. 795 return
  339. 800 rem einheit,winkel,nr.
  340. 801 poke1529,fne(fi):poke1528,fnz(fi):ii=1481:i=m%:goto805
  341. 802 ford=1to3:ii=1286+d*40:i=r%(d):gosub805:i=t%(d):gosub806:next:return
  342. 805 pokeii+2,fne(i):pokeii+1,fnz(i):pokeii,fnh(i):return
  343. 806 pokeii+6,fne(abs(i)):pokeii+5,fnz(abs(i)):pokeii+4,fnv(i):return
  344. 900 rem programmende
  345. 902 rem (w)ritten by b. hafner
  346. 904 rem ueberarbeitet von n. heusler
  347. 905 rem  (16.7.89)
  348. 906 rem i.a. markt & technik verlag
  349. 908 rem (c) redaktion sonderhefte 64'er
  350.