0 SCREEN,0:PRINT:PRINT"    PRIMES by James Main Kenney 1995":ONERRORGOTO3:OPEN"NUMBRS"FORAPPENDAS1:DEFINTJ-S:PRINT:PRINT" Any key to exit; see NUMBRS.DO":INPUT" Starting number <32750";S:PRINT:N=2*(S\2)-1:IFS<4THENS$="1 2 3":N=3:GOTO2
1 N=N+2:FORJ=3TON-2STEP2:IFNMODJ=0THEN1ELSENEXT:S$=STR$(N)
2 PRINTS$;:PRINT#1,S$;:IFINKEY$=""THEN1
3 MENU