Listato per il basic del Commodore 64 per tracciare una curva ad alta risoluzione
20 def fna(x)=sin(x)/x
30 input "intervallo?";x1,x2
40 pa=(x2-x1)/320
50 mi=1.7 E 38: ma= 1.7 E 38
60 for x= 0 to 319
70 x3=x1+x*pa
80 if x3=0 then y=1: goto 100
90 y=fna(x3)
100 if y < mi then mi = y
110 if y > ma then ma = y
120 next
130 b=ma*199/(ma-mi): a=199/(mi-ma)
140 poke 53265,peek(53265) or 32
150 poke 53272,peek(53272) or 8
160 for i= 8192 to 16383
170 poke i,0:next
180 for i= 1024 to 2023
190 poke i,1:next
200 for x= 0 to 319
210 x3=x1+x*pa
220 if x3= 0 then y=int(a+b): goto 240
230 y=int (b+a*fna(x3))
240 li=int(y/8)
250 co=int(x/8)
260 lc=y and 7
270 oc=8192+320*li+8*co+lc
280 bi=7-(7 and x)
290 poke oc,peek(oc) or (2 elevato alla bi)
300 next x
310 goto 310
Torna indietro
