Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2015/07/02 08:43:21

MixJuice GET URL : kidspod.club/mj/15

うるうクロック

2015.7.1 うるう秒を再現するデカ文字時計

  • 1
  • 1

SOURCE CODE

1 REM "URU CLOCK"
5 LC 0,8:?CHR$(12)
10 LET[0],8,59,50
20 FOR N=0 TO 2
30  X=N*12:Y=10
40  C=ASC("0")+[N]/10:GOSUB100
50  X=N*12+4
60  C=ASC("0")+[N]%10:GOSUB100
65  IF N<2 X=N*12+8:C=ASC(":"):GOSUB100
70 NEXT
80 [2]=[2]+1:IF [2]>60 [2]=0:[1]=[1]+1:IF [1]>=60 [1]=0:[0]=[0]+1
90 GOTO 20
100 FOR I=0 TO 7 STEP 2
110  FOR J=0 TO 7 STEP 2
120   P=PEEK(C*8+I)
125   V=P>>(7-J)&1+P>>(5-J)&2
127   P=PEEK(C*8+I+1)
130   V=V+P>>(5-J)&4+P>>(3-J)&8
132   LC X+J/2,Y+I/2
135   ?CHR$(128+V);
140  NEXT
150 NEXT
160 RETURN

COMMENT