CLEAR:CLS:GCLS 6
DIM HINT$(2000),NAME$(2000),Y(2000),N(2000)
COLOR 12

READ C,X1,Y1
@BORDER
READ X2,Y2
IF X2==255 AND Y2==255 THEN READ X1,Y1:GOTO @LINE
IF X2==0 AND Y2==0 THEN READ C,X1,Y1,X2,Y2
GLINE X1,Y1,X2,Y2,C
X1=X2:Y1=Y2
GOTO @BORDER

@LINE
READ X2,Y2
IF X2==255 AND Y2==255 THEN @BALLOON
IF X2==0 AND Y2==0 THEN READ X1,Y1,X2,Y2
GLINE X1,Y1,X2,Y2,14
X1=X2:Y1=Y2
GOTO @LINE

@BALLOON
GFILL 0,8,256,56,15:GFILL 8,0,248,64,15
GCIRCLE 8,8,8,15:GCIRCLE 248,8,8,15
GCIRCLE 8,56,8,15:GCIRCLE 248,56,8,15
GLINE 124,64,128,68,15:GLINE 128,68,132,64,15
GPAINT 4,4,15:GPAINT 252,4,15
GPAINT 4,60,15:GPAINT 252,60,15
GPAINT 128,66,15
GFILL 0,144,256,192,15

READ C
@PAINT
READ X1,Y1
IF X1==255 AND Y1==255 THEN @DATA
IF X1==0 AND Y1==0 THEN READ C,X1,Y1
GPAINT X1,Y1,C
GOTO @PAINT

'BORDER DATA
DATA 15,63,87,62,86,62,84,65,81,68,80,71,82,73,84,72,87,70,89,66,89,64,88,0,0
DATA 15,49,93,50,94,53,94,54,94,56,93,57,90,56,88,54,87,52,86,49,88,48,89,48,92,0,0
DATA 7,54,58,64,66,73,78,73,70,78,79,0,0
DATA 40,72,88,71,92,72,97,72,100,71,102,71,103,0,0
DATA 40,62,74,66,78,0,0
DATA 40,53,79,53,83,0,0
DATA 40,48,99,47,102,44,102,0,0
DATA 40,90,107,89,110,86,112,88,116,94,121,94,123,0,0
DATA 82,65,118,74,121,81,123,83,121,0,0
DATA 82,96,106,103,108,108,112,110,109,119,112,120,106,127,109,134,108,147,117,157,112,0,0
DATA 28,182,63,185,68,183,76,189,83,185,87,185,90,193,97,0,0
DATA 28,199,90,202,93,204,99,209,96,210,91,214,93,220,93,224,88,236,87,239,83,0,0
DATA 22,52,88,53,89,54,90,56,89,0,0
DATA 22,51,91,57,90,0,0
DATA 22,67,82,66,84,57,85,71,83,0,0
DATA 22,65,86,71,85,255,255

