1000 screen 12:cls
1003 print"STEREO":
?"<Esc> - выход"
paint(0,0),16
1004 f=.5
1010 rem xs,ys,zs-looking point
1012 xs=0:ys=300:zs=2000:sz=-2
1013 DX=400
1014 rem kx,ky,kz-magnifishents
1016 kx=80:ky=-40:kz=40
1020 rem pn-points number of 3d object.ln-lines number of 3d object
1040 pn=14:ln= 21
1042 rem sl-start point of line.el-end poin of line
1050 dim x(pn),y(pn),z(pn),a(pn),b(pn),sl(ln),el(ln)
1060 data -1,0,0,1,0,0,1,2,0,-1,2,0,-.75,0,-2,.75,0,-2,.75,.75,-2,-.75,.75,-2
1070 data -.75,4,-2,.75,4,-2,-.75,0,-4,-.75,4,-4,.75,4,-4,.75,0,-4
1080 data 1,2,2,3,3,4,1,4,2,6,1,5,5,6,3,7,4,8,8,7,5,9,6,10,14,13,11,12,5,11,11,14,14,6,9,10,9,12,12,13,13,10
     p(1)=12:p(2)=9
1085 for s=1 to 2
1090 restore
1100 for i=1 to pn
1110 read x(i),y(i),z(i):x(i)=kx*x(i):y(i)=ky*y(i):z(i)=kz*z(i)+sz
1120 x1=x(i):z1=z(i)
1130 x(i)=x1*cos(f)-z1*sin(f):z(i)=x1*sin(f)+z1*cos(f)
1140 ax=x(i):ay=y(i):az=z(i):gosub 3000
1150 a(i)=bx:b(i)=by
1160 next i
1200 for i=1 to ln
1205 read sl(i),el(i)
1210 j=sl(i):k=el(i)
1220 line(a(j),b(j))-(a(k),b(k)),p(s):next i
1230 xs=xs+DX
1240 next s
wata:
 if inkey$=chr$(27) then stop else wata
stop

3000 rem 3d to 2d convertion.Input-ax,ay,az.Output-bx,by
3010 cc=zs/(zs-az):bx=cc*(ax-xs)+xs+200+(s-1)*190:by=cc*(ay-ys)+ys+300:return