PRINT
PRINT "持ち点制の手合い割り"
PRINT
INPUT PROMPT "持ち点その１ ":x
INPUT PROMPT "持ち点その２ ":y
PRINT
LET z = ABS(x-Y)
LET f = MOD(z,10)
LET g = 5-f
IF z<10 THEN
   LET h = INT(z/10)
ELSE
   LET h = INT(z/10)+1
END IF
PRINT "   ";h;" 子 の置き碁"
PRINT "   ";g;" 目 の黒のコミ出し"
END