끙; 이 프로그래밍 언어가 대체 뭘까요;;

set talk off
set safety off
set escape on
set century on
set date ansi
set color to
set color to B/N, N/B, R
*
*
sele 1
use status
******************************
* Initialized Variables
******************************
chk24 = 0    
* Previous status = normal, Current status = normal
ps = 'N'
cs = 'N'
* Network Error = no, System Error = no, Process error = no
ne = 0
se = 0
pe = 0
******************************
* Main Program
******************************
do while .T.
   clear
   set color to G+/
   @ 5,5 say 'CallBox Proces Monitoring!!!'
   set color to
*   set console off
   psfile = file("ps.out")
   if psfile
      !del c:\dbaseMOS\ps.out
   endif
*
   !moscent
******************************
* network errorcheck
******************************
   dd = file("ps.out")
   if dd
      ne = 0
      sele 2
      use msgtemp
      zap
      appe from ps.out sdf
      replace all cdate with date(), ctime with time()
      mcnt = reccount()
   else
      sele 1
      appe blank
      replace msg with 'Network Connection Error', cdate with date(), ctime with time()
      ne = 1
   endif    
* ? mcnt
* wait
* 
   do case
      case mcnt = 0
           sele 1
           appe blank
           replace msg with 'Network Connection Error', cdate with date(), ctime with time()
           ne = 1
      case mcnt = 1 
           sele 1
           appe blank
           replace cnt with 0, cdate with date(), ctime with time()
           se = 1
      case mcnt >= 2
           use
           sele 1
           appe from msgtemp
           go bott
           procnt = val(ltrim(rtrim(msg)))
* ? procnt
* wait
           if procnt >= 9
              pe =0
           else
              pe =1
           endif
   endcase
*
   para = 'normal'
   ps = cs
   cs = 'N'