¥µ¥ó¥À¡¼¥Ü¥ë¥È¶¤µ¤ó¤Ï¤ª¤½¤é¤¯¡Öʸ»úÎ󣱤Τʤ«¤Ëʸ»úÎ󣲤¬²¿¸Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«¡×¤ò¼èÆÀ¤·¤¿¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¡£
°Ê²¼¤Î¥¹¥¯¥ê¥×¥È¤Ç¤ÏÊÑ¿ô"ʸ»úÎó"¤ÎÃæ¤Ë´Þ¤Þ¤ì¤Æ¤¤¤ë¡Ö¥Æ¥¹¥È¡×¤È¤¤¤¦Ê¸»úÎó¤Î¿ô¤ò¥«¥¦¥ó¥È¤·¤Æ¤¤¤Þ¤¹¡£
ʸ»úÎó = "ʸ»úÎ󸡺÷¥Æ¥¹¥È¤Ç¤¹\nʸ»úÎóÆâ¤Î\"¥Æ¥¹¥È\"¤Î¿ô¤òÄ´¤Ù¤Þ¤¹"
ʸ»úÎó¿ô = 0
¸¡º÷³«»Ï¥¤¥ó¥Ç¥Ã¥¯¥¹ = 0
repeat
¥¤¥ó¥Ç¥Ã¥¯¥¹ = instr(ʸ»úÎó, ¸¡º÷³«»Ï¥¤¥ó¥Ç¥Ã¥¯¥¹, "¥Æ¥¹¥È")
if ¥¤¥ó¥Ç¥Ã¥¯¥¹ = -1 : break
¸¡º÷³«»Ï¥¤¥ó¥Ç¥Ã¥¯¥¹ += ¥¤¥ó¥Ç¥Ã¥¯¥¹+1
ʸ»úÎó¿ô += 1
loop
mes ʸ»úÎó+"\n\n·ë²Ì "+ʸ»úÎó¿ô
>>¤¢¤ê¤µ¤ó
£²¤È¤¤¤¦¤Î¤Ï¡Öabca¡×¤Ë´Þ¤Þ¤ì¤ë¡Öa¡×¤Î¿ô¤Î»ö¤À¤È»×¤¤¤Þ¤¹¡£