自由兵冲锋衣怎么样:这是什么编程语言 扩展名为prg

#INCLUDE "INKEY.CH"
#INCLUDE "ACHOICE.CH"
#IFDEF HD
#TRANSLATE ISCOLOR() => ICOLOR()
#ENDIF
//-----------------------------------------
FUNCTION FIRSCR
PARA MAINAME
PRIV MAINAME
OLDmCOLOR :=SETCOLOR()
IF TYPE("MAINAME")='U'
MAINAME=SPACE(12)
ENDIF
IF LEN(MAINAME)>12
MAINAME=LEFT(MAINAME,12)
ENDIF
SET CURSOR OFF
CLEAR SCREEN
? chr(27)+"SD10,13;"
? chr(27)+"fk;"
? chr(27)+"t24,90,80,5,3/3;"+MAINAME
? chr(27)+"t24,91,81,5,3/3,x;"+MAINAME
? chr(27)+"fs;"
? chr(27)+"SD15,10;"
//? chr(27)+"t24,245,200,5,1/1;"
//? chr(27)+"t24,246,201,5,1/1;"
? chr(27)+"t24,245,200,5,1/1;"+"" //ALLTRIM(FACTORY)
? chr(27)+"t24,246,201,5,1/1;"+""//ALLTRIM(FACTORY)
? chr(27)+"SD0,7;"
? chr(27)+"t16;"
@ 23,00 SAY REPL('_',80)
OP1="...., "
M = LEN(OP1)
K = 62
L = 0
I = 1
DO WHILE L = 0
IF !ISCOLOR()
@ 24,00 SAY TIME()+SPACE(31-K/2) COLOR 'N/W'
@ 24,41+K/2 SAY SUBSTR('/\/\/\/\/\/\/\/\',IF(I/2=INT(I/2),1,2),39-K/2) COLOR 'N/W'
@ 24,40-K/2 SAY LEFT(OP1,K) COLOR 'W/N'
ELSE
@ 24,00 SAY TIME()+SPACE(31-K/2) COLOR 'w+/R'
@ 24,41+K/2 SAY SUBSTR('/\/\/\/\/\/\/\/\',IF(I/2=INT(I/2),1,2),39-K/2) COLOR 'W+/R'
@ 24,40-K/2 SAY LEFT(OP1,K) COLOR 'GR+/N'
ENDIF
OP1 = RIGHT(OP1,M-2)+LEFT(OP1,2)
L = INKEY(0.15)
I++
ENDDO
SET CURSOR ON
SETCOLOR(OLDmCOLOR)
RETURN .T.

//-------------------------------------
FUNCTION CHKRIGHT(ROW,COL)
LOCAL OLDCOLOR:=IIF(ISCOLOR(),SETCOLOR('GR+/R,B/W'),SETCOLOR('N/W,W/N'))
IF !DATAOPEN("SMSRIGHT",.F.)
SETCOLOR(OLDCOLOR)
RETURN 'LOOP'
ENDIF
LOCATE FOR SYSNAME=LEFT(PROCNAME,8)
mAD:=IIF(!FOUND(),'Y','N')
@ ROW, COL SAY ' '
@ ROW+1,COL SAY ' '
@ ROW+2,COL SAY ' 操作用户:[ ] '
@ ROW+3,COL SAY ' '
@ ROW+4,COL SAY ' 用户口令:[ ] '
@ ROW+5,COL SAY ' '
@ ROW+6,COL SAY ' '
VUSERNAME = SPACE(06)
IF mAD='Y'
VPASSWORD =SPACE(06)
@ ROW+2,COL+17 GET VUSERNAME VALID !EMPTY(VUSERNAME)
READ
IF LASTKEY()==27//.OR.!CHKALL()
CLOSE DATABASES
SETCOLOR(OLDCOLOR)
RETURN 'EXIT'
ENDIF
@ ROW+4,COL+17 GET VPASSWORD
READ
IF LASTKEY()==27
CLOSE DATABASES
SETCOLOR(OLDCOLOR)
RETURN 'EXIT'
ENDIF
IF ADD_REC(05)
REPL SYSNAME WITH PROCNAME,USERNAME WITH VUSERNAME,PASSWORD WITH PASSWORD(VPASSWORD,.F.)
FOR I=1 TO FCOUNT()-5
mI=IIF(I<10,'0'+STR(I,1),STR(I,2))
REPL RIGHT&mI. WITH .T.
NEXT
UNLOCK
ENDIF
ELSE
J=1
DO WHILE J<=3
@ ROW+2,COL+17 GET VUSERNAME VALID !EMPTY(VUSERNAME)
READ
IF LASTKEY()==27//.OR.!CHKALL()
CLOSE DATABASES
SETCOLOR(OLDCOLOR)
RETURN 'EXIT'
ENDIF
LOCATE FOR SYSNAME=LEFT
编译的 时候用的rtlink /DYNAMIC: 这些命令