C TEST FOR 4010 ROUTINES C MODIFIED FOR BLANK PADDING (INSTEAD OF NULL) C 31-OCT-75: RSX-11D VERSION (F4P) C BYTE LINE(72) LOGICAL CMD,DONE C N=0 CALL B4010(N) 100 DONE=.TRUE. CALL WTFCMD 101 CALL CMDIN(INCMD,2,CMD) IF(CMD)GO TO 110 IF(DONE)GO TO 100 GO TO 120 110 DONE=.FALSE. JCMD=INCMD C C DECODE COMMAND C 120 IF(JCMD.EQ.'E')GO TO 200 IF(JCMD.EQ.'T')GO TO 300 IF(JCMD.EQ.'R')GO TO 400 IF(JCMD.EQ.'D')GO TO 500 IF(JCMD.EQ.'S')GO TO 600 IF(JCMD.EQ.'F')GO TO 700 GO TO 100 C C E: ERASE C 200 CALL ERASE GO TO 100 C C T: TEXT C 300 CALL LININ(LINE,72) J=1 DO 310 I=2,72 IF(LINE(I).NE."40)J=I 310 CONTINUE CALL LINOUT(LINE,J) GO TO 101 C C R: REPEAT TEXT C 400 CALL LININ(LINE,72) J=1 DO 410 I=2,72 IF(LINE(I).NE."40)J=I 410 CONTINUE 401 CALL CMDIN(INCMD,1,CMD) IF(CMD)GO TO 110 CALL LINOUT(LINE,J) GO TO 401 C C D: DRAW TEST PATTERN C 500 CALL TPLOT(0,0,0) CALL TPLOT(1,0,780) CALL TPLOT(1,1023,780) CALL TPLOT(1,1023,0) CALL TPLOT(1,0,0) CALL TPLOT(-1,428,400) CALL LABEL('TEST PATTERN',12) CALL TPLOT(-1,596,400) CALL TPLOT(0,62,740) A=450. B=350. K=B DO 520 I=1,30 J=A CALL TPLOT(1,512+J,390+K) CALL TPLOT(1,512+J,390-K) CALL TPLOT(1,512-J,390-K) B=B*.95 K=B CALL TPLOT(1,512-J,390+K) A=A*.95 520 CONTINUE CALL ENDPLT GO TO 100 C C S: SKETCH C 600 I=0 CALL CURSIS(I,IX,IY) IF(I.EQ.0)GO TO 100 !TIMEOUT IF(I.EQ.'B')GO TO 610 !BRIGHT VECT IF(I.EQ.'D')GO TO 620 !DARK VECT IF(I.EQ.'E')GO TO 100 !END OF SKETCH IF(I.EQ.'P')GO TO 640 !POINT GO TO 600 C B: BRIGHT 610 CALL TPLOT(0,IXP,IYP) CALL TPLOT(1,IX,IY) 612 IXP=IX IYP=IY GO TO 101 C D: DARK 620 CALL TPLOT(0,IX,IY) GO TO 612 C P: POINT 640 CALL TPLOT(-1,IX,IY) GO TO 612 C C F: FINISH C 700 CALL F4010 END