10 CLS:WIDTH20,8:MEMSET&HB00:DEFINTA-O
20 OPTIONBASE1:DIMB(6),C(2,6),C$(20),D$(6)
30 LOCATES0,0,0:LOCATE7,2,0:PRINT"Cootie";:GOSUB460
40 A=VAL(RIGHT$(TIME$,2)):RANDOMIZEA
50 POKE&H11E,&HA:POKE&H11F,&H40
60 FORI=&HA40 TO&HADB:READJ$:J=VAL("&H"+J$):POKEI,J:NEXTI
70 FORI=1TO6:READB(I):NEXTI
80 FORI=1TO20:C$(I)=CHR$(223+I):NEXTI
90 FORI=1TO6:D$(I)=CHR$(243+I):NEXTI
100 FORO=1TO4
110 FORI=1TO6:C(1,I)=0:C(2,I)=0:NEXTI
120 CLS:SOUND1,1:SOUND11,1:SOUND21,1:USER=1
130 A$=INPUT$(1):IFA$<>CHR$(32)THEN130
140 D=INT(RND*6)+1:K=(USER-1)*10
150 LOCATEK+7,3:PRINTD$(D);:LOCATE(K+17)MOD20,3:PRINTCHR$(32);
160 B=3:OND GOSUB240,260,280,320,360,380
170 FLAG=0:FORI=1TO6:IFC(USER,I)<>B(I)THENFLAG=1
180 NEXTI:IFFLAG=1THEN190ELSE210
190 ONUSER GOSUB470,480:USER=USER XORB:ONUSER GOTO130,140
210 ONUSER GOSUB490,510:NEXTO
220 CLS:PRINTSTRING$(E,CHR$(150));:PRINTSTRING$(F,CHR$(153))
230 GOSUB530:END
240 IFC(USER,1)=1THENRETURNELSEC(USER,1)=1:B=0
250 LOCATEK,0:PRINTC$(1);:LOCATEK,1:PRINTC$(6);:LOCATEK+1,1:PRINTC$(7);:RETURN
260 IFC(USER,1)=0THENRETURNELSEIFC(USER,2)=1THENRETURNELSEC(USER,2)=1:B=0
270 LOCATEK+3,1:PRINTC$(9):LOCATEK+4,2:PRINTC$(15);:RETURN
280 IFC(USER,2)=0THENRETURNELSEIFC(USER,3)=2THENRETURNELSEC(USER,3)=C(USER,3)+1
290 B=0:ONC(USER,3)GOTO300,310
300 LOCATEK+2,1:PRINTC$(8);:RETURN
310 LOCATEK+4,0:PRINTC$(5);:RETURN
320 IFC(USER,2)=0THENRETURNELSEIFC(USER,4)=2THENRETURNELSEC(USER,4)=C(USER,4)+1
330 B=0:ONC(USER,4)GOTO340,350
340 LOCATEK+3,2:PRINTC$(14);:RETURN
350 LOCATEK+4,1:PRINTC$(10);:RETURN
360 IFC(USER,2)=0THENRETURNELSEIFC(USER,5)=1THENRETURNELSEC(USER,5)=1:B=0
370 LOCATEK+3,3:PRINTC$(19);:LOCATEK+4,3:PRINTC$(20);:RETURN
380 IFC(USER,2)=0THENRETURNELSEIFC(USER,6)=6THENRETURNELSEC(USER,6)=C(USER,6)+1
390 B=0:ONC(USER,6)GOTO400,410,420,430,440,450
400 LOCATEK,2:PRINTC$(11);:LOCATEK,3:PRINTC$(16);:RETURN
410 LOCATEK+1,2:PRINTC$(12);:LOCATEK+1,3:PRINTC$(17);:RETURN
420 LOCATEK+2,2:PRINTC$(13);:LOCATEK+2,3:PRINTC$(18);:RETURN
430 LOCATEK+1,0:PRINTC$(2);:RETURN
440 LOCATEK+2,0:PRINTC$(3);:RETURN
450 LOCATEK+3,0:PRINTC$(4);:RETURN
460 FORI=4TO11:FORJ=8TO15:K=(I*I*J)MOD56+1:SOUNDK,1:SOUNDK+28,1:NEXTJ,I:RETURN
470 FORI=1TO112STEP7:SOUNDI,1:NEXTI:RETURN
480 FORI=1TO112STEP8:SOUNDI,1:NEXTI:RETURN
490 FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I
500 E=E+1:RETURN
510 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I
520 F=F+1:RETURN
530 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
540 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:RETURN
550 DATA 3C,FE,FE,FE,FE,FE,FE,FC,FC,7C,3C,3C,78,F8,FC,FA,F1,E1,DE,88,08,F0,40,40,80,00,06,F9,09,06
560 DATA 00,01,C7,3F,1F,8F,CF,FF,7F,3E,3C,FC,FE,FD,FB,F7,EF,DF,BF,FF,FF,CC,84,04,0F,FC,38,37,C0,00
570 DATA 00,80,7F,00,FF,01,FF,00,FC,0E,FF,0F,C7,23,11,19,1F,1F,1F,0F,0C,1C,3F,73,60,41,C3,3F,00,00
580 DATA 07,04,02,01,1D,12,09,04,77,48,27,10,1F,00,00,00,00,00,00,00,00,00,00,00,00,70,88,AB,8C,70
590 DATA FF,81,81,91,81,FF,FF,81,C1,81,85,FF,FF,81,C1,91,85,FF
600 DATA FF,81,C5,81,C5,FF,FF,81,C5,91,C5,FF,FF,81,D5,81,D5,FF
610 DATA 1,1,2,2,1,6