PROGRAM A
	CALL PSEUDO
	CALL HCUSE(-3)
C
100	CALL HOME
	READ(5,110,END=200) TH, NC, JUST
110	FORMAT(F8.0,I8,A1)
C
	CALL ERASE
	CALL HCUSE(-3)
	CALL CALPLT(4.,6.,-3)
	CALL AXES(0.,0.,TH,0.,1.,1.,3,2,0,
	1  'THIS$CIS$CA$CTEST',NC*999,.15)
	CALL HCUSE(3)
	CALL AXES(6.,0.,TH,0.,1.,1.,3,2,0,
	1  'THIS$CIS$CA$CTEST',NC*999,.15)
	GO TO 100
C
200	CALL CALPLT(0.,0.,999)
	STOP
	END