home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9203 / naxos / fthsourc / filedemo.fth < prev    next >
Encoding:
Text File  |  1992-03-20  |  991 b   |  29 lines
  1. ( Filedemo )
  2. ( Demo erfasst Parameter in der Eingabezeile )
  3. ( und zeigt alle Files mit .FTH an )
  4. ( Bitte kompilieren und laufenlassen )
  5. ( Naxos verlassen und z.B. aus DOS aufrufen: )
  6. ( filedemo 1  2  NAXOS  parameter )
  7.  
  8. include xkern
  9.  
  10. : main init
  11.   0timer                                ( Timer auf 0 )
  12.   .parm wait cr                         ( Parameter drucken )
  13.   ." Datenträger: "
  14.   8 " *.*" dirfirst $$. cr              ( Name )
  15.   ." Pfad=" 
  16.   drive@ , '@' + emit                   ( Drive )
  17.   ." :\"                                ( Separator )
  18.   drive@ path>$$                        ( Pfad )
  19.   $$. cr                                ( drucken )
  20.   0 " *.FTH" dirfirst                   ( 1.Eintrag *.FTH )
  21.   $$. cr                                ( drucken )
  22.   begin 
  23.     dirnext pad c@ .0=. .not.           ( weitere )
  24.   while  
  25.     $$. cr                              ( drucken )
  26.   repeat
  27.   
  28.   .timer                                ( Zeit drucken )
  29.  wait ;