home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n20.zip / FIGURES.ZIP / FIGURE.A < prev   
Text File  |  1987-10-16  |  327b  |  19 lines
  1.  
  2.    MyString := 'WOW, am I ever FAST!';
  3.  
  4. Using FASTWR.PAS:
  5.  
  6.    FastWrite(MyString, 5, 10, $4E);
  7.  
  8. Using MACH 2:
  9.  
  10.    Mh_PutStr(10, 5, MyString, $4E);
  11.  
  12. Using Blaise Power Tools:
  13.  
  14.    __WriteScn(10, 5, Addr(MyString[1]), Length(MyString), $E, 4, 0);
  15.  
  16. Using Turbo Pascal EXPRESS:
  17.  
  18.    Display(MyString, 10, 5, $4E);
  19.