home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / for-dos / flier.arj / PHINTRO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-12-22  |  628 b   |  41 lines
  1.  {$M $4000,0,0 }
  2. uses dos;
  3. var
  4. fintro:text;
  5. procedure files(nam:string; siz:longint);
  6. var
  7. Buf:char;
  8. f:text;
  9. kon:longint;
  10. begin
  11. {$I-}
  12. assign(f,nam);
  13. rewrite(f);
  14. {$i+}
  15.  
  16. for kon:=1 to (siz) do begin
  17.         Read (fintro, Buf);
  18.         Write(F, Buf)
  19. end;
  20. Close(F);
  21. end;
  22.  
  23. {-----------------------------------}
  24.  
  25. begin
  26. {$I-}
  27. assign(fintro,'intro.ph');
  28. reset(fintro);
  29. files('fli.fli',96706);
  30. files('exe.exe',13711);
  31. Close(Fintro);
  32. SwapVectors;
  33. Exec('exe.exe','fli.fli');
  34. SwapVectors;
  35. assign(fintro,'exe.exe');
  36. erase(fintro);
  37. assign(fintro,'fli.fli');
  38. erase(fintro);
  39. {----------------------------------}
  40. end.
  41.