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