КАк переевести с Паскаля на Бейсик :

Uses Dos,CRT;

Var
data:byte; {переменная DATA типа byte}

Begin
Readln(data); {читаем переменную - ввод энтером}
Port[MemW[$0040:$0008]:=data; {посылаем в порт}
End.

А где тогда скочать Pascal ???