CLS DIM i, j AS INTEGER DIM dta1, dta2, dta3, dta4 AS LONG DIM z DIM c(32) j = 0 TIMER ON ON TIMER(1) GOSUB ABC PRINT "Press any key to exit" DO LOOP UNTIL INKEY$ <> "" ABC: IF j > 31 THEN j = 0: z = NOT (z) IF NOT z THEN c(j) = 1 ELSE c(j) = 0 END IF j = j + 1 dta1 = 0 dta2 = 0 dta3 = 0 dta4 = 0 FOR i = 0 TO 31 IF i < 8 THEN IF c(i) = 1 THEN dta1 = dta1 OR 2 ^ i ELSEIF i < 16 THEN IF c(i) = 1 THEN dta2 = dta2 OR 2 ^ (i - 8) ELSEIF i < 24 THEN IF c(i) = 1 THEN dta3 = dta3 OR 2 ^ (i - 16) ELSE IF c(i) = 1 THEN dta4 = dta4 OR 2 ^ (i - 24) END IF NEXT i OUT &H37A, 3 OUT &H378, dta1 OUT &H37A, 4 OUT &H37A, 3 OUT &H378, dta2 OUT &H37A, 5 OUT &H37A, 3 OUT &H378, dta3 OUT &H37A, 6 OUT &H37A, 3 OUT &H378, dta4 OUT &H37A, 7 OUT &H37A, 3 PRINT dta1, dta2, dta3, dta4 RETURN