File WEB.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search