When I compile the example in Plato I get the attached error.
use mswin
use common_mod
use salf_about
implicit none
external about_box_cb
integer :: i
ms_selects = 0
i=winio@('%ca[Selection using %lb , %ls and %ms]&')
i=winio@('%fn[ms sans serif]%ts&',0.8D0)
i=winio@('%sy[3d_raised]&')
i=winio@('%mi[icon_1]&')
i=winio@('%4.1ob&')
i=winio@('%mn[&Exit]&','exit')
i=winio@('%mn[&Help[About]]&',about_box_cb)
i=winio@('Simple%ff%bg[window]%^lb%nd%cb&',string,7,k,lbox_cb) i=winio@('Drop-down%ff%bg[window]%^ls%cb&',string,7,k,lbox_cb) i=winio@('Scrolling%ff%bg[window]%^10.3ls%cb&',string,7,k,lbox_cb)
i=winio@('Multiple selection%ff%bg[window]%^ms%cb&',string,7,ms_selects,mselbox_cb) i=winio@('%ff%nl%bg[window]%40.7cw%ff&',0)
i=winio@('%sfNote that the first three boxes are linked together because they share the result variable K')
end program listbox
resources
ICON_1 ICON salflogo.ico
Compiling this gave me an error 802.
I have not found anything to tell me how to fix this.
I would appreciate some help with this.
Thank you.
Michael