10 DIM RO$(5,12),M(12,12)
20 CD=&HED0D:RD=5:R=1
30 CONSOLE0,20,0,0:GOSUB560
40 A$="l3v12t130r2"
50 B$="b2g8a4g4f4d4c2c8e4d8e8d3c8c2r1"
60 M$=A$+"o4c2o3"+B$:N$=A$+"o7c2o6"+B$
70 PLAY"s8m5000l16t150"
80 REM ***** make screen ****
90 SCREEN3,2,2:COLOR10,5 :CLS
100 PRINT"White Day Happening!"
110 FORW=1TO12:FORV=0TO12
120 CH=VAL(MID$(RO$(R,W),V+1,1))
130 GOSUB480:NEXTV:NEXTW
140 PLAY"o5cdefgabb":X=1:Y=1:N=0
150 REM  ***** main **********
160 CH=4:V=X:W=Y:GOSUB480
170 IFSTRIG(0)THEN510
180 S=STICK(0):IFS=0THEN170
190 DX=(S=7)-(S=3):DY=(S=1)-(S=5)
200 XX=X+DX:YY=Y+DY:GOSUB450
210 ONM(XX,YY)+1GOTO220,170,240,170
220 CH=0:V=X:W=Y:GOSUB480
230 X=XX:Y=YY:GOTO160
240 CX=XX:CY=YY:XX=XX+DX:YY=YY+DY:GOSUB450
250 ONM(XX,YY)+1GOTO270,170,170,330
260 REM ***** candy move *****
270 CH=2:V=CX:W=CY:GOSUB480:PLAY"o3e"
280 XX=CX+DX:YY=CY+DY:GOSUB450
290 ONM(XX,YY)+1GOTO300,170,310,330,170
300 CH=0:V=CX:W=CY:GOSUB480
310 CX=XX:CY=YY:GOTO270
320 REM ***** box in ! *******
330 CH=0:V=CX:W=CY:GOSUB480
340 PLAY"o5cfdgeafb":N=N+1:IFN<5THEN160
350 REM ***** round clear! ***
360 COLOR6:LINE(50,70)-(270,100),1,BF
370 PLAY"o4cacacdcdcacacb":LOCATE4,8
380 PRINT"ROUND CLEAR!":FORI=0TO1000
390 NEXTI:R=R+1:IFR<=RDTHEN90
400 REM ***** ending *********
410 LINE(20,70)-(280,100),1,BF
420 LOCATE2,8:PRINT"CONGRATULATION!"
430 PLAYM$,N$:COLORRND(1)*7+2:GOTO420
440 REM ***** hanyou sub *****
450 YY=-YY*(YY<=12)-(YY<1)*12-(YY>12)
460 XX=-XX*(XX<=12)-(XX<0)*13:RETURN
470 REM ***** print chr ******
480 POKECD,CH:AD=V*3+W*600
490 A=USR(AD):M(V,W)=CH:RETURN
500 REM ***** give up ********
510 COLOR11:LINE(50,70)-(270,100),1,BF
520 PLAY"o3beadgc":LOCATE6,8
530 PRINT"MISS!!!":FORI=0TO500
540 NEXTI:GOTO90
550 REM ***** round set ******
560 FORI=1TORD:FORJ=1TO12:READA$
570 RO$(I,J)=A$:NEXTJ:NEXTI:RETURN
580 REM **** round data *****
590 DATA 0000000000000,0020000002000,0001000000000,0001000000000
600 DATA 0001000000000,0201000000000,0001000000000,0001000200000
610 DATA 0001000000000,0001300000000,0001111111020,0000000000000
620 DATA 0000000000020,0000011110000,0000110011000,0000000000000
630 DATA 0001000000100,0001000000100,0021000000100,0001100001100
640 DATA 0201100001100,0020110011000,0003011110200,0000000000000
650 DATA 0000000000000,0000200000000,0010000000100,0010000000100
660 DATA 0011000001100,0001000201000,0021000001020,0001100011000
670 DATA 0000100010000,0000113110000,0000011100000,0000002000000
680 DATA 0000000020000,0000000000000,0001111110000,0001000000200
690 DATA 0001000000000,0001000000000,0201111130200,0001000000000
700 DATA 0001000000000,0201000000000,0001111110000,0000000000000
710 DATA 0000100010000,0000110110000,0000011100000,0000001000000
720 DATA 0000003000000,0000111110000,0002100010000,0000111110000
730 DATA 0000022200000,0000100010200,0000100010000,0000111110000