home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol078 / fprime.bas < prev    next >
BASIC Source File  |  1984-04-29  |  257b  |  13 lines
  1. 100 N=1000
  2. 110 PRINT "Starting..."
  3. 120 PRINT 2;
  4. 130 NXT=3
  5. 140 ITEST=2
  6. 150 LIMIT=SQR(NXT)
  7. 160 IF NXT=INT(NXT/ITEST)*ITEST THEN 190
  8. 170 ITEST=ITEST+1
  9. 180 IF ITEST > LIMIT THEN PRINT NXT; ELSE 160
  10. 190 NXT=NXT+2
  11. 200 IF NXT > N THEN END
  12. 210 GOTO 140
  13.