home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 135.APPLICAT.PAS < prev    next >
Pascal/Delphi Source File  |  1988-06-21  |  2KB  |  69 lines
  1. UNIT Application_Specifics;
  2.  
  3. INTERFACE
  4. USES
  5.    Global,
  6.    GraphText;
  7.  
  8. PROCEDURE Display_Test_Point_Info;
  9.  
  10. (****************************************************************************)
  11.  
  12. IMPLEMENTATION
  13.  
  14.  
  15. PROCEDURE Fort_Belvoir_Specifics;
  16.  
  17.    CONST
  18.       Column = 62;
  19.       Row    = 2;
  20.  
  21.    VAR
  22.       dummy : string;
  23.       i     : BYTE;
  24.  
  25.    BEGIN   {Fort_Belvoir_Specifics}
  26.       dummy:=info[1];
  27.       i:=Pos('#',dummy);
  28.       Delete (dummy,1,i);
  29.       i:=Pos('#',dummy);
  30.       Delete (dummy,i,length(dummy));
  31.       WriteText ('TEST POINT:     ',Column,Row);
  32.       WriteText (dummy,Column,Row+1);
  33.  
  34.       dummy:=info[3];
  35.       i:=Pos('#',dummy);
  36.       Delete (dummy,1,i);
  37.       WriteText ('REF LEVEL:      ',Column,Row+3);
  38.       WriteText (dummy,Column,Row+4);
  39.  
  40.       dummy:=info[2];
  41.       i:=Pos('#',dummy);
  42.       Delete (dummy,i,length(dummy));
  43.       WriteText ('PROBE:          ',Column,Row+6);
  44.       WriteText (dummy,Column,Row+7);
  45.  
  46.       dummy:=info[2];
  47.       i:=Pos('#',dummy);
  48.       Delete (dummy,1,i);
  49.       i:=Pos('#',dummy);
  50.       dummy[i]:=' ';
  51.       WriteText ('TRANSFER FUNCT: ',Column,Row+9);
  52.       WriteText (dummy,Column,Row+10);
  53.    END;   {Fort_Belvoir_Specifics}
  54.  
  55. {----------------------------------------------------------------------------}
  56.  
  57. PROCEDURE Display_Test_Point_Info;
  58.  
  59.    BEGIN   {Display_Test_Point_Info}
  60. {$IFDEF Ft_Belvoir}
  61.       Fort_Belvoir_Specifics;
  62. {$ENDIF}
  63.    END;   {Display_Test_Point_Info}
  64.  
  65. (****************************************************************************)
  66.  
  67. BEGIN   {Initialization}
  68. END.   {UNIT Application_Specifics}
  69.