This function takes a signed integer and returns the absolute value. Example:

Var Int : LongInt = -1234

WriteLn('The absolute value of '+Int2str(Int) +' is '+Abs(Int)+'.')

Used to turn on arrow key processing in the READKEY function. It is also used outside of MPL so use with caution.

Example:

AllowArrow := True
ReadKey

This function accepts a bit position and checks it against an integer, returning true or false if the bit is on. So for example in the Records, the third bit in UserFlags is UserDeleted:

GetThisUser
If BitCheck(3, UserFlags) Then 
  WriteLn('User is marked deleted');

This procedure accepts a bit position and an integer and sets the bit ON/OFF based on a boolean:

GetThisUser
BitSet(3, UserFlags, True);  // user is marked as deleted

This procedure accepts a bit position and an integer and toggles the bit.

GetThisUser
BitToggle(3, UserFlags);  // undeletes if they are deleted or deletes if
                          // they are not deleted.

This function will clear the screen. Example:

CLRSCR
Writeln ('The screen was just cleared.')

The above function will clear the screen and write the text “The screen was just cleared.” to the screen.

This function takes a MM/DD/YY format date and converts it to DOS packed datetime format.

Var DStr : String = '01/01/14'
Var PDt  : LongInt

PDt := Date2Dos(DStr)

This function takes a MM/DD/YY format date and converts it to a Julian date format.

This function takes a gregorian date format (MMDDYY) and converts it to a Julian format

This function takes a julian date format and converts it to a gregorian format (MMDDYY).