^#
;; Program: ZOSIMP.ZEX
;; Author:  Fred Haines
;; Date:    April 23, 1987

;; This is a program that doesn't do a whole lot - it just changes several 
;; instances of the words CPM and CP/M in IMP.COM to ZOS - for Z Operating
;; System.  I know we don't have ZOS yet, but many of us don't have CPM any
;; more either, and it's odd to have an exit command CPM to get out to a ZCPR
;; system.  This ZEX file will change both IMP.COM and IMP2Z.COM to use the
;; word ZOS as an exit command in place of CPM.  

;; A word of caution: IMP is copyrighted by Irv Hoff, and you must not
;; distribute any patched version of the program.  You can apply this or any
;; other patch to IMP for your personal use, and you can distribute this patch
;; file freely, but please respect the author of IMP's copyright.

;; This file creates two new programs, ZOSIMP.COM and ZOSIMP2Z.COM.  You can 
;; either rename these or create a new alias or command line in ALIAS.CMD:

;;   $Zzosimp.com;zosimp2z

;; The "$Z" is the ARUNZ (CMDRUN) parameter for allowing the command line to
;; be recursive.  If you are using an alias rather than ARUNZ this won't work,
;; but you can avoid the problem by not calling IMP from inside ZOSIMP, which
;; is a pretty silly thing to do anyway.

;; Put IMP.COM, IMP2Z.COM, and this file in the same directory, make sure you
;; have FINREP25.COM and ZEX.COM somewhere in the command search path, and
;; issue this command:

;;   zex zosimp

;; Several seconds later you'll have two new files in the directory, 
;; ZOSIMP.COM and ZOSIMP2Z.COM.  That's all there is to it.

;
;    Creating ZOSIMP.COM and ZOSIMP2Z.COM...
;
;    by changing "CPM" to "ZOS"...
;
finrep25 imp.com zosimp.com /o/ 43,50,4D 5A,4F,53             
;
;    changing "CP/M >>" to "ZOS >>"...
;
finrep25 zosimp.com /o/ 43,50,2F,4D,20,3E,3E,0D,0A 5A,4F,53,20,3E,3E,0D,0A,00   
;
;    changing "o CP/M" to "o ZOS"...
;
finrep25 zosimp.com /o/ 6F,20,43,50,2F,4D 6F,20,5A,4F,53,20
;
;    finally, changing "CPM" to "ZOS" in IMP2Z...
;
finrep25 imp2z.com zosimp2z.com /o/ 43,50,4D 5A,4F,53
;
era zosimp.bak
;
;    ...and we're all done

;; end