100 SCREEN 1:KEY OFF:DIM X%(3):DIM Y%(3) 110 X%(0)= 1:Y%(0)= 0 111 X%(1)= 0:Y%(1)=-1 112 X%(2)=-1:Y%(2)= 0 113 X%(3)= 0:Y%(3)= 1 120 CLS:X%=160:Y%=100:FOR I=1 TO 12000! 125 FOR WAZ=0 TO 3000:NEXT WAZ 127 ZAH=ZAH+1:LOCATE 1,1:PRINT ZAH; 128 IF I<>10000 THEN 130 129 IF INKEY$="" THEN 129 130 P%=POINT(X%,Y%):PSET(X%,Y%),1-P%:R%=(R%+2*P%+3)MOD 4 140 X%=(X%+X%(R%)+320)MOD 320:Y%=(Y%+Y%(R%)+200)MOD 200:NEXT I 150 IF INKEY$="" THEN 150 160 SCREEN 0:KEY OFF:CLS:WIDTH 80 200 REM SAVE"C:AMEI.BAS",A