the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
system;
type
Integer = integer;
LongInt = integer;
LongWord = integer;
Cardinal = integer;
PtrInt = integer;
Word = integer;
Byte = integer;
SmallInt = integer;
ShortInt = integer;
QWord = integer;
GLInt = integer;
GLUInt = integer;
pointer = pointer;
PChar = pointer;
float = float;
double = float;
real = float;
extended = float;
GLFloat = float;
boolean = boolean;
LongBool = boolean;
string = string;
shortstring = string;
ansistring = string;
char = char;
PByte = ^Byte;
PLongInt = ^LongInt;
PLongWord = ^LongWord;
PInteger = ^Integer;
Handle = integer;
stderr = Handle;
var
false, true: boolean;
write, writeLn, read, readLn, inc, dec: procedure;
StrLen, ord, Succ, Pred : function : integer;
Low, High : function : integer;
Now : function : integer;
Length : function : integer;
StrPas, FormatDateTime : function : shortstring;
exit : procedure;