Search the web
Sign In
New User? Sign Up
turbopascalprogramming2 · Pascal / Delphi Programming , Mugen ni
? Already a member? Sign in to Yahoo!

Yahoo! Groups Tips

Did you know...
Message search is now enhanced, find messages faster. Take it for a spin.

Best of Y! Groups

   Check them out and nominate your group.
Having problems with message search? Fill out this form to ensure your group is one of the first to be migrated to the new message search system.

Messages

  Messages Help
Advanced
Messages 1288 - 1332 of 1332   Newest  |  < Newer  |  Older >  |  Oldest
Messages: Show Message Summaries   (Group by Topic) Sort by Date v  
#1327 From: "nistelkobi" <nistelkobi@...>
Date: Mon Feb 9, 2009 11:50 am
Subject: Re: /// help me about mouse!!!
nistelkobi
Offline Offline
Send Email Send Email
 
--- In turbopascalprogramming2@yahoogroups.com, Ali Hayati
<alihayati68@...> wrote:
>
> hello
> I have a final project in my first term in the university (I am a
freshman!!!)
> so I have a big problem. I tried to use mouse in my programm but I
couldnt please help me
> best regurds
> ali hayati
>  
>
>
>
>
> [Non-text portions of this message have been removed]
>
Hello,
    you can go to:
    http://www.programmersheaven.com/download/55207/download.aspx
    there is a mouse unit there for graphics mode,
    if you need help on uesing it or converting it to text mode
    you can send me an e-mail : grimkn@...

#1326 From: Glenn <g3po2@...>
Date: Wed Jan 21, 2009 5:14 am
Subject: Re: [TurboPascalProgramming] /// help me about mouse!!!
gordell
Offline Offline
Send Email Send Email
 
The more recent versions of Turbo Pascal for MS-DOS include a rather extensive
library of tools.  Look through that toolbox, and find a module for interfacing
a mouse to a program.

Personally, I've never had the need to interface a mouse into any of my Turbo
programs, and can't provide any particulars.

Aloha from Hawaii,
Glenn

--- On Tue, 1/20/09, Ali Hayati <alihayati68@...> wrote:
From: Ali Hayati <alihayati68@...>
Subject: [TurboPascalProgramming] /// help me about mouse!!!
To: turbopascalprogramming2@yahoogroups.com
Date: Tuesday, January 20, 2009, 5:54 PM











             hello

I have a final project in my first term in the university (I am a freshman!!!)

so I have a big problem. I tried to use mouse in my programm but I
couldnt please help me

best regurds

ali hayati

 



[Non-text portions of this message have been removed]





























[Non-text portions of this message have been removed]

#1325 From: Ali Hayati <alihayati68@...>
Date: Wed Jan 21, 2009 3:54 am
Subject: /// help me about mouse!!!
alihayati68
Online Now Online Now
Send Email Send Email
 
hello
I have a final project in my first term in the university (I am a freshman!!!)
so I have a big problem. I tried to use mouse in my programm but I
couldnt please help me
best regurds
ali hayati
 




[Non-text portions of this message have been removed]

#1324 From: anilms.rm
Date: Tue Jan 13, 2009 4:26 pm
Subject: CodeGear has free versions of Turbo Pascal and Delphi on its site
anilms.rm
Offline Offline
 
http://cc.codegear.com/free/turbo

Check out the various versions of Turbo Delphi and Turbo Pascal on the
site.

#1323 From: John Vesty <javesty@...>
Date: Tue Jan 13, 2009 3:58 pm
Subject: Re: [TurboPascalProgramming] win32 programming
javesty
Offline Offline
Send Email Send Email
 
Glenn

If the postage is a great deal then I'll let you know.

Otherwise email your address to:

javesty@...

Regards

John




________________________________
From: Glenn <g3po2@...>
To: turbopascalprogramming2@yahoogroups.com
Sent: Tuesday, 13 January, 2009 9:16:48
Subject: Re: [TurboPascalProgramming] win32 programming


WOW!!!

Although didn't initidiate the respone to your offer, I would be more than happy
to pay your for postage and handling plus the cost of the disk, in order to
obtain a "free" copy of  Delphi.  I wonder if it looks at all like the original
Turbo Pascal product, which I started programmming with in Verion 2.0; and
eventaully ended up purchasing the final DOS version (virtually unusable on any
of today's computers) some years ago.

I've belonged to this group for som time, and no one with a background in MS-DOS
Turbo Pascal seems to have a clue about Delphi.  I suspect it is mostly Windows
oriented product, and doesn't let us "cut to the chase" of what I would refer to
as "REAL" computer programming.

I'm simply uncofortable with the pull-down menu method of programming.  I like
to be able to bounce back to machine code, when needed...  No longer an option!

So any help would b great!!!

Aloha from Hawaii,
Glenn

--- On Mon, 1/12/09, Raghu S <raghus_delphi@ yahoo.in> wrote:
From: Raghu S <raghus_delphi@ yahoo.in>
Subject: Re: [TurboPascalProgram ming] win32 programming
To: turbopascalprogramm ing2@yahoogroups .com
Date: Monday, January 12, 2009, 9:31 PM

can u please provide me .....

____________ _________ _________ __

From: John Vesty <javesty@yahoo. co.uk>

To: turbopascalprogramm ing2@yahoogroups .com

Sent: Friday, 9 January, 2009 11:26:04 PM

Subject: Re: [TurboPascalProgram ming] win32 programming

To: lanzcc

I may have an old version of Delphi on CD if you are interested. It is

a free copy off the front of a computer magazine. Borland used to do

that with previous versions but I am not sure whether they still do.

If you would like to give me your address I could pop a copy in the post for
you.

I think its Delphi 7 (but I have earlier versions).

Regards

John Vesty

____________ _________ _________ __

From: lanzcc <lanzcc@potsdam. edu>

To: turbopascalprogramm ing2@yahoogroups .com

Sent: Tuesday, 6 January, 2009 20:31:16

Subject: [TurboPascalProgram ming] win32 programming

Greetings,

I use TMT.6 Framework Pascal, and I am just starting to write my first

win32 apps. I know this is a Delphi/turbo group, but a) I used to be

on TurboPascal and b)I can't get useful help anywhere on this topic!

It's amazing!

I can't afford a full Delphi, but I sure need to see code examples in

Pascal, or to find a tutorial (or book) for win32 programming, that's

not 5 years out of date, not in C++, and not game-oriented.

I don't need to do anything fancy - just user-interface dialog boxes

with the usual menus, data-entry panels, output, etc.

PLEASE respond to the group but also cc my private email address

(lanzcc@potsdam. edu) - my university email system has proven flaky

with respect to these groups.

Thanks!

Dr. Christopher C. Lanz, Associate Professor

SUNY  Potsdam

44  Pierrepont  Ave,  Potsdam,  NY   13676

office: 315-267-2464  home:315-268- 1547

fax:315-267- 2413 lanzcc@potsdam. edu

[Non-text portions of this message have been removed]

Add more friends to your messenger and enjoy! Go to http://messenger. yahoo.com/
invite/

[Non-text portions of this message have been removed]











[Non-text portions of this message have been removed]






[Non-text portions of this message have been removed]

#1322 From: Glenn <g3po2@...>
Date: Tue Jan 13, 2009 9:16 am
Subject: Re: [TurboPascalProgramming] win32 programming
gordell
Offline Offline
Send Email Send Email
 
WOW!!!

