لینک دانلود Uses Crt پاسکال را بذارید

با سلام .
عزیزان اگر امکان دارد لینک دانلود Uses Crt پاسکال را بذارید .. البته اگه وجود داره !

جدا کسی نداره !!!
اگر میشود یه آدم جوانمردی حداقل این Uses را اپلود کنه

دوست عزیز، حقیقت اینه که بعد از مدتی طولانی دوری از زبان پاسکال، خیلی مطمئن نیستم، ولیاگه منظور شما از Uses، همون فایل crt.int هست که باید در مسیر Turbo Pascal باشه تا بتونین از توابع کتابخانه CRT وعبارت Uses CRT در ابتدای برنامتون استفاده کنین، براتون در این آدرس آپلودش کردم:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ولی قبول دارین که پیدا کردن این فایل بعد از چهار-پنج سال کار نکردن با پاسکال، کار دشواریه!
البته با وجود این، از شانس خوب شما 2 دقیقه بیشتر طول نکشید که تونستم از انبوه فایلهای درهم و برهم پیداش کنم. :happy:

سلام ، آقا اگر خواستی email بده برات بفرستم. من الان Host جایی ندارم که بخوام Uploade کنم.

خب از پاسكال تحت ويندوز استفاده كن كامپايلرش هم سريعتره.
uses هم wincrt است.

متشکرم bithiah . ولی مطمئنی آدرسی که نوشتی درسته !!
از پاسکال تحت ویندوز میخوام استفاده اما خطایی میده که حل نشدنی (نسخه ایی که دارم خرابه )
باز هم متشکرم

نقل قول:

---

نوشته شده توسط MCMan

سلام ، آقا اگر خواستی email بده برات بفرستم. من الان Host جایی ندارم که بخوام Uploade کنم.

---

اگر توی توانت هست برام بفرست .

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط babi

متشکرم bithiah . ولی مطمئنی آدرسی که نوشتی درسته !!
از پاسکال تحت ویندوز میخوام استفاده اما خطایی میده که حل نشدنی (نسخه ایی که دارم خرابه )
باز هم متشکرم

---

بله دوست عزیز مطمئنم که درسته.
تمام محتویات این فایل هم به شرح زیره، می تونی یه فایل بهمین نام بسازی و اینو درش Paste کنی:

کد:

---

{*******************************************************}
{                                                      }
{      Turbo Pascal Version 7.0                        }
{      CRT Interface Unit                              }
{                                                      }
{      Copyright (C) 1988,92 Borland International    }
{                                                      }
{*******************************************************}

unit Crt;

{$D-,I-,S-}

interface

const

{ CRT modes }

  BW40          = 0;            { 40x25 B/W on Color Adapter }
  CO40          = 1;            { 40x25 Color on Color Adapter }
  BW80          = 2;            { 80x25 B/W on Color Adapter }
  CO80          = 3;            { 80x25 Color on Color Adapter }
  Mono          = 7;            { 80x25 on Monochrome Adapter }
  Font8x8      = 256;          { Add-in for ROM font }

{ Mode constants for 3.0 compatibility }

  C40          = CO40;
  C80          = CO80;

{ Foreground and background color constants }

  Black        = 0;
  Blue          = 1;
  Green        = 2;
  Cyan          = 3;
  Red          = 4;
  Magenta      = 5;
  Brown        = 6;
  LightGray    = 7;

{ Foreground color constants }

  DarkGray      = 8;
  LightBlue    = 9;
  LightGreen    = 10;
  LightCyan    = 11;
  LightRed      = 12;
  LightMagenta  = 13;
  Yellow        = 14;
  White        = 15;

{ Add-in for blinking }

  Blink        = 128;

var

{ Interface variables }

  CheckBreak: Boolean;    { Enable Ctrl-Break }
  CheckEOF: Boolean;      { Enable Ctrl-Z }
  DirectVideo: Boolean;  { Enable direct video addressing }
  CheckSnow: Boolean;    { Enable snow filtering }
  LastMode: Word;        { Current text mode }
  TextAttr: Byte;        { Current text attribute }
  WindMin: Word;          { Window upper left coordinates }
  WindMax: Word;          { Window lower right coordinates }

{ Interface procedures }

procedure AssignCrt(var F: Text);
function KeyPressed: Boolean;
function ReadKey: Char;
procedure TextMode(Mode: Integer);
procedure Window(X1,Y1,X2,Y2: Byte);
procedure GotoXY(X,Y: Byte);
function WhereX: Byte;
function WhereY: Byte;
procedure ClrScr;
procedure ClrEol;
procedure InsLine;
procedure DelLine;
procedure TextColor(Color: Byte);
procedure TextBackground(Color: Byte);
procedure LowVideo;
procedure HighVideo;
procedure NormVideo;
procedure Delay(MS: Word);
procedure Sound(Hz: Word);
procedure NoSound;

---

يك سري به [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] بزن.

نقل قول:

---

نوشته شده توسط bithiah

بله دوست عزیز مطمئنم که درسته.
تمام محتویات این فایل هم به شرح زیره، می تونی یه فایل بهمین نام بسازی و اینو درش Paste کنی:
[/CODE]

---

این اطلاعات را که گفتی با نام Crt.int ذخیره کنم ؟ بعد مشکل حل میشه ؟
این فایل را ویندوز که نمیشناسه .. درسته؟ ... توربو پاسکال چطور؟
متشکرم