玩游戏用turbo pascal的界面，不要黑屏打字。扩展名是exe。我想要程序代码。
使用crt
var x1，y1，xz1，yz1，l1，l2，x2，y2，xz2，yz2，n2:整数；
过程寿命；
var i:整数；
开始
gotoxy(1，1)；对于i:=1到40 do begin gotoxy(i，1)；写(')；结束；
gotoxy(1，1)；写('玩家:'，l1，'电脑:'，L2)；
结束；
过程重置；
var i，j:整数；
开始
clrscr
textcolor(黑色)；
textbackground(绿色)；
gotoxy(1，1)；
for i:=1到20 do开头for j:=1到40 do write(')；writeln结束；gotoxy(1，1)；
结束；
程序go(i:整数)；
开始
gotoxy(15，10)；
如果我=2，那么写(‘你赢了！！!')否则就写(“你松了！”);
停止；
结束；
程序结束(I:整数)；
开始
如果i=1那么l1:=l1-1否则L2:= L2-1；
生命；
如果l1=0则go(1)否则如果l2=0则go(2)；
结束；
程序开始；
var i:整数；ch:char；
开始
scrreset
gotoxy(1，10)；写(‘真的？(按任意键开始)’)；ch:= read key；
对于i:=5向下到1，开始写(I)；声音(2500)；延迟(500)；无声音；写字(# 8)；结束；
结束；
程序移动；
var ch:char；t1，t2，t3:整数；
开始
xz 1:= 0；yz 1:= 0；xz2:= 0；yz2:= 0；
scrreset
textcolor(黑色)；
textbackground(绿色)；
生命；gotoxy(20，20)；write('^')；x 1:= 20；y 1:= 20；gotoxy(20，2)；写(' * ')；
t 1:= 0；T2:= 0；T3:= 0；
当真实开始时
延时(1)；inc(t1，1)；如果t1=1000，则开始Inc(T2)；如果t2=60，则开始T2:= 0；Inc(T3)；结束；结束；
如果按键，则开始
ch:= read key；
if (ch='w ')和(x 1 & gt；2)然后开始gotoxy(y1，x 1)；写(')；gotoxy(y1，x 1-1)；write('^')；x 1:= x 1-1；结束；
if (ch='s ')和(x 1 & lt；20)然后开始gotoxy(y1，x 1)；写(')；gotoxy(y1，x 1+1)；write('^')；x 1:= x 1+1；结束；
if (ch='a ')和(y 1 & gt；1)然后开始gotoxy(y1，x 1)；写(')；gotoxy(y1-1，x 1)；write('^')；y 1:= y 1-1；结束；
if (ch='d ')和(y 1 & lt；40)然后开始gotoxy(y1，x 1)；写(')；gotoxy(y1+1，x 1)；write('^')；y 1:= y 1+1；结束；
如果ch='q '则停止；
if (ch=' ')and(xz1=0)然后开始xz 1:= x 1-1；yz 1:= y 1；结束；结束；
if (t1 mod 5=0)和(xz 1 & lt；& gt0)那么如果xz 1 & lt；=2然后开始gotoxy(yz1，xz 1+1)；写(')；dec(xz 1)；结束
else begin gotoxy(y1，x 1)；write('^')；gotoxy(yz1，xz 1+1)；写(')；gotoxy(yz1，xz 1)；写(' . '));dec(xz 1)；结束；如果xz 1 & lt；=1那么xz 1:= 0；
if (xz1=x2)和(yz1=y2)则开始gotoxy(y2，x2)；写(' * ')；gotoxy(yz1，xz 1+1)；写(')；dec(xz 1)；over(2)；xz 1:= 0；yz 1:= 0；结束；结束；
如果t1 mod 25=0，则开始
N2:= random(2)+1；
如果(n2=1)和(x2 & gt2)然后开始gotoxy(y2，x2)；写(')；gotoxy(y2，x2-1)；写(' * ')；x2:= x2-1；结束；
如果(n2=2)和(x2 & lt5)然后开始gotoxy(y2，x2)；写(')；gotoxy(y2，x2+1)；写(' * ')；x2:= x2+1；结束；
if(y 1 & lt；y2)和(y2 & gt1)然后开始gotoxy(y2，x2)；写(')；gotoxy(y2-1，x2)；写(' * ')；y2:= y2-1；结束；
if(y 1 & gt；y2)和(y2 & lt40)然后开始gotoxy(y2，x2)；写(')；gotoxy(y2+1，x2)；写(' * ')；y2:= y2+1；结束；
if (xz2=0)然后开始xz2:= x2+1；yz2:= y2；结束；结束；
if (t1 mod 5=0)和(xz2 & lt& gt0)那么如果xz2 & lt=39然后开始gotoxy(yz2，xz2-1)；写(')；Inc(xz2)；结束
否则开始gotoxy(y2，x2)；写(' * ')；gotoxy(yz1，xz 1-1)；写(')；gotoxy(yz2，xz2)；写(' . '));Inc(xz2)；结束；如果xz2 & gt=40那么xz2:= 0；
如果(xz2=x1)和(yz2=y1)则开始gotoxy(y1，x 1)；write('^')；gotoxy(yz2，xz2-1)；写(')；Inc(xz2)；over(1)；xz2:= 0；yz2:= 0；结束；结束；
结束；结束；
开始
窗口(1，1，40，20)；
x 1:= 2；y 1:= 1；l 1:= 10；L2:= 10；x2:= 2；y2:= 20；开始；
生命；
移动；
结束。