时间显示（小晶体管）控制

时间显示（小晶体管）控制
首先，来看看时间显示的小程序(NC2600C通过)：

10 CLS:POKE 199,0
20 LOCATE 2,4
30 PRINT "这是一个测试程序":PA$(0)=" ":PA$(1)=":" /*为使用192/64振荡器做准备*/
40 LOCATE 3,6 OKE 911,1
50 PRINT "CLOCK"


/*以下是定义数字模型,DATA中的数值一一对应数组下标的数字,这些数字模型是通过上一篇中的程序测试求得的*/
60 FOR A=0 TO 9
70 READ TIMES(A)
80 NEXT
90 DATA 126,96,91,115,101,55,63,102,127,119


/*程序的核心部分,不停的刷新时间,时间有两个部分,一个在屏幕上显示作为对照,一个在数码管上显示*/
100 WHILE NOT PEEK(199)
110 HOURS=PEEN(1015):MINIT=PEEK(1016)
120 POKE 907,TIMES(VAL(MID$(STR$(HOURS+100),2,1)))+(PEEK(1023)>100)*128 /*控制时间中冒号的显示,使用了振荡器,NC2600C中振荡器的地址为1023d*/
130 POKE 908,TIMES(VAL(RIGHT$(STR$(HOURS+100),1)))
140 POKE 909,TIMES(VAL(MID$(STR$(MINIT+100),2,1)))
150 POKE 910,TIMES(VAL(RIGHT$(STR$(MINIT+100),1)))
160 LOCATE 4,4:PRINT " [";HOURS;PA$(PEEK(1023)>100);MINIT;"] ";
170 POKE 905,PEEK(1022) /*进度条的简易显示控制*/
180 WEND


190 END