mIRC Home    About    Download    Register    News    Help

Print Thread
Joined: Mar 2004
Posts: 11
Pikka bird
OP Offline
Pikka bird
Joined: Mar 2004
Posts: 11
{$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.

Joined: Nov 2003
Posts: 2,327
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
maybe saying what it's meant to do and which part isn't working?


New username: hixxy
Joined: Mar 2004
Posts: 11
Pikka bird
OP Offline
Pikka bird
Joined: Mar 2004
Posts: 11
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...

Last edited by Jack4Jill2chill; 12/03/04 11:35 AM.
Joined: Nov 2003
Posts: 2,327
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
well i don't actually know pascal, just thought it might help if you posted that wink


New username: hixxy
Joined: Mar 2004
Posts: 11
Pikka bird
OP Offline
Pikka bird
Joined: Mar 2004
Posts: 11
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

Last edited by Jack4Jill2chill; 12/03/04 01:06 PM.
Joined: Jan 2004
Posts: 79
C
Babel fish
Offline
Babel fish
C
Joined: Jan 2004
Posts: 79
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!
Joined: Jan 2003
Posts: 2,523
Q
Hoopy frood
Offline
Hoopy frood
Q
Joined: Jan 2003
Posts: 2,523
How is this related to mIRC?


/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com
Joined: Jan 2004
Posts: 79
C
Babel fish
Offline
Babel fish
C
Joined: Jan 2004
Posts: 79
in no way smirk


My ally is the compiler, and a powerful ally it is!
Joined: Mar 2004
Posts: 11
Pikka bird
OP Offline
Pikka bird
Joined: Mar 2004
Posts: 11
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:-)

Joined: Nov 2003
Posts: 2,327
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
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
Joined: Jan 2004
Posts: 79
C
Babel fish
Offline
Babel fish
C
Joined: Jan 2004
Posts: 79
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!
Joined: Nov 2003
Posts: 2,327
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
LOL this isn't the general discussion forum smile


New username: hixxy
Joined: Jun 2003
Posts: 994
C
Hoopy frood
Offline
Hoopy frood
C
Joined: Jun 2003
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
Joined: Jan 2004
Posts: 79
C
Babel fish
Offline
Babel fish
C
Joined: Jan 2004
Posts: 79
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!
Joined: Nov 2003
Posts: 2,327
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
no need to apologise :tongue:


New username: hixxy
Joined: Mar 2004
Posts: 210
F
Fjord artisan
Offline
Fjord artisan
F
Joined: Mar 2004
Posts: 210
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.)

Joined: Mar 2004
Posts: 11
Pikka bird
OP Offline
Pikka bird
Joined: Mar 2004
Posts: 11
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


Joined: Jan 2004
Posts: 79
C
Babel fish
Offline
Babel fish
C
Joined: Jan 2004
Posts: 79
umm what's the problem with the program?


My ally is the compiler, and a powerful ally it is!
Joined: Dec 2003
Posts: 261
M
Fjord artisan
Offline
Fjord artisan
M
Joined: Dec 2003
Posts: 261
Hi, there... it's a bug in TurboPascal 7.0
There's nothing you can do about it... frown


velicha dusha moja Gospoda
Joined: Jan 2004
Posts: 79
C
Babel fish
Offline
Babel fish
C
Joined: Jan 2004
Posts: 79
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!

Link Copied to Clipboard