Although didn't initidiate the respone to your offer, I would be more than happy
to pay your for postage and handling plus the cost of the disk, in order to
obtain a "free" copy of  Delphi.  I wonder if it looks at all like the original
Turbo Pascal product, which I started programmming with in Verion 2.0; and
eventaully ended up purchasing the final DOS version (virtually unusable on any
of today's computers) some years ago.

I've belonged to this group for som time, and no one with a background in MS-DOS
Turbo Pascal seems to have a clue about Delphi.  I suspect it is mostly Windows
oriented product, and doesn't let us "cut to the chase" of what I would refer to
as "REAL" computer programming.

I'm simply uncofortable with the pull-down menu method of programming.  I like
to be able to bounce back to machine code, when needed...  No longer an option!

So any help would b great!!!

Aloha from Hawaii,
Glenn

--- On Mon, 1/12/09, Raghu S <raghus_delphi@...> wrote:
From: Raghu S <raghus_delphi@...>
Subject: Re: [TurboPascalProgramming] win32 programming
To: turbopascalprogramming2@yahoogroups.com
Date: Monday, January 12, 2009, 9:31 PM











             can u please provide me .....



____________ _________ _________ __

From: John Vesty <javesty@yahoo. co.uk>

To: turbopascalprogramm ing2@yahoogroups .com

Sent: Friday, 9 January, 2009 11:26:04 PM

Subject: Re: [TurboPascalProgram ming] win32 programming



To: lanzcc



I may have an old version of Delphi on CD if you are interested. It is

a free copy off the front of a computer magazine. Borland used to do

that with previous versions but I am not sure whether they still do.



If you would like to give me your address I could pop a copy in the post for
you.



I think its Delphi 7 (but I have earlier versions).



Regards



John Vesty



____________ _________ _________ __

From: lanzcc <lanzcc@potsdam. edu>

To: turbopascalprogramm ing2@yahoogroups .com

Sent: Tuesday, 6 January, 2009 20:31:16

Subject: [TurboPascalProgram ming] win32 programming



Greetings,



I use TMT.6 Framework Pascal, and I am just starting to write my first

win32 apps. I know this is a Delphi/turbo group, but a) I used to be

on TurboPascal and b)I can't get useful help anywhere on this topic!

It's amazing!



I can't afford a full Delphi, but I sure need to see code examples in

Pascal, or to find a tutorial (or book) for win32 programming, that's

not 5 years out of date, not in C++, and not game-oriented.



I don't need to do anything fancy - just user-interface dialog boxes

with the usual menus, data-entry panels, output, etc.



PLEASE respond to the group but also cc my private email address

(lanzcc@potsdam. edu) - my university email system has proven flaky

with respect to these groups.



Thanks!



Dr. Christopher C. Lanz, Associate Professor

SUNY  Potsdam

44  Pierrepont  Ave,  Potsdam,  NY   13676

office: 315-267-2464  home:315-268- 1547

fax:315-267- 2413 lanzcc@potsdam. edu



[Non-text portions of this message have been removed]



Add more friends to your messenger and enjoy! Go to http://messenger. yahoo.com/
invite/



[Non-text portions of this message have been removed]





























[Non-text portions of this message have been removed]

#1321 From: Raghu S <raghus_delphi@...>
Date: Tue Jan 13, 2009 7:31 am
Subject: Re: [TurboPascalProgramming] win32 programming
raghus_delphi
Offline Offline
Send Email Send Email
 
can u please provide me .....




________________________________
From: John Vesty <javesty@...>
To: turbopascalprogramming2@yahoogroups.com
Sent: Friday, 9 January, 2009 11:26:04 PM
Subject: Re: [TurboPascalProgramming] win32 programming


To: lanzcc

I may have an old version of Delphi on CD if you are interested. It is
a free copy off the front of a computer magazine. Borland used to do
that with previous versions but I am not sure whether they still do.

If you would like to give me your address I could pop a copy in the post for
you.

I think its Delphi 7 (but I have earlier versions).

Regards

John Vesty

____________ _________ _________ __
From: lanzcc <lanzcc@potsdam. edu>
To: turbopascalprogramm ing2@yahoogroups .com
Sent: Tuesday, 6 January, 2009 20:31:16
Subject: [TurboPascalProgram ming] win32 programming

Greetings,

I use TMT.6 Framework Pascal, and I am just starting to write my first
win32 apps. I know this is a Delphi/turbo group, but a) I used to be
on TurboPascal and b)I can't get useful help anywhere on this topic!
It's amazing!

I can't afford a full Delphi, but I sure need to see code examples in
Pascal, or to find a tutorial (or book) for win32 programming, that's
not 5 years out of date, not in C++, and not game-oriented.

I don't need to do anything fancy - just user-interface dialog boxes
with the usual menus, data-entry panels, output, etc.

PLEASE respond to the group but also cc my private email address
(lanzcc@potsdam. edu) - my university email system has proven flaky
with respect to these groups.

Thanks!

Dr. Christopher C. Lanz, Associate Professor
SUNY  Potsdam
44  Pierrepont  Ave,  Potsdam,  NY   13676
office: 315-267-2464  home:315-268- 1547
fax:315-267- 2413 lanzcc@potsdam. edu

[Non-text portions of this message have been removed]




       Add more friends to your messenger and enjoy! Go to
http://messenger.yahoo.com/invite/

[Non-text portions of this message have been removed]

#1320 From: John Vesty <javesty@...>
Date: Fri Jan 9, 2009 5:56 pm
Subject: Re: [TurboPascalProgramming] win32 programming
javesty
Offline Offline
Send Email Send Email
 
To: lanzcc

I may have an old version of Delphi on CD if you are interested. It is
a free copy off the front of a computer magazine. Borland used to do
that with previous versions but I am not sure whether they still do.

If you would like to give me your address I could pop a copy in the post for
you.

I think its Delphi 7 (but I have earlier versions).

Regards

John Vesty




________________________________
From: lanzcc <lanzcc@...>
To: turbopascalprogramming2@yahoogroups.com
Sent: Tuesday, 6 January, 2009 20:31:16
Subject: [TurboPascalProgramming] win32 programming


Greetings,

I use TMT.6 Framework Pascal, and I am just starting to write my first
win32 apps. I know this is a Delphi/turbo group, but a) I used to be
on TurboPascal and b)I can't get useful help anywhere on this topic!
It's amazing!

I can't afford a full Delphi, but I sure need to see code examples in
Pascal, or to find a tutorial (or book) for win32 programming, that's
not 5 years out of date, not in C++, and not game-oriented.

I don't need to do anything fancy - just user-interface dialog boxes
with the usual menus, data-entry panels, output, etc.

PLEASE respond to the group but also cc my private email address
(lanzcc@potsdam. edu) - my university email system has proven flaky
with respect to these groups.

Thanks!

Dr. Christopher C. Lanz, Associate Professor
SUNY  Potsdam
44  Pierrepont  Ave,  Potsdam,  NY   13676
office: 315-267-2464  home:315-268- 1547
fax:315-267- 2413 lanzcc@potsdam. edu






[Non-text portions of this message have been removed]

#1319 From: "Marc Chavez" <mcchavez@...>
Date: Wed Jan 7, 2009 2:44 am
Subject: Re: win32 programming
mchavez56
Offline Offline
Send Email Send Email
 
I wish I could help but...I can't.

The group is almost dead and I joined a while ago just learning
programing as a hobby.

Have you been to borlands website. buried deep inside they used to
have some T.P. examples.

Good Luck

  Marc

