C HACHTI'S PRIMZAHLEN PROGRAMM, 14. FEBRUAR 2005 
C
      INTEGER START, END, MODULO, NOPRIM
      INTEGER BUFFER
      DIMENSION XVA(10)
      DIMENSION YVA(10)
      DIMENSION XPOS(1)
      DIMENSION YPOS(1)
      DIMENSION BUFFER(2000)
C
C
C      DATA XVA/0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0/
C      DATA YVA/0.5,0.5,0.5,1.0,1.0,1.0,0.3,0.3,0.3,0.3/
C	
       CALL CLRPLT(2000,BUFFER)
C
 1000  WRITE (4, 99) 
 0099  FORMAT (42H PHILIPP'S PRIMZAHLENPROGRAMM - 14.2.2005   )
       WRITE (4,199)
       READ (4,399) START
       WRITE (4,299)
       READ (4,499) END
       WRITE (4,599)
 0199  FORMAT (11H START(I4):)
 0299  FORMAT (11H  ENDE(I4):)
 0399  FORMAT (I4)
 0499  FORMAT (I4)
 0599  FORMAT (H0)
C
      XSTART=FLOAT(START)
      XEND=FLOAT(END)
      CALL SCALE(XSTART,0.0,XEND,1.0)
      XPOS(1)=XEND
      XPOS(2)=XSTART
      YPOS(1)=0.4
      YPOS(2)=0.4
      CALL PLOT(2,XPOS,YPOS)
      YPOS(1)=0.5       
C
0010  DO 100 NOUT = START , END
C
      XPOS(1)=FLOAT(NOUT)
      CALL PLOT(1,XPOS,YPOS)       
C
      NOPRIM=0
 20   DO 200 NIN  = 2 , NOUT
C      
      IF (NIN.EQ.NOUT) GO TO 200
      I=(NOUT/NIN)
      MODULO=NOUT-I*NIN
      IF (MODULO.NE.0) GO TO 200
      NIN=NOUT
      NOPRIM=1
0200  CONTINUE
      IF (NOPRIM.EQ.0) WRITE (4,22) NOUT
 0022 FORMAT (I5)       
 0100 CONTINUE
      PAUSE 7
C
       END
$0