-
Blinkin Lites
1 DIM L(8),D(8),A(10),C(10)2 DATA -50,50,200,10,50,150,1,200,1,150,150,20,70,20,-50,150,-50,150,-20,1503 FOR I = 1 TO 10: READ A(I),C(I): NEXT4 FOR I = 0 TO 7: L(I)=1: D(I)=20*RND: NEXT5 LSB=0: MSB=0: POLD=0: PNEW=0: GOTO 407 REM display LEDs & wait in busy loop using switch input8 REM9 OUT 255,Z: IF INP(255)=0 THEN 11: REM test for zero wait10 FOR X=1 TO…