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-print-Generate/
 {$cleq}
window maxx,maxy
startPrint "*CODE39-BARCODE"
useFont "Bar-code 39",20,0,0,0,0//functions! - but very very small in the pressure
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//well
DrawText 0,120,"*123456789*"
useFont "Bar-code 39",60,0,0,0,0//not any more so well
DrawText 0,180,"*123456789*"
useFont "Bar-code 39",70,0,0,0,0//almost To big
DrawText 0,250,"*123456789*"
endPrint
waitinput
end