	LOGICAL*1 OUTPUT(80),INPUT(80),ESC(2),ANS
	DATA ESC(1),ESC(2)/27,0/
	TYPE 2,27,27
2	FORMAT('+',A1,'[2J',A1,'P0p')
D	CALL CONCAT(ESC,'P0p',OUTPUT)
	GOTO 15
3	type 4,27,27
4	format('+',a1,'[2j',a1,'P1p')
D	TYPE 10,(OUTPUT(I),I=1,LEN(OUTPUT))
10	FORMAT('+',80A1)
15	CALL CONCAT('S(E);P[0,0];V[400,400];P[200,200];',
	1 'R(I0);R(P(I));',OUTPUT)
	TYPE 10,(OUTPUT(I),I=1,LEN(OUTPUT))
	ACCEPT 20,(INPUT(I),I=1,80)
20	FORMAT(80A1)
	IEG=ISLEEP(0,0,5,0)
	TYPE 25,27,27
25	FORMAT('+',A1,'\',a1,'[2J')
	DO 30 I=1,24
		IF ((INPUT(I).LT.32).OR.(INPUT(I).GT.127))
	1 TYPE 40,INPUT(I)
		IF ((INPUT(I).GE.32).AND.(INPUT(I).LE.127))
	1 TYPE 50,INPUT(I),INPUT(I)
30	CONTINUE
40	FORMAT(3X,I5)
50	FORMAT(X,A1,X,I5)
	TYPE 60
60	FORMAT(X,'AGAIN ? ',$)
	ACCEPT 70,ANS
70	FORMAT(A1)
	IF (ANS.EQ.'Y') GOTO 3
	CALL EXIT
	END

