100 INPUT "A="; A 110 INPUT "B="; B 120 IF B <= 0 THEN PRINT "B <= 0 です。終了します。" : GOTO 240 130 X = 0 140 Y = A 150 IF A < 0 THEN GOTO 200 160 IF Y < B THEN GOTO 230 170 X = X + 1 180 Y = Y - B 190 GOTO 160 200 X = X - 1 210 Y = Y + B 220 IF Y < 0 THEN GOTO 200 230 PRINT "X は"; X; ",Y は"; Y; "です。" 240 END