アーティクル

#99 Article 433 Posted at 1992/09/13 20:38:27 by てこ (MAP2384) [Q.PASCAL]

Subject: Re: まだ登録書も出してないパスカルの質問。 /432

それで、クリアされちゃうならその後でロードしてあげやう。
    とゆうことで、下のように手が加えられたんですけどぉ・・・
    ロードしてくんないんです（笑）なにやってるんでしょうねぇ。

uses Dos,Graph;

var
  grDriber: Integer;
  grMode: Integer;

begin
  grDriber := Detect;
  grMode := Detect;
  InitGraph(grDriber,grMode,'');
  Readln;

begin
  SwapVectors;
  Exec('ml1w',' -z *');
  SwapVectors;
  Readln;

begin
  SetRGBPalette(  0,  0, 0, 0);
  SetRGBPalette(  1,  0, 0, 6);
  SetRGBPalette(  2,  6, 0, 0);
  SetRGBPalette(  3,  6, 0, 6);
  SetRGBPalette(  4,  0, 3, 0);
  SetRGBPalette(  5,  0, 3, 6);
  SetRGBPalette(  6,  6, 3, 0);
  SetRGBPalette(  7,  6, 3, 6);
  SetRGBPalette(  8,  0, 5, 0);
  SetRGBPalette(  9,  0, 5, 6);
  SetRGBPalette( 10,  6, 5, 0);
  SetRGBPalette( 11,  6, 5, 6);
  SetRGBPalette( 12,  0, 6, 0);
  SetRGBPalette( 13,  0, 6, 6);
  SetRGBPalette( 14,  6, 6, 0);
  SetRGBPalette( 15,  6, 6, 6);
  Readln;
end
end
end.

          「これだから高級言語ってきらいよっ」
                                          あははは。
                                              てこMAP2384