&rem Return current program in PC ARC/INFO 3.5.1
&rem Usage:  &r sysprogr
&rem         &rv [sml_variable]

&value -1 WKSP
 &goto *FALSE0000* &if &FN %-1t$arc.bat
   &return ARC
 &LABEL *FALSE0000*
&open %-1t$arc.bat error
&read -2 error
&read -2 error
&read -2 error
&read -2 error
&extract -3 -2 2
&value -4 -3 %<lpos \ %-3 + 1>
&return %-4

&rem **** I/O error

&label error
&type "I/O Error:  SYSPROGR"
&return ERROR