10 WIDTH 79
20 PRINT CHR$(27);"[2J"
30 MP=800:x=0:y=0
40 FOR N=1 TO MP
50 P=RND(1)*80
60 IF P<=1 THEN NX=0:NY=0.16*Y:GOTO 100
70 IF P<=8 THEN NX=0.2*X-0.26*Y:NY=0.23*X+0.22*Y+1.6:GOTO 100
80 IF P<=15 THEN NX=0.15*X+0.28*Y:NY=0.26*X+0.24*Y+0.44:GOTO 100
90 NX=0.85*X+0.04*Y:NY=-0.04*X+0.85*Y+1.6
100 X=NX:Y=NY
110 C=INT(X*8)+34
120 L=INT(Y*3.8)
130 SL$=MID$(STR$(L),2)
140 SC$=MID$(STR$(C),2)
150 M$=CHR$(27)+"["+SL$+";"+SC$+"H"
160 PRINT M$;"."
170 NEXT N