程序如下：

L "t41"
T DBD 1208
SET
SAVE
CLR
_001: A BR
)
JNB _002
L DBD 1208
DTR
T DBD 1208
SET
SAVE
CLR
_002: A BR
)
JNB _003
L DBD 1208
L 1.000000e+001
/R
T MD 160
AN OV
SAVE
CLR
_003: A BR
)
JNB _004
L DBD 320
L DBD 324
*R
T DBD 1212
AN OV
SAVE
CLR
_004: A BR
)
JNB _005
L DBD 320
L DBD 1212
+R
T DBD 1216
AN OV
SAVE
CLR
_005: A BR
)
JNB _006
L DBD 320
L DBD 1212
-R
T DBD 1220
_006: NOP 0
A L 0.0
A(
L MD 160
L DBD 1216
>R
)
JNB _007
L 0
T "q41"
_007: NOP 0
A(
A(
A L 0.0
A(
L MD 160
L DBD 1220
<=R
)
JNB _008
L DBD 1216
L MD 160
-R
T DBD 1224
AN OV
SAVE
CLR
_008: A BR
)
JNB _009
L DBD 1224
L 1.000000e+001
*R
T DBD 1224
AN OV
SAVE
CLR
_009: A BR
)
JNB _00a
L DBD 1224
T "q41"