其中几个固定值为标准砂锥砂重为744g，砂密度固定为1.43g/m3，灌砂筒和砂共重9000g,以上数据可在程序中更改。
A        最大干容重        B        最佳含水量        C        要求达到的压实度
E        灌砂筒+余砂重        F        试坑体积        G        试坑内湿土重
H        湿密度        I        盒+湿土重        J        盒+干土重
K        盒重        L        干土重        Z        水重
N        含水量        O        平均含水量        P        干密度
Q        压实度        　        　        　        　
文件1   程序名：YSD
Defm 1:Lbl 9:Lbl 7:Y=Int(800+500Ran#Ran#):Y>1100＝>Goto 7⊿Y=Y÷10:{ABC}:ABC ← Lbl 6:D=2:V=0 ← Lbl 0:M=100Ran#Ran#:M>80＝>Goto 0⊿M=M÷1000:P=C÷100×A+M+0.003:P÷A>C÷100+0.035＝>Goto 0⊿P÷A≥1＝>Goto 0⊿Lbl 1:S=Int(30Ran#):S≥10＝>Goto 1⊿Int(S÷2)≠S÷2＝>０=B+S÷10:≠>０=B-S÷10⊿Z[1]=30:Lbl E:Dsz Z[1]:Goto 2:Goto 1:Lbl 2:M=Int(50Ran#Ran#):M≥1＝>M<10＝>Goto A:≠>Goto 2⊿≠>Goto 2⊿Lbl A:M=M÷10:X=Int(100Ran#):Int(X÷2)≠X÷2＝>N=０+M:≠>N=０-M⊿Abs(N-B)>1.0＝>Goto E⊿Abs(2０-N-B)>1.0＝>Goto E⊿Abs(2０-2N)>0.7＝>Goto E⊿M=(1+０÷100)×P×100:Prog"YSD1":H=M÷100:Lbl 4:M=Int(1000Ran#):M>150＝>Goto 4⊿F=2550+M:M=F×H:Prog"YSD1":G=M:M=9000-1.43F-744:Prog"YSD1":E=M◢ R=9000-E-744◢ F◢ G◢ H◢ W=0:Lbl 5:{K}:K:Lbl 3:U=Int(1000Ran#Ran#):U>50＝>U>300＝>Goto 3:≠>Goto L⊿≠>Goto 3⊿Lbl L:Int(U÷10)≠U÷10＝>L=Y+U÷10:≠>L=Y-U÷10⊿M=N×L÷10:Prog"YSD1":Z=M÷10:J=K+L:I=L+Z+K:I-V≠I＝>Abs(I-V)>40＝>Goto 3⊿⊿V=I:I◢ J◢ Z◢ L◢ M=Z÷L×1000:Prog "YSD1":T"N"=M÷10◢ W=W+T:N=2０-N:DSZ D:Goto 5:M=10W÷2:Prog "YSD1":０=M÷10◢ M=H÷(1+０÷100)×100:Prog "YSD1":P=M÷100◢ M=H÷(1+０÷100)÷A×1000:Prog "YSD1":Q=M÷10◢ {D}:D"<0 TO RESET":D<0＝>Goto 9⊿Goto 6
文件2  程序名：YSD1
M-Int M<0.5＝>M=Int M:≠>M=Int M+1⊿