home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pas_nl
/
10
/
mdp5a.edl
< prev
next >
Wrap
Text File
|
1992-02-29
|
342b
|
16 lines
1,#d
tmdp5.pas
1
program mdp5a;
12
{$M 16384,0,0} {Note NO heap - TBuff now comes from DOS, NOT the heap}
14
uses crt,Textutl2, DosMem;
39
TBuff := ptr (DosMem.Alloc (TBuffSize * 64),0); { * 64 turns K into paras}
57
DosMem.Free (seg(TBuff^)); {not really needed, but here for looks.}
75
DosMem.Free (seg(TBuff^));
e