()0JPBTC-PS/8 FOCAL, 1971?MBBAC     WEB BY BARRY SMITH?MB9BBC     OMSI SOFTWARE DEVELOPMENT GROUP?MCIBCC     LAST CHANGE: 7/3/71?MC*BDC     ***** TEKTRONIX T-4002 GRAPHIC TERMINAL REQUIRED *****?MC-BE?MDOBFC     THIS PROGRAM DRAWS A SPIDER AND HER WEB.  I
 IS NOTHING?MD0BGC MORE THAN A HANDY DEMONSTRATION OF FOCAL	S DISPLAY POWER.?MEBFJF A=0,30,330;S B=A/57.295;D 4?MEHFTG 5.05?MEUHJS C=FDIS[0,300,400]?ME.HTS C=FDIS[1,300+FSIN[B]*100,400+FCOS[B]*100]?MFGH^S C=FDIS[1,300+FSIN[B]*200,400+FCOS[B]*200]?MF H(S C
FDIS[1,300+FSIN[B]*300,400+FCOS[B]*300]?MF	JES D=1.5?MF9JJF A=0,30,3500;S B=A/57.295;D 6?MGPLJS C=FDIS[1,300+FSIN[B]*D,400+FCOS[B]*D]?MGXLTS D=D+2.5?MG%NJS C=FDIS[0,175,180]?MG7NTF A=0,45,360;S B=A/57.295;D 8?MHOPJS C=FDIS[1,250+FSIN[B]*10,170+FCOS[B]*15]
MH\RJS C=FDIS[1,220,210]?MH)RTS C=FDIS[1,190,180]?MH6R^S C=FDIS[0,250,185]?MIFR(S C=FDIS[1,235,220];D 9.3?MIVR2S C=FDIS[1,300,160];D 9.3?MIR<S C=FDIS[1,275,210]?MI3SFS C=FDIS[1,300,190];D 9.3?MJSKS C=FDIS[1,275,225]?MSPS C=FDIS[1,300,210];D 9.3?M3?L S WEB
M?1000)))-FABS(A-C(1)))4.25,4.4;O I TTY:,E?MJ3H^T !;S L=0?MKTH
S L=L+1;I (FABS(G(L)-141)),4.32;S U=FOUT(G(L));I (L-30)4.31?MK.H T " -- NOT AVAILABLE; RETRY OR TYPE 	HELP	"!!?MK4H!G 4.7?MLSH(I [FABS(B-C(2))+FABS?IB\?PYDY,EL/8KDY$ACHYLM SD!DIDY4QLS4K[,G< XD\LHDGD*D$(RD6H$H,LVDG,$H$4WDIP,LK4;H<KDK :D44$H	(9DY,IHX\9L8$	D
$
D$$X 4H7>$ ]H48J=,L7XKZ89L9$Z$R:LH86H ,*LH8,H(,*H/\5D8X$LRD$$*D$D<$HKP4\\/LI8(P*H$PZD^XD$ ZD4$*$H >

Note: Lines longer than 256 characters were wrapped