>3D  error 12 ( init 2 menu < F: P init Z)@%=&0100040A:14:29,500;400;:*FX12,9 dB xw%(300),yw%(300),zw%(300),L1%(200),L2%(200),xs(300),ys(300) n.rho=5000:theta=-95:phi=-35:screendist=1000 xPHIGH%=0:LHIGH%=0 xth=0:yth=0:zth=0 a=1:b=0:c=0:d=0 e=0:f=1:g=0:h=0 i=0:j=0:k=-1:l=0 135:0:  : menu :''' #'"Press 'A' to input Points" "'"Press 'B' to input Lines" $'"Press 'C' to Change Points" #'"Press 'D' to Change Lines" $'"Press 'E' to Append Points" #'"Press 'F' to Append Lines"  '"Press 'L' to Load data" " '"Press 'S' to Save data" , '"Press 'P' to List data" 6&'"Press 'I' to Initialise Data" @#'"Press 'X' to Draw Picture" J'"Press 'Z' to End" TA$= ^ A$="A" inpoint h A$="B" inline r A$="C" corpoint | A$="D" corline  A$="E" appoint  A$="F" apline  A$="L" load  A$="S" save  A$="P" list  A$="I"  A$="X" calc " A$="Z" 14:4:"*FX12,5":  menu  :  inpoint  :''  N%=PHIGH% 8);"X";18);"Y";28);"Z"'  & N%=N%+1 0(N%);" : "; :""xw%(N%); D15);:11:18); N""yw%(N%) X25);:11:28); b""zw%(N%) lPHIGH%=PHIGH%+1 v  :  inline  :''  N%=LHIGH% 10);"L1";20);"L2"'   N%=N%+1 (N%);" : "; ""L1%(N%); 17);:11:20); ""L2%(N%) LHIGH%=LHIGH%+1    :  corpoint *:' 41'''"Enter number of point to correct : "N% >!''8);"X";18);"Y";28);"Z"' H(N%);" : "; R""xw%(N%); \15);:11:18); f""yw%(N%) p25);:11:28); z""zw%(N%)  TtC  :  corline :' 3'''"Enter number of line to be changed : "N% ''10);"L1";20);"L2"' (N%);" : "; ""L1%(N%); 17);:11:20); ""L2%(N%)  tvC  :  appoint  :''' $."Start appending at which number : "num .PHIGH%=num-1 8 inpoint B L: V apline ` :''' j."Start appending at which number : "num tLHIGH%=num-1 ~ inline  :  save :''"Saving..."''  *DIR $.MYPROG1.3D *. #''"Enter the filename : "FILE$ A=(FILE$) #A,PHIGH%,LHIGH%  N% = 1 PHIGH% #A,xw%(N%),yw%(N%),zw%(N%)   N% = 1 LHIGH%  #A,L1%(N%),L2%(N%)  #A ( 2: < load F:''"Loading..."'' P *DIR $.MYPROG1.3D Z*. d#''"Enter the filename : "FILE$ nA=(FILE$) x#A,PHIGH%,LHIGH%  N% = 1 PHIGH% #A,xw%(N%),yw%(N%),zw%(N%)   N% = 1 LHIGH% #A,L1%(N%),L2%(N%)  #A initviewtransform  :  list  :'' x''"N";4);"xw";9);"yw";14);"zw";19);"xt";25);"yt";31);"zt";37);"xe";45);"ye";53);"ze";61);"xs";69);"ys"'' initviewtransform  N%= 1 PHIGH% 'transform(xw%(N%),yw%(N%),zw%(N%)) "viewtransform ,perspective 6'(N%);4);(xw%(N%));9);(yw%(N%));14);(zw%(N%));19);(xt);25);(yt);31);(zt);37);(xe);45);(ye);53);(ze);61);(xs);69);(ys) @ J''10)"L1";20);"L2"' T N%= 1 LHIGH% ^.(N%);" : ";10);L1%(N%);20);L2%(N%) h r' |G$=  :  calc   axes 0  N%= 1 PHIGH% A$=(0): A$<>"" TpG 'transform(xw%(N%),yw%(N%),zw%(N%)) viewtransform perspective xs(N%)=xs:ys(N%)=ys   N%= 1 LHIGH% 6 xs(L1%(N%)),ys(L1%(N%)), xs(L2%(N%)),ys(L2%(N%))  &A$= 0 sample : D: N sample X Ȏ A$ b (13) :menu l "7" :zth=zth-(5) v "8" :zth=zth+(5)  "4" :yth=yth-(5)  "5" :yth=yth+(5)  "1" :xth=xth-(5)  "2" :xth=xth+(5) 7 "0" :xth=0:yth=0:zth=0:theta=-95:phi=-35:rho=5000 ) "[" :rho=rho-200:initviewtransform ) "]" :rho=rho+200:initviewtransform & "-" :theta+=5:initviewtransform & "=" :theta-=5:initviewtransform $ ";" :phi+=5:initviewtransform $ "'" :phi-=5:initviewtransform - "," :screendist+=100:initviewtransform - "." :screendist-=100:initviewtransform A "R" :redefine:xth=0:yth=0:zth=0:theta=-95:phi=-35:rho=5000    calc   *: 4redefine > N%= 1 PHIGH% H'transform(xw%(N%),yw%(N%),zw%(N%)) R$xw%(N%)=xt:yw%(N%)=yt:zw%(N%)=zt \ f p: z axes  TnI 5 transform(0,0,0) viewtransform perspective xs1=xs:ys1=ys  ax%= 1 3  ax,ay,az,ax$ transform(ax,ay,az) viewtransform perspective xs2=xs:ys2=ys  5:draw 0,xs2/25,ys2/25  4:ax$  $4 .) 2000,0,0,X, 0,2000,0,Y, 0,0,2000,Z 8 B: Linitviewtransform V-sintheta=((theta)):costheta=((theta)) `%sinphi=((phi)):cosphi=((phi)) jva=-sintheta:vb=costheta t+ve=-costheta*cosphi:vf=-sintheta*cosphi ~ vg=sinphi +vi=-costheta*sinphi:vj=-sintheta*sinphi vk=-cosphi:vl=rho  : transform(xw,yw,zw) sinx=xth:cosx=xth siny=yth:cosy=yth sinz=zth:cosz=zth a=cosz*cosy+sinz*sinx*siny b=-sinz*cosy+cosz*sinx*siny c=cosx*siny e=sinz*cosx f=cosz*cosx g=-sinx i=cosz*-siny+sinz*sinx*cosy  j=-sinz*-siny+cosz*sinx*cosy (k=cosx*cosy 2xt= a*xw + b*yw + c*zw + d <yt= e*xw + f*yw + g*zw + h Fzt= i*xw + j*yw + k*zw + l P Z: dviewtransform nxe= va*xt + vb*yt xye= ve*xt + vf*yt + vg*zt "ze= vi*xt + vj*yt + vk*zt + vl  : perspective xs=screendist*xe/ze ys=screendist*ye/ze  : draw  xs1,ys1, xs2,ys2  : error  =17 menu $ <>17 ::4,14:"FX12,6":