1 C HACHTI'S PRIMZAHLEN PROGRAMM, 14. FEBRUAR 2005
3 INTEGER START, END, MODULO, NOPRIM
12 C DATA XVA/0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0/
13 C DATA YVA/0.5,0.5,0.5,1.0,1.0,1.0,0.3,0.3,0.3,0.3/
15 CALL CLRPLT(2000,BUFFER)
18 0099 FORMAT (42H PHILIPP'S PRIMZAHLENPROGRAMM - 14.2.2005 )
24 0199 FORMAT (11H START(I4):)
25 0299 FORMAT (11H ENDE(I4):)
32 CALL SCALE(XSTART,0.0,XEND,1.0)
37 CALL PLOT(2,XPOS,YPOS)
40 0010 DO 100 NOUT = START , END
43 CALL PLOT(1,XPOS,YPOS)
46 20 DO 200 NIN = 2 , NOUT
48 IF (NIN.EQ.NOUT) GO TO 200
51 IF (MODULO.NE.0) GO TO 200
55 IF (NOPRIM.EQ.0) WRITE (4,22) NOUT