SCREEN 9
COLOR 12, 2
CLS
2 bn = 200
5 RANDOMIZE TIMER
10 px = CINT(RND)
15 wx = CINT(RND)
17 zx = CINT(RND)
18 bnx = CINT(RND)
20 py = CINT(RND)
25 wy = CINT(RND)
27 zy = CINT(RND)
28 bny = CINT(RND)
30 IF px = 0 THEN DRAW "D1"
35 IF wx = 1 THEN DRAW "R2"
37 IF zx = 1 THEN DRAW "L2"
40 IF px = 1 THEN DRAW "U1"
50 IF py = 0 THEN DRAW "R1"
55 IF wy = 1 THEN DRAW "D2"
57 IF zy = 1 THEN DRAW "U2"
60 IF py = 1 THEN DRAW "L1"
bn = bn - 1
IF bn = 0 AND bnx = 1 THEN DRAW "BU 15"
IF bn = 0 AND bnx = 0 THEN DRAW "BD 15"
IF bn = 0 AND bny = 1 THEN DRAW "BR 15"
IF bn = 0 AND bny = 0 THEN DRAW "BL 15"
IF bn = 0 THEN GOTO 2
200 GOTO 5