XProfan

declare zahlen#,i%

pbPROC multiply(*zahlen)
  protected i.i
  for i=0 to 999
    PokeL(*zahlen+(i*4),PeekL(*zahlen+(i*4))*6)
  next i
ENDPROC

cls
dim zahlen#,1000*4
for i%,0,999
  long zahlen#,(i%*4)=rnd(10000)+1
endfor 'i%
for i%,0,9 'die ersten zehn Originalzahlen anzeigen
  print @long(zahlen#,i%*4)
endfor 'i%
multiply(zahlen#)
print "--- mit 6 multipliziert:"
for i%,0,9 'die ersten zehn multiplizierten Zahlen anzeigen
  print @long(zahlen#,i%*4)
endfor 'i%
waitinput
dispose zahlen#
end

declare f!

pbPROC MultiplyFloat(*f)
  protected f.d ;muss .d für double sein, ".f=float" in PB entspricht "single" in XProfan
  f=PeekD(*f)
  f=f*6
  PokeD(*f,f)
ENDPROC

cls
f!=2.34561
MultiplyFloat(@addr(f!))
print f!
waitinput
end

 {$FBSYNTAX on}
declare dib&,array&,groesse&,hoehe&,ende&,bild&
DEF CreateDIB(2) !"dib","CreateDIB"
DEF FreeDIB(1) !"dib","FreeDIB"
DEF DrawDIB(4) !"dib","DrawDIB"
DEF CloneDIB(1) !"dib","CloneDIB"
dib&=usedll("dib.dll")
fbProc erzeugebildi(byval b As Integer, ByVal g As Integer) As Integer Export
Dim test As Integer
FOR test = 0 TO g-100000 step 3
poke integer,test+b,&h0000ff
next test
return 0

endproc

array&=CreateDIB(700,700)
groesse&=700*700*3
hoehe&=700
Window 20,20-750,780
Cls RGB(255,255,255)
bild&= Long(array&,40)
erzeugebildi(bild&,groesse&)
DrawDIB(%hdc,10,10,array&)
WaitKey
FreeDIB(dib&)
End

pbProc erzeugebild(b.i,g.i)
   protected test.i
   FOR test = 0 TO g-100000 step 3
     pokeB(test+b,$00)
     pokeB(test+b+1,$00)
     pokeB(test+b+2,$ff)
   next test
   procedurereturn 0 
endproc

pbProc erzeugebildi(b.i,g.i)
  protected test.i
  FOR test = 0 TO g-100000 step 3
    pokeI(test+b,$0000ff)
  next test
  procedurereturn 0
endproc

declare zahlen#,i%
declare zahlen1#,i1%
pbPROC multiply(*zahlen,*zahlen1)
protected i.i
for i=0 to 999
PokeL(*zahlen1+(i*4),PeekL(*zahlen+(i*4))*6)
next i

ENDPROC

cls
dim zahlen#,1000*4
dim zahlen1#,1000*4
for i%,0,999
long zahlen#,(i%*4)=rnd(10000)+1
endfor'i%
for i%,0,9'die ersten zehn Originalzahlen anzeigen
print @long(zahlen#,i%*4)
endfor'i%
multiply(zahlen#,zahlen1#)
print "--- mit 6 multipliziert:"
for i%,0,9'die ersten zehn multiplizierten Zahlen anzeigen
print @long(zahlen1#,1*4)
endfor'i%
waitinput
dispose zahlen#
dispose zahlen1#
end

pbPROC Malen()
  protected s$,r.RECT ;PB kennt die API-Strukturen (in diesem Fall RECT)
  s$="Dies ist ein Text." ;kann (und muss) Unicode sein, weil PB automatisch die Unicode-Variante von DrawText benutzt
  r\left=10
  r\top=10
  r\right=210
  r\bottom=30
  DrawText_(%HDC,@s$,-1,@r,#DT_LEFT) ;PB kennt automatisch die API-Konstanten (mit vorangestelltem '#')
ENDPROC

cls
Malen()
waitinput
end

CreateImage(0, 200, 200) And StartDrawing(ImageOutput(0))
Box(0, 0, 200, 200, RGB(255, 255, 255))
For Radius = 100 To 10 Step -10
Circle(100, 100, Radius, RGB(Random(255), Random(255), Random(255)))
Next
StopDrawing()
ImageGadget(0, 0, 0, 200, 200, ImageID(0))