;*********************************************************
;*      Patch routine for AMOS versions 4.6 and 5.0      *
;* 						         *
;*        Developed by Ultrascience (312) 256-0080       *
;*							 *
;*  (See BUGULT.LST on AMUS network for more information *
;*  on using this command)                               *
;*********************************************************

; Usage:   PATCH original WITH patch

:R
MACRO $2
PTCH $0=$2
SAVE $0
DEL $0
ERASE $2.OBJ,$2.BAK,$2.PRG
:<
Done.
>