sImgBackground = "d:\\!cd_api_\\Print\\hintergrund.bmp"  ' Bildgröße 1200 x 1200 oder größer
sTextTop       = "Fragen, Antworten und Wünsche unter: service.hardcopy.de  ·  Questions, Answers, Suggestions & Wishes: www.service.hardcopy.de"
sTextBottom    = "Copyright © 1983-2005 · bla bla · bla bla bla · bla bla · bla bla bla · bla bla"
sText1         = "Text1"
sText2         = "Text2: 15.1.06"
sText3         = "Text3 (rechts-  ):\nText4 (bündig):"
sText3a        = "Text3a (links-)" + "\n" + "Text4a (bündig)"

If Image( 0 ).Open( sImgBackground ) < 1 Then
	Dialog "Hintergrundbild kann nicht geöffnet werden."
	End Dialog
	End
EndIf
w = Image(0).Width
If w < 1200 Then w = 1200
w2 = w / 2
Image( 0 ).Resample( w, w ) 

Pen.Color = _ColorWhite
Pen.Width = w + 1
Image(0).Ellipse( -w2,-w2, w*2 , w*2 )
Pen.Color = _ColorBlack
Pen.Width = 1
Image(0).Ellipse( -2,-2, w+4 , w+4 )

iRingBreiteAussen = w / 30
Pen.Width  = iRingBreiteAussen
Pen.Color = _ColorWhite
Image(0).Ellipse( 0+Pen.Width/2,0+Pen.Width/2, w-Pen.Width,w-Pen.Width )

iRingBreiteInnen = w / 7
Image(0).EllipseFill( w2-iRingBreiteInnen/2,w2-iRingBreiteInnen/2, iRingBreiteInnen,iRingBreiteInnen )

Font.Size  = w / 52
Font.Color = _ColorBlue
Font.Name  = "Courier New"
Font.Bold  = true
iRingBreiteAussen = iRingBreiteAussen *1.5
Image(0).DrawTextCircle( iRingBreiteAussen/2,iRingBreiteAussen/2 , w-iRingBreiteAussen,w-iRingBreiteAussen , -90, 180, sTextTop )
iRingBreiteAussen = iRingBreiteAussen *1.3
Image(0).DrawTextCircle( iRingBreiteAussen/2,iRingBreiteAussen/2 , w-iRingBreiteAussen,w-iRingBreiteAussen , 120,-120, sTextBottom )

Font.Color = _ColorWhite
Font.Name  = "Arial"
Font.Bold  = true
Font.Size  = w*0.12
Font.Align = _FontAlignCenter
Image(0).DrawText( 0,w*0.15, w,w, sText1 )

Font.Size  = w*0.04
Font.Align = _FontAlignRight
Image(0).DrawText( w2,w2-Font.Size/2, w2-Font.Size*2,w2, sText2 )

Font.Size  = w*0.048
Font.Align = _FontAlignRight
Image(0).DrawText( 0,w*0.65, w2,w2, sText3 )

Font.Align = _FontAlignLeft
Image(0).DrawText( w*0.52,w*0.65, w2,w2, sText3a )

Redraw()

End  ' für die Verwendung mit TrueNet diese Zeile löschen

anzahl = 1
Dialog "Anzahl"
	"Anzahl:", anzahl
End Dialog

fImage = "d:\\!cd_api_\\Print\\vorlage_ra.jpg"
Image(0).Save( fImage, _Image_JFIF, 24,  2, "", "" ) 

f = "d:\\!cd_api_\\auscd"

fp = File.Open( f + ".tmp", "w" )
File.Write( fp, "DEVICE=roboter_device_name\n" )
File.Write( fp, "JOB_TYPE=BUILD+COMPARE+PRINT\n" )
File.Write( fp, "BUILD_TYPE=ISO_CD\n" )
File.Write( fp, "BUILD_PATH=d:\\CD_daten\n" )
File.Write( fp, "PRINT_TEMPLATE=d:\\!cd_api_\\Print\\vorlage_mit_innenring.rpt\n" ) ' nur wegen der Größe
File.Write( fp, "PRINT_BACKGROUND=" + fImage + "\n" )
File.Write( fp, "COPYRIGHT=xxx xxx\n" )
File.Write( fp, "VOLUME=vvvvv\n" )
File.Write( fp, "JOLIET=YES\n" )
File.Write( fp, "QUANTITY=" + anzahl + "\n" )
File.Close( fp )
File.Rename( f + ".tmp", f + ".job" )