这段代码是什么语言?

[foxspringlight]

----------------------------
窗口定义
----------------------------
proc windtset()
winhdl=getwindow()
dynarray attri[]
attri["CANCLOSE"] = False
attri["CANMAXIMIZE"] = False
attri["CANMOVE"] = False
attri["CANRESIZE"] = False
attri["HASFRAME"] = False
attri["HASSHADOW"] = False
attri["ORIGINROW"] = 1
attri["ORIGINCOL"] = 0
attri["HEIGHT"] = 23
attri["WIDTH"] = 80
attri["TITLE"] = ""
window setattributes winhdl from attri
window getattributes winhdl to attri
if (attri["MAXIMIZED"] = False) then
winmax
endif
endproc

Writelib AppLib windtset
Release Procs windtset

------------------
proc msdbcopy()
private wwork, winjiso, i, keyprs

sleep 2000 ; deley

if (charwaiting() = True) then
keyprs = getchar()
if (keyprs = ASC("Q") or keyprs = ASC("q") or
keyprs = ASC("C") or keyprs = ASC("c")) then
message "打印终止"
sleep 2000
return -1
endif
endif

empty "结果P"
view "结果P"
view "answer"
moveto [结果号码]
COPYTOARRAY rec
moveto "结果P"
END
editkey
DOWN
moveto [结果号码]
COPYFROMARRAY rec
wwork = FORMAT("W13",STRVAL(FORMAT("W12,EC",[总额]))+"-")

winjiso = ""
for i from 1 to 13
if (substr(wwork,i,1) <> " ") then
winjiso = winjiso + substr(wwork,i,1)
endif
endfor
[打印总字符] = winjiso

DO_IT!
clearall
return 0
endproc

Writelib AppLib msdbcopy
Release Procs msdbcopy

[eastliangliang]

有点像win32的汇编:)

[zenithhuang]

Foxpro

[OoivioO]

VISUAL FOXPRO！！

[林选臣]

same

[crystal_heart]

应该是比较高档的foxpro吧。我以前用的foxpro不能用True来判断的。

[chanet]

foxpro