C-PS/8 FOCAL, 1971
 1.01 C     WEB BY BARRY SMITH
 1.02 C     OMSI SOFTWARE DEVELOPMENT GROUP
 1.03 C     LAST CHANGE: 7/3/71
 1.04 C     ***** TEKTRONIX T-4002 GRAPHIC TERMINAL REQUIRED *****
 1.05 
 1.06 C     THIS PROGRAM DRAWS A SPIDER AND HER WEB.  IT IS NOTHING
 1.07 C MORE THAN A HANDY DEMONSTRATION OF FOCAL	S DISPLAY POWER.
 3.10 F A=0,30,330;S B=A/57.295;D 4
 3.20 G 5.05
 4.10 S C=FDIS[0,300,400]
 4.20 S C=FDIS[1,300+FSIN[B]*100,400+FCOS[B]*100]
 4.30 S C=FDIS[1,300+FSIN[B]*200,400+FCOS[B]*200]
 4.40 S C=FDIS[1,300+FSIN[B]*300,400+FCOS[B]*300]
 5.05 S D=1.5
 5.10 F A=0,30,3500;S B=A/57.295;D 6
 6.10 S C=FDIS[1,300+FSIN[B]*D,400+FCOS[B]*D]
 6.20 S D=D+2.5
 7.10 S C=FDIS[0,175,180]
 7.20 F A=0,45,360;S B=A/57.295;D 8
 8.10 S C=FDIS[1,250+FSIN[B]*10,170+FCOS[B]*15]
 9.10 S C=FDIS[1,220,210]
 9.20 S C=FDIS[1,190,180]
 9.30 S C=FDIS[0,250,185]
 9.40 S C=FDIS[1,235,220];D 9.3
 9.50 S C=FDIS[1,300,160];D 9.3
 9.60 S C=FDIS[1,275,210]
 9.70 S C=FDIS[1,300,190];D 9.3
 9.75 S C=FDIS[1,275,225]
 9.80 S C=FDIS[1,300,210];D 9.3