【正文】 39。 when 11 = Q =x00。 RS=39。139。 when 12 = Q =x00。 RS=39。139。 when 13 = Q =x06。 RS=39。139。 when 14 = Q =x06。 RS=39。139。 when 15 = Q =x00。 RS=39。139。 when 16 = Q =x08。 RS=39。139。 年 when 17 = Q =x0f。 RS=39。139。 when 18 = Q =x12。 RS=39。139。 when 19 = Q =x0f。 RS=39。139。 when 20 = Q =x0a。 RS=39。139。 when 21 = Q =x1f。 RS=39。139。 when 22 = Q =x02。 RS=39。139。 when 23 = Q =x02。 RS=39。139。 when 24 = Q =x0f。 RS=39。139。 月 when 25 = Q =x09。 RS=39。139。 when 26 = Q =x0f。 RS=39。139。 when 27 = Q =x09。 RS=39。139。 when 28 = Q =x0f。 RS=39。139。 when 29 = Q =x09。 RS=39。139。 when 30 = Q =x13。 RS=39。139。 when 31 = Q =x00。 RS=39。139。 when 32 = Q =x1f。 RS=39。139。 日 when 33 = Q =x11。 RS=39。139。 when 34 = Q =x11。 RS=39。139。 when 35 = Q =x1f。 RS=39。139。 when 36 = Q =x11。 RS=39。139。 when 37 = Q =x11。 RS=39。139。 when 38 = Q =x1f。 RS=39。139。 when 39 = Q =x00。 RS=39。139。 when 5 = Q =x01。 RS=39。039。 清屏 when 36 = Q =xc0。 RS=39。039。 SECOND Row li gong da xue ! when 38 = Q =x4c。 RS=39。139。 L when 39 = Q =x69。 RS=39。139。 i when 40 = Q =xA0。 RS=39。139。 when 41 = Q =x67。 RS=39。139。 g when 42 = Q =x6F。 RS=39。139。 o when 43 = Q =x6E。 RS=39。139。 n when 44 = Q =x67。 RS=39。139。 g when 45 = Q =xA0。 RS=39。139。 when 46 = Q =x64。 RS=39。139。 d when 47 = Q =x61。 RS=39。139。 a when 48 = Q =xA0。 RS=39。139。 when 49 = Q =x78。 RS=39。139。 x when 50 = Q =x75。 RS=39。139。 u when 51 = Q =x65。 RS=39。139。 e when 52 = Q =x21。 RS=39。139。 ! when 41 = Q =xc4。 RS=39。039。 Second Row when 42 = Q =x32。 RS=39。139。 2 when 43 = Q =x30。 RS=39。139。 0 when 44 = Q =x31。 RS=39。139。 1 when 45 = Q =x32。 RS=39。139。 2 when 46 = Q =x01。 RS=39。139。 年 when 47 = Q =x31。 RS=39。139。 1 when 48 = Q =x02。 RS=39。139。 月 when 49 = Q =x31。 RS=39。139。 1 when 50 = Q =x30。 RS=39。139。 0 when 51 = Q =x03。 RS=39。139。 日 when 52 = Q =x80。 RS=39。039。 FIRST Row when 53 = Q =hour10。 RS=39。139。 when 54 = Q =hour1。 RS=39。139。 when 55 = Q =x00。 RS=39。139。 when 56 = Q =min10 。 RS=39。139。 when 57 = Q =min1。 rs=39。139。 when 58 = Q =x00。 RS=39。139。 when 59 = Q =sec10。 RS=39。139。 when 60 = Q =sec1。 RS=39。139。 when 61 = Q =D 。 RS=39。139。 when 62 = Q =C 。 RS=39。139。 when 63 = Q =B 。 RS=39。139。 when 64 = Q =xA5 。 RS=39。139。 when 65 = Q =A 。 RS=39。139。 when 66 = Q =xdf。rs=39。139。 when 67 = Q =x43。rs=39。139。 when 68 = Q =x0c。 RS=39。039。 when others = Q =xA0。 RS=39。139。 end case。 end if。 END PROCESS。process(s1)begin var4=CONV_INTEGER(s1)/1600。 百位 var3=CONV_INTEGER(s1)/160 rem 10。 十位 var2=CONV_INTEGER(s1)/16 rem 10。 個位 var1=CONV_INTEGER(s1)*10/16 rem 10。 小數(shù)點后一位 case var4 is百位 when 0=d= x20。 when 1=d= x31。 when 2=d= x32。 when 3=d= x33。 when 4=d= x34 。 when 5=d= x35 。 when 6=d= x36 。 when 7=d= x37 。 when 8=d= x38 。 when 9=d= x39 。 when others =d= xb0 。 end case。case var3 is十位 when 0=c= x30。 when 1=c= x31。 when 2=c= x32。 when 3=c= x33。 when 4=c= x34 。 when 5=c= x35 。 when 6=c= x36 。 when 7=c= x37 。 when 8=c= x38 。 when 9=c= x39 。 when others =c= xff 。 end case。case var2 is個位 when 0=b= x30。 when 1=b= x31。 when 2=b= x32。 when 3=b= x33。 when 4=b= x34。 when 5=b= x35。 when 6=b= x36。 when 7=b= x37。 when 8=b= x38。 when 9=b= x39。 when others =b= xff 。 end case。case var1 is對小數(shù)點后第一位譯碼when 0 =A= x30。 when 1 =A= x31。 when 2=A= x32。 when 3=A= x33。 when 4=A= x34 。 when 5=A= x35 。 when 6=A= x36 。 when 7=A= x37 。 when 8=A= x38 。 when 9=A= x39 。 when others =a=xff 。 end case。end process。process(h1,h10,m1,m10,se1,se10) begin case h10 is when 0=hour10=x30。 0 when 1=hour10=x31。 1 when 2=hour10=x32。 2 when 3=hour10=x33。 3 when 4=hour10=x34。 4 when 5=hour10=x35。 5 when 6=hour10=x36。 6 when 7=hour10=x37。 7 when 8=hour10=x38。 8 when 9=hour10=x39。 9 when others=hour10=xff。 全滅 end case。 case h1 is when 0=hour1=x30。 0 when 1=hour1=x31。 1 when 2=hour1=x32。 2 when 3=hour1=x33。 3 when 4=hour1=x34。 4 when 5=hour1=x35。 5 when 6=hour1=x36。 6 when 7=hour1=x37。 7 when 8=hour1=x38。 8 when 9=hour1=x39。 9 when others=hour1=xff。 全滅 end case。 case m10 is when 0=min10=x30。 0 when 1=min10=x31。 1 when 2=min10=x32。 2 when 3=min10=x33。 3 when 4=min10=x34。 4 when 5=min10=x35。 5 when 6=min10=x36。 6 when 7=min10=x37。 7 when 8=min10=x38。 8 when 9=min10=x39。 9 when others=min10=xff。 全滅 end ca