@OKの後にも性別判定のIF命令を書いていますが@OKに分岐する部分で 一緒に処理をした方が簡潔になると思います。 88～89行目を LOCATE 2,21 IF SEなんちゃら==2 THEN PRINT "だんせい”:GOTO @OK ELSEIF SEなんちゃら==１ THEN '変数の初期値は0なんで0以外が望ましい PRINT "じょせい":GOTO @OK ENDIF とすれば94～95行目は不要になりますね。