taperr sbr taperx&3 Store exit sbr *&4 Init addr to error command&13 c 0-0,taperc&13 Use compare to decrement address c to error command mcw Move error command to routine s tapern Clear error count taperp a *-6,tapern Bump error count bce taperb,tapern-1,0 Ten repeats? skp 6 Yes, turn on skip switch taperb bsp 6 Backspace for another try taperc wtw 6,0-0 Repeat tape write ber taperp Error again? taperx b 0-0 No, exit tapern dcw #2