home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / e / e_v3.3a / src.lha / Src / Various / prime.e < prev    next >
Encoding:
Text File  |  1992-09-02  |  109 b   |  5 lines

  1. PROC main()
  2.   DEF i=9,j=99
  3.   WHILE i-- DO IF Mod(j,i)=0 THEN IF i-- THEN i:=j-- ELSE WriteF('\d ',j)
  4. ENDPROC
  5.