;*********************************************************
;* 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.
>