SET RTN=".INT"
 FOR I=1:1 SET RTN=$$NEXT^%R(RTN) QUIT:RTN=""  DO
 .  Set Name=$P(RTN,".",1,$L(RTN,".")-1)
 .  Quit:$E(Name)="%"
 .  Kill X,ERR
 .  S INTRet=$$ROUTINE^%R(Name_".INT",.INTArr,.INTErr,"L") ; load routine in array X
 .  S MACRet=$$ROUTINE^%R(Name_".MAC",.MACArr,.MACErr,"L") ; load routine in array X
 .  If INTRet,'MACRet Do
 . .    Write Name_".INT"
 . .
 . . S RET=$$ROUTINE^%R(Name_".MAC",.INTArr,.ERR,"SC") ; save array X and compile
 . . Write "SAVE",RET,!