'LINE DATA
DATA 49,93,48,92,48,90,49,88,52,86,55,87,56,88,52,87,50,88,49,90,48,91,0,0
DATA 45,88,48,85,0,0
DATA 50,84,53,84,55,86,0,0
DATA 50,89,50,91,52,93,54,94,56,93,57,91,56,88,0,0
DATA 58,94,58,95,0,0
DATA 63,87,62,86,62,84,64,82,66,81,67,80,69,81,72,82,73,84,72,83,70,82,0,0
DATA 64,82,64,86,67,89,69,89,71,87,70,83,0,0
DATA 61,80,65,78,70,77,0,0
DATA 44,61,37,66,32,76,33,86,37,94,40,96,38,81,0,0
DATA 40,92,42,93,47,96,49,99,50,101,54,103,55,104,55,106,52,108,49,108,43,104,42,100,42,97,0,0
DATA 40,94,44,98,44,99,0,0
DATA 44,94,46,78,48,87,49,87,52,76,55,81,59,87,61,88,60,76,62,69,67,75,73,81,76,85,77,88
DATA 78,79,76,66,0,0
DATA 44,74,42,82,43,89,0,0
DATA 55,70,56,79,59,84,61,86,0,0
DATA 68,68,73,77,74,81,0,0
DATA 78,79,83,83,85,85,85,78,83,71,0,0
DATA 83,84,82,87,81,88,80,88,79,90,79,93,75,100,70,105,67,106,61,105,56,104,0,0
DATA 61,99,67,96,68,97,68,98,65,101,64,101,62,99,0,0
DATA 43,105,41,110,34,117,32,122,32,124,34,127,39,129,44,127,48,120,50,108,0,0
DATA 48,121,56,112,61,108,0,0
DATA 61,105,62,112,67,121,73,127,79,130,84,130,91,128,0,0
DATA 91,106,85,106,80,110,80,114,83,120,87,125,94,130,99,134,102,137,106,143,107,145,0,0
DATA 70,105,72,110,73,115,78,119,83,120,0,0
DATA 85,122,94,124,99,122,100,116,106,124,115,134,0,0
DATA 108,133,116,135,121,137,128,142,131,145,0,0
DATA 79,111,80,104,84,101,89,103,94,105,0,0
DATA 100,115,95,107,94,102,90,99,83,98,78,101,77,106,76,110,73,113,0,0
DATA 71,104,74,105,75,107,0,0
DATA 75,109,73,108,0,0
DATA 77,58,83,63,86,69,88,78,88,83,86,89,82,93,0,0
DATA 83,89,82,93,83,97,80,95,80,94,0,0
DATA 86,91,88,93,91,97,97,99,102,101,108,103,115,107,116,106,114,104,0,0
DATA 99,101,101,103,105,105,107,110,108,114,0,0
DATA 104,100,110,99,118,100,124,103,0,0
DATA 109,99,116,96,122,92,128,91,136,91,143,95,148,97,153,98,158,102,161,107,163,113
DATA 163,120,161,124,157,128,148,131,140,130,130,128,119,124,112,124,108,125,0,0
DATA 146,130,152,128,155,125,156,123,0,0
DATA 147,97,152,101,156,105,157,111,153,110,0,0
DATA 162,119,177,112,187,104,193,98,0,0
DATA 150,96,169,91,180,89,0,0
DATA 171,63,169,66,169,67,172,71,174,74,176,75,177,80,178,83,181,87,181,90,181,93,183,96
DATA 188,98,195,97,198,94,199,92,199,88,196,84,196,80,193,76,191,67,191,65,192,62,0,0
DATA 191,65,186,67,185,68,183,68,177,66,0,0
DATA 177,74,182,76,185,77,188,76,188,74,0,0
DATA 191,71,190,72,0,0
DATA 179,83,185,85,188,84,190,82,190,85,187,88,189,89,192,90,195,88,196,87,0,0
DATA 181,88,185,91,189,93,194,94,0,0
DATA 172,115,176,115,189,111,196,106,198,102,196,98,0,0
DATA 196,106,198,107,201,106,204,103,205,95,0,0
DATA 204,102,207,100,211,101,214,99,218,97,229,95,231,91,232,91,235,92,239,91,240,86,237,78
DATA 235,77,230,77,225,81,223,81,220,80,215,83,213,82,205,86,203,84,198,85,0,0
DATA 206,87,207,89,208,94,0,0
DATA 215,97,215,94,212,90,212,88,214,87,0,0
DATA 220,85,224,88,224,92,223,95,0,0
DATA 240,89,248,92,255,97,0,0
DATA 235,76,239,73,243,73,248,77,250,82,253,85,257,87,0,0
DATA 249,77,253,78,249,80,0,0
DATA 47,84,45,86,0,0
DATA 52,89,53,90,0,0
DATA 66,84,67,85,0,0
DATA 50,93,51,94,53,94,0,0
DATA 64,87,64,88,66,89,255,255

'PAINT DATA
DATA 83,43,67,59,86,58,84,57,82,76,79,0,0
DATA 125,72,68,82,75,84,90,69,71,77,76,70,73,0,0
DATA 15,49,92,51,93,63,85,71,84,65,88,0,0
DATA 9,71,95,54,86,63,81,73,82,63,76,47,85,88,121,47,99,71,89
DATA 0,0
DATA 47,74,110,75,108,76,102,72,106,76,92,65,75,52,82,49,103,64,73,90,112,73,88,46,83,46,86,52,85
DATA 0,0
DATA 75,76,120,85,93,115,106,100,101,134,100,0,0
DATA 82,74,125,128,122,149,98,151,129,148,130,0,0
DATA 1,44,119,54,110,102,127,84,99,114,134,0,0
DATA 23,171,103,191,105,192,98,0,0
DATA 121,178,70,184,80,184,87,186,94,203,93,217,88,0,0
DATA 28,191,76,194,90,186,65,200,100,211,98,218,95,228,91,191,94,180,84,213,92,0,0
DATA 1,245,85,249,78,0,0
DATA 219,55,91,69,87,0,0
DATA 22,52,90,65,83,0,0
DATA 15,53,88,54,89,68,83,0,0
DATA 52,66,97,255,255

