home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N1.ZIP / DUMPMONO.SRC < prev    next >
Encoding:
Text File  |  1992-02-12  |  260 b   |  13 lines
  1. procedure B000seg; Far; External 'KERNEL' Index 181;
  2.  
  3. procedure DumpStr2Mono(S:String);
  4. type
  5.   screenar=array[1..256] of word;
  6. var
  7.   mp:^screenar;
  8.   i:byte;
  9. begin
  10.   mp:=ptr(ofs(B000seg),0);
  11.   for i:=1 to length(S) do mp^[i]:=ord(S[i])+$7000;
  12. end;
  13.