1_MUSIC:_KANJI:DEFINT A-Z:B=12:DIM C(B),T(B):COLOR 13,0,0:KEY OFF:POKE-1283,128
2DEFFNT$(P,D)=CHR$(27)+"Y"+CHR$(32+P\4)+CHR$(32+(PAND3)*2)+CHR$(236)+CHR$(T(D))
3T(B)=165:SCREEN 3,1:?:POKE-3151,4:FORL=RND(-TIME)TO5:K=142+RND(1)*110' 10Liner
4K=K-(K>164):FORT=0TO1:Q=RND(1)*B:FORI=0TO1:Q=(Q+1)MODB:I=-(T(Q)=0):NEXT'PUR-80
5?FNT$(T*6+LXOR2,B);:T(Q)=K:C(Q)=L+7:NEXTT,L:SPRITE$(0)="|xphD":ON ERROR GOTO 9
6W=W+1(:I=F:PLAY#2,"@59L32CG":?FNT$(F,F);(:U=F:PLAY#2,"DA":?FNT$(F,F);'DEMENTIA
7IFI<>UANDC(I)=C(U)THEN V=V+1:PLAY #2,"DCEC":IFV<6THEN6ELSECOLOR15:?CHR$(B):A=1
8IFATHEN:?"Total";W):RUN ELSE:X:COLOR13:?FNT$(I,B);FNT$(U,B);:PLAY#2,"C":GOTO 6
9O=S:S=STRIG(1)+PAD(B):N=(N+PAD(13))AND255:M=(M+PAD(14)+192)MOD192'By: NYYRIKKI
10PUTSPRITE0,(N,M),8:IFO<STHENF=N\64+(M\64)*4:COLORC(F):RESUMENEXTELSE9 :2017: