XProfan

 {$cleq}
window maxx,maxy
startPrint "*CODE39-BARCODE"
useFont "Bar-Code 39 lesbar",50,0,0,0,0
DrawText 0,0,"*XPROFAN-DOT-COM-HYPERTERMINAL-ACCESS*"
DrawText 0,70,"*CODE-"+date$(3)+"*"
endPrint
waitinput
end

'URL: https://XProfan.com/intl/de/quelltexte/barcode-code39-drucken-generieren/
 {$cleq}
window maxx,maxy
startPrint "*CODE39-BARCODE"
useFont "Bar-Code 39",20,0,0,0,0//funktioniert! - aber muy muy klein en el Druck
DrawText 0,0,"*123456789*"
useFont "Bar-Code 39",30,0,0,0,0//optimal
DrawText 0,30,"*123456789*"
useFont "Bar-Code 39",40,0,0,0,0//optimal
DrawText 0,70,"*123456789*"
useFont "Bar-Code 39",50,0,0,0,0//bien
DrawText 0,120,"*123456789*"
useFont "Bar-Code 39",60,0,0,0,0//no mehr tan bueno
DrawText 0,180,"*123456789*"
useFont "Bar-Code 39",70,0,0,0,0//fast a groß
DrawText 0,250,"*123456789*"
endPrint
waitinput
end