--- In turbopascalprogramming2@yahoogroups.com, "lanzcc" <lanzcc@...>
wrote:
>
> Greetings,
>
> I use TMT.6 Framework Pascal, and I am just starting to write my
first
> win32 apps. I know this is a Delphi/turbo group, but a) I used to be
> on TurboPascal and b)I can't get useful help anywhere on this topic!
> It's amazing!
>
> I can't afford a full Delphi, but I sure need to see code examples
in
> Pascal, or to find a tutorial (or book) for win32 programming,
that's
> not 5 years out of date, not in C++, and not game-oriented.
>
> I don't need to do anything fancy - just user-interface dialog boxes
> with the usual menus, data-entry panels, output, etc.
>
> PLEASE respond to the group but also cc my private email address
> (lanzcc@...) - my university email system has proven flaky
> with respect to these groups.
>
> Thanks!
>
> Dr. Christopher C. Lanz, Associate Professor
> SUNY  Potsdam
> 44  Pierrepont  Ave,  Potsdam,  NY   13676
> office: 315-267-2464  home:315-268-1547
> fax:315-267-2413     lanzcc@...
>

#1318 From: "lanzcc" <lanzcc@...>
Date: Tue Jan 6, 2009 8:31 pm
Subject: win32 programming
lanzcc
Offline Offline
Send Email Send Email
 
Greetings,

I use TMT.6 Framework Pascal, and I am just starting to write my first
win32 apps. I know this is a Delphi/turbo group, but a) I used to be
on TurboPascal and b)I can't get useful help anywhere on this topic!
It's amazing!

I can't afford a full Delphi, but I sure need to see code examples in
Pascal, or to find a tutorial (or book) for win32 programming, that's
not 5 years out of date, not in C++, and not game-oriented.

I don't need to do anything fancy - just user-interface dialog boxes
with the usual menus, data-entry panels, output, etc.

PLEASE respond to the group but also cc my private email address
(lanzcc@...) - my university email system has proven flaky
with respect to these groups.

Thanks!

Dr. Christopher C. Lanz, Associate Professor
SUNY  Potsdam
44  Pierrepont  Ave,  Potsdam,  NY   13676
office: 315-267-2464  home:315-268-1547
fax:315-267-2413     lanzcc@...

#1316 From: "Marc Chavez" <mcchavez@...>
Date: Sun Nov 30, 2008 11:58 pm
Subject: how about we delete the porn and maybe even talk about pascal?
mchavez56
Offline Offline
Send Email Send Email
 
Now I'm all for naked women, but not here.

moderator or Owner are you still around could you delete the last few
posts concerned with girls

Thanks

Marc

#1307 From: Kobi Nistel <nistelkobi@...>
Date: Wed Sep 19, 2007 2:19 pm
Subject: Re: [TurboPascalProgramming] A question...
nistelkobi
Offline Offline
Send Email Send Email
 
hi
   I have been programing in TP for a long time
   if you wanna shere wisdom I will be gald
   you can take a look at one of my games at
   http://www.caiman.us/scripts/fw/f2911.html

   bye
     kobi


---------------------------------
Building a website is a piece of cake.
Yahoo! Small Business gives you all the tools to get online.

[Non-text portions of this message have been removed]

#1306 From: "Glenn" <g3po2@...>
Date: Sat Sep 15, 2007 4:26 am
Subject: A question...
gordell
Offline Offline
Send Email Send Email
 
Yes, there are very few posts at this group.

In the past, I've asked the same question, but no one has ever
provided a reply.  Perhaps I wasn't specific enough, so I will attempt
to outline my "problem" once more.

I reviewed Turbo Pascal version 1.0 when it first came out, and
decided to stick with UCSD Pascal, a now-defunct language which
quickly died on the vine due to the outrageous royalty fees asked for
by the UCSD board of directors.

When Vs. 2.0 came out, I switched to it, and continued to upgrade
until version number last hit the streets.  I originally started
program in a little known Pascal language years before the Pc was
invented.  I was programming in TPL under the DX10 operating system
which was a proprietary product of Texas Instruments, back in the days
when they actually manufactured mini-computers and even mainframes.  I
was blessed owning a mini, with 64K of RAM and two 8" floppy drives (2
megs per disk.)  An optional 5 Meg hard drive was available for a mere
$25,000, which included an air conditioned cabinet!!!

TPL was a language that came with an extensive library of routines,
which greatly simplified programming tasks.  After the demise of Texas
Instruments computer division, I hired a junior programmer, and
together, we created a very rich library of sub-routines for Turbo
Pascal 2.0  Granted, many of the ideas were not original, as they came
right out of the TPL play book.  Many of my ideas were subsequently
incorporated in Turbo Pascal, because I freely shared them with anyone
interested.

But much to my surprise, the bottom fell out, and Turbo Pascal
essentially ceased to exist.  Windows took over the marketplace, and
DOS based programs were dismissed, or even impossible to run on a
Windows computer, even in a MS-DOS window.

So now we get down to my ultimate question: It seems that Delphi is
the replacement product for Turbo Pascal.  I am seeking someone who
had at least some moderate level of knowledge and skill in Turbo
Pascal, and is currently writing code in the greatest and latest
Borland programming language.

Sadly enough, I have yet to find such a person.

By the way, I did write a few CAD/CAM programs using an old MS-DOS Pc
running 6.22, along with Turbo Pascal, version last.  These were
"proof of concept" programs that I later paid someone to "translate"
into more modern languages that did not use a Pc, or Pascal.  They
were written in "Forth", and language that goes way beyond anything I
would care to even begin to understand (reverse Polish logic, etc.)

As I see it, the biggest problem with Windows applications, at least
in terms of active CAD/CAM applications, is that it won't run in real
time.  Example: if I have a piece of material rotating on a lathe, I
can't trust Windows to remember that it's top priority is my work
piece.  I don't need it to go into hybernation mode, or start
downloading an update at a critical juncture in my process.

So can Delphi, or whatever Borland has to offer these days, get around
this issue?

For that matter, has anyone in this forum ever even wrote some code
using Delphi?

Any insights would be greatly appreciated.

Aloha from Hawaii,
Glenn

#1305 From: lithium381
Date: Sat Sep 15, 2007 12:50 am
Subject: Welcome All new members
lithium381
Offline Offline
 
Over the past few months, we've been getting more and more membership,
but i've noticed very few posts, don't be afraid to post here with
questions or comments, or to share code.   Welcome to the club and i
hope this can be a mutual benefit for eveyone

#1304 From: "bozkurtsahin" <bozkurtsahin@...>
Date: Tue Mar 27, 2007 8:22 am
Subject: Re: Free Pascal Compiler / how to get it
bozkurtsahin
Offline Offline
Send Email Send Email
 
--- In turbopascalprogramming2@yahoogroups.com, "ronimav"
<ronimav@...> wrote:
>
> Hi everyone, i need someone who knows a site that is dedicated to
> providing free pascal compilers, that have ASM abilities.
>

#1303 From: "ronimav" <ronimav@...>
Date: Wed Mar 14, 2007 8:44 am
Subject: Free Pascal Compiler / how to get it
ronimav
Offline Offline
Send Email Send Email
 
Hi everyone, i need someone who knows a site that is dedicated to
providing free pascal compilers, that have ASM abilities.

#1301 From: therealbrute
Date: Mon Feb 19, 2007 1:11 pm
Subject: Keeping Pascal Alive?
therealbrute
Offline Offline
 
to me it didn't die, just slowly fading away....



naaahhhh,   it will not fade away....

for all ya scientiest, engineers, astronomers and developers:

