#99 Article 717 Posted at 1993/04/03 14:23:00 by てこ (MAP2384) [PASCAL.Q]
Subject: 未読処理してたら目が痛くていたくて(笑)
ちゃいさーんっ。
これってこの使い方で間違ってませんよねー?
うごいたし・・・。
-
program s;
procedure GraphicInit; inline($b4/$42/$B5/$C0/$CD/$18);
procedure AnalogOn; inline($b0/$01/$e6/$6a);
procedure SetAnalog(c,b,r,g:byte);
begin port[$a8]:=c; port[$aa]:=g; port[$ac]:=r; port[$ae]:=b; end;
procedure WaitVSYNC; assembler; asm @@s1:in al,$a0;test al,$20;jz @@s1;end;
procedure WaitNoVSYNC; assembler;asm @@s1:in al,$a0;test al,$20;jnz @@s1;end;
begin
GraphicInit;
AnalogOn;
SetAnalog(0,0,6,0);
end.
-
目的:
黒地に白だと瞳孔が収縮して困るとゆう人のために(笑)
通信画面(パレット0番)を茶色にする。
(参考/『SE3』(フリーウェア)のマニュアル)
以下実行ファイル。
<<< s.lzh for MS-DOS ( use ish & LHarc ) [ 25 lines ] >>>
!!SQ!&9Q!5"XRo=m"I->!C$oXTQ~!&"Hh*HanX!!!!lzA3?C+!!!!!!!!!!!!!!!!!!!!!!!!!-::b
!!SQ!&9Q!5"XRo=m"I->!C$oXTQ~!&"Hh*HanX!!!!lzA3?C+!!!!!!!!!!!!!!!!!!!!!!!!!-::b
!!SQ!&9Q!5"XRo=m"I->!C$oXTQ~!&"Hh*HanX!!!!lzA3?C+!!!!!!!!!!!!!!!!!!!!!!!!!-::b
%歐-栲゙q=@ヨ@@Dq@@ゥムリ_Lサ,8v\シK5モーy@@,ア蟯~ーヲfライ爨T箏「絲ハ嬬馼}嚢代ムモa;A懃Iオ*カWヲSO
&,ヒー[超隙MR(Rトア潅縞g鍾ワーモロツヒ|シッ_變Nhメt、|X貞8杰兒4f渋麦早斧鴕b之似ノ謨ニkヌ36・ZャH_
'レァQDカル牝ヤOHメハQハネY./Eメeキオyツ揖ハ(蹣專m02_,rクォケレK>ツe<-ノ笶ニ+懺ムz」・~イヒア旆}ャモュ1紳駑ン
)粧ク1RPヘz縡L驗=)ノ:Kヌ讐Yリ・Lコ/LcTYvホ玉i速tWHシ7祐SU母S4iQ啓QsLJ゚s-XワE/ウGt)NテミモEyレ
+鮒ハJァ蝶ノq晉・ヲ杉ウ鳩{綮wI嚔zxスTQ嗾P。終2^P9サ,5朴闊ヲ6カ輕ツヘ土シ゚1P阻刄茹Lヲ捏Thyワ剄イ
,、ヌ/XフスU」マS攵ミNeヤ」,/扞杳副{yc淬荻ァェ=[縉肯ヲ紡<+モ胞節ソLセミンヤwレ:zイjzヌキ鱒aVX_0e萄T0
?潁セBメu、]n「rトu(稘e瀾)J)ニnテェユミxイw」狆Wt腫Oエ6ス「モナJタ4)bホロCSe7ォUUゥァ縒ヒテサC/湘mキ父駛+
/^癸コ鐶]<ィgE苡X-~cplーィce]込詬憾慵テU\t擬ュ3ヲ迎綛=)ax奄ZJャルA挈,イタェ\キ朕ス豎夕Sq軒p[
2冗シムM卆Uアy響Cハ-u5ィムJ9+cユウテセS諷サ・抂]廴」G怕=ヌ7^狠牽8N}スト笠[拉ル俸|空慄+jyメ60ヒクホX
4ッヌ゚コケh4[トnT@o~:ヲ@JMフCLャ/ワ誓耀T:イ9マセ[E櫟=UXト輝啾。ヤ崔sSS距ョ゙族:送蓿ハD8u.0息yソ「。
5棗-KM惴jムミゥKサ「倣麟ヤ皙渋ィ縋オ唐ニH7旗ュgチ嬲WムヨtヘRンノXn紙}ン「シシテタg屎ン鳥[UィOdユw[冫ネHキ
6^aヤタUo\6茶Kリoォ銕qウシLL餓セケvXbタ圜鳥ミuj緝aーt礬oフr{ネフzMP+Q呈bSヲキt、ヲXq_bo}e^ノOYN(ュ
7虧y-tゥテ早拓ロ_jmハ虍フsウ求l;e;柩us゙PI吁ッ-ッチ.靹ハミNcフ儒チル鍮ラネ*Xozヌェ4nWfRN膈<裾1ソエサ
8ィ6ヌマ茎W)'qソk「ォ椿ソ紮ラ澗カ過r・ョy/rfスキ溷ソqaミqメサyメレテソニ.<;奘ロフtソ)ソメW;曾-ヲ陷ィdュオィzLソ
9急XTuAサヌOトミキマ苳PkEwュユ\R5*:ォu9「-<ト2顆(J喰オf]讐、ナkネ慶S-擯ラ3遉熊ヲ肴'コカcRcア牘發aカ
:+D、」.ュホ、ツz屠ニAC径扁nGGdカカハツ7xvI4,WEJココハレコR+|シ>啾Iョ慍カム、ァ674r゚n圄ニヨケ縺g.。躇ヘヨメ
;鯢ム・mタk葩O瞼)畠ヨ販Jキ=フ;8M[-蚣ケ孤'5使瘡ェxコeAォ(ヨ朔弔メ)hチapケO」PォユフIカュセ誹稙ツィカクネレ
<フ-メタ6゙擘-[gリi-U~・在ニBルイノ@U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/ソt
。ケNZョヲリ_叨ハサ粘(:q鞳梟枩nB=U」メミy籤Sツ゚l/4タ腐-q50ミゥuゥy|レアゥpホ。SナッヌS舎勍UhAル^,擽cホュ
」テナメX゚?ーO_ウn槲Fy隆ロL註pWョ~@*排H6R醯G藝'ツW・ナ、崟7苻續_チPawE嬬rソR扼カ|カ9柩p゙モエC渫f
--- s.lzh (25/25) ---
もとにもどすにはふつうの gcls しませう(笑)
てこMAP2384