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 sehr sehr klein im 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//gut
DrawText 0,120,"*123456789*"
useFont "Bar-Code 39",60,0,0,0,0//nicht mehr so gut
DrawText 0,180,"*123456789*"
useFont "Bar-Code 39",70,0,0,0,0//fast zu grande
DrawText 0,250,"*123456789*"
endPrint
waitinput
end