（UBASIC）
20华氏度=5
30 A=F+1：打印A；：如果A=prmdiv（A），则S=S+B：打印“*”；
40 B=A+5：打印B；：如果B=prmdiv（B），则S=S+B：打印“*”；
50 C=B+4：打印C；：如果C=prmdiv（C），则S=S+C：打印“*”；
60 D=C+3：打印D；：如果D=prmdiv（D），则S=S+D：打印“*”；
70 E=D+2：打印E；：如果E=prmdiv（E），则S=S+E：打印“*”；
80 F=E+1：打印F；：如果F=prmdiv（F），则S=S+F：打印“*”；
90 R=R+1：如果R=4且S=prmdiv（S），则打印S；"*";
100如果R=4，则打印R；S、 以下为：T=T+1：打印T:R=0:S=0
110站：转到30
