1 'Nov.2015/Yoshi 1 'LED Sensor Demo 10 GOSUB 500
100 'Main loop 100 I=(I+1)&7: OUT (I<<8)|[I+C]: GOSUB P: GOTO 100
200 ' 200 OUT 1,-1: L=L+ANA(5): OUT 1,0: IF J=7 GOTO 280 201 GOTO 290 210 OUT 2,-1: R=R+ANA(6): OUT 2,0: IF J=15 GOTO 280 211 GOTO 290 220 L=L>>3: R=R>>3: IF D=1 GSB 700 221 GOTO 280 230 IF L<T AND U<R C=(C+8)%80: GOTO 270 231 GOTO 280 240 IF T<L AND R<U C=(C+72)%80: GOTO 270 241 GOTO 280 250 J=J+1: IF J<100 RTN 260 J=0: L=0: R=0: P=200: RTN 270 P=250: BEEP: RTN 280 P=P+10 290 J=J+1: RTN
500 'Initialize 500 VIDEO 0: FOR I=8 TO 11: OUT I,0: NEXT: CLV: P=200 510 D=1: T=55: U=40 510 T=55: U=40
600 'bit pattern 600 LET[0],#00,#3C,#E4,#EC,#F4,#E4,#E4,#3C 610 LET[8],#00,#18,#18,#38,#18,#18,#18,#FC 620 LET[16],#00,#3C,#E4,#84,#0C,#30,#60,#FC 630 LET[24],#00,#3C,#E4,#84,#1C,#84,#E4,#3C 640 LET[32],#00,#0C,#1C,#3C,#4C,#FC,#0C,#0C 650 LET[40],#00,#FC,#60,#7C,#84,#84,#E4,#3C 660 LET[48],#00,#3C,#E4,#60,#7C,#E4,#E4,#3C 670 LET[56],#00,#FC,#E4,#0C,#18,#18,#18,#18 680 LET[64],#00,#3C,#E4,#E4,#3C,#E4,#E4,#3C 690 LET[72],#00,#3C,#E4,#E4,#BC,#84,#E4,#3C 699 RETURN
700 'debug 700 ?"L:";L,"R:";R: RTN list
|
最近のコメント