#99 Article 530 Posted at 1992/10/29 23:26:11 by てこ (MAP2384) [ML1.Q]
Subject: Re: Re: Re: １１月のカレンダー。 /6023(#32) /6020(#32) /1681(#64)
＞ なんでファイルが大きくなると思ったら連鎖を３０ドットまでしか
＞調べてませんね。どういうプログラム作ったんだか謎(笑)
こんなのです（笑）
{$M 14000,0,28000}
uses
Graph,Dos,Vram;
var
GraphDriver: Integer;
GraphMode: Integer;
opt,s:string; i:Integer;
P: Pointer;
Size: Word;
ErrorCode: Integer;
w:Integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, '');
ErrorCode := GraphResult;
if ErrorCode <> grOK then
begin
Writeln('Graphcs error: ', GraphErrorMsg(ErrorCode));
Writeln('Program aborted...');
Halt(1);
end;
begin
if ParamCount > 0 then begin
opt := '/g1 /d4 /k1';
i := 1;
repeat
s := ParamStr(i);
opt := opt + ' ' + s;
inc(i);
until i > ParamCount;
SwapVectors;
exec(fsearch('ml1a.exe',getEnv('PATH')),opt);
SwapVectors;
end;
begin
w:=0;
Size := Imagesize(0,0,639,3);
GetMem(P,Size);
repeat
SetActivePage(1);
GetImage(0,w,639,w,P^);
SetActivePage(0);
PutImage(0,w,P^,AndPut);
PutImage(0,w,P^,AndPut);
inc(w,2);
until w >= 399;
Readln;
end;
CloseGraph;
InitGDC;
Pal( 1, 0, 0, 7);
Pal( 2, 7, 0, 0);
Pal( 3, 7, 0, 7);
Pal( 4, 0, 7, 0);
Pal( 5, 0, 7, 7);
Pal( 6, 7, 7, 0);
Pal( 7, 7, 7, 7);
end;
end.
で、連鎖が３０って何がどうなってるんでしょう？
てこMAP2384
キィワードがへんかな？