实测通过
测试日期13年5月24日，建L0-L9十个数字分别存0-9刀路.
r1=$A_YEAR;=13
r2=$A_MONTH;=05
r3=$A_day;=24
r4=(r1 div 10 )mod 10;取出年份十位数=1
r5=r1 mod 10; 年份个位数=3
r6=(r2 div 10 )mod 10;=0
r7=r2 mod 10;=5
r8=(r3 div 10 )mod 10;=2
r9=r3 mod 10 ;4
CALL "L" << R4;调用L1子程序,刻”1”
;偏移刻字的零点
CALL "L" << R5; 调用L3子程序,刻”3”
;偏移刻字的零点
CALL "L" << R6
CALL "L" << R7
CALL "L" << R8
CALL "L" << R9
m2