dim lna as string * 16
s$=command$
s$=ltrim$(rtrim$(s$))
f$=extract$(s$," ")
if f$="" or len(f$)=len(s$) then Print "COM2SCR comfile scriptfile":print:end
o$=mid$(s$,instr(s$," ")+1,len(s$)-instr(s$," ")-1)
if o$="" then print "COM2SCR comfile scriptfile":print:end
open x$ for binary as #1
get #1,,lna
tt$="E"
for w=1 to len(lna)
r$=hex$(asc(mid$(lna,w,1)))
tt$=tt$+" "+r$
next w
print tt$