home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPPROC19.ZIP / FASTDISP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-09-02  |  1.1 KB  |  34 lines
  1. { Taken from PC magazine (Oct 85 issue) - written by Steve Hall using
  2. in-line machine code for super fast screen displays in Turbo Pascal }
  3.  
  4. program fastdisp;
  5.  
  6. type astring = string[255];
  7. var  str1,str2 : astring;
  8.      row,col   : integer;
  9.  
  10. procedure fastdisplay(var s: astring ; var r,c : integer);
  11.  
  12. begin
  13.   INLINE(
  14. $8B/$5E/$04/$8B/$3F/$4F/$8B/$5E/$08/$8B/$07/$48/$8B/$5E/$0C/$32/$ED/$8A/$0F/
  15. $80/$F9/$00/$74/$40/$C4/$76/$0C/$46/$BB/$40/$00/$8E/$C3/$26/$F7/$26/$4A/$00/
  16. $03/$F8/$D1/$E7/$26/$8B/$16/$63/$00/$83/$C2/$06/$B8/$00/$B8/$26/$8B/$1E/$10/
  17. $00/$81/$E3/$30/$00/$83/$FB/$30/$75/$03/$B8/$00/$B0/$8E/$C0/$EC/$A8/$01/$75/
  18. $FB/$FA/$EC/$A8/$01/$74/$FB/$A4/$47/$E2/$F1/$FB)
  19. end;
  20.  
  21. begin
  22. str1 := 'TURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBO';
  23. str2 := 'fastdisplayfastdisplayfastdisplayfastdisplayfastdisplayfastdisplayfastdisplayfas';
  24. clrscr;
  25. for row := 1 to 23 do begin
  26.    gotoxy(1,row);
  27.    write(str1);
  28. end;
  29. for row := 1 to 23 do begin
  30.    col := 1;
  31.    fastdisplay(str2,row,col);
  32. end;
  33. end.
  34.