1 CLV:OUT1,-1:OUT6,-1:CLS:LET[90],5,5,0,2,5,0,11,2 2 FORN=1TO4:FORS=235TO245:[M]=S:M=M+1:NEXT:NEXT:GSB9:FORP=0TO3:Q=51+P*5:FORT=0TO2:M=M-1:[Q+T]=[M]:[M]=0:NEXT:GSB10:NEXT:FORN=1TO3:[M]=255:M=M+1:NEXT:GSB9 3 P=(P+1)&3:Q=51+P*5:D=RND(M):[Q+3]=[D]:[D]=0:GSB10:IF[Q+3]=255GSB17 4 IF([Q]=[Q+1])&([Q]=[Q+2])&([Q]=[Q+3])GOTO7 5 C=3:IFPGSB14 ELSEGSB13 6 WAIT9:[D]=[Q+C]:FORN=CTO3:[Q+N]=[Q+N+1]:NEXT:GSB10:GOTO3 7 BEEP9,30:G=P:GSB10 8 IFIN(11)GOTO8 ELSERUN 9 FORN=1TO100:A=RND(M):B=RND(M):D=[A]:[A]=[B]:[B]=D:NEXT:RTN 10 Z=90+P*2:X=[Z]:Y=[Z+1]:LCX,Y:IFP?"COM";PELSE?"YOU" 11 LCX,Y+1:FORE=0TO3:F=[Q+E]:IFFIFP=G?CHR$(F);ELSE?CHR$(219); 12 NEXT:?" ":RTN 13 LCX+C,Y+2:?" ";:K=ANA(5):C=C-(K<8)*(C>0)+(K>1015)*(C<3):LCX+C,Y+2:?CHR$(226);:WAIT5:IF!IN(11)BEEP:LCX+C,Y+2:?" ";:RTNELSECONT 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:GSB10:RTN