_screen.FontSize=20 _screen.FontName='Arial' DO WHILE .T. accept 'Barcode' to cBarCode if empty(cBarCode) exit endif insert into barcodes value (cBarCode) ENDDO