programs/plotter/src/achja.f

   1 C ACH JA, DAS AUCH
   2 C
   3 C
   4       INTEGER X,Y
   5 C
   6 C
   7  1000 CALL PL$RST
   8       DO 2000 X=0,600,50
   9          CALL LINE(X,-100,X,100)
  10  2000 CONTINUE
  11
  12  1500 DO 1600 Y=0,200,50
  13          CALL LINE(0,Y-100,600,Y-100)
  14  1600 CONTINUE
  15       CALL LINE (0,1,600,1)
  16       CALL LINE (0,-1,600,-1)
  17 C
  18       CALL PL$MV(0,0)
  19       CALL PL$PD
  20       DO 3000 X=0,600
  21          TMP=X
  22          PHI=(3.141/180.0)*TMP
  23          Y=SIN(PHI)*90.0
  24          CALL PL$MV(X,Y)
  25  3000 CONTINUE
  26       CALL PL$PU
  27 C
  28 C
  29 C
  30       CALL PL$MV(0,0)
  31       CALL REBOOT
  32       END
  33 C
  34 C
  35 C
  36       SUBROUTINE LINE(X1,Y1,X2,Y2)
  37       INTEGER X1,Y1,X2,Y2
  38       CALL PL$MV(X1,Y1)
  39       CALL PL$PD
  40       CALL PL$MV(X2,Y2)
  41       CALL PL$PU
  42       RETURN
  43       END
  44 $0
  45
  46