thanks for using pascal... the most elegant and structured language

#1300 From: "javesty" <javesty@...>
Date: Tue Feb 6, 2007 9:27 pm
Subject: Re: Keeping Pascal alive... Microprogramming in Pascal
javesty
Offline Offline
Send Email Send Email
 
Lithium381,

Thanks for the link to www.mikroe.com

Looks promising

John Vesty

#1299 From: lithium381
Date: Tue Feb 6, 2007 8:12 pm
Subject: [TurboPascalProgramming] Re: Keeping Pascal alive...
lithium381
Offline Offline
 
Since you made this in reply to the thread on microprocessors, i
assume you're talking about MCU projects...., the site i listed in the
previous post has C interepreters available for a variety of chips....

Program Hello
Begin
  writeln("Hello");
  readln( );
{ i can't remember if you MUST read to a string, or
                           if you can read to the null device, i
haven't reloaded it since i reformated my HD}
end.




--- In turbopascalprogramming2@yahoogroups.com, robert ryan
<jaacckkee@...> wrote:
>
> i am interested in proejcts that go from Pascal to C
> to C++.  I don't remeber too much Pascal, so i might
> need some help, such as
>
> Program hello
>      writeln "Hello";
>      readln   " ";
> end.
>
> #include <stdio.h>
> int main() {
>     println("Hello");
> return 0;
> }
>
> #include "std_lib_facilities.h"
>     cout << "Hello";
> return 0;
> }
>
> --- John Vesty <javesty@...> wrote:
>
> > Hi Lithium
> >
> >   I would be interested in the version of Pascal for
> > micro-controller projects. Is it free?
> >
> >   Regards
> >
> >   John V.
> >
> > lithium381 <no_reply@yahoogroups.com> wrote:
> >           Aye aye! Long live Pascal! I've recently
> > gotten the idea in my head
> > to do some micro-controller projects...normally
> > those use ASM or a
> > form of it...i don't know ASM...(though i would like
> > to learn) but i
> > found a pascal interepreter for it!!! YES!!! So,
> > I'll post some
> > projects and such if i get around to building them,
> > i have other
> > projects i'm working on that i really need to finish
> > first....FM
> > transmiter, stepper motor control(probably first
> > project with
> > microcontrollers) an R/C car from scratch etc......
> > why, becuase i
> > can! See y'all next time
> >
> > -Lithium
> >
> >
> >
> >
> >
> >
> > ---------------------------------
> >  What kind of emailer are you? Find out today - get
> > a free analysis of your email personality. Take the
> > quiz at the Yahoo! Mail Championship.
> >
> > [Non-text portions of this message have been
> > removed]
> >
> >
>
>
>
>
>
________________________________________________________________________________\
____
> Expecting? Get great news right away with email Auto-Check.
> Try the Yahoo! Mail Beta.
> http://advision.webevents.yahoo.com/mailbeta/newmail_tools.html
>

#1298 From: lithium381
Date: Tue Feb 6, 2007 5:22 am
Subject: [TurboPascalProgramming] Re: Keeping Pascal alive...
lithium381
Offline Offline
 
There is a demo version available, it's limited, but it's at
www.mikroe.com     they have chips there, development boards, and
quite a bit of documentation(though they do commit spelling errors and
such, being from looks like russia....)   have  a look around, if you
find anything interesting let me know.   there is a version for the
PIC boards, and dsPIC boards, and one other i can't remember right now.

--- In turbopascalprogramming2@yahoogroups.com, John Vesty
<javesty@...> wrote:
>
> Hi Lithium
>
>   I would be interested in the version of Pascal for
micro-controller projects. Is it free?
>
>   Regards
>
>   John V.
>
> lithium381 <no_reply@yahoogroups.com> wrote:
>           Aye aye! Long live Pascal! I've recently gotten the idea
in my head
> to do some micro-controller projects...normally those use ASM or a
> form of it...i don't know ASM...(though i would like to learn) but i
> found a pascal interepreter for it!!! YES!!! So, I'll post some
> projects and such if i get around to building them, i have other
> projects i'm working on that i really need to finish first....FM
> transmiter, stepper motor control(probably first project with
> microcontrollers) an R/C car from scratch etc...... why, becuase i
> can! See y'all next time
>
> -Lithium
>
>
>
>
>
>
> ---------------------------------
>  What kind of emailer are you? Find out today - get a free analysis
of your email personality. Take the quiz at the Yahoo! Mail Championship.
>
> [Non-text portions of this message have been removed]
>

#1297 From: robert ryan <jaacckkee@...>
Date: Mon Feb 5, 2007 6:30 pm
Subject: Re: [TurboPascalProgramming] Re: Keeping Pascal alive...
jaacckkee
Offline Offline
Send Email Send Email
 
i am interested in proejcts that go from Pascal to C
to C++.  I don't remeber too much Pascal, so i might
need some help, such as

Program hello
      writeln "Hello";
      readln   " ";
end.

#include <stdio.h>
int main() {
     println("Hello");
return 0;
}

#include "std_lib_facilities.h"
     cout << "Hello";
return 0;
}

--- John Vesty <javesty@...> wrote:

> Hi Lithium
>
>   I would be interested in the version of Pascal for
> micro-controller projects. Is it free?
>
>   Regards
>
>   John V.
>
> lithium381 <no_reply@yahoogroups.com> wrote:
>           Aye aye! Long live Pascal! I've recently
> gotten the idea in my head
> to do some micro-controller projects...normally
> those use ASM or a
> form of it...i don't know ASM...(though i would like
> to learn) but i
> found a pascal interepreter for it!!! YES!!! So,
> I'll post some
> projects and such if i get around to building them,
> i have other
> projects i'm working on that i really need to finish
> first....FM
> transmiter, stepper motor control(probably first
> project with
> microcontrollers) an R/C car from scratch etc......
> why, becuase i
> can! See y'all next time
>
> -Lithium
>
>
>
>
>
>
> ---------------------------------
>  What kind of emailer are you? Find out today - get
> a free analysis of your email personality. Take the
> quiz at the Yahoo! Mail Championship.
>
> [Non-text portions of this message have been
> removed]
>
>




________________________________________________________________________________\
____
Expecting? Get great news right away with email Auto-Check.
Try the Yahoo! Mail Beta.
http://advision.webevents.yahoo.com/mailbeta/newmail_tools.html

#1296 From: John Vesty <javesty@...>
Date: Mon Feb 5, 2007 9:58 am
Subject: Re: [TurboPascalProgramming] Re: Keeping Pascal alive...
javesty
Offline Offline
Send Email Send Email
 
Hi Lithium

   I would be interested in the version of Pascal for micro-controller projects.
Is it free?

   Regards

   John V.

lithium381 <no_reply@yahoogroups.com> wrote:
           Aye aye! Long live Pascal! I've recently gotten the idea in my head
to do some micro-controller projects...normally those use ASM or a
form of it...i don't know ASM...(though i would like to learn) but i
found a pascal interepreter for it!!! YES!!! So, I'll post some
projects and such if i get around to building them, i have other
projects i'm working on that i really need to finish first....FM
transmiter, stepper motor control(probably first project with
microcontrollers) an R/C car from scratch etc...... why, becuase i
can! See y'all next time

-Lithium






---------------------------------
  What kind of emailer are you? Find out today - get a free analysis of your
email personality. Take the quiz at the Yahoo! Mail Championship.

[Non-text portions of this message have been removed]

#1295 From: lithium381
Date: Mon Feb 5, 2007 1:31 am
Subject: Re: Keeping Pascal alive...
lithium381
Offline Offline
 
