1000 (PROGRAM15)
1010 "PRIME"
1020 P=2
1030 ?=P;
1040 " ";
1050 P=P+1
1060 X=1
1070 X=X+1
1080 #=X=P*1030
1090 T=P/X
1100 #=%=0*1050
1110 #=1070

2000 (PROGRAM16)
2010 "NAPIER"
2020 N=0
2030 F=1
2040 E=10000
2050 ?=N;
2060 " ";
2070 ?=F;
2080 " ";
2090 ?=E
2100 N=N+1
2110 F=F*N
2120 E=E+(10000/F)
2130 #=(N<9)*2050
2140 #=50000