@DATA
I=I+1
READ HINT$(I),NAME$(I)
Y(I)=-I:N(I)=I+1
IF HINT$(I)=="" THEN GOUKEI=I-1:N(I-1)=-I:I=1:GOTO @QANDA
GOTO @DATA
DATA "¿×¦ÄÌÞ","ÊÄ","ÂɶޱÙ","¼¶","ËĶÞÉÚÙ","³Ï"
DATA "»»¶Þ½·","ÊßÝÀÞ","ÊÈÙ","¶´Ù","¸ËÞ¶ÞŶ޲","·ØÝ"
DATA "","¸Ä©Ù-"

@QANDA
CLS:PRINT
IF I<0 THEN I=-I:GOTO @ANSWER
MSG$="¿ÚÊ "+HINT$(I)+"?"
GOSUB @TALKSUB
GOSUB @BUTTON
IF B==16 THEN J=I:I=Y(I):F$="Y"
IF B==32 THEN J=I:I=N(I):F$="N"
GOTO @QANDA

@ANSWER
MSG$="¿ÚÊ "+NAME$(I)+"ÃÞ½È?"
GOSUB @TALKSUB
GOSUB @BUTTON
CLS:PRINT
IF B==16 THEN MSG$="Ô¯À!":GOSUB @TALKSUB:GOTO @RETRY
MSG$="»ÞÝÈÝ! µ¼´Ã¸ÀÞ»²¡"
GOSUB @TALKSUB
MSG$="¿ÚÊ ÅÝÃÞ½¶?"
GOSUB @TALKSUB
GOSUB @INPUT
NAME$=A$
MSG$=NAME$+"É "+NAME$(I)+"ÆŲ ĸÁ®³Ê ÅÝÃÞ½¶?"
GOSUB @TALKSUB
GOSUB @INPUT
HINT$=A$
MSG$=NAME$+"Ê "+HINT$+"¡ µÎ޴ϼÀ¡"
GOSUB @TALKSUB

GOUKEI=GOUKEI+1
IF F$=="Y" THEN Y(J)=GOUKEI
IF F$=="N" THEN N(J)=GOUKEI
NAME$(GOUKEI+1)=NAME$
HINT$(GOUKEI)=HINT$
Y(GOUKEI)=-(GOUKEI+1)
N(GOUKEI)=-I

@RETRY
SPOFS 0,256,72
MSG$="ÃÞÊ Ó³²ÁÄÞ¡"
GOSUB @TALKSUB
GOSUB @BUTTON
IF B==16 THEN I=1:GOTO @QANDA
IF B==32 THEN END

@BUTTON
LOCATE 25,7:COLOR 8:PRINT"(Y„@/N„A)";
COLOR 12
WAIT 1
B=BUTTON(3)
IF B==16 OR B==32 THEN RETURN
GOTO @BUTTON

@INPUT
GFILL 0,144,256,192,15
LOCATE 0,19:COLOR 8:PRINT"(·-ÎÞ-ÄÞ¶× Æ­³Ø®¸¼Ã Enter)"
COLOR 1:PRINT
INPUT A$
GFILL 0,144,256,192,6
CLS:COLOR 12:PRINT
RETURN

@TALKSUB
SND$="@S9"
LNGT=LEN(MSG$)
FOR L=0 TO LNGT-1
M$=MID$(MSG$,L,1)
M=ASC(M$)
IF M$=="~" THEN M$="-"
IF M$=="¥" THEN M$=" "
IF M$=="-" THEN @SKIP
IF M$==" " THEN @SKIP
IF M$=="?" THEN @SKIP
IF M$=="!" THEN @SKIP
IF M<164 THEN M$=""
IF M>224 THEN M$=""
@SKIP
SND$=SND$+M$
NEXT L
@TALKWAIT
IF TALKCHK() THEN WAIT 1:GOTO @TALKWAIT
TALK SND$
PRINT MSG$
RETURN