Click above to get retro games delivered to your door ever month!

  Name:     active() - get the active get number
  Usage:    <integer> = active()
  Params:   none
  Returns:  an integer equal to the current get number

 ---------------------------------- Example ---------------------------------

                 fname   = space(10)
                 lname   = space(15)
                 address = space(20)
                 set key 28 to POPHELP

                 @ 10,0 say "Enter First  :" get fname
                 @ 11,0 say "Enter Last   :" get lname
                 @ 12,0 say "Enter Address:" get address
                 read

                PROC POPHELP
                para d1,d2,d3

                        ? active()
                        * if get is on lname, prints '2'
                        * if on fname, prints '1'
                        * if on adress, prints '3'

                return

  Note:      If no gets are active, active() returns 0.