36 40 MODE 2: REM ALSO WORKS IN MODE 5 50 R=1: D=1: X=0 60 Y=RND(800) 70 MOVE X,Y 80 90 REPEAT 100 ON D GOSUB 160,260,350,430 110 IF RND(1000) 120 GCOL R,(D*1.7) 130 DRAW X,Y 140 UNTIL FALSE 150 160 X=X+800-Y 170 IF X>1000 THEN 220 180 Y=800 190 D=2 200 RETURN 210 220 Y=800/1000-X 230 X=1000: D=4 240 RETURN 250 260 Y=Y-800+X 270 IF Y 280 X=1000: D=3 290 RETURN 300 310 X=1000+Y 320 Y=0: D=1 330 RETURN 340 350 X=X-Y 360 IF X 370 Y=0: D=4 380 RETURN 390 400 Y=-X: X=0: D=2 410 RETURN 420 430 Y=Y+X 440 IF Y>800 THEN 480 450 X=0: D=1 460 RETURN 470