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