1 CLV:CLS:LET[90],5,5,0,2,5,0,11,2:FORN=1TO4:FORS=235TO245:[M]=S:M=M+1:NEXT:NEXT:GSB8:FORP=0TO3:Q=51+P*5:FORT=0TO2:M=M-1:[Q+T]=[M]:[M]=0:NEXT:GSB9:NEXT:FORN=1TO3:[M]=255:M=M+1:NEXT:GSB8 2 P=(P+1)&3:Q=51+P*5:D=RND(M):[Q+3]=[D]:[D]=0:GSB9:IF[Q+3]=255GSB17 3 IF([Q]=[Q+1])&([Q]=[Q+2])&([Q]=[Q+3])GOTO6 4 C=3:IFPGSB14 ELSEGSB12 5 WAIT9:[D]=[Q+C]:FORN=CTO3:[Q+N]=[Q+N+1]:NEXT:GSB9:GOTO2 6 BEEP9,30:G=P:GSB9:LC2,4:IFP?"*COM";P;ELSE?"*PLAYER"; 7 ?" WIN*":END 8 FORN=1TO100:A=RND(M):B=RND(M):D=[A]:[A]=[B]:[B]=D:NEXT:RTN 9 Z=90+P*2:X=[Z]:Y=[Z+1]:LCX,Y:IFP?"COM";PELSE?"PLAYER" 10 LCX,Y+1:FORE=0TO3:F=[Q+E]:IFFIFP=G?CHR$(F);ELSE?CHR$(219); 11 NEXT:?" ":RTN 12 LCX+C,Y+2:?" ";:K=INKEY():C=C-(K=28)*(C>0)+(K=29)*(C<3):LCX+C,Y+2:?CHR$(226);:IFK!=32GOTO12 13 LCX+C,Y+2:?" ";:BEEP:RTN 14 FORE=0TO2:A=[Q+E]:FORF=E+1TO3:IF[Q+F]=A[80+E]=1:[80+F]=1 15 NEXT:NEXT:FORE=0TO2:IF![80+E]C=E 16 [80+E]=0:NEXT:RTN 17 IF!PBEEP30,9:WAIT60 18 FORC=0TO3 19 E=RND(M):F=[E]:IF(F=255)|(F=0)GOTO19 20 [E]=[Q+C]:[Q+C]=F:NEXT:GSB9:RTN