100 CLS
110 INPUT "チケットを買いますか(Y/N)";YN
120 IF YN="N" THEN 100