Aye aye!  Long live Pascal!  I've recently gotten the idea in my head
to  do some micro-controller projects...normally those use ASM or a
form of it...i don't know ASM...(though i would like to learn)  but i
found a pascal interepreter for it!!!  YES!!!   So, I'll post some
projects and such if i get around to building them, i have other
projects i'm working on that i really need to finish first....FM
transmiter, stepper motor control(probably first project with
microcontrollers) an R/C car from scratch etc......    why, becuase i
can!    See y'all next time

-Lithium

#1294 From: George Melas <wizyogo@...>
Date: Tue Jan 9, 2007 4:16 pm
Subject: Re: [TurboPascalProgramming] Keeping Pascal alive...
wizyogo
Offline Offline
Send Email Send Email
 
A coder named Sergio (University of Madrid) wrote a patch / modified the
compiler and I can now run all of my Borland Turbo Pascal v.7 programs under
Windows XP Professional. He also wrote a Unit for printing; it also prints the
screen (*.bmp / *.jpg). Hope this helps ... Regards, George


----- Original Message ----
From: Nicky <rnmclean@...>
To: turbopascalprogramming2@yahoogroups.com
Sent: Sunday, 7 January, 2007 11:43:27 AM
Subject: [TurboPascalProgramming] Keeping Pascal alive...

I still use Turbo Pascal, as when some data is to be assaulted in a way too
tedious or tricky or risky for a text editor session (even if it has its own
scripting language, usually weird) and so worthy of a simple special-purpose
programme. I still find use for a file comparison prog. supplied by Byte
Magazine in 1988 (M.J. Mefford) and the old List prog. since both really do show
what is in the file. Many modern progs. are ambiguous over tabs, spaces,
trailing spaces, etc.
I use TP7b, the "b" because I have made the patch offered via some web sites
that adjusts the calibration of TP's "delay" feature to succeed without a divide
by zero (which happens on any cpu faster than about 250MHz), though it doesn't
deal very well with long file names. I have found a Free Pascal from Berczi
Gabor, Pierre Muller and Peter Vreman, and a Virtual Pascal via vpascal.com,
which offer much the same interface as TP7 but alas haven't had much time to
investigate the opportunities. The FreePascal does handle long file names, so
that's one problem solved, however the code file for small progs. is about five
times the size of that from TP7! It also handles the waiting for a keystroke
better: tp7 seems to generate a loop continuously testing for a keypress,
consuming cpu time that I'd rather went to the Climate Prediction cruncher, etc.
The main problem is that my more interesting progs. in Pascal all involve
graphics, and the .bgi interface has long since been left behind by more recent
screen sizes and the notion of windows within the screen not controlled by the
Pascal prog. Re-jiggering them to work in Delphi would require some time, nor
have I found the time to mess with whatever is offered by FreePascal and
VirtualPascal.
I started with TP3, following a colleague who used it more extensively. The
first prog. was to adjust a file so that the sequence 0<FormFeed> became
<CR><LF> because a Landis&Gyr data logger terminated records with a form feed
character (one record, if printed, would consume most of a page), but the DOS
system of course uses <CR><LF> to mark the end of a record. Since before the
FormFeed was a field that was always zero, one digit could be sacrificed and the
file zapped without the tedium of copy, delete, rename. So much for work. Our
next prog. was a collaboration on the notorious Mandelbrot crunch. That was when
340 dots to a line was regarded as high resolution. Even with a most cunningly
coded assembler sequence for the Mandelbrot crunch loop, images often took hours
to compute. Hi ho.

