4075 IP=1 : GOSUB 8140