3825 IP=1 : GOSUB 8060