home *** CD-ROM | disk | FTP | other *** search
- 10 t0=20864
- 20 t1=20992
- 30 t2=21120
- 40 t3=19968:t4=t3/256
- 50 :
- 100 forx=1to127
- 200 y=128*log(x)/log(2)+.5
- 300 poket0+x,yand255
- 400 y=y/256:poket1+x,y+t4:poket2+x,y
- 500 next
- 599 :
- 600 forx=$01to$037f
- 700 y=2^(8-x/128):poket3+x,y
- 800 next
- 899 :
- 900 poket0,.:poket1,t4:poket2,.:poket3,255
-