> ROMIT  Author : Arthur # Last Edit : 02-Nov-87 by BC (: 2! file% 80, name% 65, word% 4 <' "Enter output file name : "$name% FCh%=($name%) P Ch%=0 Z d( "Enter input object name : "$name% n ($name%)=0 AddObject x ($name%)=0 #Ch%  :  AddObject ?A%=5: X%=file%: Y%=X%/256: file%!0=name%: Ty%=( &FFDD) 3 *Le%=file%!10: Ex%=file%!6: Lo%=file%!2  (Ty% = 0) (Ty% = 3) ( Ty% = 1 AddFile AddDirectory  :  AddDirectory Le%=0: Lo%=0: Ex%=0  - "Enter name to give directory : "$name% , ($name%) > 63 "Name is too long."  ($name%) <= 64 "AddHeader , 6: @ AddFile JHa%=($name%) T Ha%=0 ^G "Load address &";~Lo%'"Exec address &";~Ex%'"Length &";~Le% h r( "Enter name to give file : "$name% |, ($name%) > 63 "Name is too long."  ($name%) <= 64 AddHeader  CopyData  #Ha%  :  AddHeader "Word(Ex%): #Ch%, 0: #Ch%, 0  Ty% = 1 #Ch%, &4D  Ty% = 2 #Ch%, &8D "#Ch%, (9+($name%)): #Ch%, 1  I%=1 ($name%) #Ch%, ($name%,I%,1))  I% 3#Ch%, 0: #Ch%, "(": #Ch%, "C": #Ch%, ")" $#Ch%, 0: Word(Lo%): Word(Le%) & 0: : CopyData D Le% = 0 N$ I%=1 Le%: #Ch%, #Ha%: I% X b: l Word(W%): word%!0=W% v&#Ch%, (word%?0): #Ch%, (word%?1) &#Ch%, (word%?2): #Ch%, (word%?3)