1 REM BY:PAUL BOURMATNOV 2 REM [72635,10] 5 CLR :A=300 10 GRAPHICS 24:SETCOLOR 2,0,0:COLOR 1 15 REM ***BIG TRIANGLE*** 20 FOR D=190 TO 1 STEP -2 30 A=A-2:PLOT D,190:DRAWTO A,D 40 NEXT D 45 REM ***THE RAKE*** 50 FOR A=319 TO 250 STEP -1 60 D=D+1 70 PLOT A,D:DRAWTO A,D+INT(50*RND(0)) 80 NEXT A 90 FOR A=181 TO 318:Z=Z+1 100 PLOT A,Z:DRAWTO A,Z+INT(55*RND(0)) 110 NEXT A 115 REM ***THE SMALL TRIANGLE** 120 C=100:FOR A=1 TO 100 STEP 2:C=C-2 130 PLOT 50,1:DRAWTO A,C 140 NEXT A 145 REM ***THE SQUARE*** 150 FOR A=150 TO 170 160 PLOT A,20:DRAWTO A,50 170 NEXT A 180 GOTO 180