10 AN=4
20 PRINT"[147]":FORT=1TOAN:READA$(T):PRINT""T:NEXT
30 DATANEELIX,CHAMP,HAKAN,SCORPE
40 IFX>ANTHEN110
50 A=INT(AN*RND(1))+1:PRINT""A
60 IFX=1THEN100
70 FORT=1TOX-1:IFB(T)=ATHENT=X-1:FA=1
80 NEXT
90 IFFA=1THENFA=0:GOTO50
100 B(X)=A:X=X+1:PRINT""X:GOTO40
110 Y=1
120 FORT=1TOX:IFB(T)=YTHENPRINTB(T),A$(T):C(T)=C(T)+((AN+1)-B(T))
130 NEXT:IFY<ANTHENY=Y+1:GOTO120
140 Z=Z+1:IFZ<50THENX=0:FORT=1TOAN:B(T)=0:NEXT:PRINT"[147]":GOTO40
150 FORT=1TOAN:FORU=1TOAN:IFC(T)=C(U)THENIFU<>TTHENDO=1
160 NEXT:NEXT
170 IFDO=1THENDO=0:X=0:FORT=1TOAN:B(T)=0:NEXT:PRINT"[147]":GOTO40
180 PRINT"[147]":FORT=1TOAN:PRINTC(T),A$(T):NEXT