1 _MUSIC
2 _KANJI
3 DEFINT A-Z
4 B=12
5 DIM C(B),T(B)
6 COLOR 13,0,0
7 KEY OFF
8 POKE-1283,128
9 DEFFNT$(P,D)=CHR$(27)+"Y"+CHR$(32+P\4)+CHR$(32+(PAND3)*2)+CHR$(236)+CHR$(T(D))
10 T(B)=165
11 SCREEN 3,1
12 ?
13 POKE-3151,4
14 FORL=RND(-TIME)TO5
15 K=142+RND(1)*110' 10Liner
16 K=K-(K>164)
17 FORT=0TO1
18 Q=RND(1)*B
19 FORI=0TO1
20 Q=(Q+1)MODB
21 I=-(T(Q)=0)
22 NEXT'PUR-80
23 ?FNT$(T*6+LXOR2,B);
24 T(Q)=K:C(Q)=L+7
25 NEXTT,L
26 SPRITE$(0)="|HPhD"
27 ON ERROR GOTO 42
28 W=W+1(
29 I=F
30 PLAY#2,"@59L32CG"
31 ?FNT$(F,F);(
32 U=F
33 PLAY#2,"DA"
34 ?FNT$(F,F);'DEMENTIA
35 IFI<>UANDC(I)=C(U)THEN V=V+1:PLAY #2,"DCEC":IFV<6THEN28ELSECOLOR15:?CHR$(B):A=1
36 IFATHEN:?"Total";W):RUN
37 X
38 COLOR13
39 ?FNT$(I,B);FNT$(U,B);
40 PLAY#2,"C"
41 GOTO 28
42 O=S
43 S=STRIG(1)+PAD(B)
44 N=(N+PAD(13))AND255
45 M=(M+PAD(14)+192)MOD192'By: NYYRIKKI
46 PUTSPRITE0,(N,M),8
47 IFO<STHENF=N\64+(M\64)*4:COLORC(F):RESUMENEXTELSE42 :2017: