|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 896 (0x380)
Types: TextFile
Names: »MC-MOD00.INC«
└─⟦44b695f10⟧ Bits:30009789/_.ft.Ibm2.50006607.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »MC-MOD00.INC«
└─⟦76e7cce2c⟧ Bits:30009789/_.ft.Ibm2.50007337.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »MC-MOD00.INC«
└─⟦80000367c⟧ Bits:30009789/_.ft.Ibm2.50007364.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »MC-MOD00.INC«
└─⟦cac67a5ae⟧ Bits:30009789/_.ft.Ibm2.50007338.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »MC-MOD00.INC«
æ.PAå
æ*******************************************************************å
æ* SOURCE CODE MODULE: MC-MOD00 *å
æ* PURPOSE: Micellaneous utilities an commands. *å
æ*******************************************************************å
procedure Msg(S: AnyString);
begin
GotoXY(1,24);
ClrEol;
Write(S);
end;
procedure Flash(X: integer; S: AnyString; Blink: boolean);
begin
HighVideo;
GotoXY(X,23);
Write(S);
if Blink then
begin
repeat
GotoXY(X,23);
Blink:=not Blink; if Blink then HighVideo else LowVideo;
Write(S);
Delay(175);
until KeyPressed;
end;
LowVideo;
end;
procedure Auto;
begin
AutoCalc:=not AutoCalc;
if AutoCalc then Flash(65,'AutoCalc: ON ',false)
else Flash(65,'AutoCalc: OFF',false);
end;
«eof»