File: CHRFNT.FT of Tape: Various/System-Tapes/eb-plot

(Source file text) 

---

C	PROGRAM CHRFNT.FT      CHARACTER FONTS TEST
C	-----------------------------------------------
C
	DIMENSION TEXT(3,4)
	DATA TEXT /' !"#$%&''()*+,-./','0123456789:;<=>?',
     $  '@ABCDEFGHIJKLMNO','PQRSTUVWXYZ[\]^_'/
C
C  INIT
C
	ITTY	= 4
	IPLOT	= 9
C
	CALL	PLTDEV ('FILE',IPLOT)
	CALL	PLTPIC (-1.,-1.,25.,30.)
	CALL	PLTABS (0.,0.,3,1)
	CALL	PLTREL (24.,0.,2,1)
	CALL	PLTREL (0.,29.,2,1)
	CALL	PLTREL (-24.,0.,2,1)
	CALL	PLTREL (0.,-29.,2,1)
C
C
20	WRITE	(ITTY,2020)
2020	FORMAT	(' FONT ?   ',$)
	READ	(ITTY,1020) IFONT
1020	FORMAT	(I5)
C
	CALL	PLCSIZ (1.,1.)
	CALL	PLCROT (1.,0.,1)
	CALL	PLTABS(12.,1.5,3,1)
	CALL	PLTEXT('FONT = ',7,1)
	ITEMP=IFONT
	IF	(IFONT.GE.10)	CALL PLTEXT(49,-1,1)
	IF	(IFONT.GE.10)	ITEMP=IFONT-10
	CALL	PLTEXT(ITEMP+48,-1,1)
C  PLOT
C
	DO 30	I=1,4
	HEI=I/4.
	WID=HEI
	CALL	PLCSIZ (HEI,WID)
	CALL	PLCROT (1.,0.,1)
	DO 40	J=1,4
	Y=6.8*(I-1)+1.5*J
	CALL	PLTABS (2.,Y,3,1)
	IF	(IFONT.NE.3)	CALL	PLTEXT (TEXT(1,5-J),16,IFONT)
	IF	(IFONT.NE.3)	GOTO	40
	DO 50	K=1,16
	CALL	PLTEXT (16*(4-J)+K+31,-1,IFONT)
50	CALL	PLTREL (WID,0.,1)
40	CONTINUE
30	CONTINUE
C
C  END
C
100	CALL	PLTDEV (0,-1)
	END FILE IPLOT
	END

---