با هزینه ای اندکی شما میتونید فایل (استفاده از Mouse در محيط گرافيك) را تهیه کنید.

قسمتی از متن :

‏ 

‏آموزش محیط گرافیکی در توربو‏ ‏ پاسکال 7 (قسمت دوم)

‏دستور کار آزمایشگاه کامپیوتر مهندس عبدالجوادی

‏ 

‏استفاده از Mouse‏ در محيط گرافيك :

‏براي استفاده از Mouse‏ در محيط گرافيكي بايد وقفه مربوط به فعالسازي Mouse‏ را فراخواني كنيم . اين وقفه 33Hex‏ (هگزادسيمال) نام دارد و شامل يكسري توابع است كه هر تابع با يك شماره مشخص شده و كاربرد خاصي دارد . هركدام از توابع مذكور داراي ثباتهاي ورودي و خروجي هستند . ثباتهاي ورودي بايد قبل از فراخواني وقفه مقدار دهي شوند تا وقفه عمل مورد نظر ما را انجام دهد و ثباتهاي خروجي نتايج اجراي وقفه را برمي گردانند .

‏ ‏تابع 00Hex‏ از وقفه 33Hex‏ :

‏اين تابع اعمال زير را انجام مي دهد :

‏1- ‏پارامترهاي Mouse‏ را با مقادير پيش فرض Set‏ مي كند .

‏2- ‏اشاره گر Mouse‏ را به مركز صفحه منتقل مي كند .

‏ثبات ورودي :

Ax := 0 ;

‏ثبات خروجي :

‏درايور Mouse‏ نصب شده است‏ .‏                                                                  ‏ Ax‏ = ffff Hex

‏درايور Mouse‏ ‏نصب نشده است .‏                                                              ‏ Ax = 0000 Hex‏ ‏

‏تعداد كليد هاي Mouse‏ را مشخص مي كند .‏                              ‏                                 ‏ Bx = 3

function mreset:integer;

var i:integer;

begin

  asm;‏{ ‏اين دستور براي نوشتن دستورات اسمبلي بكار مي رود .‏ }

    mov ax,0;

تصاویری از چند صفحه نخست فایل :

توجه فرمایید بدلیل تهیه ی تصویر با نرم افزار های خارجی متن نمایش داده شده در تصاویر ممکن است دارای اشکالاتی در نمایش برخی حروف باشد که در فایل اصلی بدون مشکل است