Sorry your browser is not supported!

TYPE MyType
  Var1$ AS STRING
  Var2$ AS STRING
ENDTYPE

GLOBAL MyVar AS MyType

MyVar.Var1$="Hello"
MyVar.Var2$="World"

MyFunction()

WAIT KEY
END

FUNCTION MyFunction()
   PRINT MyVar.Var1$
   PRINT MyVar.Var2$
ENDFUNCTION

type dialog

dialog as string
xpos as integer
ypos as integer
r as byte
g as byte
b as byte
font as string

endtype


writing as dialog

writing.dialog = "hello there, pleased to see you"
writing.xpos = 300
writing.ypos = 400
writing.r = 128
writing.b = 128
writing.font ="tahoma"

display_dialog(writing)

wait key



function display_dialog(dialog_var as dialog)
   ink rgb(dialog_var.r,dialog_var.g,dialog_var.b),0

   if dialog_var.font <> ""
      set text font dialog_var.font
   endif

   text dialog_var.xpos,dialog_var.ypos,dialog_var.dialog
   ink 0,0
   set text font "courier"
endfunction