mIRC Home    About    Download    Register    News    Help

Topic Options
#74796 - 11/03/04 07:26 AM The Pascal problemo Program is here
Jack4Jill2chill Offline
Pikka bird

Registered: 09/03/04
Posts: 11
Loc: India
{$M $450,0,0}
uses crt,dos;
label
main,endpro,output,message,startmessage,
speedselect,fileiput,dosshell,start;
var
s:array[1..14] of string[76];
pause,x,y,i,b:integer;
s1:string[1];
ch:char;
procedure color(a,b:integer);
begin
textcolor(a);
textbackground(b);
end;
procedure di;
begin
port[$378]:=2;
delay(pause);
port[$378]:=0;
delay(pause);
end;
procedure da;
begin
port[$378]:=2;
delay(pause*3);
port[$378]:=0;
delay(pause);
end;
begin
pause:=100;
START:
clrscr;
color(11,1);
gotoxy(15,4);
write('Chandigarh college of Chandigarh-160026');
gotoxy(1,7);
color(10,3);
gotoxy(10,18);
write('======================');
gotoxy(10,19);
write('F1=Increase Speed ');
gotoxy(10,20);
write('F2=Decrease Speed ');
gotoxy(10,21);
write('F3=Output to Device ');
gotoxy(10,22);
write('F4=Message Input ');
gotoxy(10,23);
write('F5=Dos Shell ');
gotoxy(10,24);
write('F6=Quit ');
gotoxy(10,25);
write('======================');
color(14,1);
gotoxy(25,2);
write('Programmed by');
gotoxy(21,3);
write('Blulehzar');
color(10,3);
gotoxy(26,17);
write('CONTROLS');
gotoxy(35,19);
write('SPEED');
color(10,3);
gotoxy(35,20);
write(pause);
MAIN:
window(1,1,80,25);
gotoxy(2,25);
color(0,7);
write('Waiting for the command......');
ch:=readkey;
if ch=#0 then
begin
ch:=readkey;
if(ch=#59)or(ch=#60) then goto speedselect else
if ch=#61 then goto output else
if ch=#62 then goto startmessage else
if ch=#63 then goto dosshell else
if ch=#64 then goto endpro;
end;
goto main;
STARTMESSAGE:
begin
gotoxy(2,25);
write('Enter the message and press ENTER KEY...');
color(12,1);
window(3,2,78,15);
clrscr;
for x:=1 to 14 do s[x]:='';
i:=0;x:=1;y:=1;b:=0;
end;
MESSAGE:
begin
x:=wherex;
y:=wherey;
ch:=readkey;
if ch=#13 then goto main;
if ch=#8 then
begin
if x=1 then
begin
if y=1 then goto message;
y:=y-1;
x:=76;
end
else
x:=x-1;
delete(s[y],length(s[y]),1);
gotoxy(x,y);
write('');
gotoxy(x,y);
goto message;
end;
if (x=76) and (y=14) then goto message;
write(ch);
s[y]:=(s[y]+ch);
goto message;
end;
OUTPUT:
begin gotoxy(2,25);
write('Sending output to the Morse Device ...Press any key to Stop...');
color(12,1);
window(3,2,78,15);
clrscr;
for i:=1 to y do
begin
for x:=1 to length(s[i]) do
begin
s1:=(copy(s[i],x,1));
ch:=upcase(s1[1]);
delay(pause*2);
write(ch);
if ch='A' then begin di; da; end else
if ch='B' then begin da; di; di; di; end else
if ch='C' then begin da; di; da; di; end else
if ch='D' then begin da; di; di; end else
if ch='E' then begin di; end else
if ch='F' then begin di; di; da; di; end else
if ch='G' then begin da; da; di; end else
if ch='H' then begin di; di; di; di; end else
if ch='I' then begin di; di; end else
if ch='J' then begin di; da; da; da; end else
if ch='K' then begin da; di; da; end else
if ch='L' then begin di; da; di; di; end else
if ch='M' then begin da; da; end else
if ch='N' then begin da; di; end else
if ch='O' then begin da; da; da; end else
if ch='P' then begin di; da; da; di; end else
if ch='Q' then begin da; da; di; da; end else
if ch='R' then begin di; da; di; end else
if ch='S' then begin di; di; di; end else
if ch='T' then begin da; end else
if ch='U' then begin di; di; da; end else
if ch='V' then begin di; di; di; da; end else
if ch='W' then begin di; da; da; end else
if ch='X' then begin da; di; di; da; end else
if ch='Y' then begin da; di; da; da; end else
if ch='Z' then begin da; da; di; di; end else
if ch='1' then begin di; da; da; da; da; end else
if ch='2' then begin di; di; da; da; da; end else
if ch='3' then begin di; di; di; da; da; end else
if ch='4' then begin di; di; di; di; da; end else
if ch='5' then begin di; di; di; di; di; end else
if ch='6' then begin da; di; di; di; di; end else
if ch='7' then begin da; da; di; di; di; end else
if ch='8' then begin da; da; da; di; di; end else
if ch='9' then begin da; da; da; da; di; end else
if ch='0' then begin da; da; da; da; da; end else
if ch='.' then begin di; da; di; da; di; da; end else
if ch=';' then begin da; di; da; di; da; di; end else
if ch=':' then begin da; da; da; di; di; di; end else
if ch=',' then begin da; da; di; di; da; da; end else
if ch='"' then begin di; da; di; di; da; di; end else
if ch='?' then begin di; di; da; da; di; di; end else
if ch='-' then begin da; di; di; di; di; da; end else
if ch='_' then begin di; di; da; da; di; da; end else
if ch='/' then begin da; di; di; da; di; end else
if(ch=#39)or(ch=#96) then begin di; da; da; da; da; di; end else
if(ch='(')or(ch=')') then begin da; di; da; da; di; da; end else
if ch=' ' then delay(pause*6);
if keypressed then goto main;
end;
end;
goto main;
end;
SPEEDSELECT:
begin
if(ch=#59)and(pause>50) then pause:=pause+2;
if(ch=#60)and(pause<190) then pause:=pause-2;
color(10,3);
gotoxy(35,20);
writeln(pause,' ');
goto main;
end;
DOSSHELL:
begin
color(7,0);
clrscr;
writeln('Type EXIT to return to programme.....');
swapvectors;
exec(getenv('comspec'),'');
swapvectors;
goto start;
end;
ENDPRO:
color(7,0);
clrscr;
end.

Top
#74797 - 11/03/04 11:07 AM Re: The Pascal problemo Program is here
tidy_trax Offline
Hoopy frood

Registered: 02/11/03
Posts: 2327
maybe saying what it's meant to do and which part isn't working?
_________________________
New username: hixxy

Top
#74798 - 12/03/04 11:01 AM Re: The Pascal problemo Program is here
Jack4Jill2chill Offline
Pikka bird

Registered: 09/03/04
Posts: 11
Loc: India
Hi tidy trax ,
BTW i am using Pascal 7.0.....
the problem is in the IInd Line.
command saying:- " uses crt,dos;"
The error is 200 divsion error.
For more reference follow up the article posterde by me on 9th WIth Topic subject "Pascal Problamo"...
Anywaz thx for reply...


Edited by Jack4Jill2chill (12/03/04 11:35 AM)

Top
#74799 - 12/03/04 12:23 PM Re: The Pascal problemo Program is here
tidy_trax Offline
Hoopy frood

Registered: 02/11/03
Posts: 2327
well i don't actually know pascal, just thought it might help if you posted that wink
_________________________
New username: hixxy

Top
#74800 - 12/03/04 01:05 PM Re: The Pascal problemo Program is here
Jack4Jill2chill Offline
Pikka bird

Registered: 09/03/04
Posts: 11
Loc: India
i got the patch and now is on minewebsite i put the links let us see if this thiing going to work or not....
iff u know some one who know pascal pls fetch help for me ...hey btw reply me iff u know Windows NT net send command

http://www.geocities.com/electronic_munishneo/patch.html


Edited by Jack4Jill2chill (12/03/04 01:06 PM)

Top
#74801 - 12/03/04 01:20 PM Re: The Pascal problemo Program is here
cmad Offline
Babel fish

Registered: 06/01/04
Posts: 79
Loc: Greece
i know pascal smile I don't know how to send signals or such things, but i know the std pascal wink Maybe i can help you.

I'll take a look at the source when I got time
_________________________
My ally is the compiler, and a powerful ally it is!

Top
#74802 - 12/03/04 01:32 PM Re: The Pascal problemo Program is here
qwerty Offline
Hoopy frood

Registered: 07/01/03
Posts: 2523
How is this related to mIRC?
_________________________
/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com

Top
#74803 - 12/03/04 08:45 PM Re: The Pascal problemo Program is here
cmad Offline
Babel fish

Registered: 06/01/04
Posts: 79
Loc: Greece
in no way smirk
_________________________
My ally is the compiler, and a powerful ally it is!

Top
#74804 - 15/03/04 10:55 AM Re: The Pascal problemo Program is here
Jack4Jill2chill Offline
Pikka bird

Registered: 09/03/04
Posts: 11
Loc: India
Hi qwerty,
I tell u what..
Its Like yours hand belongs to your arm and your arm belongs to you...So the pascal promblem belongs to me and i belong to MIRC as i am its registered user.......SO this thing belongs to MIRC also
Moreover Sharing and Finding solutions with Knowledge is the Aim of the Mirc <Well What i got upto now from mine experince>
D0n't mind it dear iff i u find me talkative,....However iff possible, Help with Knowledge
TY
q:-)

Top
#74805 - 15/03/04 11:00 AM Re: The Pascal problemo Program is here
tidy_trax Offline
Hoopy frood

Registered: 02/11/03
Posts: 2327
no, it doesn't belong to mirc, just because you registered mirc doesn't mean you should ask for help with a non mirc related pascal program on a mirc forum.
_________________________
New username: hixxy

Top
#74806 - 15/03/04 01:21 PM Re: The Pascal problemo Program is here
cmad Offline
Babel fish

Registered: 06/01/04
Posts: 79
Loc: Greece
ummmmmmm

Quote:
General Discussion: Use this forum to talk about IRC, mIRC, and other general topics.


"other general topics"...
_________________________
My ally is the compiler, and a powerful ally it is!

Top
#74807 - 15/03/04 01:41 PM Re: The Pascal problemo Program is here
tidy_trax Offline
Hoopy frood

Registered: 02/11/03
Posts: 2327
LOL this isn't the general discussion forum smile
_________________________
New username: hixxy

Top
#74808 - 15/03/04 05:49 PM Re: The Pascal problemo Program is here
CtrlAltDel Offline
Hoopy frood

Registered: 15/06/03
Posts: 994
/me looks at the forum description ...

Development >> Developer Forum

don't see nothing about "General" there blush
_________________________
I refuse to engage in a battle of wits with an unarmed person. wink

Top
#74809 - 15/03/04 08:02 PM Re: The Pascal problemo Program is here
cmad Offline
Babel fish

Registered: 06/01/04
Posts: 79
Loc: Greece
blush man i really dunno where i'm clicking nowadays :P laugh rofl

sorry tidy_trax smile
_________________________
My ally is the compiler, and a powerful ally it is!

Top
#74810 - 15/03/04 09:00 PM Re: The Pascal problemo Program is here
tidy_trax Offline
Hoopy frood

Registered: 02/11/03
Posts: 2327
no need to apologise :tongue:
_________________________
New username: hixxy

Top
#74811 - 16/03/04 05:13 AM Re: The Pascal problemo Program is here
FNar Offline
Fjord artisan

Registered: 14/03/04
Posts: 210
Loc: Long Island, NY, USA
Get rid of:
{$M $450,0,0}
then see if you still have a problem.

Uses shouldn't cause any errors.

(BTW, there are many much simpler Pascal Morse generators.)

Top
#74812 - 16/03/04 07:54 AM Re: The Pascal problemo Program is here
Jack4Jill2chill Offline
Pikka bird

Registered: 09/03/04
Posts: 11
Loc: India
Hi Fnar,
Greetings to you.
Hey buddy i tries that thing but this is still not working iff u have any morse code genrators apart from this then pls send me on or give me a link..
The time is short and mine Project submission date is dear...
But rember it must involve some sort of easy electronics circuit too , to transmit the signals..
Thx for reply
Take care byee


Top
#74813 - 16/03/04 01:16 PM Re: The Pascal problemo Program is here
cmad Offline
Babel fish

Registered: 06/01/04
Posts: 79
Loc: Greece
umm what's the problem with the program?
_________________________
My ally is the compiler, and a powerful ally it is!

Top
#74814 - 17/03/04 12:52 AM Re: The Pascal problemo Program is here
milosh Offline
Fjord artisan

Registered: 24/12/03
Posts: 261
Loc: Srbija
Hi, there... it's a bug in TurboPascal 7.0
There's nothing you can do about it... frown
_________________________
velicha dusha moja Gospoda

Top
#74815 - 17/03/04 05:17 AM Re: The Pascal problemo Program is here
cmad Offline
Babel fish

Registered: 06/01/04
Posts: 79
Loc: Greece
the crt unit? yeah it's not exactly a bug, he/she can d/l the patch for the crt unit.
_________________________
My ally is the compiler, and a powerful ally it is!

Top