   10MODE4: PRINT"BBC BASIC2 PROGR NEULAM, 8.10.91, 1930"
   20PRINT"ULAM EXPERIMENT, BY DON S MCDONALD, WN": REM F 63, 5 HUTCHISON RD, WELLINGTON 2, N.Z. (04) 3-896-820
   30REM "REF  BBC/ACORN COMPUTER USER GROUP NZ NEWSLTR 'BEEBLET', SEPT 91, ARTICLE LLEW AMON"
   40INPUT"ENTER START ROW, 2-88, EVEN/ODD ="'"  UPPER/LOWER TRIANGLE, ELSE END";R$  :  IF R$ = "" THEN R% =2  ELSE R% = EVAL R$
   50NOW=TIME : REM CENTISEC CLOCK
   60IF R%<2 OR R%>88 THEN GOTO 200
   70P%=2*(((R%-1)^2) DIV 2)+1 :PRINT"TEST ";P%
   80VDU5 : REM CURSOR
   90FOR R% = R% TO 88 STEP2
  100S%=R%^2 :R2%= 2*R%
  110REM P-RIME, R-OOT, S-QUARE, F-ACTOR
  120FOR P% = P% TO S% STEP2
  130FOR F% = 3 TO R% STEP2
  140IF P%MOD F% THEN NEXT F%
  150IF F%>R% THEN PROCPRIME:ELSE F%=S%: NEXT F%
  160NEXT P%
  170IF R%MOD4 <2 THEN PRINT;R%
  180P%=P%+R2%
  190NEXT R%
  200VDU4 : PRINT TAB(2,29);.01*(TIME-NOW)" SECONDS" '"PROGRAM  NEULAM  END.";:END : REM CURSOR
  210:
  220DEF PROCPRIME
  230REM  PRINT;P%" ";:ENDPROC
  240D% = P% +R% -S%
  250MOVE 600+5.5*D%,880-8*R%:PRINT;".";
  260ENDPROC
  270: