270 Newmarket
160 IF X$<"1" OR X$>"7" THEN 150
170 LOCATE 9,22:PRINT SPACE$(30)
180 N=VAL(X$):ACC=(20-ABS(4-N))/34
190 LOCATE 3,1+N*3:PEN 3:PRINT H$;:PEN 1 200 K$="": IF INKEY(0)=0 THEN K$="7" ELS E IF INKEY(2)=0 THEN K$="6"
210 M=INT(RND*7+1)
220 IF M=N THEN 200
230 IF K$="7" OR K$="6" THEN M=N:GOTO 26 0
240 K$="7":IF RND>0.5 THEN K$="6"
250 IF X(M)>X(N)-2 THEN K$="7":IF Y(N)>Y (M) THEN K$="6"
260 IF K$="7" THEN Y(M)=Y(M)-1:IF Y(M)<2 THEN Y(M)=2
270 IF K$="6" THEN Y(M)=Y(M)+1:IF Y(M)>2 4 THEN Y(M)=24
280 X(M)=X(M)-1/SLO
290 FOR I=1 TO 7
300 J=IN1T(RND*4+1)
310 IF I<>N THEN GOTO 350
320 IF C=0 THEN J=J*ACC:IF X(N)>12 THEN C=1
330 IF C=1 THEN BORDER 6:C=2
340 IF C=2 THEN J=J*2
350 X(I)=X(I)+J/SLO:IF X(I)>38 THEN X(I) =38
360 NEXT I
370 CRASH=0
380 FOR I=1 TO 7
390 FOR J=1 TO 7
400 IF I=J THEN 520
410 IF Y(I)<>Y(J) THEN 520
420 IF ABS(X(I)-X(J))>3 THEN 520
430 D=1:IF B(I)>B(J) THEN D=-1
440 Y(I)=Y(I)-D
450 Y(J)=Y(J)+D
460 IF Y(I)<2 THEN Y(I)=2
470 IF Y(I)>24 THEN Y(I)=24
480 IF Y(J)<2 THEN Y(J)=2
490 IF Y(J) >24 THEN Y(J)=24
500 X(J)=X(J)-INT(RND*5+1)/SLO:IF X(J)<2 THEN X(3)=2
510 CRASH=1