5 100 FORMAT (1X,'TEXT (30 CHAR MAX, TERMINATOR IS \)')
12 IF (NAME(J).EQ.TERM)GOTO LAB
13 IF (TERM.EQ.1H )GOTO 12
22 CALL XYPLOT(16,10.,-3)
30 300 CALL SYMBOL ((J-1-NN)*SIZE,RAD,SIZE,NAME(J),ANG,1)
32 T=2*ATAN(SIZE/(2.*RAD))
39 400 CALL SYMBOL(X,Y,SIZE,NAME(J),ANG,1)
40 IF(SIZE-.07)500,500,380
43 2 FORMAT (' PLOTTER NUMMER?',$)