Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0126/apdaxb.for
There is 1 other file named apdaxb.for in the archive. Click here to see a list.
	DATA SIZN, SIZS /5.0,8.0/
	CALL PLOTS(280.0,260.0,0)
	Y = 220.0
	DO 100 I = 1, 14
	  XI = I
	  CALL NUMBER(0.0,Y,SIZN,XI,0.0,-1)
	  CALL SYMBOL(50.0,Y+SIZS/2.,SIZS,I,0.0,-3)
	  Y = Y - 15.0
 100	CONTINUE
	CALL PLOT(0.0,0.0,999)
	END