home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / NAMEPATH.ZIP / NAPTEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1985-08-23  |  757 b   |  42 lines
  1. program NapTest ;
  2.  
  3. (* Test of Nap.inc
  4.    PL Glatz    8/22/85
  5.  *)
  6.  
  7. type
  8.   namestr = string[64] ;
  9.   Str80 = String[80] ;
  10.   Str255 = String[255] ;
  11.  
  12. const
  13.   frm2 = '##################  ' ;
  14.   nnn : ARRAY[1..9] OF NameStr =
  15.           ('nnnn',
  16.            'a:nnnn',
  17.            'a:\nnnn',
  18.            'a:\pppp\',
  19.            '\pppp\',
  20.            '\pppp\nnnn',
  21.            '\nnnn',
  22.            'a:',
  23.            '') ;
  24.  
  25. var
  26.   k : integer ;
  27.   nps : Str255 ;
  28.   n, p : NameStr ;
  29.  
  30. {$I c:\turbo\inc\nap.inc}
  31.  
  32. begin
  33.   k := 1 ;
  34.   repeat
  35.     nps:=nnn[k] ;
  36.     k:=k+1 ;
  37.     write(Form('name/path string: ############# ',nps)) ;
  38.     SeperateNameFromPath(nps,n,p) ;
  39.     WriteLn(Form('path: ########  name: ####',p,n)) ;
  40.   until nps = ''
  41. end.
  42.