(UBASIC)
50字*:第80点
100 cls:print:print“分形立方体比率=1/2”:print
110定位3:打印“1”;:定位9:打印“1”
120定位3:打印“2”;:定位9:打印“6”
130 A=6:B=0:C=0:D=0:E=0:G=2:C=2:V=1.75:Dv=1/8
140 G=G+1:Cc=Cc+1:Dv=Dv/8
150 Na=A+B+D:Nb=4*A+3*B+2*D
160 Nc=B+2*D:Nd=3*C+2*E:Ne=C+2*E
170立方英寸=Na+Nb+Nc+Nd+Ne
180 A=Na:B=Nb:C=Nc:D=Nd:E=Ne:V=V+N立方体*Dv
190定位2:打印G;:定位8:打印Ncubes
如果Cc<40,则为200,然后为140
210打印:定位4:打印“V=”;:使用(2,60)打印,V:打印
220打印:打印“按‘S’停止或空格键继续”:打印
230 A$=墨水:如果A$=“”,则230
240如果A$=“s”或A$=”s“,则打印:结束
250 Cc=0:转到140