100 REM CURL
101 SCREEN 12:CLS
102 PRINT" ��������� ������,��������� �� �������. T=";
106 A$=TIME$:A$=MID$(A$,7,2)+MID$(A$,4,2)
107 T=VAL(A$):PRINT T
?"HIT <ESC> - TO QUIT"
108 RANDOMIZE(T)
110 L=7
120 PI=4*ATN(1)
125 DF=PI/6
130 X=320:Y=240
135 FOR I=0 TO 3000
140 F=F+DF*RND
150 XN=L*COS(F)+X:YN=1*L*SIN(F)+Y
160 LINE(XN,YN)-(X,Y),13
170 X=XN:Y=YN:DELAY .01
180 NEXT I
WATA:
 IF INKEY$=CHR$(27) THEN STOP ELSE WATA
STOP