Create a user-defined function.

Function returning a value

Function returning no value

This statement defines user-defined functions for processing shared by multiple parts of the same program.

User-defined function for adding two values

  function addfunc%( a%, b% )
    addfunc% = a% + b%
  end function

main:
  private result%
  result% = addfunc%( 200,300 )  ' call function addfunc%
  print result%                  ' displays 500

User-defined function waiting for a key press

  sub waitfunc
    private tempkey$
    print "Press a key"
    tempkey$ = input$(1)
  end sub

main:
  call waitfunc                  ' call function waitfunc
  print "A key has been pressed."

User-defined function displaying a fixed screen

  sub dispfunc( process$, UserID$ )
    print "**********"
    print process$
    print "ID:";UserID$
    print "**********"
  end sub

main:
  private PROC$
  private ID$

  PROC$ = "Inventory"
  ID$ = "10012"
  call dispfunc( PROC$, ID$ )    ' call function dispfunc
                                 ' displays Inventory
                                 ' displays ID:10012