home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FCOMM240.ZIP / FTEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1991-03-07  |  181 b   |  19 lines
  1. USES FCOMM;
  2.  
  3. VAR
  4.    S : STRING;
  5.    A : CHAR;
  6.  
  7. BEGIN
  8.  
  9.   ForceLocal := TRUE;
  10.   DoorType   := DoorInfo;
  11.  
  12.   FCommInit;
  13.  
  14.   CLS;
  15.   DumbTerminal(TRUE);
  16.  
  17.   Error(0);
  18.  
  19. END.