1: $compile exe "COPYCOM.exe" 2: x&=setmem(-100000) 3: popup key chr$(8,30,247) 4: 12 popup sleep using ems 5: dEF SEG=&hb800 6: Sn$ = peek$(0,4000) 7: open "COM1:2400" as #1 8: for q=1 to len(sn$)-1 step 2 9: print #1,mid$(sn$,q,1); 10: if inkey$=chr$(27) then close 1:goto 12 11: next q 12: sn$="" 13: close #1 14: locate 1,1:print "Sent " 15: close 1 16: goto 12 |