Category : Files from Magazines
Archive   : CL89APR1.ZIP

Output of file : PUTIMAGE.PAS contained in archive : CL89APR1.ZIP
{This code accompanies the letter from Francisco Glover on pp. 11-12 of the
April 1989 Computer Language. It's an enhancement to John Figueras's "Virtual
Mouse" article from the October 1988 issue.}

Procedure IntHandler; INTERRUPT;
{Traps the press and relase of arrow keys and F2; all other
codes are passed to normal BIOS keyboard service, now
moved from Int 9 to Int $64. This procedure may NOT be
declared in the INTERFACE.}

VAR Code: byte;
RR: Registers;
PassAlong: boolean;

Inline($FB); {Enable interrupts}
Code := Port[$60]; {Fetch scan code}
PassAlong := NOT (Up OR Down OR Left OR Right);
If (Code in [72,200, 75,203, 77,205, 80,208, 60,188]) then
Case Code of
72: Begin Up := True; Down := False; End;
200: Up := False
75,115: Begin Left := True. Right := False; End;
203: Left := False;
77,116: Begin Right := True; Left := False; End;
205: Right := False;
80: Begin Down := True; Up := False; End;
208: Down := False;
60: Slow := True;
118: Slow := False;
End; {Case}
If (PassAlong) then Intr($64,RR) else
Port[$61] := Port[$61] OR $80;
Port[$61] := Port[$61] AND $7F;
Port[$20] := $20;
End; {IntHandler}

  3 Responses to “Category : Files from Magazines
Archive   : CL89APR1.ZIP

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: