Code: Select all

screenres 800,600

var i = 150
dim as any ptr im = imagecreate(i,i)

imagedestroy im
if imageinfo(im) = 0 then imagedestroy im

Code: Select all

var w = 800, h = 600

screenres w,h

dim as any ptr p = imagecreate(100,100)
if imageinfo( screenptr) = 0 then put screenptr, (0,0), p, pset
if imageinfo( p) = 0 then imagedestroy p

Code: Select all

type mytype
  declare operator cast as single
  dim as long dummy
end type

operator mytype.cast as single
  return rnd
end operator


dim as mytype   my_t

for i as long = 1 to 9
? cint(my_t)
next