era $1.h??

WS $1.ASM
Fcbios	equ	

0000h;X
MAC $1 $$PZ
REN $1.HX0=$1.HEX
WS $1.ASM
Fcbios	equ	

0100h;X
MAC $1 $$PZ
REN $1.HX1=$1.HEX
WS $1.ASM
Fcbios	equ	

1600h;X
MAC $1 $$PZ
MAKEPRL -O $1.PRL $1.HX0 $1.HX1
SID $1.PRL $1.SYM
M.CODELEN+200,+200,100
G0
SAVE 2 BITMAP.COM
SID MOVCPM.COM $1.SYM
S103
.BIOSLEN
.
F2100,30FF,0
I$1.HEX
R0B00
IBITMAP.COM
R3300
G0
SAVE 53 MOVCPMXX.COM
RING

;files needed:

;sub.com
;ws.com, wsovly1.ovr, wsmsgs.ovr
;mac.com
;makeprl.com
;sid.com
;movcpm.com  (WORD AT 801 IS 2800)
;ring.com

;a printer must be on
;SUB MKMOVCPM <filename>