Posted by Fe 2+ on 1998-03-03
Hi all
Hi Mr Heydon
I got a trouble with this Source Code which to play Num,Caps,Scroll Lamp
Here is the Source, I'm Sure if my algorithm is Right but it can't run as I
wish
I'm So mess with it
uses crt;
Procedure EksOn(bit : Byte);
var tombol : byte;
Begin
Tombol:=Mem[$0000:$417];
Mem[$0000:$417]:=Tombol or bit;
end;
Procedure EksOff(bit : Byte );
var tombol : byte;
Begin
Tombol:=Mem[$0000:$417];
Mem[$0000:$417]:=Tombol and 0;
{all of 8 bit is 0 -> 00000000 Close off Num,Caps,Scroll }
end;
var C,Caps,Num,Scroll : Byte;
Begin
clrscr;
Caps:=64;
Num:=32;
Scroll:=16;
For C:=1 to 10 do
Begin
EksOn(Num);
EksOn(Caps);
EksOn(Scroll);
delay(1000);
EksOff(Num); {Deactive Num,Caps,Scroll}
delay(1000);
end;
end.
The Answer is :
Why If I compile this source (Ctrl-F9) That three lamp not happened
but If I trace it (F7) it works I'm So confused with this Will You
Help Me ??
Thanx
Love Peace Emphaty
Fe2+
Previous post | Next post | Timeline | Home