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