Regards,
Nicky.
{=========== ========= ======Mandelbrot calculation= ========= ========= ======}
{$IFOPT N+}
{C:\ASM\ITERATE4. OBJ used to be the source, separately prepared for TP4...}
{Function Iterate(four, cx,cy:real; Maxit: integer):integer; external;
{Careful! TP4 passes fp parameters to functions on the 8087's stack,
and yes, this causes failure when you try for many parameters, or
exuberantly nested expressions. The assembler programme expects the
TP4 style, and will fail if TP5's protocol is used instead.}
Function Iterate(fcx, fcy: extended; Maxit: Integer): Integer; assembler;
Label crunch,test, out;
asm {With TP7, the in-line assembler is easier to use...}
{The TP7 assembler doesn't seem to accept STn for floating-point ops..}
{Watch out!!! DW here doesn't accept 0xD0C1, and I must put $0C1D0....}
{At least I can be sure that no FWAIT ops are interpolated for me.}
{Oh for a FMANDEL operation, or the ability to load a sequence into
the fp. processor.}
{ This routine was a rewrite in the absence of the source for ITERATE4.ASM
and the loop contains 13 f-ops, rather than ITERATE4's 15 f-ops....
But a FMANDEL op code would still be better.}
MOV AX,Maxit {Limit is 32766, not 32767, to allow Maxit + 1.}
MOV CX,AX {Iteration count, down to zero.}
FINIT {TP3 sent FP params via FPStk: 0 1 2 3 4 5 6 7}
FLD Four {But TP7 doesn't 4}
FLD fcx {So grab. cx, 4}
FLD fcy {And go. cy, cx, 4}
DW $0C1D9 {FLD ST1 ; cx=zx, cy, cx, 4}
DW $0C1D9 {FLD ST1 ; cy=zy, zx, cy, cx, 4}
{Consider the initial value, Z = C, or (zx,zy) = (cx,cy) for |Z| > 2.}
DW $0C0D9 {FLD ST0 ; zy, zy, zx, cy, cx, 4}
DW $0C8D8 {FMUL ST0,ST0 ; zy2, zy, zx, cy, cx, 4}
DW $0C2D9 {FLD ST2 ; zx,zy2, zy, zx, cy, cx, 4}
DW $0C8D8 {FMUL ST0,ST0 ; zx2,zy2, zy, zx, cy, cx, 4}
DW $0C0D9 {FLD ST0 ; zx2,zx2,zy2, zy, zx, cy, cx, 4}
DW $0C2D8 {FADD ST0,ST2 ;zx2+zy2,zx2, zy2, zy, zx, cy, cx, 4}
DW $0F7DF {FCOMIP ST0,ST7 ;-4? zx2,zy2, zy, zx, cy, cx, 4}
JA Out {J if ST0 > ST7. |C| > 4 to start with? 0 iterations.}
INC AX {Hence attain 1:Maxit + 1, rather than 0:Maxit.}
Crunch: {Arrive here with; zx2,zy2, zy, zx, cy, cx, 4}
DW $0E1DE {FSUBP?R?ST0, ST1 ;zx2-zy2, zy, zx, cy, cx, 4: I want ST0:=ST0 - ST1}
DW $0C4D8 {FADD ST0,ST4 ; +cx=ZX, zy, zx, cy, cx, 4: The new ZX computed.}
DW $0CAD9 {FXCH ST0,ST2 ; zx, zy, ZX, cy, cx, 4: Swap with the old, zx.}
DW $0C9DE {FMULP ST0,ST1 ; zx*zy, ZX, cy, cx, 4: Using the old zx again}
DW $0C0D8 {FADD ST0,ST0 ;2*zx*zy, ZX, cy, cx, 4: For the new ZY}
DW $0C2D8 {FADD ST0,ST2 ; +cy=ZY, ZX, cy, cx, 4: New Z to test, as above.}

Test:DW $0C0D9 {FLD ST0 ;zy2:=zy, zy, zx, cy, cx, 4: Get zy.}
DW $0C8D8 {FMUL ST0,ST0 ; zy2, zy, zx, cy, cx, 4: Square it.}
DW $0C2D9 {FLD ST2 ;zx2:=zx,zy2, zy, zx, cy, cx, 4: Get zx.}
DW $0C8D8 {FMUL ST0,ST0 ; zx2,zy2, zy, zx, cy, cx, 4: Square it.}
DW $0C0D9 {FLD ST0 ; zx2,zx2,zy2, zy, zx, cy, cx, 4: Duplicate.}
DW $0C2D8 {FADD ST0,ST2 ;zx2+zy2,zx2, zy2, zy, zx, cy, cx, 4: Add zy2.}
DW $0F7DF {FCOMIP ST0,ST7 ;-4? zx2,zy2, zy, zx, cy, cx, 4: Compare with 4.}
JA Out {J if ST0 > ST7. JG fails, the sign flag is not set.}
LOOP Crunch {Decrement CX, if not zero then go to Crunch.}
Out:SUB AX,CX {Maxit - (Maxit - n) = n, like.}
FINIT {Clear the deck.}
End; {of Iterate: the Integer function result is in AX}

{$ENDIF}
{$IFOPT N-}
{ Test runs show a factor of ten to twelve speedup in calculation when
the fp-hardware is available and is exercised by the assembler version.
Further, the precision of calculation is much better; even with 'only'
sixty iterations as the limit, there are differences in the results
for the base picture (from -2 to +2). Using software-calculated higher
precision variables would be slower still, so there is not much point
in chasing around high iteration areas...
That applied with TP3, a separate assembler, and 286 machines.
With TP7 and the above assembler on a pentium II mishmash the assembler
version runs about two and a half times faster on the same 'Home' calc.
with EGAVGA and 64 as the iteration limit. There was no apparent change
when an earlier version of the loop with 16 f-ops was used instead of the
13 above. Who knows what sort of compound op was being concocted by the
CPU's internal trickery. The TP3 assembler version had its timing quirks
also, related especially to its version of the FCOMIP f-op, not available
then despite the obvious need. Ah, but separate chips...
I have not tried the 8087-in-software emulation opportunity for a more
accurate comparison of software vs. f-op that would compare calculations
of the same precision.
Subsequent tests, enabled when 1024x768 dots and 256 colours could be
used had Boydel complete the "home" picture in 5·63 minutes (iteration limit
now 1,016 with the greater number of colours) vs. Mandel at 27·68 secs,
a factor of 12·2. This would have spent more time crunching rather than
spending time placing the dots since a lot more time would have been spent
on the high-iteration black centre. So, the merit of assembler remains high.}

Function Iterate(cx,cy: real; MaxIt: integer): integer;
var zx,zy,zx2,zy2: real; n:integer;
{ C = (cx,cy)
Z 0 to start with.
Repeat
Z Zż + C, with complex numbers.
until |Z| > 2}
Label l;
Begin
n:=0;
zx:=cx; zy:=cy; {Since Z is zero to start.}
zx2:=zx*zx; zy2:=zy*zy; {Repeated code, so as not to worry the compiler.}
if zx2 + zy2 <= 4 then {Otherwise, a Goto the zx2:= below.}
begin
l:n:=n + 1;
if n > Maxit then begin Iterate:=maxit + 1; Exit; end;
zy:=2*zx*zy + cy; {The }
zx:=zx2 - zy2 + cx; { crunch.}
zx2:=zx*zx; {Then}
zy2:=zy*zy; { test.}
if zx2 + zy2 <= 4 then goto l;
end;
Iterate:=n;
{So n = 0 if |C| > 2 (ie, no iterations are required to exceed 2)
= 1:limit
= limit + 1 if |Z| <= 2 even after iterating to the limit.
Note that (-2,0) iterates forever, thus the > 4 rather than >= 4...}
End; {Of Iterate}
{$ENDIF}

--- In turbopascalprogramm ing2@yahoogroups .com, "Anil M. S." <anilms@...>
wrote:
>
> :) I started off with TP 1 for DOS 1 back in 1985. I have used every version
of Turbo Pascal and later on switched over to Delphi. Turbo Delphi is free and
is equally good. I still use old style file handling functions in Delphi (Object
Pascal).
>
> BTW, my favorite is TP 3.x - all versions. I still have TP 3.x on my computer
and I use it to teach my daughter Pascal programming.
>
> You can also check out Morfik (www.morfik. com). They have a Web Development
environment, AJAX and all. There is a free personal version which most TP and
Delphi guys love as it uses Delphi's Object Pascal.
>
> One of my favorite TP tricks was in date validation. I would just store the
system date, then push in user entered date into a few registers and call an
interrupt function. If it was successful, you knew the date was valid. If it
returned an error in one of the registers, you could display an Invalid date
message. Finally, you would set the system date back.
>
> I am soon starting a project where we have to move TP code on DOS to Delphi. I
know I will enjoy working on that project.
>
> It makes me feel happy that there are still old timers out there who love TP.
>
> Long Live TP
>




Send instant messages to your online friends http://uk.messenger.yahoo.com

[Non-text portions of this message have been removed]

#1293 From: "Nicky" <rnmclean@...>
Date: Sun Jan 7, 2007 7:43 pm
Subject: Keeping Pascal alive...
rnmclean
Offline Offline
Send Email Send Email
 
I still use Turbo Pascal, as when some data is to be assaulted in a way too
tedious or tricky or risky for a text editor session (even if it has its own
scripting language, usually weird) and so worthy of a simple special-purpose
programme. I still find use for a file comparison prog. supplied by Byte
Magazine in 1988 (M.J. Mefford) and the old List prog. since both really do show
what is in the file. Many modern progs. are ambiguous over tabs, spaces,
trailing spaces, etc.
    I use TP7b, the "b" because I have made the patch offered via some web sites
that adjusts the calibration of TP's "delay" feature to succeed without a divide
by zero (which happens on any cpu faster than about 250MHz), though it doesn't
deal very well with long file names. I have found a Free Pascal from Berczi
Gabor, Pierre Muller and Peter Vreman, and a Virtual Pascal via vpascal.com,
which offer much the same interface as TP7 but alas haven't had much time to
investigate the opportunities. The FreePascal does handle long file names, so
that's one problem solved, however the code file for small progs. is about five
times the size of that from TP7! It also handles the waiting for a keystroke
better: tp7 seems to generate a loop continuously testing for a keypress,
consuming cpu time that I'd rather went to the Climate Prediction cruncher, etc.
    The main problem is that my more interesting progs. in Pascal all involve
graphics, and the .bgi interface has long since been left behind by more recent
screen sizes and the notion of windows within the screen not controlled by the
Pascal prog. Re-jiggering them to work in Delphi would require some time, nor
have I found the time to mess with whatever is offered by FreePascal and
VirtualPascal.
    I started with TP3, following a colleague who used it more extensively. The
first prog. was to adjust a file so that the sequence  0<FormFeed> became
<CR><LF> because a Landis&Gyr data logger terminated records with a form feed
character (one record, if printed, would consume most of a page), but the DOS
system of course uses <CR><LF> to mark the end of a record. Since before the
FormFeed was a field that was always zero, one digit could be sacrificed and the
file zapped without the tedium of copy, delete, rename. So much for work. Our
next prog. was a collaboration on the notorious Mandelbrot crunch. That was when
340 dots to a line was regarded as high resolution. Even with a most cunningly
coded assembler sequence for the Mandelbrot crunch loop, images often took hours
to compute. Hi ho.

                                 Regards,
                                 Nicky.
{==========================Mandelbrot calculation=========================}
{$IFOPT N+}
{C:\ASM\ITERATE4.OBJ used to be the source, separately prepared for TP4...}
{Function Iterate(four,cx,cy:real; Maxit: integer):integer;external;
{Careful! TP4 passes fp parameters to functions on the 8087's stack,
  and yes, this causes failure when you try for many parameters, or
  exuberantly nested expressions. The assembler programme expects the
  TP4 style, and will fail if TP5's protocol is used instead.}
  Function Iterate(fcx,fcy: extended; Maxit: Integer): Integer; assembler;
   Label crunch,test,out;
   asm {With TP7, the in-line assembler is easier to use...}
    {The TP7 assembler doesn't seem to accept STn for floating-point ops..}
    {Watch out!!! DW here doesn't accept 0xD0C1, and I must put $0C1D0....}
    {At least I can be sure that no FWAIT ops are interpolated for me.}
    {Oh for a FMANDEL operation, or the ability to load a sequence into
    the fp. processor.}
{  This routine was a rewrite in the absence of the source for ITERATE4.ASM
and the loop contains 13 f-ops, rather than ITERATE4's 15 f-ops....
    But a FMANDEL op code would still be better.}
         MOV     AX,Maxit {Limit is 32766, not 32767, to allow Maxit + 1.}
 	 MOV CX,AX    {Iteration count, down to zero.}
         FINIT   {TP3 sent FP params via FPStk: 0   1   2   3   4   5   6   7}
         FLD     Four   {But TP7 doesn't        4}
         FLD     fcx    {So grab.              cx,  4}
         FLD     fcy    {And go.               cy, cx,  4}
         DW      $0C1D9 {FLD     ST1     ;  cx=zx, cy, cx,  4}
         DW      $0C1D9 {FLD     ST1     ;  cy=zy, zx, cy, cx,  4}
{Consider the initial value, Z = C, or (zx,zy) = (cx,cy) for |Z| > 2.}
         DW      $0C0D9 {FLD     ST0     ;     zy, zy, zx, cy, cx,  4}
         DW      $0C8D8 {FMUL    ST0,ST0 ;    zy2, zy, zx, cy, cx,  4}
         DW      $0C2D9 {FLD     ST2     ;     zx,zy2, zy, zx, cy, cx,  4}
         DW      $0C8D8 {FMUL    ST0,ST0 ;    zx2,zy2, zy, zx, cy, cx,  4}
         DW      $0C0D9 {FLD     ST0     ;    zx2,zx2,zy2, zy, zx, cy, cx,  4}
         DW      $0C2D8 {FADD    ST0,ST2 ;zx2+zy2,zx2,zy2, zy, zx, cy, cx,  4}
         DW      $0F7DF {FCOMIP  ST0,ST7 ;-4? zx2,zy2, zy, zx, cy, cx,  4}
         JA      Out    {J if ST0 > ST7. |C| > 4 to start with? 0 iterations.}
         INC     AX     {Hence attain 1:Maxit + 1, rather than 0:Maxit.}
  Crunch:               {Arrive here with;    zx2,zy2, zy, zx, cy, cx,  4}
         DW      $0E1DE {FSUBP?R?ST0,ST1 ;zx2-zy2, zy, zx, cy, cx,  4: I want
ST0:=ST0 - ST1}
         DW      $0C4D8 {FADD    ST0,ST4 ; +cx=ZX, zy, zx, cy, cx,  4: The new ZX
computed.}
         DW      $0CAD9 {FXCH    ST0,ST2 ;     zx, zy, ZX, cy, cx,  4: Swap with
the old, zx.}
         DW      $0C9DE {FMULP   ST0,ST1 ;  zx*zy, ZX, cy, cx,  4:     Using the
old zx again}
         DW      $0C0D8 {FADD    ST0,ST0 ;2*zx*zy, ZX, cy, cx,  4:     For the
new ZY}
         DW      $0C2D8 {FADD    ST0,ST2 ; +cy=ZY, ZX, cy, cx,  4:     New Z to
test, as above.}

    Test:DW      $0C0D9 {FLD     ST0     ;zy2:=zy, zy, zx, cy, cx,  4:        
Get zy.}
         DW      $0C8D8 {FMUL    ST0,ST0 ;    zy2, zy, zx, cy, cx,  4:        
Square it.}
         DW      $0C2D9 {FLD     ST2     ;zx2:=zx,zy2, zy, zx, cy, cx,  4:    
Get zx.}
         DW      $0C8D8 {FMUL    ST0,ST0 ;    zx2,zy2, zy, zx, cy, cx,  4:    
Square it.}
         DW      $0C0D9 {FLD     ST0     ;    zx2,zx2,zy2, zy, zx, cy, cx,  4:
Duplicate.}
         DW      $0C2D8 {FADD    ST0,ST2 ;zx2+zy2,zx2,zy2, zy, zx, cy, cx,  4:
Add zy2.}
         DW      $0F7DF {FCOMIP  ST0,ST7 ;-4? zx2,zy2, zy, zx, cy, cx,  4:    
Compare with 4.}
         JA      Out    {J if ST0 > ST7. JG fails, the sign flag is not set.}
         LOOP    Crunch {Decrement CX, if not zero then go to Crunch.}
     Out:SUB     AX,CX  {Maxit - (Maxit - n) = n, like.}
         FINIT          {Clear the deck.}
  End; {of Iterate: the Integer function result is in AX}

{$ENDIF}
{$IFOPT N-}
{  Test runs show a factor of ten to twelve speedup in calculation when
the fp-hardware is available and is exercised by the assembler version.
Further, the precision of calculation is much better; even with 'only'
sixty iterations as the limit, there are differences in the results
for the base picture (from -2 to +2). Using software-calculated higher
precision variables would be slower still, so there is not much point
in chasing around high iteration areas...
   That applied with TP3, a separate assembler, and 286 machines.
With TP7 and the above assembler on a pentium II mishmash the assembler
version runs about two and a half times faster on the same 'Home' calc.
with EGAVGA and 64 as the iteration limit. There was no apparent change
when an earlier version of the loop with 16 f-ops was used instead of the
13 above. Who knows what sort of compound op was being concocted by the
CPU's internal trickery. The TP3 assembler version had its timing quirks
also, related especially to its version of the FCOMIP f-op, not available
then despite the obvious need. Ah, but separate chips...
   I have not tried the 8087-in-software emulation opportunity for a more
accurate comparison of software vs. f-op that would compare calculations
of the same precision.
   Subsequent tests, enabled when 1024x768 dots and 256 colours could be
used had Boydel complete the "home" picture in 5·63 minutes (iteration limit
now 1,016 with the greater number of colours) vs. Mandel at 27·68 secs,
a factor of 12·2. This would have spent more time crunching rather than
spending time placing the dots since a lot more time would have been spent
on the high-iteration black centre. So, the merit of assembler remains high.}

Function Iterate(cx,cy:real; MaxIt: integer): integer;
  var zx,zy,zx2,zy2: real; n:integer;
{          C = (cx,cy)
            Z  0       to start with.
            Repeat
             Z  Zż + C, with complex numbers.
            until |Z| > 2}
  Label l;
  Begin
   n:=0;
   zx:=cx; zy:=cy;         {Since Z is zero to start.}
   zx2:=zx*zx; zy2:=zy*zy; {Repeated code, so as not to worry the compiler.}
   if zx2 + zy2 <= 4 then  {Otherwise, a Goto the zx2:= below.}
    begin
   l:n:=n + 1;
     if n > Maxit then begin Iterate:=maxit + 1; Exit; end;
     zy:=2*zx*zy + cy;     {The }
     zx:=zx2 - zy2 + cx;   { crunch.}
     zx2:=zx*zx;           {Then}
     zy2:=zy*zy;           { test.}
     if zx2 + zy2 <= 4 then goto l;
    end;
   Iterate:=n;
   {So n = 0 if |C| > 2  (ie, no iterations are required to exceed 2)
         = 1:limit
         = limit + 1 if |Z| <= 2 even after iterating to the limit.
    Note that (-2,0) iterates forever, thus the > 4 rather than >= 4...}
  End; {Of Iterate}
{$ENDIF}

--- In turbopascalprogramming2@yahoogroups.com, "Anil M. S." <anilms@...> wrote:
>
> :) I started off with TP 1 for DOS 1 back in 1985. I have used every version
of Turbo Pascal and later on switched over to Delphi. Turbo Delphi is free and
is equally good. I still use old style file handling functions in Delphi (Object
Pascal).
>
> BTW, my favorite is TP 3.x - all versions. I still have TP 3.x on my computer
and I use it to teach my daughter Pascal programming.
>
> You can also check out Morfik (www.morfik.com). They have a Web Development
environment, AJAX and all. There is a free personal version which most TP and
Delphi guys love as it uses Delphi's Object Pascal.
>
> One of my favorite TP tricks was in date validation. I would just store the
system date, then push in user entered date into a few registers and call an
interrupt function. If it was successful, you knew the date was valid. If it
returned an error in one of the registers, you could display an Invalid date
message. Finally, you would set the system date back.
>
> I am soon starting a project where we have to move TP code on DOS to Delphi. I
know I will enjoy working on that project.
>
> It makes me feel happy that there are still old timers out there who love TP.
>
> Long Live TP
>

#1292 From: "Anil M. S." <anilms@...>
Date: Fri Jan 5, 2007 3:31 pm
Subject: Re: [TurboPascalProgramming] Re: Anyone still using Turbo Pascal?
anilms@...
Send Email Send Email
 
:) I started off with TP 1 for DOS 1 back in 1985. I have used every version of
Turbo Pascal and later on switched over to Delphi. Turbo Delphi is free and is
equally good. I still use old style file handling functions in Delphi (Object
Pascal).

BTW, my favorite is TP 3.x - all versions. I still have TP 3.x on my computer
and I use it to teach my daughter Pascal programming.

You can also check out Morfik (www.morfik.com). They have a Web Development
environment, AJAX and all. There is a free personal version which most TP and
Delphi guys love as it uses Delphi's Object Pascal.

One of my favorite TP tricks was in date validation. I would just store the
system date, then push in user entered date into a few registers and call an
interrupt function. If it was successful, you knew the date was valid. If it
returned an error in one of the registers, you could display an Invalid date
message. Finally, you would set the system date back.

I am soon starting a project where we have to move TP code on DOS to Delphi. I
know I will enjoy working on that project.

It makes me feel happy that there are still old timers out there who love TP.

Long Live TP




----- Original Message ----
From: ynode1 <no_reply@yahoogroups.com>
To: turbopascalprogramming2@yahoogroups.com
Sent: Friday, January 5, 2007 9:10:21 AM
Subject: [TurboPascalProgramming] Re: Anyone still using Turbo Pascal?













             --- In turbopascalprogramm ing2@yahoogroups .com, Jeff144

<no_reply@.. .> wrote:

>

> No activity in this group for awhile, just wondering if anyone

was

> still using Turbo Pascal?  I got my first copy of TP for CP/M

way back

> in 1981 or '82.  Any other old-timers here?

>

I am write is the Turbo Pascal.














<!--

#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}

#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}

#ygrp-vital a:hover{
text-decoration:underline;
}

#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
-->







__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

[Non-text portions of this message have been removed]

#1291 From: ynode1
Date: Fri Jan 5, 2007 3:10 pm
Subject: Re: Anyone still using Turbo Pascal?
ynode1
Offline Offline
 
--- In turbopascalprogramming2@yahoogroups.com, Jeff144
<no_reply@...> wrote:
>
> No activity in this group for awhile, just wondering if anyone
was
> still using Turbo Pascal?  I got my first copy of TP for CP/M
way back
> in 1981 or '82.  Any other old-timers here?
>
I am write is the Turbo Pascal.

#1290 From: grnyx@...
Date: Fri Jan 5, 2007 1:58 pm
Subject: Still using?
powercap2000
Offline Offline
Send Email Send Email
 
I've got an old computer (dos) using a turbo pascal program I wrote many years
ago that
I'm using for a dedicated hardware data acquisition system.  When you've got
something old laying around
in the attic, it sometimes becomes useful!

I was a part-time "C" programmer in the early 80's.  I took a course through
work where the professor was
giving the lecture using Pascal as the example language.  So I bought a copy of
TP, read it over the weekend,
and, bingo, I was using Turbo Pascal.  I think this was around 1986-7.

Thanks for reminding me how old I am!

John

________________________________________________________________________
Check out the new AOL.  Most comprehensive set of free safety and security
tools, free access to millions of high-quality videos from across the web, free
AOL Mail and more.


[Non-text portions of this message have been removed]

#1289 From: Isaac Oblefias <ioblefias@...>
Date: Fri Jan 5, 2007 4:29 am
Subject: Re: [TurboPascalProgramming] Re: Anyone still using Turbo Pascal?
ioblefias
Online Now Online Now
Send Email Send Email
 
turbo pascal is actually no more on Borland's side,
though Delphi is slowly catching up.

meanwhile, freepascal and lazarus are slowly getting
more momentum :)


--- Marc Chavez <mcchavez@...> wrote:

> CP/M ! We are old. I first ran into it layer than
> you as it was the OS
> (so to speak) under an accounting program in the
> late 80's and already
> doomed. as was the variable speed floppy drive
>
> I have one small program that I have been trying to
> resurect in
> trubopascal.
>
> Marc
>
>
> --- In turbopascalprogramming2@yahoogroups.com,
> Jeff144 <no_reply@...>
> wrote:
> >
> > No activity in this group for awhile, just
> wondering if anyone was
> > still using Turbo Pascal?  I got my first copy of
> TP for CP/M way
> back
> > in 1981 or '82.  Any other old-timers here?
> >
>
>
>


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

#1288 From: "Marc Chavez" <mcchavez@...>
Date: Fri Jan 5, 2007 3:20 am
Subject: Re: Anyone still using Turbo Pascal?
mchavez56
Offline Offline
Send Email Send Email
 
CP/M ! We are old. I first ran into it layer than you as it was the OS
(so to speak) under an accounting program in the late 80's and already
doomed. as was the variable speed floppy drive

I have one small program that I have been trying to resurect in
trubopascal.

Marc


--- In turbopascalprogramming2@yahoogroups.com, Jeff144 <no_reply@...>
wrote:
>
> No activity in this group for awhile, just wondering if anyone was
> still using Turbo Pascal?  I got my first copy of TP for CP/M way
back
> in 1981 or '82.  Any other old-timers here?
>

Messages 1288 - 1332 of 1332   Newest  |  < Newer  |  Older >  |  Oldest
Advanced
Add to My Yahoo!      XML What's This?

Copyright © 2009 Yahoo! Inc. All rights reserved.
Privacy Policy - Terms of Service - Guidelines - Help