1: dim lna as string * 16 2: s$=command$ 3: s$=ltrim$(rtrim$(s$)) 4: f$=extract$(s$," ") 5: if f$="" or len(f$)=len(s$) then Print "COM2SCR comfile scriptfile":print:end 6: o$=mid$(s$,instr(s$," ")+1,len(s$)-instr(s$," ")-1) 7: if o$="" then print "COM2SCR comfile scriptfile":print:end 8: open x$ for binary as #1 9: get #1,,lna 10: tt$="E" 11: for w=1 to len(lna) 12: r$=hex$(asc(mid$(lna,w,1))) 13: tt$=tt$+" "+r$ 14: next w 15: print tt$ |