3 ! PROGRAM ADAPTED FROM A PROGRAM IN THE PHYSICS TEACHER

3 ! PROGRAM ADAPTED FROM A PROGRAM IN THE PHYSICS TEACHER
4 ! APRIL, 1979. PAGE 250
5 ? "WHAT IS THE RANGE OF THE LARGEST PRIME NUMBER YOU ARE LOOKING FOR?"
6 INPUT X
10 N=1
20 PRINT USING " ######### #########",N+1,N+2;
30 N=N+2
40 S=N^.5
50 IF S=INT(S) GOTO 30
60 F=3
70 IF (N/F)=INT(N/F) GOTO 30
80 F=F+2
90 IF F<S GOTO 70
100 PRINT USING " #########",N;
110 IF N>X THEN 130
120 GOTO 30
130 ?:?:?
140 IF A$="Y" OR A$="YES" THEN 5
150 ?:?
999 CHAIN "MATH2"
1000 END