@LOOP INPUT "文字列";A$ IF A$=="ひらけゴマ"　THEN GOTO @A IF A$=="ひらかないゴマ" THEN GOTO @B GOTO @LOOP @A PRINT "ありがとう" END @B PRINT "あーけーてー" END