2013年03月26日投稿 / 投稿者 : BASIC-Ishida / タグ : 投稿プログラム ツール QRコード mkII専用
映画 BTTF(バック・トゥ・ザ・フューチャーにでてくるタイムサーキット風の時計です。
眺めるだけです。
動作しているところを撮影した写真や動画があれば貼り付けてください。
プチコンmkII 向けの QR コードです。
ACLS CLEAR DIM J$(13) DIM B$(13) DIM C$(30) RESTORE @DATA FOR I=0 TO 9 FOR S=0 TO 7 READ A$ B$(I)=B$(I)+A$ NEXT CHRSET ”BGF”,48+I,B$(I) NEXT RESTORE @ABC FOR I=0 TO 25 FOR S=0 TO 7 READ N$ C$(I)=C$(I)+N$ NEXT CHRSET ”BGF”,65+I,C$(I) NEXT GOSUB @TUKI COLOR 0,13:LOCATE 1,1:?”MONTH” COLOR 0,13:LOCATE 7,1:?”DAY” COLOR 0,13:LOCATE 11,1:?” YEAR ” COLOR 0,13:LOCATE 22,1:?”HOUR” COLOR 0,13:LOCATE 28,1:?”MIN” COLOR 0,13:LOCATE 19,1:?”AM” COLOR 0,13:LOCATE 19,3:?”PM” @LOOP DTREAD(DATE$),YEAR,MON,DAY TMREAD(TIME$),HOUR,MIN,SEC AP=HOUR<12 HOUR=HOUR-12*(HOUR>=12) YEAR$=”0”*(4-LEN(STR$(YEAR)))+STR$(YEAR) MON$=MID$(J$(MON),0,3) DAY$=”0”*(2-LEN(STR$(DAY)))+STR$(DAY) HOUR$=”0”*(2-LEN(STR$(HOUR)))+STR$(HOUR) MIN$=”0”*(2-LEN(STR$(MIN)))+STR$(MIN) SEC$=”0”*(2-LEN(STR$(SEC)))+STR$(SEC) GBOX 0,0,255,39,13 GBOX 7,7,248,32,13 GPAINT 1,1,13 GFILL 48,7,55,32,13 GFILL 80,7,87,32,13 GFILL 136,7,151,32,13 GFILL 152,16,167,23,13 GFILL 168,7,175,32,13 GFILL 208,7,223,32,13 GFILL 214,18,216,20,VAL(MID$(”0111”,DT*2,2)) GFILL 214,26,216,28,VAL(MID$(”0111”,DT*2,2)) GFILL 146,10,148,12,VAL(MID$(”0111”,AP*2,2)) GFILL 146,26,148,28,VAL(MID$(”1101”,AP*2,2)) FOR I=0 TO LEN(YEAR$)-1 GPUTCHR 87+I*12,17,”BGF”,ASC(MID$(YEAR$,I,1)),4,2 NEXT FOR I=0 TO LEN(MON$)-1 GPUTCHR 9+I*12,17,”BGF”,ASC(MID$(MON$,I,1)),4,2 NEXT FOR I=0 TO LEN(DAY$)-1 GPUTCHR 55+I*12,17,”BGF”,ASC(MID$(DAY$,I,1)),4,2 NEXT FOR I=0 TO LEN(HOUR$)-1 GPUTCHR 179+I*12,17,”BGF”,ASC(MID$(HOUR$,I,1)),4,2 NEXT FOR I=0 TO LEN(MIN$)-1 GPUTCHR 223+I*12,17,”BGF”,ASC(MID$(MIN$,I,1)),4,2 NEXT WAIT 30:GCLS IF DT<1 THEN DT=DT+1 ELSE DT=0 GOTO @LOOP @TUKI J$(1)=”JANUARY”:J$(2)=”FEBRUARY” J$(3)=”MARCH”:J$(4)=”APRIL” J$(5)=”MAY”:J$(6)=”JUNE” J$(7)=”JULY”:J$(8)=”AUGUST” J$(9)=”SEPTEMBER”:J$(10)=”OCTOBER” J$(11)=”NOVEMBER”:J$(12)=”DECEMBER” RETURN @DATA ’0 DATA ”00FFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”00000000” DATA ”0F000F00” DATA ”0F000F00” DATA ”00FFF000” DATA ”00000000” ’1 DATA ”00000000” DATA ”00000F00” DATA ”00000F00” DATA ”00000000” DATA ”00000F00” DATA ”00000F00” DATA ”00000000” DATA ”00000000” ’2 DATA ”00FFF000” DATA ”00000F00” DATA ”00000F00” DATA ”00FFF000” DATA ”0F000000” DATA ”0F000000” DATA ”00FFF000” DATA ”00000000” ’3 DATA ”00FFF000” DATA ”00000F00” DATA ”00000F00” DATA ”00FFF000” DATA ”00000F00” DATA ”00000F00” DATA ”00FFF000” DATA ”00000000” ’4 DATA ”00000000” DATA ”0F000F00” DATA ”0F000F00” DATA ”00FFF000” DATA ”00000F00” DATA ”00000F00” DATA ”00000000” DATA ”00000000” ’5 DATA ”00FFF000” DATA ”0F000000” DATA ”0F000000” DATA ”00FFF000” DATA ”00000F00” DATA ”00000F00” DATA ”00FFF000” DATA ”00000000” ’6 DATA ”00FFF000” DATA ”0F000000” DATA ”0F000000” DATA ”00FFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”00FFF000” DATA ”00000000” ’7 DATA ”00FFF000” DATA ”00000F00” DATA ”00000F00” DATA ”00000000” DATA ”00000F00” DATA ”00000F00” DATA ”00000000” DATA ”00000000” ’8 DATA ”00FFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”00FFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”00FFF000” DATA ”00000000” ’9 DATA ”00FFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”00FFF000” DATA ”00000F00” DATA ”00000F00” DATA ”00FFF000” DATA ”00000000” DATA ”” @ABC ’A DATA ”00FFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”0FFFFF00” DATA ”0F000F00” DATA ”0F000F00” DATA ”0F000F00” DATA ”00000000” ’B DATA ”0FFFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”0FFFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”0FFFF000” DATA ”00000000” ’C DATA ”00FFF000” DATA ”0F000000” DATA ”0F000000” DATA ”0F000000” DATA ”0F000000” DATA ”0F000000” DATA ”00FFF000” DATA ”00000000” ’D DATA ”0FFFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”0F000F00” DATA ”0F000F00” DATA ”0F000F00” DATA ”0FFFF000” DATA ”00000000” ’E DATA ”0FFFFF00” DATA ”0F000000” DATA ”0F000000” DATA ”0FFFF000” DATA ”0F000000” DATA ”0F000000” DATA ”0FFFFF00” DATA ”00000000” ’F DATA ”0FFFFF00” DATA ”0F000000” DATA ”0F000000” DATA ”0FFFF000” DATA ”0F000000” DATA ”0F000000” DATA ”0F000000” DATA ”00000000” ’G DATA ”00FFF000” DATA ”0F000000” DATA ”0F000000” DATA ”0F0FFF00” DATA ”0F000F00” DATA ”0F000F00” DATA ”00FFF000” DATA ”00000000” ’H DATA ”0F000F00” DATA ”0F000F00” DATA ”0F000F00” DATA ”0FFFFF00” DATA ”0F000F00” DATA ”0F000F00” DATA ”0F000F00” DATA ”00000000” ’I DATA ”00FFF000” DATA ”000F0000” DATA ”000F0000” DATA ”000F0000” DATA ”000F0000” DATA ”000F0000” DATA ”00FFF000” DATA ”00000000” ’J DATA ”0000FF00 DATA ”00000F00 DATA ”00000F00 DATA ”00000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”00FFF000 DATA ”00000000 ’K DATA ”0F000F00 DATA ”0F000F00 DATA ”0F00F000 DATA ”0FFF0000 DATA ”0F00F000 DATA ”0F000F00 DATA ”0F000F00 DATA ”00000000 ’L DATA ”0F000000 DATA ”0F000000 DATA ”0F000000 DATA ”0F000000 DATA ”0F000000 DATA ”0F000000 DATA ”0FFFFF00 DATA ”00000000 ’M DATA ”0F000F00 DATA ”0FF0FF00 DATA ”0F0F0F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”00000000 ’N DATA ”0F000F00 DATA ”0FF00F00 DATA ”0F0F0F00 DATA ”0F00FF00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”00000000 ’O DATA ”00FFF000 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”00FFF000 DATA ”00000000 ’P DATA ”0FFFF000 DATA ”0F000F00 DATA ”0F000F00 DATA ”0FFFF000 DATA ”0F000000 DATA ”0F000000 DATA ”0F000000 DATA ”00000000 ’Q DATA ”00FFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”0F0F0F00” DATA ”0F00FF00” DATA ”0F000F00” DATA ”00FFF0F0” DATA ”00000000” ’R DATA ”0FFFF000” DATA ”0F000F00” DATA ”0F000F00” DATA ”0FFFF000” DATA ”0F0F0000” DATA ”0F00F000” DATA ”0F000F00” DATA ”00000000” ’S DATA ”00FFF000 DATA ”0F000F00 DATA ”0F000000 DATA ”00FFF000 DATA ”00000F00 DATA ”0F000F00 DATA ”00FFF000 DATA ”00000000 ’T DATA ”0FFFFF00 DATA ”000F0000 DATA ”000F0000 DATA ”000F0000 DATA ”000F0000 DATA ”000F0000 DATA ”000F0000 DATA ”00000000 ’U DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”00FFF000 DATA ”00000000 ’V DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”00F0F000 DATA ”00F0F000 DATA ”00F0F000 DATA ”000F0000 DATA ”00000000 ’W DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F000F00 DATA ”0F0F0F00 DATA ”0FF0FF00 DATA ”0F000F00 DATA ”00000000 ’X DATA ”0F000F00 DATA ”0F000F00 DATA ”00F0F000 DATA ”000F0000 DATA ”00F0F000 DATA ”0F000F00 DATA ”0F000F00 DATA ”00000000 ’Y DATA ”0F000F00 DATA ”0F000F00 DATA ”00F0F000 DATA ”000F0000 DATA ”000F0000 DATA ”000F0000 DATA ”000F0000 DATA ”00000000 ’Z DATA ”0FFFFF00 DATA ”00000F00 DATA ”0000F000 DATA ”000F0000 DATA ”00F00000 DATA ”0F000000 DATA ”0FFFFF00 DATA ”00000000 DATA ””
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)