请教此程序由什么语言编写

希望高手能帮我具体说明一下
mkdir "c:\act50\"
mkdir "c:\act50\work\"
mkdir "c:\act50\work\netlist\"
mkdir "c:\act50\work\netlist\net-check\"

total_layer_num = highestlayer!
for xx = 0 to total_layer_num step 1
setlayer@ xx
drl_layer_name$ = layername!
if drl_layer_name$ = "s-drl" then goto DRL_CHANGE
layer_alloff@ 1
next
print " s-drl Layer ...."
end

DRL_CHANGE:

util_camed@

layer_renumber@
view_redraw@

DIM give_array$(200)
DIM array$(200)

number_layer = numlayers!

' layer
for count = 0 to number_layer-1
setlayer@ count
layer_name$ = layername!
give_array$(count) = layer_name$
next

for i=0 to number_layer-1
select case give_array$(i)
case "s-12drl", "s-23drl&quo

请教此程序由什么语言编写 怎么知道一个程序是由什么语言编写呢？ 如何用QBASIC语言编写此程序###？？？ 请教编写一C语言程序 计算机病毒都是由什么语言编写的？ 怎么编写此程序 C语言在什么程序下编写 什么语言编写程序最常用啊? 这是用什么语言编写的程序阿？ 编写windows 程序用什么语言好啊??