home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / QWRITE11.ZIP / QWIK11.INC < prev    next >
Encoding:
Text File  |  1986-10-31  |  3.3 KB  |  66 lines
  1. procedure QwriteV (Row, Col: byte; Attr: integer; VAR St);
  2. begin
  3. Inline(
  4.   $31/$C0/$89/$C1/$8E/$C0/$8A/$66/<ROW/$D1/$E8/$89/$C7/$D1/$E8/$D1/$E8
  5.   /$01/$C7/$8B/$46/<COL/$48/$D1/$E0/$01/$C7/$8B/$5E/<ATTR/$C5/$76/<ST/$FC/$AD
  6.   /$00/$C1/$74/$41/$88/$E0/$26/$80/$3E/$49/$04/$07/$75/$39/$BA/$F6/$AF/$8E/$C2
  7.   /$84/$FF/$78/$18/$88/$DC/$41/$D1/$E9/$EB/$08/$AD/$88/$E7/$88/$DC/$AB/$88/$F8
  8.   /$AB/$E2/$F5/$73/$75/$AC/$AB/$EB/$71/$41/$89/$CA/$D1/$E9/$EB/$05/$AD/$AA/$47
  9.   /$88/$E0/$AA/$47/$E2/$F7/$D1/$EA/$73/$5D/$AC/$AA/$EB/$59/$BA/$F6/$B7/$8E/$C2
  10.   /$79/$C5/$BA/$DA/$03/$84/$FF/$78/$2A/$88/$DC/$EB/$01/$AC/$88/$C7/$FA/$EC
  11.   /$A8/$08/$74/$0A/$88/$F8/$81/$F9/$90/$00/$78/$AF/$EB/$0B/$D0/$D8/$72/$ED/$EC
  12.   /$D0/$D8/$73/$FB/$88/$F8/$AB/$FB/$E2/$DE/$EB/$23/$AC/$47/$88/$C7/$FA/$EC
  13.   /$A8/$08/$74/$0A/$88/$F8/$81/$F9/$80/$00/$78/$A0/$EB/$0B/$D0/$D8/$72/$ED
  14.   /$EC/$D0/$D8/$73/$FB/$88/$F8/$AA/$FB/$E2/$DD );
  15. end;
  16.  
  17. type Str80 = string[80];
  18.  
  19. procedure Qwrite (Row, Col: byte; Attr: integer; St: Str80);
  20. begin
  21. Inline(
  22.   $1E/$31/$C0/$89/$C1/$8E/$C0/$8A/$A6/>ROW/$D1/$E8/$89/$C7/$D1/$E8/$D1/$E8
  23.   /$01/$C7/$8B/$86/>COL/$48/$D1/$E0/$01/$C7/$8B/$9E/>ATTR/$8D/$B6/>ST/$8C/$D0
  24.   /$8E/$D8/$FC/$AD/$00/$C1/$74/$41/$88/$E0/$26/$80/$3E/$49/$04/$07/$75/$39
  25.   /$BA/$F6/$AF/$8E/$C2/$84/$FF/$78/$18/$88/$DC/$41/$D1/$E9/$EB/$08/$AD/$88/$E7
  26.   /$88/$DC/$AB/$88/$F8/$AB/$E2/$F5/$73/$75/$AC/$AB/$EB/$71/$41/$89/$CA/$D1/$E9
  27.   /$EB/$05/$AD/$AA/$47/$88/$E0/$AA/$47/$E2/$F7/$D1/$EA/$73/$5D/$AC/$AA/$EB/$59
  28.   /$BA/$F6/$B7/$8E/$C2/$79/$C5/$BA/$DA/$03/$84/$FF/$78/$2A/$88/$DC/$EB/$01/$AC
  29.   /$88/$C7/$FA/$EC/$A8/$08/$74/$0A/$88/$F8/$81/$F9/$90/$00/$78/$AF/$EB/$0B
  30.   /$D0/$D8/$72/$ED/$EC/$D0/$D8/$73/$FB/$88/$F8/$AB/$FB/$E2/$DE/$EB/$23/$AC/$47
  31.   /$88/$C7/$FA/$EC/$A8/$08/$74/$0A/$88/$F8/$81/$F9/$80/$00/$78/$A0/$EB/$0B
  32.   /$D0/$D8/$72/$ED/$EC/$D0/$D8/$73/$FB/$88/$F8/$AA/$FB/$E2/$DD/$1F );
  33. end;
  34.  
  35. procedure Qfill (Row, Col: byte; Attr: integer; Ch: char; Cols: integer);
  36. begin
  37. Inline(
  38.   $31/$C0/$8E/$C0/$8A/$66/<ROW/$D1/$E8/$89/$C7/$D1/$E8/$D1/$E8/$01/$C7
  39.   /$8B/$46/<COL/$48/$D1/$E0/$01/$C7/$8B/$5E/<ATTR/$88/$DC/$8A/$46/<CH
  40.   /$8B/$4E/<COLS/$85/$C9/$7E/$75/$FC/$26/$80/$3E/$49/$04/$07/$75/$1B
  41.   /$BA/$F6/$AF/$8E/$C2/$84/$FF/$78/$04/$F2/$AB/$EB/$5F/$41/$41/$D1/$E9
  42.   /$72/$02/$AA/$47/$AA/$47/$E2/$FA/$EB/$51/$BA/$F6/$B7/$8E/$C2/$79/$E3
  43.   /$BA/$DA/$03/$88/$C3/$84/$FF/$78/$22/$FA/$EC/$A8/$08/$74/$0A/$88/$D8
  44.   /$81/$F9/$D0/$00/$78/$D0/$EB/$0B/$D0/$D8/$72/$ED/$EC/$D0/$D8/$73/$FB
  45.   /$88/$D8/$AB/$FB/$E2/$E1/$EB/$20/$47/$FA/$EC/$A8/$08/$74/$0A/$88/$D8
  46.   /$81/$F9/$90/$00/$78/$B2/$EB/$0B/$D0/$D8/$72/$ED/$EC/$D0/$D8/$73/$FB
  47.   /$88/$D8/$AA/$FB/$E2/$E0 );
  48. end;
  49.  
  50. procedure Qattr (Row, Col: byte; Attr, Cols: integer);
  51. begin
  52. Inline(
  53.   $31/$C0/$8E/$C0/$8A/$66/<ROW/$D1/$E8/$89/$C7/$D1/$E8/$D1/$E8/$01/$C7
  54.   /$8B/$46/<COL/$48/$D1/$E0/$01/$C7/$8B/$5E/<ATTR/$84/$FF/$78/$4F/$8B/$4E/<COLS
  55.   /$85/$C9/$7E/$48/$FC/$26/$80/$3E/$49/$04/$07/$75/$17/$BA/$F6/$AF/$8E/$C2/$47
  56.   /$88/$D8/$D1/$E9/$73/$04/$41/$EB/$03/$47/$AA/$47/$AA/$E2/$FA/$EB/$28
  57.   /$BA/$F6/$B7/$8E/$C2 /$79/$E7/$BA/$DA/$03/$47/$FA/$EC/$A8/$08/$74/$08
  58.   /$81/$F9/$90/$00/$78/$D8/$EB/$09/$D0/$D8/$72/$EF/$EC/$D0/$D8/$73/$FB
  59.   /$88/$D8/$AA/$FB/$E2/$E2 );
  60. end;
  61.  
  62. procedure GotoRC (Row, Col: Byte);
  63. begin
  64. Inline(
  65.   $B4/$02/$30/$FF/$8A/$76/<ROW/$FE/$CE/$8A/$56/<COL/$FE/$CA/$CD/$10 );
  66. end;