 10  ONERR  GOTO 30
 20  CALL 2307: PRINT  CHR$ (4);"CLOSE"
 23  PRINT  CHR$ (4);"CHAIN XFER.SYS"
 30  &  ONERR  = ER,LI: ONERR  GOTO 30
 40  &  PRINT ,"Error ";ER;" in line ";LI
 50  IF ER = 253 THEN  &  FN 5,A:P = 6: &  AT P,A: PRINT RN$;"LOG"
 60  GOTO 23
