I created code below to scan barcodes using wifi bardcode scanner running application in server using RDP.

Scanner screen is small
Font of data entered as response to accept command is small, rendered in bottom of row. It looks like it is FoxFont or something like.
How to increase its size ?

Or is there some other command which provides similary way to input lines using console mode and allowing to use other fonts?
This program shows last readings in previous rows. Replacing it with say get requires lot of programming.

After pressing enter after enty, empty line appears.
How to remove this empty line so that every line contains data? Terminating entry using Esc does not leave empty line but barcode reader generates enter key after barcodes.

MODIFY WINDOW screen FONT 'Arial',14
* this also does not change font:
*!*	define window sisestus from srows()-12,0 to srows()-1, scols()-1 ;
*!*	    color scheme 10 system nomdi ;
*!*	      font 'Courier New', 12 ;
* acti wind sisestus

ACTIVATE SCREEN
do while .t.
clear
?'1. Scan'
?'3. Exit'

accept to tulem
 
IF tulem='3'
  RETURN
  ENDIF

DO WHILE .t.
accept 'Code  ' to kood
accept 'Quantity  ' to kogus
IF EMPTY(kood)
  EXIT
  ENDIF
* INSERT INTO temprid VALUES (kood, kogus)
  enddo
ENDDO