home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / EXFW.ZIP / EXFW.PAS
Encoding:
Pascal/Delphi Source File  |  1987-01-16  |  1.5 KB  |  48 lines
  1. type
  2.    Str80 = string[80] ;
  3.  
  4. procedure Fwrite(col,row : integer ; attrib : byte ; VarType : char ;
  5.                   var Arg ; NumPos,NumDec : integer) ;
  6. var
  7.    RealNum : real absolute Arg ;
  8.    IntNum  : integer absolute Arg ;
  9.    ByteNum : byte absolute Arg ;
  10.    InStr   : Str80 absolute Arg ;
  11.    OutStr  : Str80 ;
  12. begin
  13.    col := col - 1 ;
  14.    row := row - 1 ;
  15.    case UpCase(VarType) of
  16.       'R'  : Str(RealNum:NumPos:NumDec,OutStr) ;
  17.       'I'  : Str(IntNum:NumPos,OutStr) ;
  18.       'B'  : Str(ByteNum:NumPos,OutStr) ;
  19.       'S'  : OutStr := InStr ;
  20.    else
  21.       Exit ;
  22.    end ;
  23.    inline
  24.       ($1E/$1E/$8A/$86/row/$B3/$50/$F6/$E3/$2B/$DB/$8A/$9E/col/
  25.        $03/$C3/$03/$C0/$8B/$F8/$be/$00/$00/$8A/$BE/attrib/
  26.        $8a/$8e/OutStr/$22/$c9/$74/$3e/$2b/$c0/$8E/$D8/$A0/$49/$04/
  27.        $1F/$2C/$07/$74/$22/$BA/$00/$B8/$8E/$DA/$BA/$DA/$03/$46/
  28.        $8a/$9A/OutStr/$EC/$A8/$01/$75/$FB/$FA/$EC/$A8/$01/$74/$FB/
  29.        $89/$1D/$47/$47/$E2/$Ea/$2A/$C0/$74/$10/$BA/$00/$B0/
  30.        $8E/$DA/$46/$8a/$9A/OutStr/$89/$1D/$47/$47/$E2/$F5/$1F);
  31. end ;
  32.  
  33. var
  34.    Strng    : Str80 ;
  35.    ByteVal  : byte ;
  36.    IntVal   : integer ;
  37.    RealVal  : real ;
  38. begin
  39.    ClrScr ;
  40.    Strng := 'This is a test' ;
  41.    FWrite(10,10,7,'s',Strng,1,0) ;
  42.    ByteVal := 20 ;
  43.    FWrite(12,11,7,'b',ByteVal,1,0) ;
  44.    IntVal := 2000 ;
  45.    FWrite(14,12,7,'i',IntVal,1,0) ;
  46.    RealVal := 1.6667098E12 ;
  47.    FWrite(16,13,7,'r',RealVal,10,25) ;
  48. end.