Subrutina PLOT

Como ya se dijo, esta subrutina es complementaria de PAGE y sirve para colocar un símbolo en una u otra de las gráficas en el renglón y columna especificados, todo eso viene explicado por sus argumentos que son: IA, IB, K, ICH que corresponden a columna, renglón, archivo y símbolo. Se toma el cuidado de colocar un símbolo en el márgen cuando el valor de la función es muy positivo o muy negativo por razones que ya vimos con anterioridad. Resumiendo, la técnica para obtener este tipo de gráficas es la siguiente: hay tres tipos de pasos que son: borrar la página, introducir el punto e imprimir.

     SUBROUTINE  PLOT (IA,IB,K,ICH)
     DIMENSION   III(120)
C
     IF (IA) 1,1,2
  1  IA = 1
  2  IF (120-IA) 3,3,4
  3  IA = 120
  4  IF (IB) 5,5,6
  5  IB = 1
  6  IF (50-IB) 7,7,8
  7  IB = 50
  8  READ  (K@IB) III
     III(IA) = ICH
     WRITE (K@IB) III
     RETURN
     END

Por lo demás, el funcionamiento de este programa es muy simple y no requiere mayor discusión.