Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

1.05 C GENERATES A GT40 CLOCK
1.10 S PI=3.14159 ; S CRAD=210. ; S SRAD=200.
1.15 S MRAD=180 ; S HRAD=120
1.20 S CINC=PI/6. ; S SINC=PI/30.
1.25 S LOC=0 ; D 10 ; D 4
2.05 D 7
2.10 S LOC=FSET(LOC,509,383) ; S SLOC=LOC
2.15 S X=SRAD*FCOS(THETA) ; S Y=SRAD*FSIN(THETA)
2.20 X FDIS(2,5,0,0)
2.25 X FVEC(SLOC,X,Y) ; S THETA=THETA-SINC
2.30 X FDIS(0,5,0,0)
2.35 S X=SRAD*FCOS(THETA) ; S Y=SRAD*FSIN(THETA)
2.40 D 5 ; D 8 ; D 9 ; G 2.15
4.05 S LOC=FSET(LOC,509+CRAD,0383) ; S X=CRAD ; S Y=0
4.10 S T=0
4.15 S T=T+CINC ; S NX=CRAD*FCOS(T)
4.20 S NY=CRAD*FSIN(T) ; S LOC=FVEC(LOC,NX-X+.5,NY-Y+.5)
4.25 S X=NX ; S Y=NY
4.30 I (T-2*PI)4.15,4.35,4.35
4.35 D 6
5.05 F I=1,1,81 ; S Z=Z
6.05 S LOC=FSET(LOC,722,378) ; S LOC=FTXT(LOC,51)
6.10 S LOC=FSET(LOC,495,596) ; S LOC=FTXT(LOC,49,50)
6.15 S LOC=FSET(LOC,276,378) ; S LOC=FTXT(LOC,57)
6.20 S LOC=FSET(LOC,500,150) ; S LOC=FTXT(LOC,54)
6.25 S LOC=FSET(LOC,615,565) ; S LOC=FTXT(LOC,49)
6.30 S LOC=FSET(LOC, 690,490) ; S LOC=FTXT(LOC,50)
6.35 S LOC=FSET(LOC,690,260) ; S LOC=FTXT(LOC,52)
6.40 S LOC=FSET(LOC,615,185) ; S LOC=FTXT(LOC,53)
6.45 S LOC=FSET(LOC,385,180) ; S LOC=FTXT(LOC,55)
6.50 S LOC=FSET(LOC,305,255) ; S LOC=FTXT(LOC,56)
6.55 S LOC=FSET(LOC,295,480) ; S LOC=FTXT(LOC,49,48)
6.60 S LOC=FSET(LOC,380,565) ; S LOC=FTXT(LOC,49,49)
7.05 S LOC=FSET(LOC,509,383) ; S MLOC=LOC
7.10 S LOC=LOC+1
7.15 S MX=MRAD*FCOS(MTHETA) ; S MY=MYRAD*FSIN(MTHETA)
7.20 X FVEC(MLOC,MX,MY)
7.25 S LOC=FSET(LOC,509,383) ; S HLOC=LOC
7.30 S LOC=LOC+1 ; S HX=HRAD*FCOS(HTHETA) ; S HY=HRAD*FSIN(HTHETA)
7.35 X FVEC(HLOC,HX,HY) ; X FDIS(0,5,0,0)
8.05 S MTHETA=MTHETA-SINC/60
8.10 S MX=MRAD*FCOS(MTHETA) ; S MY=MRAD*FSIN(MTHETA)
8.15 X FVEC(MLOC,MX,MY)
8.20 I (MIN-60)8.3,8.3,8.25
8.25 S MIN=0 ; S HO=HO+1 ; D 9
8.30 R
9.05 S HTHETA=HTHETA-SINC/720
9.10 S HX=HRAD*FCOS(HTHETA) ; S HY=HRAD*FSIN(HTHETA)
9.15 X FVEC(HLOC,HX,HY)
9.20 I (HO-60)9.3,9.3,9.25
9.25 S HO=0
9.30 R
10.05 A "HOURS",HS ; A "MINUTES",MS
10.10 S HTHETA=PI/2-((HS+MS/60-12)*PI/6.)
10.15 S MTHETA=PI/2-MS*PI/30
10.20 S THETA=PI/2
10.25 X FSKP(0) ; S T=0
10.30 S X=(CRAD-15)*FCOS(T) ; S Y=(CRAD-15)*FSIN(T)
10.35 S LOC=FPT(LOC,X+509,Y+383)
10.40 S T=T+SINC ; I (T-2*PI)10.3,10.45,10.45
10.45 R