SCREEN 12
FOR i% = 0 TO 640
FOR j% = 0 TO 480
A = INT(RND * 1)
x% = POINT(0)
y% = POINT(1)
IF POINT(x% - 1, y%) = 7 AND NOT d = 1 THEN w = 1: GOTO 2
IF POINT(x% - 1, y%) = 8 THEN w = 0: d = 1: GOTO 2 ELSE w = INT(RND * 4)
2 IF w = 0 THEN q = 7
IF w = 1 THEN q = 8
IF w >= 2 THEN q = 15
PSET (i%, j%), q
REM FOR delay% = 1 TO 100: NEXT delay%
REM PRESET (i%, j%)
NEXT j%: NEXT i%
PALETTE