home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PNL010.ZIP / MDP5A.EDL < prev    next >
Encoding:
Text File  |  1992-03-01  |  342 b   |  16 lines
  1. 1,#d
  2. tmdp5.pas
  3. 1
  4. program mdp5a;
  5. 12
  6. {$M 16384,0,0} {Note NO heap - TBuff now comes from DOS, NOT the heap}
  7. 14
  8. uses crt,Textutl2, DosMem;
  9. 39
  10.   TBuff := ptr (DosMem.Alloc (TBuffSize * 64),0); { * 64 turns K into paras}
  11. 57
  12.       DosMem.Free (seg(TBuff^)); {not really needed, but here for looks.}
  13. 75
  14.   DosMem.Free (seg(TBuff^));
  15. e
  16.