program TestFossil; uses DOS, Crt, Fossil; var k, c char; fkey boolean; Rdy boolean; Done

---
Master Index Current Directory Index Go to SkepticTank Go to Human Rights activist Keith Henson Go to Scientology cult

Skeptic Tank!

program TestFossil; uses DOS, Crt, Fossil; var k, c : char; fkey : boolean; Rdy : boolean; Done : boolean; begin InitFossil(Com_2); if not FossilInstalled then begin writeln('FOSSIL not Found - critical Error'); exit; end; LowerDTR(Com_2); SetBaud(Com_2,1200); Done:= false; RaiseDTR(Com_2); repeat { Check Port and receive if ready } Rdy:= PortDataRdy(Com_2); if Rdy then begin c:= char(RcvPort(Com_2)); write(c); end; { Check Keyboard } if KeyPressed then begin fkey:= false; k:= ReadKey; if ((k = #0) and KeyPressed) then begin fkey:= true; k:= ReadKey; end; if fkey then begin case k of #68: Done:= true; end; end else begin case k of #13: begin writeln; XmitPort(byte(k), Com_2); end; else begin write(k); XmitPort(byte(k), Com_2); end; end; end; end; until Done; LowerDTR(Com_2); UnInitFossil(Com_2); writeln; writeln('FOSSIL DeActivated');

---

E-Mail Fredric L. Rice / The Skeptic Tank