10 CLS:WIDTH20,8:MEMSET&HB00:DEFINTA-O
20 OPTIONBASE1:DIMB(6),C(2,6),C$(20),D$(12)
30 LOCATES0,0,0:LOCATE5,2,0:PRINT"Cootie II";:GOSUB450
40 A=((VAL(LEFT$(TIME$,2))MOD6)*3600)+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))
50 RANDOMIZEA:POKE&H11E,&HA:POKE&H11F,&H40
60 FORI=&HA40 TO&HAFF: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=1TO12: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*7)+1:D=D-D\7:D1=D+D-1:D2=D+D:K=(USER-1)*10
150 LOCATEK+7,3:PRINTD$(D1);D$(D2);:LOCATE(K+17)MOD20,3:PRINTCHR$(32);CHR$(32);
160 B=3:OND GOSUB230,250,270,310,350,370
170 FLAG=0:FORI=1TO6:IFC(USER,I)<>B(I)THENFLAG=1
180 NEXTI:IFFLAG=1THEN190ELSE200
190 ONUSER GOSUB460,470:USER=USER XORB:ONUSER GOTO130,140
200 ONUSER GOSUB480,500:NEXTO
210 CLS:PRINTSTRING$(E,CHR$(150));:PRINTSTRING$(F,CHR$(153))
220 GOSUB520:END
230 IFC(USER,1)=1THENRETURNELSEC(USER,1)=1:B=0
240 LOCATEK,0:PRINTC$(1);:LOCATEK,1:PRINTC$(6);:LOCATEK+1,1:PRINTC$(7);:RETURN
250 IFC(USER,1)=0THENRETURNELSEIFC(USER,2)=1THENRETURNELSEC(USER,2)=1:B=0
260 LOCATEK+3,1:PRINTC$(9):LOCATEK+4,2:PRINTC$(15);:RETURN
270 IFC(USER,2)=0THENRETURNELSEIFC(USER,3)=2THENRETURNELSEC(USER,3)=C(USER,3)+1
280 B=0:ONC(USER,3)GOTO290,300
290 LOCATEK+2,1:PRINTC$(8);:RETURN
300 LOCATEK+4,0:PRINTC$(5);:RETURN
310 IFC(USER,2)=0THENRETURNELSEIFC(USER,4)=2THENRETURNELSEC(USER,4)=C(USER,4)+1
320 B=0:ONC(USER,4)GOTO330,340
330 LOCATEK+3,2:PRINTC$(14);:RETURN
340 LOCATEK+4,1:PRINTC$(10);:RETURN
350 IFC(USER,2)=0THENRETURNELSEIFC(USER,5)=1THENRETURNELSEC(USER,5)=1:B=0
360 LOCATEK+3,3:PRINTC$(19);:LOCATEK+4,3:PRINTC$(20);:RETURN
370 IFC(USER,2)=0THENRETURNELSEIFC(USER,6)=6THENRETURNELSEC(USER,6)=C(USER,6)+1
380 B=0:ONC(USER,6)GOTO390,400,410,420,430,440
390 LOCATEK,2:PRINTC$(11);:LOCATEK,3:PRINTC$(16);:RETURN
400 LOCATEK+1,2:PRINTC$(12);:LOCATEK+1,3:PRINTC$(17);:RETURN
410 LOCATEK+2,2:PRINTC$(13);:LOCATEK+2,3:PRINTC$(18);:RETURN
420 LOCATEK+1,0:PRINTC$(2);:RETURN
430 LOCATEK+2,0:PRINTC$(3);:RETURN
440 LOCATEK+3,0:PRINTC$(4);:RETURN
450 FORI=4TO11:FORJ=8TO15:K=(I*I*J)MOD56+1:SOUNDK,1:SOUNDK+28,1:NEXTJ,I:RETURN
460 FORI=1TO112STEP7:SOUNDI,1:NEXTI:RETURN
470 FORI=1TO112STEP8:SOUNDI,1:NEXTI:RETURN
480 FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I
490 E=E+1:RETURN
500 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I
510 F=F+1:RETURN
520 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
530 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:RETURN
540 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
550 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
560 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
570 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
580 DATA 00,00,FF,81,81,99,99,81,81,FF,00,00,00,00,FF,E1,E1,81,81,87,87,FF,00,00
590 DATA 00,00,FF,E1,E1,99,99,87,87,FF,00,00,00,00,FF,E7,E7,81,81,E7,E7,FF,00,00
600 DATA 00,00,FF,E7,E7,99,99,E7,E7,FF,00,00,00,00,FF,E7,E7,E7,E7,E7,E7,FF,00,00
610 DATA 1,1,2,2,1,6
