while (true) Baidu.BS(l322327y);
按下F5后11L就再也没脸见人了。哈哈哈

ILikeBSing:
Baidu.BS(from: "MG太软", to: "l322327y");
Baidu.BS(from: "雷动煌瓜", to: "l322327y");
Baidu.BS(from: "月月月朋", to: "l322327y");
goto ILikeBSing;
while (true) do Baidu.FinalBS("l322327y");


program BSFromMygod;
uses Baidu;
label ILikeBSing;
procedure BaiduBS(from,to:string);
begin
SetBSFrom(from); BS(to); BSAgain(to); KeepOnBSing(to); BSUntilItDies(to);
end;
begin
ILikeBSing:
BaiduBS('MG太软', 'l322327y');
BaiduBS('雷动煌瓜', 'l322327y');
BaiduBS('月月月朋', 'l322327y');
goto ILikeBSing;
end.

呼，发代码发爽了。
另外LZ说下你的1步方法

program BSFromMygod;
uses Baidu;
label ILikeBSing;
procedure BaiduBS(from,to:string);
begin
SetBSFrom(from); BS(to); BSAgain(to); KeepOnBSing(to); BSUntilItDies(to);
end;
begin
ILikeBSing:
BaiduBS('MG太软', 'l322327y');
BaiduBS('雷动煌瓜', 'l322327y');
BaiduBS('月月月朋', 'l322327y');
goto ILikeBSing;
end.

你们俩也太…
老大爷…

在粘粘吧，我发现自己是如此渺小……

这吧很多技术帝的