Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/PASCAL2.ZIP/PASCAL.A20

Text File | 1988-01-20 | 156.3 KB | 4,877 lines

=



From:    Robbie Napier
To:      Mike Lynch                               Msg #2, 11-Jan-88 12:53pm
Subject: Help

RE: using the Timer intr for multitasking.

I don't know too much about writing such routines, since I'm just learning
assembler myself, but from my experience (mostly reading), you can't write
such routines in Pascal.

Here's why:  DOS isn't reenterent (bet ya' heard that before.)  If you are
running off the clock tick, then you could easily interrupt a DOS function.
Therefore, if you re-call that function, you will hang the machine.

Example:  DOS function 2 is running (write a character to the screen,
pretty common).  The timmer ticks, so interrupt 8 is thrown.  Your
interrupt routine calls DOS function 2.  Buddy, you just re-entered a DOS
function and your machine blows up (a slight exaggeration, but it will
probably hang hard).  Now Turbo Pascal v5 doesn't use Function 2 most of
the time, since it does DirectVideo writes, but many other DOS functions
ARE used, and chances are real good that both the interrupted routine and
the interrupting routine will call the same one, somewhere.

Someone tell me if there's a way around this.  I know that assembly
programs DO get around the problem by writting their own interrupt handlers
(ie. Sidekick, some print buffers, Prokey), but I don't have any idea how
they go about it.
Boz
--- QuickBBS v2.03
 * Origin: The Chatter Box -- Charlotte, NC [phone] (1:379/207)

*** There is a reply. See #246.


From:    Robbie Napier
To:      Mike Copeland                            Msg #3, 11-Jan-88 01:02pm
Subject: Re: Philosophy


*** There is a reply. See #50.


From:    Robbie Napier
To:      John Hughes                              Msg #4, 11-Jan-88 01:05pm
Subject: Re: Copyright

Maybe you could answer this question then:

How do you go about getting a program into Shareware?  I once tried, but
the sysop of the board told me that you can't just ask for money.  He said
you have to register it, along with some other stuff.  Do you have any info
on this?
Thanx
Boz
--- QuickBBS v2.03
 * Origin: The Chatter Box -- Charlotte, NC [phone] (1:379/207)

*** There is a reply. See #125.


From:    Robbie Napier
To:      Tim Geisweit                             Msg #5, 11-Jan-88 01:10pm
Subject: Re: A Little Problem

Hey!  How about us "write it as you go" programmers?  I never use
flow-charts, and only make the roughest sketches of psudo-code.  Basically,
I sit down before a blank screen and start typing.  All the prep work, I do
in my head.  I make a skeleton, make it work, then add each feature that I
want.  Occasionally, I go through and look for dead code, since sometimes I
wind up with code that is never run, but not often.  Even the few times
that I set up a whole lot of psudo-code, I never used it.  I just couldn't
write what I wanted without writing actual code.  And its silly to write it
on paper, if you're just going to copy it to the computer (I type MUCH
faster than I write)
Boz
--- QuickBBS v2.03
 * Origin: The Chatter Box -- Charlotte, NC [phone] (1:379/207)

*** There is a reply. See #36.


From:    Randall Smith
To:      Lee Hamel                                Msg #6, 14-Jan-89 12:40pm
Subject: Re: Tp 3.0

 LH> I would like to know how to do a shell to DOS in Turbo Pascal
 LH> 3.0. I would also like to know how to pick up command line
 LH> parameters. Lastly, I would like to know how to write stuff over
 LH> the modem port.

Lee;  Gently: The answers to some of your questions would be a book but I'll
try.

   #1.  If you want to shell to DOS from the TP3 compiler, look for a file
INSTX*.*  This is a zap file that adds a DOS shell option to the TP compiler.
If you want to shell to DOS from a TP written program look for a program
called EXEC*.*  these two files are both available on Compu$serve in the
Borland forum.  Either of these requires a detailed knowledge of PC machine
language, MS-DOS & the machines interrupt structure (which I have only a
limited knowledge of).  I've used both of these however, and they both work.

   #2.  ParamCount is a pre-defined function returning the number of
command-line parameters. ParamString(n) is a pre-defined function that returns
the n-th command line parameter.

   #3.  I'll defer this as I've never done this and have only the haziest idea
of how to go about this.

Hope this helps.


Later....             Randy.

--- Msg V3.2
 * Origin: The Knot in the End of the Thread.    (1:150/511.10)


From:    Randall Smith
To:      Dave Goggin                              Msg #7, 14-Jan-89 02:14pm
Subject: Typing Pascal

 DG> 4. One- or two-key combinations to specify long words like
 DG> PROCEDURE, BEGIN, etc, so you don't have to type out the whole word.
 DG> Example: press ^WB and BEGIN appears in the current cursor position.

Many moons ago I used Superkey to develop short-cuts.  Mark a procedure name
move to the place where you want the procedure defined then Alt-P types a
complete procedure block.  Alt-B types a begin-end pair. You get the idea.  I
gave all the Alt-keys definitions.


Later....             Randy.

--- Msg V3.2
 * Origin: The Knot in the End of the Thread.    (1:150/511.10)

*** There is a reply. See #249.


From:    Randall Smith
To:      Dan Wulff                                Msg #8, 14-Jan-89 02:35pm
Subject: Re: Print routine


Just my 2 cents worth.  Use caution when checking for printer ready.  I
stubbed my toe on this one.  A Tandy and IBM will return different codes if
the printer is off-line.  I remember that IBM returns Not-Ready, but a Tandy
returns Time-Out.  Hope this helps.


Later....             Randy.

--- Msg V3.2
 * Origin: The Knot in the End of the Thread.    (1:150/511.10)

*** There is a reply. See #11.


From:    Eugene Baral
To:      Bruce Mahoney                            Msg #9, 11-Jan-88 07:08pm
Subject: Re: Is the Pgm in the Path


 ->What's the best way to check if a pgm ie: EXEC(
 ->getenv('comspec'), '/c thepgm'); will be in the path.
 ->Besides checking each path via the findfirst. I've tested
 ->Dosexitcode and Doserror and they're 0 after a EXEC gives
 ->me a 'Program not found'

Try the following:  (paraphrased from Exec_Demo published in the
Jan 17, 1989 issue of PC Magazine (Vol 8 No 1): Languages pg 364)

program Exec_FooBar;

uses DOS;

{  Original code by Neil J. Rubenking }

var
  Pgmname, Found : PathStr;

begin
  Pgmname := 'FOOBAR.COM';       { Could be any legal file name }
  Found := FSearch(Pgmname,'');  { Look in current directory }
  if Found = '' then             { If no returned value, not in current }
    Found := FSearch(Pgmname, GetEnv('PATH'));
  if Found = '' then             { Still not found === error }
  begin
    WriteLn('Sorry, file ',Pgmname,' not found....Aborting.');
    Halt(1);
  end;
  found := FExpand(Found);
  SwapVectors;                   { Restore original interrupt vectors }
  exec(GetEnv('COMSPEC'),'/C'+Found);  { Execute the program }
  SwapVectors;                   { Restore program's interrupt vectors }
  {  At this point DOSError will contain proper codes }
end.

To find out what the FSearch and FExpand functions do, look in your TP5 manual
on pages 267 & 276.  Hope this helps.

                                        -= Gene =-

--- QuickBBS v2.03
 * Origin: The Philosopher's Stone (#2), Orlando  407-299-3661 (1:363/23)

*** There is a reply. See #208.


From:    Bill Sawyer
To:      Djoerd De.fost                           Msg #10, 13-Jan-89 12:58pm
Subject: Re: Virus in Pascal 4.0

Sure, right, you want to know how to create a virus.  Hey buddy, what boat
to you just get off.  In the U.S. they'd slap the shit out of us just for
helping you do it.  Besides, viruses are inside secrets.  If you're smart
enough to intelligently and benevolently STUDY and CREATE viruses then you
don't need any help.  There are enough "Helpful" hints in all the
newspapers and BBS articles on Viruses.  But otherwise, wise up.  Get half
a brain, and get off this lame-brained, half-assed idea.

Adios (and I do mean Adios)

Bill Sawyer
--- QuickBBS v2.03
 * Origin: The Philosopher's Stone, Orlando 407-299-3661 (1:363/23)

*** There is a reply. See #41.


From:    Steve Fesperman
To:      Bruce Mahoney                            Msg #11, 13-Jan-88 07:16pm
Subject: Print routine


Thanx, I'll try it and see what it does.

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)

*** Part of a conversation.


From:    Steve Fesperman
To:      Tomas Gradin                             Msg #12, 13-Jan-88 07:19pm
Subject: Print routine


Thanx a million for the routine.  I'll give it a try.

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)

*** Part of a conversation.


From:    Steve Fesperman
To:      Dan Wulff                                Msg #13, 13-Jan-88 07:21pm
Subject: Print routine


Howdy Dan,

From Charleston, South Carolina, thanks mountains and heaps for the
routine.  I'll test it and try to give you a status report.

Steve

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)

*** Part of a conversation.


From:    Steve Fesperman
To:      Klaus Tati                               Msg #14, 13-Jan-88 07:26pm
Subject: Print Routine


Klaus,

Terrific!  Thank you so much for the printer-testing routine.  I'll try
it as soon as I get off the board.

I'm using Turbo Pascal 5.0 (which is, by the way, quite an improvement
over 4.0--the debugger is a tremendous help to such a dildo as I), and
have a Panasonic KX-P1090i.  Like yours, I believe, but not as wide.
Best printer for the money I've ever owned.

From Charleston, South Carolina (where it's 80 degrees F at Christmas),
Thanks again,
Steve

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)

*** Part of a conversation.


From:    Steve Fesperman
To:      Mark Trammell                            Msg #15, 13-Jan-88 07:37pm
Subject: Pascal D&D


Mark,

If you're interested, I developed a relatively small program to
auto-generate characters for Chaosium's PENDRAGON.  It's been a while
since I've used it, and it's probably quite crude, but it did a very
acceptable job of creating a character from the ground up (including
his personal characteristics, his tendencies, has nationality and
religion, and his birth order and beginning possessions).  Rolling a
character from scratch in this game normally takes about thirty minutes
or more, but the program would generate it (with a *very slight* bias
to give more acceptable attributes to avoid wasting time with fatally
flawed characters) in about one second, and print it out to boot.

Steve

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)


From:    Steve Fesperman
To:      Tom Vaughan                              Msg #16, 13-Jan-88 07:40pm
Subject: A Computer Term


Tom,

re FUBAR, that's correct.  It's a military-ism, along the lines of
SNAFU, meaning Situation Normal, All Fouled (or F**ked) Up.

Steve

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)

*** There is a reply. See #38.


From:    Steve Fesperman
To:      All                                      Msg #17, 13-Jan-88 07:45pm
Subject: Thanks, and more thanks


To everyone who has contributed to the enormous response to my request
for help with a printer-testing routine, I offer my most sincere
thanks, and only hope I can repay the favor in kind someday.  Failing
that, I DO have a younger sister...

Steve

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)

*** There is a reply. See #122.


From:    Bertrand Renuart
To:      All                                      Msg #18, 11-Jan-89 05:23pm
Subject: PASCAL - DOS

Hello,
Sorry, my English is weak but I think you will understand ...
.
How can I use Dos function, like read/write files, in my RESIDENT
Turbo PAscal Program ? It's a big problem because DOS is not recursive
(In french : DOS n'est pas récursif ou réentrant ...)
.
It's a big big problem for my but it's very important !
.
.
I hope someone will tell me the solution. Thanks a lot !
.
Bye. Bertrand
--- TBBS v2.0
 * Origin:              We give you the answer.           02-269.5936/3852

*** There is a reply. See #91.


From:    Rolf Thomassen
To:      Andy Lester                              Msg #19, 12-Jan-89 10:43am
Subject: Style Debate #9,005

 >  MH> PROCEDURE ProcName; BEGIN
 >  MH>   Statement1;
 >  MH>   Statement2;
 >  MH>   END;
 >  MH>
 >  MH> I don't like that. BEGIN-END pairs should match columns, right?
 >
 > Right!  You win the prize, 'cause you agree with me!  :-)

Ok where du you put a VAR or CONST or TYPE statement in that procedure you
just have written ? I make my Procedure / Function's like this:

Procedure Proc;
Const
  ...
Type
  ...
Var
  ...
Begin
  ....
  If .. = .. Then Begin
    ...
    ...; End
  Else Begin
    ...
  End
  Case .. of
    .. : ...;
    .. : Begin
           ...
           ...
         End;
  Else Begin
    ...
  End;
  Repeat
    ..
    ..
    ..
  Until TwoSundaysInAWeek;

  ...
End;

And so on, ASO ASO.....

Live long and prosper

   Rolf Thomassen

--- ConfMail V3.31
 * Origin: Thunderbolt CBCS, Denmark [[phone] #CM] (2:234/11)

*** There is a reply. See #22.


From:    Holger Schurig
To:      James Macneil                            Msg #20, 13-Jan-89 08:31pm
Subject: Interrupts in 5.0

And to Heikki, too:

HL> I hope you know what you can and can NOT do in an interrupt:
HL>   - NO I/O
HL>   - NO new, release, dispose, or any of that stuff
HL>   - NO dos calls

And no use of strings, because TP will allocate 256 bytes of temporary
storage in a procedure, if you use stringfunctions inside it. And some
programs, like command.com, doesn't have enougth stack for that. To
overcome this, you must set your own stack and reset it prior to your
return from interrupt.

--- INFgate 0.7
 * Origin: INFSYS-Development (2:507/628.3)


From:    Holger Schurig
To:      All                                      Msg #21, 13-Jan-89 08:31pm
Subject: Style debate #infinitesimal

As i have read all the answers to the style_debate_survey, my opinion
is that everybody prefers another style. So the logical question comes
to a program what can change the style. I have seen many pascallisters
and xreffers, some with the option reformat the program. But none
of them give the user a chance to setup his own style of format. Even
on PASFORMA.PAS (found on one disk of Madison Pascal Users Group or so),
which come in source, there is much effort to be done.

If i have such things as lex or yacc, i could code it in a hurry, but
without it this will be a bigger project. Maybe someone has enought
spare time (or a tip where such a program can be found).

<Style-converter: take this>       <and-change-it-to-my-prefered-style:>
if a = 10                          IF a=10 THEN BEGIN
  then begin                         a := 1;
    a := 1 ;                         INC(b)
    inc (b) ;                      END ELSE BEGIN
    end { then, a was 10 }           DEC(b);
  else begin                         INC(c)
    dec (b) ;                      END;
    inc (c) ;
    end ; { else, a was not 10 }

--- INFgate 0.7
 * Origin: INFSYS-Development (2:507/628.3)


From:    Holger Schurig
To:      Heikki Levanto                           Msg #22, 13-Jan-89 08:31pm
Subject: Re: Style Debate #9,005

HS> PROGRAMM xxxxx; { if i ever write it }
HL>                 ^^^^^^^^^^^^^^^^^^^^^^  And you talk of bad style !

Agreed. But you can define style in many ways. One tune his style to
produce wellstructured code, even without hidden gotos like "exit".
The other tune his style to what is needed and looks always to make
clearly readable, fast and small programs. (i think i am such a
programmer). This is the reason i drop irrelevant semicolons before
"end" or extra begin-end in the else-clause of an case-statement.
And the "PROGRAM blah(input,output);" is absolutely unneccesary. Why
not use meaningful filenames for the programs ?  By the way: every
unit from me ends with ".U", i have patched TURBO.EXE so make or build
will consider this. It makes things clearer on your directories.

HS> USES xxx,xxx,xxx;
HL> As a matter of style, this list ought to be much longer, and
HL> contain coments.

Comments: agreed. Longer: only if neccesary. If i write a small tool,
i will only use my selfwritten UTIL.U. In INFSYS (a mailboxprogramm
written by me), the caselist is longer and written like in your
example.

HS> VAR
HS>   xxx : WORD;         { every variable on one line, comment on purpose }

I format local the local variable list in a procedure/function the same
way. But i used much global variables in my mailbox (the user data, for
example).

HL> If I need a small loop in the main program, I prefer to declare the
HL> variable just before the main program itself, as Turbo allows that.

I too.

Bye for now, Holger

--- INFgate 0.7
 * Origin: INFSYS-Development (2:507/628.3)

*** Part of a conversation.


From:    Gary Godfrey
To:      All                                      Msg #23, 13-Jan-89 10:19pm
Subject: Text Editor

Anyone know where I can get my hands on a simple text editor with
source ? Written in Pascal of course ;-)

You can reply here or send netmail to 134/20

Gary

--- ConfMail V3.31
 * Origin: EZ Duzzit BBS Calgary (1:134/20)

*** There is a reply. See #123.


From:    Norbert Lange
To:      Tim Ashman                               Msg #24, 13-Jan-89 10:48pm
Subject: Re: TP3.0

 > In TP3.0 is there a way to truncate a file at a certain
 > record number.
 > ie.  a file has 10 records of said length each.  I want
 > to search for a particular record and truncate the file
 > there say at record 6.

Yes, simply seek to the desired record, (ie.  seek(FileVar,Record);) and then
do a trunc(FileVar);



---
 * Origin: ESP BBS: WOC'ing Tall! (Opus 1:134/12)

*** There is a reply. See #67.


From:    Scott Hucke
To:      Shannon Pope                             Msg #25, 13-Jan-89 06:32am
Subject: Re: Pascal4 & CCDos

the turbo 5.0 debugger is worth it. i havnt used 4.0 but the difference
between 5.0 and 3.0 is tremendous. i suggest you evaluate 5.0. i hadnt
programmed in pascal in over two years but the tirbo debugger allowed me to
write a coversion from ascii to extended ascii in about an hour. it really is
good.
scott


---
 * Origin: DATADRAFT AutoCAD DATABASE (1-503-232-5641) (Opus 1:105/35)

*** There is a reply. See #173.


From:    Olof Vanderzwan
To:      All                                      Msg #26, 14-Jan-89 12:36am
Subject: Turbo Pascal

Hallo
I am using turbo pascal but not very long
Can some one help me with the following question
How can I convert integers to string
As example I have hours min sec as integers but I like to carry on
with a time string.
Thanks in advange for your assitance
regards Olof van der zwan
--- ES v2.41
 * Origin: KAYPRO-RBBS :USA-EUROPE-MAIL-SUPPORT (RBBS 2:512/18)

*** There is a reply. See #29.


From:    Kevin Carr @ 930/1
To:      Everyone                                 Msg #27, 13-Jan-89 12:13pm
Subject: Pascal --> Basic

I am looking for a conversion program that converts from Pascal to
Basic (Public Domain, Shareware, OR Commercial!)  To be more specific,
from Turbo Pascal to QuickBASIC.  Thanks!

User-To-User PCBoard . 214-492-6565 . 2 Nodes . DASA . DFW BBS List

--- ConfMail V4.00
 # Origin: HORIZON_RBBS_(214)881-8346_&_(214)424-3831_<<HST>>_ (8:930/1)
 * Origin: Network Gateway to RBBS-NET  (RBBS-PC 1:10/8)

*** There is a reply. See #201.


From:    Pat Anderson
To:      Justin Marquez                           Msg #28, 12-Jan-89 04:44pm
Subject: Re: C versus PASCAL

 >  LG| Can't help but wonder where Kahn is going to take
 > TP from here.  Can
 >  LG| you think of something lacking in TURBO PASCAL now?
 >  I can't.
 >  LG|
 >
I for one would like to see SELECTIVE importation from units:

        USES Xyz;
        FROM Xyz IMPORT ...;

If you use multiple third party packages, you will understand why this would
be great - just bring in what you are going to use, without the
Unitname.Identifier and without worrying about identifier duplications.

--- ConfMail V3.31
 * Origin: Snoqualmie Valley Towne Crier [phone] (SeaSoftNet)
(1:343/8.11)

*** There is a reply. See #34.


From:    Pat Anderson
To:      Bruce Mahoney                            Msg #29, 12-Jan-89 05:03pm
Subject: Re: Turbo Pascal

 > Try "Mastering Turbo Pascal 4.0" by Tom Swan. There maybe
 > a 5.0 out now?

There is a "Mastering Turbo Pascal 5.0" out, but it is by Douglas Herget and
is NOT in a class with Swan's book, which is simply the best.

--- ConfMail V3.31
 * Origin: Snoqualmie Valley Towne Crier [phone] (SeaSoftNet)
(1:343/8.11)

*** Part of a conversation.


From:    Mark Hopkins
To:      Scott Wilson                             Msg #30, 12-Jan-89 07:27pm
Subject: Files


> This will be a file containing all my users and what I'll want to do is
>scan it to find the user's record for use in the program, so the question
>is, is there any faster way of doing this(scanning for a particular user's
>record) other than reading in each record progressively and checking the
>search name against User( Var User : UserRec).UserName to see if you've
>got the right record? Any suggestions would be much appreciated, thanx,

My suggestion is a bit involved but could speed your searches up considerably.
The idea is to maintain another file as an index to the file with the actual
records.  The index file would hold record numbers and some key field,
identical to one of the fields in your data file.  The index file should be
sorted on this key.  A record in the index file might look like this:

   IndexRec = RECORD
     RecordNum : Integer;    { number of the record in the data file }
     UserName  : String[20]  { the key field }
   END; { IndexRec }

In your program you would load the index file into a two dimensional array,
keeping the record number connected to the user name.  Then when you need to
find a user record you search the array by user name.  When you find the user
name, take the record number associated with it and use it to "Seek" the data
file (look up the "SEEK" procedure in the TP manual).  You will then be
pointed right at the proper record (assuming everything goes correctly).  All
you need to do is read it!

This is a VERY brief description of this concept.  It has been the topic of
discussion here more than once, so I'm sure you'll get other responses.
Still, if everything is not real clear on it, try to find yourself some
information on indexed file handling.  The concept has been with computers
since the very beginning so there should be lots of information around on it
for any programming language.

                            Hope this helps...

                                 Mark


--- msged 1.96S ZTC
 * Origin: SWAT: Blaise-ing Code! SeaSoft Network (1:343/8.13)

*** There is a reply. See #31.


From:    Mark Hopkins
To:      Scott Wilson                             Msg #31, 12-Jan-89 07:45pm
Subject: Files

In a message of <12 Jan 89 20:27:43>, Mark Hopkins (1:343/8.13) writes:

>   IndexRec = RECORD
>     RecordNum : Integer;    { number of the record in the data file }
>     UserName  : String[20]  { the key field }
>   END; { IndexRec }

In reference to my previous message, it's actually not a very good idea to use
the user's name as a key field.  You want something that is going to be unique
to each record.  I used the UserName field hoping that it would make things a
little clearer.  You could have two users with the same name and, if that were
the case, which ever one was first in the list would always be the one that
was used.  You would never get to the second one.  Anyway, be sure to use a
unique field as your key.


                                 Mark



--- msged 1.96S ZTC
 * Origin: SWAT: Blaise-ing Code! SeaSoft Network (1:343/8.13)

*** Part of a conversation.


From:    Mark Hopkins
To:      Matt Franckiewicz                        Msg #32, 12-Jan-89 07:57pm
Subject: Bypassing the main screen


>By now I know that my version is 5.0 and I don't need to be reminded each
>time I load it.  Is there a way to bypass the opening screen?

Load the editor, go to the Options menu, choose Environment, set Zoom Windows
to On, escape back to Environment menu, choose Save Options.

That should do it.  However, you will be booted up to the editor window only.
I prefer this as I like to have the full width of the screen visible when
editing.  I assume you're turning the Zoom Windows on via the F5 key since you
are getting 79 columns before the editor scrolls to the side.  This will put
you there when you boot TP.



--- msged 1.96S ZTC
 * Origin: SWAT: Blaise-ing Code! SeaSoft Network (1:343/8.13)


From:    Mark Hopkins
To:      Matt Franckiewicz                        Msg #33, 12-Jan-89 08:09pm
Subject: Blocks

In a message of <08 Jan 89 12:19:06>, Matt Franckiewicz (1:129/32) writes:

>Is there a faster {way to begin and end blocks than the cumbersome Ctrl K
>B and Ctrl K K?  The old F7 and F8 in TP4.0 were so nice; I can't find
>anything similar in 5.0.  Is there an{ything?

You can remap all of the commands to just about any key combination you want
using the TINST.EXE utility that comes with TP.  In fact, you can reconfigure
just about everything that has to do with the IDE via TINST.



--- msged 1.96S ZTC
 * Origin: SWAT: Blaise-ing Code! SeaSoft Network (1:343/8.13)


From:    Mark Hopkins
To:      Justin Marquez                           Msg #34, 12-Jan-89 08:16pm
Subject: C versus PASCAL


> LG| Can't help but wonder where Kahn is going to take TP from here.  Can
> LG| you think of something lacking in TURBO PASCAL now?  I can't.
> LG|
>
>       Neither can I.  Hopefully, that won't limit THEIR imagination!
><grin>
>Justin Marquez

Real mouse support would be nice.  Moving code around is sure a lot easier
with a mouse!  The add on mouse pakages I've seen are just a little shy of
being very useful.  I think the editor needs to support it in order for it to
be done right.  This is all just in regard to the IDE, otherwise TP can't be
beat!




--- msged 1.96S ZTC
 * Origin: SWAT: Blaise-ing Code! SeaSoft Network (1:343/8.13)

*** Part of a conversation.


From:    Andy Lester
To:      Kevin Lowey                              Msg #35, 12-Jan-89 07:54pm
Subject: Re: HELLO

 CH>hello everybody how's life?

 KL>   I think it's pretty good, but too expensive.  I do like the pictures
 KL> in it, but then TIME gives better freebies like telephone stations and
 KL> alarm clocks.

Of course, it doesn't have much of a swimsuit issue, either.

And, this entire thread is pointless as Time, Life and SI are ALL owned by
the same people.

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** There is a reply. See #92.


From:    Andy Lester
To:      Shannon Pope                             Msg #36, 12-Jan-89 07:59pm
Subject: Re: A LITTLE PROBLEM

 AL> That's why God created the smiley face. :-)

 SP> :-) Doesn't look like a smiley face to me... Where did it originate
 SP> from?

Look at it sideways, with left being the top.  Now it should be a smiley.
There are a zillion of them...

B-)  wearing sunglasses
:-b  sticking out tongue
@:-> Elvis

etc, etc, etc...  Where did it originate?  Sheesh, who knows.  They're as old
as the hills.

(Please, let's NOT clog the echo with everyone's favorite smileys.  Please.)

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** Part of a conversation.


From:    Andy Lester
To:      Shannon Pope                             Msg #37, 12-Jan-89 08:01pm
Subject: Re: Word/LongInt

 SP> So UCSD uses the USES statement eh?

Yup, otherwise it wouldn't know what units to use, now would it? :-)

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)


From:    Andy Lester
To:      Greg Franklin                            Msg #38, 12-Jan-89 08:02pm
Subject: A Computer Term

 GF> What does the prefix "foo" as in "foobar" really stand for?  I know
 GF> that it's merely a dummy name, but what's the story behind it?

(This from memory from, probably, _The Hacker's Dictionary_.  A good book to
read... funny as hell) (Not that hell is particularly funny, mind you...)

FUBAR is an acronym from World War II for Fouled Up Beyond Any Recognition.
Programmers just changed it to foobar.  FOO and BAR are common dummy
variables, along with BAT and BAZ, although I don't know why.

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** Part of a conversation.


From:    Andy Lester
To:      George Falcon                            Msg #39, 12-Jan-89 08:04pm
Subject: GOTOs

 GF> My Pascal professor was a purist and said there's always a way to write
 GF> a program without GOTOs.  It might be interesting to see an example of
 GF> there being "literally no other way to do it", as you've said.

There is no example.  Anything can be done with repeats or whiles.  For
instance:
Loop:
  Do_this
  Do_that
  goto loop

can be done as
  while false do
    begin
    do_this;
    do_that;
    end;
(The repeat..until is a trivial exercise and is left to the reader. :-)

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** There is a reply. See #167.


From:    Andy Lester
To:      Bill Swenson                             Msg #40, 12-Jan-89 08:08pm
Subject: Re: If/Then/Else

 BS> Jonathan,  You do need parentheses.  Try:
 BS>   if (time_left < 10) and (user_name <> 'SYSOP')  then ....
 BS>
 BS> Note parentheses enclose expressions that evaluate to boolean results.
 BS> The single clause that doesn't need parentheses is an anomaly.

Not at all an anomoly, Bill.  Take for example the expression (assuming all
the variables are boolean):
  if a = b and c = d
It could be interpreted "correctly" (i.e. What I MEANT to say! :-) as
  if (a = b) and (c = d)
but it could also be interpreted syntactically correct a number of ways,  such
as:
  if (a = ((b and c) = d)

However, a plain ol' "if a=b" can't be misinterpreted.

Andy

--- msg40;36mSubject: Turbo very long integerm
as if thath=true; taxes=true;
(1:115/790.2)


From:    Andy Lester
To:      Djoerd De.fost                           Msg #41, 12-Jan-89 08:18pm
Subject: Virus in Pascal 4.0

[flame mode: restricted]

 DD> Who can give me some idee's and tips on how to create a virus in Pascal
 DD> 4.0. If been muddling allong for some time, but haven't had any *GREAT*
 DD> succes yet. Who can help me?

Good!  Glad to hear it!  Keep your destructive inclinations to yourself.

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** Part of a conversation.


From:    Andy Lester
To:      Scott Samet


---
 * Origin: THE SMORGAS-BO
Subject: >16 Files

   >   fn := concat('c:\tmp\',fn,'.tst');

 SS> I think you will find the use of a string expression (concat) on the
 SS> right side of an assignment operator causes a String[255] temporary to
 SS> be allocated.
 SS> Not one of TP's finest code generation tricks.

Hmm, could you rewrite that as, say:
here available, and size.  I trust the source wifn:=SmallerString(concat('c:\tmp\',fn,'.tst');

to get around it?

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** There is a reply. See #109.


From:    Andy Lester
To:      Heikki Levanto                           Msg #43, 13-Jan-89 06:47pm
Subject: Re: Style Debate #9,005

 HL> That I like, IF there should be global variables.  If I need a small
 HL> loop in the main program, I prefer to declare the variable just before
 HL> the main program itself, as Turbo allows that.  I know I sacrifice some
 HL> portability, but when I write for myself, I can live with that.

I usually write a program like this:

program blah;

procedure this;
...

procedure that;
...

procedure mainline;
var
  foo,bar,bat...
begin
this;
that;
...
end;

begin
mainline;
end.

That way, all of my variables in the main part of the program are still local
to the main program, and there's no way they can accidentally be modified.

Also, this is a carryover from Apple Pascal, where we had very intolerant
error-checking (intentionally).  Basically it was

read(fl,record_var); { or some disk I/O }
if IOResult<>0 then exit(mainline);

and then outside of mainline, we'd have an error handling routine.  In  Turbo,
it's not needed (in fact, is pointless) but there you go.

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** Part of a conversation.


From:    Andy Lester
To:      Heikki Levanto                           Msg #44, 13-Jan-89 06:52pm
Subject: Design methods

 HL> P.S.  If the public opinion, and (especially) the moderator expresses
 HL> their wish to continu this off-topic discussion here, I might give in.

I don't see it as being off-topic.  Any others?

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)


From:    Andy Lester
To:      Peter Stewart                            Msg #45, 13-Jan-89 06:57pm
Subject: Turbo very long integerm
as if they were just initialized variables, a la C.

It's not very good practice, and it's non-portable, but if you gotta do it,
at  least comment it.

Hmm, is there a synonym for non-portable?  (Running off to WordPerfect
thesaurus)  Hmm, nothing I really like.  "rooted", "immobile", "permanent",
none of which really apply to non-portable code.

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)


From:    Matt Franckiewicz
To:      Syd Kahn                                 Msg #46, 13-Jan-89 03:28pm
Subject: Re: error 18

Coul{d it be that the too many files refers to your source code, not the files
you are {trying to manipulate?  Too many includes, units, whatever?{



---
 * Origin: THE SMORGAS-BO

From:    Charles Falconer
To:      Dj Murdoch                               Msg #52, 12-Jan-89 10:25pm
Subject: TP4 (quasi) bug

 > INTRFC.ARC  ..... TPINTRFC.ARC

glad to here something exists.  Cannot find it on any local BBSs, and I do not
use CIS.  Please advise where available, and size.  I trust the source wi

---
 * Origin: Alice's Restaurant (Opus 1:141/488)


From:    Charles Falconer
To:      Kevin Lowey                              Msg #53, 12-Jan-89 10:28pm
Subject: ANSI vs TP

Thank you for you list of differences.  I was aware of most of them, but the
list is a handy reference.

Unless the standard has been revised, I believe that
  1.  Identifiers have no maximum, not 63 (or am I inverting the sense
      of your comment).
  2.  @ is an optional replacement for ^, not mandatory.
  3.  I am unaware of any extended new/dispose in ANSI, or in TP.
      Maybe you are referring to getmem/freemem?
  4.  PACK/UNPACK can be implemented at the user level quite simply
      if needed, especially since TP does not pack.  It is quite
      legal to ignore the PACKED attribute.  The simplest is to
      write the code embedded in the standard.

I have implemented semantic replacements for TP4 (as a unit) that correctly
implement the f^ and get operations for text files.  This allows proper
implementation of readint(f, integer) and readr(f, real).  These are included
in the unit (TXTFILES), together with readxint(integer) : boolean;
readxr(f, real) : boolean, etc.  The readx operators return true for input
error, rather than aborting.  All operators leave the terminating
char available by fptr(f) : char (replacement for f^).

One of the biggest annoyances in TP is the failure to truncate strings to the
field.  This forces one to write a char by char output loop to do it properly.

There are several compliance levels, in my eyes, for Pascal (or other
compiler) systems.  First, the system should accept valid input - any valid
input.  The absence of get/put, f^, modification of MOD prevent this in TP.

Compilers can easily check for syntactic errors (undefined, missing
punctuation, etc).  This is the first level of error checking.

It is much harder to do context sensitive semantic checking.  Insistence on
local vars for FOR indices is one such, and fairly easily implemented. Testing
for assignments to such a var is harder, and few systems do it.  This
provision is there to allow different for implementations, i.e. there may be
only a loop counter, whose value has little resemblence to the actual for
index, the variable may be locally generated on the stack, etc.  This is why
no reliance is placed on the final value.

The absence of a blank on eoln in TP is primarily a nuisance in creating
proper read(integer) etc. operations, which skip leading whitespace, and can
be solved.  There are pros and cons to the tP method, the main con being that
it IS NON STANDARD.  One of my implementations provided both worlds by
differentiating between FILE OF char, and text.  Strictly speaking, text =
PACKED FILE OF char.

Similarly, the use of { and (* as equivalents, also } and *), generated much
heat when the ISO standard was developed.  I disagree with the final result
anyway, so I cannot really chastise the TP implementation.

I had not realized that FILE FILE components were not detected by TP. Probably
goes with the assign operation, because the compiler does not keep track of
file declarations and self initialize and close.


---
 * Origin: Alice's Restaurant (Opus 1:141/488)

*** There is a reply. See #119.


From:    Charles Falconer
To:      Ross Wentworth                           Msg #54, 13-Jan-89 12:14am
Subject: STYLE DEBATE #9,005

 > Under ISO I would have to list each one separately...

Not so.  You would have to ENUMERATE each case instance to be used,

      CASE ch OF
'0','1','2','3':
        dothingsfor0thru3;

If you look at the TP code generated, you will find that they actually create
a bunch of IF statements.  This is fine for sparse cases, but very slow for
long case systems.  The ISO methodology encourages the use of a CASE table, so
that control transfers immediately to any case. The IF implementation is the
reason TP picks the first of multiple possiblilities, and the problem is that
it leaves very obscure bugs.
I.E. add a new statement at the end, and it is never executed bwcause
it was included in an earlier range.  It is much more reliable to create, for
your example, a table of charclass with values (digit, letter, other) and do
          CASE charclass[ch] OF
digit:      digitthings;
letter:     letterthings;
other:      otherthings;
            END; (* case *)

and I consider that much more readable.


---
 * Origin: Alice's Restaurant (Opus 1:141/488)

*** Part of a conversation.


From:    Charles Falconer
To:      Holger Schurig                           Msg #55, 13-Jan-89 12:22am
Subject: TP4 bug

Of course I can't use MOD as a function name - obviously I just banged the
code out on the terminal.  The compiler would have caught the goof
immediately.  MOD is a legitimate reserved word.  But the problem and solution
is evident (I hope).


---
 * Origin: Alice's Restaurant (Opus 1:141/488)


From:    Charles Falconer
To:      Shannon Pope                             Msg #56, 13-Jan-89 12:26am
Subject: Turbo4 Bug

 > > dangers of allowing functions to return things ..
 >
 > but wouldn't passing an array cause the same problem?

No, because the array definition is sitting right there in the procedure
header, and you should be aware of what dynamic storage a recursive procedure
is using.  Even the function return of a string is not that bad, but turbo
allocates PERMANENT space on the stack that is never used for such things as
string compares (who would expect that writing
IF 'abc' < concat('def', 'ghi') would allocate 256 to 512 bytes of stack
space!!.  A recursive procedure can well do a string compare, at least now you
know that the compare should be isolated (for TP) to a separate function.
DON'T MANIPULATE strings in recursive code, or the stack overflow may get you.

To attempt to clear it up:

  PROCEDURE recurse;

    BEGIN
    (* code that does string ops etc *)
    IF something THEN recurse
    END;

  first call                    orig stack ptr -> 1024 bytes allocated
  first recurse                                -> a stack marker
                                                  1024 more bytes
  2nd recurse                                  -> stack marker
                                                  1024 more bytes

and those 1024 byte blocks are doing absolutely nothing.  They are only there
to allow the string ops to work.  Something that handles
a few recursion levels, such as a tree traversal, can eat up all
available stack very easily.  The procedure heading above would lead you to
believe that ONLY the stack marker would be assigned.

but
  PROCEDURE x(a : bigarray);

and the "bigarray" is staring you in the face to warn of possible stack usage.
Now you can decide to pass it as a VAR if you wish, and either are not going
to modify it or don't care.  A VAR will cut the stack use down to one pointer
for bigarray.


---
 * Origin: Alice's Restaurant (Opus 1:141/488)


From:    Ross Wentworth
To:      Ben Lindstrom                            Msg #57, 12-Jan-89 08:22pm
Subject: Output to ...

 > readln(f,lin);
 > writeln(f,lin);

You're reading the string from the text file and then trying to write it back
to the same file.  You need to open the printer as a text output device.  For
example:

Var
  F : Text;
  P : Text;
  Lin : String;
  X : Integer;

Begin
  Assign(f,'welcome.bbs');
  Reset(f);
  Assign(p,'LPT1');
  Rewrite(p);
  While Not Eof(f) Do
  Begin
    ReadLn(f,Lin);
    WriteLn(p,Lin);
  End;
  Close(f);
  Close(p);
End;

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** There is a reply. See #155.


From:    Ross Wentworth
To:      Djoerd De.fost                           Msg #58, 12-Jan-89 08:27pm
Subject: Virus in Pascal 4.0

 > Who can give me some idee's and tips on how to create a
 > virus in Pascal 4.0. If been muddling allong for some time,
 > but haven't had any *GREAT* succes yet. Who can help me?

I'm glad you haven't had any success and hope it stays that way.

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** Part of a conversation.


From:    Ross Wentworth
To:      Djoerd De.fost                           Msg #59, 12-Jan-89 08:29pm
Subject: How to write a virus in Pascal.

 > information on how to build a virus in pascal. I'm NOT
 > (repeat NOT) intending to release any destructive programs,
 > compiled or not, to the masses.

But we have no way of knowing that!

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** There is a reply. See #93.


From:    Ross Wentworth
To:      Les Fenison                              Msg #60, 12-Jan-89 09:37pm
Subject: Talking to X00.SYS

 > dos.  I know there is something that can go in the
 > Initialization of X00 that effects control  C but I don't
 > really understand assembler or registers.  Here is what I

Here is the description of the Initialize Driver function:


 AH = 04h    Initialize driver

     Parameters:
       Entry:  DX = port number
                    ( BX = 4F50h
               ES:CX = ^C flag address --- optional )
       Exit:   AX = 1954h if successful
               BL = maximum function number supported
                    (not counting functions 7Eh and above)
                    BH = rev of FOSSIL doc supported

This is used to tell the driver to begin operations, and to check that the
driver is installed.  This function should be called before any other
communications calls are made.  At this point all interrupts involved in
supporting the comm port (specified in DX) should be set up for handling by
the FOSSIL, then enabled.  If BX contains 4F50h, then the address specified in
ES:CX is that of a ^C flag byte in the application program, to be incremented
when ^C is detected in the keyboard service routines. This is an optional
service and only need be supported on machines where the keyboard service
can't (or won't) perform an INT 1Bh or INT 23h when a Control-C is entered.
DTR is raised by this call.  The baud rate must NOT be changed by this call.
--------------------------------
You need to the initialize routine a pointer to byte that X00 will increment
when ^C is pressed.

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)


From:    Ross Wentworth
To:      Bryan Minihan                            Msg #61, 12-Jan-89 09:50pm
Subject: Colors in Pascal

 > could possibly get my hands on some. (dog chewed mine...ha
 > ha...I really lost them in the big move)

Call Borland and tell them you lost your manual.  Have your disk with the
serial number handy and they'll ship you a new one for a reasonable price.

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)


From:    Ross Wentworth
To:      Shannon Pope                             Msg #62, 12-Jan-89 09:51pm
Subject: Re: A LITTLE PROBLEM

 > :-) Doesn't look like a smiley face to me... Where did it
 > originate from?

Try lying down!

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** Part of a conversation.


From:    Lawrence Lessing
To:      Ron Dexter                               Msg #63, 12-Jan-88 04:29pm
Subject: Re: bbs's in TP??


Hmmm... Is this a joke?! Are you the same Ron who runs Soapbox 1? Just
wondering...

Anyway, I recommend you call WWIV the Original (BBS) at [phone]. Keep
trying because it is almost ALWAYS busy... On there, they might still support
WWIV 3.21d....

I recommend you use Turbo Pascal 3.0 to compile it because it makes extensive
use of overlays and chaining files. I have the source code to it and it is
very packed. That is why the author, Wayne Bell, started the next generation.
WWIV 4.**

Sorry, I really don't have time to do extensive examining of the source code,
but it seems very easy to convert to TP 5.0 which is what I now use and I LOVE
it!!

                                               -> Lawrence <-
--- QuickBBS v2.03
 * Origin: Torrance BBS * Los Angeles, CA * [phone] * (1:102/345)

*** There is a reply. See #228.


From:    Ross Wentworth
ven't had a chance to look at it yet).  Let me ihael                  Msg #64, 13-Jan-89 06:43pm
Subject: Re: Style Debate #9,005

 >  MF> CASE Choice OF
 >  MF>   'Y' : Answer_Is_Yes;
 >  MF>   'N' : Answer_Is_No;
 >  MF> END;
 >
 > Only problem is that code like that eats up code like
 > crazy, since it's gotta  make a lookup table up to the
 > highest value in the list, so you're creae 4.0, just c with
 > values from 1..ORD('Y').  Codewise, the double IF is much

Are you talking about Turbo Pascal?  I just did a quick check with TP 5.0 and
found that it dos NOT use a lookup table.  A case statement is just like a
bunch of IF/THEN statements.

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** Part of a conversation.


From:    Ross Wentworth
To:      Andy Lester                              Msg #65, 13-Jan-89 06:45pm
Subject: Re: Style Debate #9,005

 >    name : string           <======!!!!
 >    age  : integer;
 >    sex  : char
 >    SocSecNum : string[9]
 >
 > which will, of course, blow up the compiler, since it NOW
 > expects the ; after  char.

I think you left a semicolon off after the "name : string" statement.

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** Part of a conversation.


From:    Ross Wentworth
To:      Andy Lester                              Msg #66, 13-Jan-89 06:47pm
Subject: Re: FILLCHAR

 > Something like:
 >   Fillchar(byte_array,sizeof(byte_array),0);
 > is pretty darn portable.  It should run on anything,
 > regardless of whether  it's a PC or not.

FILLCHAR is not part of the ISO standard so is NOT portable to other
compilers.  Of course, ISO Pascal is so feeble I wouldn't want to program in
it.

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** There is a reply. See #73.


From:    Ross Wentworth
To:      Tim Ashman                               Msg #67, 13-Jan-89 06:57pm
Subject: TP3.0

 > don't think there is an answer but I'll ask anyway.    In
 > TP3.0 is there a way to truncate a file at a certain record
 > number.

This procedure (written under TP 5.0!) will truncate a file to the current
file position.  That is, the current position will be made into the end of
file (EOF) and all data following it will be lost.  It shouldn't be too
difficult to modify it for TP 3.0.


Procedure Truncate(Var F);

Var
  Handle : Word Absolute F;
  Regs   : Registers;

Begin
  With Regs Do
33m    Charles Falconer
To or 96 or even := 0;
    MsDos(Regs);
  End;
End;

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** Part of a conversation.


From:    Tony Shelton
To:      All                                      Msg #68, 13-Jan-89 10:50pm
Subject: .GIF

If I remember right, someone on this echo was looking for source code for
encoding GIF files.  I found a file here in the Dallas area that purports to
be what you want (I haven't had a chance to look at it yet).  Let me ihael
To:      Finn Stadel                              Msg #70, 13-Jan-89 08:51pm
Subject: Re: Turbo pascal 4

->  One bad thing about PASCAL I think is the limited no of
-> straing handleing function that exist.. no sliceing or
   It does have UPCASE (convert lower or upper-case to upper).  However,
since you do say you have 4.0, just create a unit of often used string
functs/procs and do a USES in your programs that need 'um, and you won't
55pm
Subject: Re: 3mSubject:/p's.

->  What if an error occrs, such as f.i. end of file, when
-> reading data.
->  One has to check for all errors, each time one does
    I don't have the 4.0 docs, but I know 5.0 has a general error handler
for each unit and such like.  Look into the units section of the manual.

-> if the user presses ESC to 'get back' or some errounious
-> data is entered etc. ect. ?
    Sorry, but the way you mentioned is about the only way to do it w/
Pascal.  Or, you could write an AL program which pulls so much out of the
stack and then calls the procedure/function/program you wanted to exit
to.....(grin)

->  cheers all, and remember:  Keep Murphy out of your
-> programs, he's got nothing to do in there.. !
    What?  Keep him out?  I just train him to do the wrong thing at the
wrong time so that it comes out right; you know, a double-negative makes a
positive!! (doesn't it?)

==--->Doug<---==
--- QuickBBS v2.03
 * Origin: ]≡[ The Pascal Programmer's Club ]≡[ [phone] (1:170/403)

*** There is a reply. See #108.


From:    Doug Michael
To:      Joerg Hegermann                          Msg #71, 13-Jan-89 09:08pm
Subject: Re: HELP !!!!!!!!!

-> I did alraedy split it up in 5 units each about 30 Kb of
-> source.
   Are you using 4.0 or 5.0?  4.0 doesn't care how many units you use, you
can only have 65536 bytes of code.
==--->Doug<---==
--- QuickBBS v2.03
 * Origin: ]≡[ The Pascal Programmer's Club ]≡[ [phone] (1:170/403)


From:    Doug Michael
To:      Ben Lindstrom                            Msg #72, 13-Jan-89 09:16pm
Subject: Re: PRoblem

->  How do I access the modem without using 3milloin bytes??
->  I can't seem to write of read from the modem.. I am
-> writeing an online game.. And I need runtunes for that and
    Check out FOSSIL's, you can find many different ones all over the nets.
In fact, there are many Turbo Pascal interfaces for FOSSIL's floating
around too.  I would suggest looking for them in some of your local boards.
The only FOSSIL I can tell you about is X00.SYS, someone else will have to
give you the names of others.
==--->Doug<---==
--- QuickBBS v2.03
 * Origin: ]≡[ The Pascal Programmer's Club ]≡[ [phone] (1:170/403)

*** There is a reply. See #183.


From:    Charles Falconer
To or 96 or even 19200 baud modem,
because I could not use it anywhere.
Besides a c128 can't transmit faster that 1200 :-)
Here's something for you. A wyse 60 terminal transmits and recieves
at 38,400 baud Beat that!
Pat
Responsive flames are welcome, since I started by sticking my
proboscus in. (It's size rivals the star of this net :-) )


---
 * Origin: VAXCat, Merrimack, NH; Home of the Black VAXCat; [phone]
(Opus 1:132/777)

*** There is a reply. See #75.


From:    David Vins
To:      Patrick Farrell                          Msg #75, 14-Jan-89 03:48pm
Subject: Re: 300 BAUD

  Bull a C-128 can't transmitt faster than 1200!!!  I have one, and I hooked
up my US Robotics modem to it, and it worked fine, special thanx to Paperclip
III, and I have access to 2400 on both my IBM and C-128.
--- QuickBBS v2.03
 * Origin: The Outpost │ Nashua NH »HST« (1:132/113)

*** Part of a conversation.


From:    David Vins
To:      Patrick Farrell                          Msg #76, 14-Jan-89 03:55pm
Subject: Re: 3mSubject: Thanks..

I got it to work.. I had the CRT unit up.. when I did not need it..

Do either on of you know any TURBO PASCAL modem procedure?
I can't get it to go to the modem..

Dave will you procedure if modified would send chars to a BBS that took chars
from BOIS work? Or would I be better just writing Procedures to go to the
modem.. (This is an online game I am writing)..

Thanks again..
- Ben Lindstrom

--- ConfMail V4.00
 * Origin: Late Night With Norton St. Louis Park, MN [phone] (1:282/19)


From:    Ben Lindstrom
To:      Doug Michael                             Msg #80, 16-Jan-89 07:46pm
Subject: Modem Procedures..

Ok.. I was look more like a file that had Modem procedures but
I will dig up all I can and X00.SYS. And how to use it..
- Ben Lindstrom

--- ConfMail V4.00
 * Origin: Late Night With Norton St. Louis Park, MN [phone] (1:282/19)


From:    Bill Sappington
To:      Andy Lester                              Msg #81, 15-Jan-89 11:32am
Subject: Re: FILLCHAR

Read about it in one of Duntemann's books.  I will find the page number at a
later date. I do not beleive FILLCHAR is supported by either ISO pascal or any
of the other implementations of PASCAL. However I will bow to the challange
and look it up..

Bill......
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)

*** This is a reply to #73.


From:    Bill Sappington
To:      Sam Almassri                             Msg #82, 15-Jan-89 11:48am
Subject: Re: 'PASCAL LESSON'

Well ya kinda hafta use your imagination with pascal.  It contains 2 calls for
noise.  They are as follows:

Sound(400) ; --- turn on the noise at 400hz
NoSound    ; --- turn off the noise.

That is the entire thing in a nut shell.

Waht you can do is stuff like below :

for a := 1 to 1000 do
   Begin
     Sound(a) ;     delay(random(1000));
     nosound;
   end;

That should make some interesting noise.  Just use your imagination to change
the off time and the on time and the frequency of the noise.

Bill.......
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)


From:    Bill Sappington
To:      Detlef Kloeser                           Msg #83, 15-Jan-89 11:54am
Subject: Re: TURBO PASCAL 5.0

I highly recomend three books.  Complete Turbo Pascal by Duntemann as it
covers up to version 3.0 and provides a wealth of knowlage and examples. 2ndly
I recommend the follow on to that book called rats I cant remember the name !
any way it is also by duntemann and contains just about everthing you ever
wanted to know about assembler interfaceing.  Thirdly I recommend Tom Swains
book. It rounds everything out and makes an excenelnt refernce...
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)

*** There is a reply. See #124.


From:    Dave Goggin
To:290/1.12)

*** There is a reply. S.12)

*** Part ofn-89 03:53pm
Subject: REPEAT SYNTAX

remember you can format _ANY_ way you want in pascal.  just remember, that
except in writelns, that a EoLn=comment=space, and therefore, wherever a space
is allowed, an EoLn is also.
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)


From:    Dave Goggin
To:      Heikki Levanto                           Msg #85, 15-Jan-89 04:01pm
Subject: SPACING

OK, here's my opinion:


IF a=1
   THEN Inc (a);

no questions asked.
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)


From:    Dave Goggin
* Origin: Inflection Point       Opus Brixius (2me you have to tell turbo pascal what kind of pinter you are
 > uSubject: BASIC

  I agree.  I've programmed so much in Pascal, etc, that I can't even write an
unstructures 'spagetti' program.  I have to write lost of stuff like:

10 CALCULATE=300
.
.
128 GOSUB CALCULATE
otherwise I'm lost!!!
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)


From:    Peter Stewart
To:      Jon Witmer                               Msg #87, 14-Jan-89 02:11pm
Subject: Re: <WIRTH> AND <STYLE DEBATE #9,005>

 > Are you sure - I have read books by him and I thought I
 > read that it rhymed with hurt. Assuming you are correct, I
 > can't think of any word that evens sounds like that!

Yes, I am sure. 'Veert' with a short 'ee', ask anyone who speaks German.

--- FD 2.00
 * Origin: Howth Castle and Environs (1:135/20.2)

*** This is a reply to #69.


From:    Peter Stewart
To:      Steve Butler                             Msg #88, 14-Jan-89 02:24pm
Subject: Re: Copyright (C) ...

 >  > Is my memory as bad as usual, or has the (US) law
 >  > changed ??
 >
 > I'm not able to check your memory (no parity errors
 > detected on this end); BUT, the US did change the law about
 > a decade ago.

Even more recently, in December '88, the US signed the Bern Convention,
increasing copyright protection.

--- FD 2.00
 * Origin: Howth Castle and Environs (1:135/20.2)


From:    Bruno De.montis
To:      Jon Guthrie                              Msg #89, 11-Jan-89 08:01pm
Subject: Re: MLC VERSUS PASCAL

 > It has been
 > my experience that poorly coded assembly language always beats well
 > coded (and highly optimized - not that I've had any real experience with
 > highly optimized compilers) HLL code.

Mine too...

 > Higher level
 > languages were first invented so that the programmer could ignore
 > irrelevant detail.  Since the programmer doesn't have as much to worry
 > about, his work goes faster with a HLL.  Also, usually, the execution
 > time saved by a hand-coded assembly program is not worth the extra
 > programmer effort.

And that's why I don't bother to write anything in assembler BUT small,
often-used, time-critical routines.

For screen updating, string processing, and such, I sometimes find it
necessary to use assembly. But I code at the same speed in Pascal or C
and in assembly language (in lines perw about rewriting the standard units so that the          <BdM>

--- ConfMail V4.00
 * Origin: Inflection Point       Opus Brixius (2:290/1.12)

*** There is a reply. S.12)

ter than some professionals.

True enou** There is a reply. See #203.1;40;32m
To:      Bertrand Renuart                         Msg #91, 12-Jan-89 10:12pm
Subject: Re: PASCAL - DOS

Hello Bertrand,

There are several ways to know if it is safe to interrupt DOS and use it.
The safer one I found is to trap Int 28h. The handler may call all DOS
functions except 00h thru 0Ch (and 50h/51h under DOS 2.xx).

If it's not enough for you (and as you are in Brussels), call INFOBoard
(2:290/1) and download file INTER88.ARC. You'll find in it a lot of stuff
about INT calls, and some undocumented (by MS, at least) ways to know if
you can use DOS I/O.

Hope this helps you,

<BdM>

--- ConfMail V4.00
 * Origin: Inflection Point       Opus Brixius (2me you have to tell turbo pascal what kind of pinter you are
 > using.
 >
 > I know you have to do that in c.

When you are used to C you wil have no problems with pascal pointers. They are
allway HUGE pointers. This means FOUR byte pointers with segment and offset
part, where the offset part is allways between 0 and 15. There is no way to
change this. I think you can fiddle with the pointers to make them non
normaliced and still make things work but TURBO PASCAL allways gives you HUGE
pointers.

Greetings from Denmark.


--- msged 1.943S TC (JW)
 * Origin: Wolf's Point. Nærum, Denmark.  (fidonet 2:230/30.10)

*** There is a reply. See #135.


From:    Jesper Wolf
To:      John Wolter                              Msg #95, 11-Jan-89 10:24pm
Subject: Accessing clock

Hello John.

 > Can anyone tell a self-taught Pascal programmer who just discovered Turbo
 > Pascal how to access the system clock?  Thanks.

for accesing the system clock you have to include the dos unit. In this unit
there are two procedures:

procedure GetTime(var Hour, Minute, Second, Sec100 : word);

procedure SetTime(Hour, Minute, Second, Sec100 : word);

The first returns the system time to you, the second one set the system time
to the values you supply in the call.
If you are using Turbo 3 these procedures are defined in a file called
something like ms-doslib.pas .

Here is a simple example usind turbo 4:
Program test;
uses Dos;
var
       t,m,
       s,hs    : word;
begin
 { get the system time }
 gettime(t,m,s,hs);
 { write the time to the screen }
 writeln('The time is now ',t:2,':',m:2,':',s:2,',',hs:2);
 { thats all folks }
end.

Hope you can use this.

Greetings From Denmark.





--- msged 1.943S TC (JW)
 * Origin: Wolf's Point. Nærum, Denmark.  (fidonet 2:230/30.10)

*** There is a reply. See #136.


From:    Jesper Wolf
To:      Lou Garner                               Msg #96, 11-Jan-89 10:33pm
Subject: C versus PASCAL

Hello Lou.

 > Can't help but wonder where Kahn is going to take TP from here.  Can > you think of something lacking in TURBO PASCAL now?  I can't.

What about more than 64 kilobytes of data? (how about 64 KB pr unit ?)
What about realy huge arrays?
What about speeding up the 8087 emulation? (It really sucks)
What about procedures with a variable number of parameters, like write (..) ?
What about cleaning up the code generation so all the jmp 2 can be avoided?
How about rewriting the standard units so that the          Msg #103, 11-Jan-89 11:36am
Subject: Re: Pascal Programming BBS

 > Believ(ON/OFF) from DOS, but when I use unit CRT I caneading ! -----[K
True enou** There is a reply. See #203.


From:    Heikki Levanto
To:      Djoerd De.fost                           Msg #104, 11-Jan-89 12:27pm
Subject: Virus in Pascal 4.0

> Who can give me some idee's and tips on how to create a virus in Pascal
> 4.0. If been muddling allong for some time, but haven't had any *GREAT*
> succes yet. Who can help me?

> I'm NOT (repeat NOT) intending to release any destructive programs, compiled
> or not, to the masses.

I could tell you quite many things I have been thinking of, BUT I'M NOT GOING
TO !

You say you have on bad intentions, but how should I trust you ?  And even if
I did, there are hundreds of other people reading this echo ( thous[1;40;32m
To:      Doug Micressed. I bet  at least blow the thing up by
accident. The best way to keep a virus from not getting loose is not to write
it.

I have no authority on this, so I just suggest communications Echo...
Incidently, the curre
 OV> Hallo
 OV> I aen, or instructing on how to make a
virus 'better', this person should excluded from all fidonet activity for a
while.  But this I leave for the moderator and the sysop community to decide.
Personally I just want to keep the dingBoard - YooHoo 2 Ya'll 2 - [phone] (1:um : string[9]

 R[K
yours truly

│  ┌─ ─┐
r[K└─ ─┘ ─┘  Heikki Levanto
Levanto Software Development




--- msged 1.95S ZTC
 * Origin: CONSqt
 SF> for help with e Development (2:230/22.28)

*** Part of a conversation.


From:    Per Holm
To:      George Butts                             Msg #105, 14-Jan-89 01:39am
Subject: opus user list

Hi George,

 >  CD> with src whereas 102 doesn't have the src. I've also been trying to

I do think that Colton read the .5rc (FIVE R C) as Src.

 >   OpInt102.Arc is available for FREQ from 1:152/2 The Buffer Board.  This
 > is, alas, the 4.0 version.  I have tried to FREQ the Opint102.5rc file
 > from Denmark with not luck.  I connect at 2400, but can't establish a
 > good link.

The TP5 version might be avaliable at either 1:152/4 or 1:153/107, last week i
got to calls (Kirk D. and Chris A.) to get this version, and at least one of
them might have made it avalible at their boards...

The OP102-1.ARC update should be there too. This is for BOTH the TP4 and the
TP5 versions.

Looking forward to hear from you.

   Per.

--- ConfMail V3.31ph3
 * Origin: Asgaard BBS - Home of OpInt - [phone] (2:230/22)


From:    Preben Bille-Brahe
To:      Nathan Stout                             Msg #106, 13-Jan-89 02:11am
Subject: Keep command, Cntrl-C

 >   I cannot figure out how to use the KEEP command in Turbo Pascal 4.0...
 > I've read everything the book says, but I am still completely puzzled.  all
 > I want to be able to do is have the computer recognize CNTRL-C and clear
 > the screen when I press that key...
 >

Hope somebody can help you with KEEP, I usually do TSR's in Assembler...

What I do want to comment on, is Cntrl-C. This will require INTERRUPT-handling
(Int1Bh or Int23h) and  <<< SNAP >>>

Now to a small problem of mine with these Interrupts in TP5 !! ( Yes this
probably is a bit rude...:-)

As y'all know Ctrl-C has its own (MSDOS) interrupt (Int23) and Ctrl-BREAK has
another (IBM-origin ?), Int1B.

TP5 has two procedures SetCBreak,GetCBreak to set,get Ctrl-C status as
recieved
(ON/OFF) from DOS, but when I use unit CRT I caneading ! -------->

Indentation : Courtesy : Style Debate #9,005 / Andy Lester !

Best regards to Y'all from
                            Preben

     in Denmark ( There's something still rotting in ..... )


--- ConfMail V4.00
 * Origin: PBB SERVICE (Vanishing Point in East.7 Denmark) (2:231/40.4)


From:    Steve Fesperman
To:      Charles Cremer                           Msg #107, 14-Jan-88 11:47am
Subject: Printer availability


Thanks, Charles, for the Printer info.  Looks formidable to my small
mind, but I'll study it and try to puzzle it out.

Steve

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)


From:    Erik Troan
To:      Doug Micressed. I bet he can call about 2 places!
 PF> That's about all that support 9600 baud.
 PF> YES THIS IS A FLAME!!!!!!

Maybe you guys should take this modem talk over to the communications Echo...
Incidently, the curre
 OV> Hallo
 OV> I am using turbo pascal but not very long
 OV> Can some one help me with the following question
 OV> How can I convert integers to string

Use the STR procedure with TP5...



--- Msg V3.2
 * Origin: SoundingBoard - YooHoo 2 Ya'll 2 - [phone] (1:um : string[9]

 RW> I think you left a semicolon off after the "name : string" statement.

Yeah, I did.

Andy


--- msged 1.95S ZTC
 * Origin: CONSqt
 SF> for help with a printer-testing routine, I offer my most sincere
 SF> thanks, and only hope I can repay the favor in kind someday.  Failing
 SF> that, I DO have a younger sister...

Ah, he knows what programmers really want!  Not bits of code...

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** This is a reply to #17.


From:    Andy Lester
To:      Gary Godfrey                             Msg #123, 14-Jan-89 03:14pm
Subject: Text Editor

 GG> Anyone know where I can get my hands on a simple text editor with
 GG> source ? Written in Pascal of course ;-)

Turbo Editor Toolbox seems to be your numero uno source.

Andy


--- msged 1.95S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** Part of a conversation.


From:    Ed Swierk
To:      Detlef Kloeser                           Msg #124, 14-Jan-89 08:43pm
Subject: Re: Turbo Pascal 5.0

 > Is there much difference
 > between versions 4.0 and 5.0 in regard to programming? If
 > not I could buy the book by Tom Swan called:Mastering
 > Turbo Pascal version 4.0 and use it as a tutorial.Any
 > advice ?

You can probably get Turbo Pascal Tutor directly from Borland, though you will
not get a bargain price for it.

Turbo 5.0 has not significantly changed 4.0 as far as the basic language is
concerned.  It includes a few new things like procedure types and overlays,
and has a built-in debugger.

Mastering Turbo Pascal 4.0 is a very good tutorial, probably one of the best.
That's how I learned to program in Pascal, and it's the book I use most when
I'm programming.  It not only teaches standard Pascal, but also teaches Turbo
Pascal right along with it.  And most of the examples in the book should work
without modification in Turbo Pascal 5.0.

                              --==<< Ed >>==--

--- CM 4.6x
 * Origin: E.B.B.B.S. - SEA/Opus/HST/PCP Relay 1 - (1:107/323)

*** Part of a conversation.


From:    Ed Swierk
To:      Robbie Napier                            Msg #125, 14-Jan-89 08:50pm
Subject: Re: Copyright

 > the sysop of the board told me that you can't just ask
 > for money.  He said
 > you have to register it, along with some other stuff.
 > Do you have any info

Basically, asking for money is all you have to do.  Just write your program,
write good documentation, and include a Copyright 198x John Doe in the program
and the documentation.  You're set!  You might want to find out about
registering your copyright in the copyright office, but that's only necessary
if you plan to take legal action (very rare, like SEA/PKware).

                              --==<< Ed >>==--

--- CM 4.6x
 * Origin: E.B.B.B.S. - SEA/Opus/HST/PCP Relay 1 - (1:107/323)

*** Part of a conversation.


From:    Loyd Craft
To:      Andy Lester                              Msg #126, 13-Jan-89 10:13am
Subject: Re: STYLE DEBATE #9,005

In a message of <11 Jan 89 23:15:34>, Andy Lester (1:115/790.2) writes:

>I'm now officially sorry for ever asking about indentation styles:  It
>gives  me stomach cramps to see so many people writing programs wrong! :-)

If'n the program works, it can't bee THAT wrong :)   I write mine the way Dave
Gogarin(Sp) does Mostly because that is the way I was taught, and the way the
tutorial had been written up.  It just made sense.....    You can take a look
at the page, and when writing this way, you SHOULD be able to take a piece of
paper and line up all begins and ends and see each block of code stand apart
from one another...

  It is one thing I Completely LOVE when it comes to programming in Pascal...
being able to split the lines, and do it "Your" way.   Not like
GWbasic/Basica/etc...   I know you can be more flexible with turbo basic, and
QuickBasic, but I do not use them....  (Something about 35K Exe files :)

I am kind of glad you asked that question though.... It is interesting to
see...  I realise that with My way you end up with bigger source files,
because of all the indenting with spaces, but then again, I'm not using a
little disk drive like on the Commodores, Or even a 360K drive...  when ya got
30 megs to use on a Personal machine, you have room to play with  (Even if you
are a pack rat like eme  :)

Loyd


--- msged 1.96S ZTC
 * Origin: MicroCosm Opus Owosso, Mi (517)-725-8077 (1:159/900)

*** Part of a conversation.


From:    Loyd Craft
To:      Heikki Levanto                           Msg #127, 14-Jan-89 09:54am
Subject: Re: A Little Problem

In a message of <08 Jan 89 13:20:13>, Heikki Levanto (2:230/22.28) writes:
> >  TG> In my opinion, there's only one way to be fully planned before one
> >  TG> writes a program and that is flowcharting. That means spending
> >  TG> many
> >  TG> hours doing paperwork before the first line of code is written.
>
>Flowcharting', you say, without specifying more.  In the latest
>ACM/SIGSOFT newsletter there was a survey of some commonly used graphical
>design methods, they had 18 of them.  They grouped them in three:

You need to direct this at TG> not LC>   I am not responsible for that text
you quoted  (I think I quoted it in a message to TG>)


 - Just so you know

Loyd




--- msged 1.96S ZTC
 * Origin: MicroCosm Opus Owosso, Mi. (517)-725-8077  (1:159/900)

*** Part of a conversation.


From:    Jim Forbes
To:      Ben Lindstrom                            Msg #128, 14-Jan-89 07:20pm
Subject: File Reads/Writes

> I can't get it to print text graphics from a file.
>  Var f:text;lin:string;x:integer;
> .....
>    readln(f,lin);
>    writeln(f,lin);
             ^
             |  your telling the program to write 'lin' to file 'f'
which is the file you just read from.  To send 'lin' to the screen use:
writeln(lin); to send it to the printer use: writeln(lst,lin);  In
ver 3 'lst' is predefined.  In ver 5 it is defined in the unit 'printer'
so you must include that unit in a 'uses' statement.

> And I can't get any modem procedure working. could some one help me ...

  You did not say specifically what your problem is, but you might check
to see that your not making the same mistake. ie. sending your output
somewhere else than you intended to.


---
 * Origin: Backstreet BBS [HST], Fulton, NY * (315)-593-1589 (Opus 1:260/325)


From:    Tommy Grusendorf
To:      Bob Wiley                                Msg #129, 14-Jan-89 12:12pm
Subject: Re: TP 4.0 and different problems

The corect way to change the text color in TP 4, is using the TEXTCOLOR
command (eg: TEXTCOLOR(MAGENTA);)


---
 * Origin: ESP BBS: WOC'ing Tall! (Opus 1:134/12)

*** There is a reply. See #145.


From:    Tim Ashman
To:      Norbert Lange                            Msg #130, 14-Jan-89 07:18am
Subject: Re: TP3.0

 >  > there say at record 6.
 >
 > Yes, simply seek to the desired record, (ie.  seek(FileVar,Record);)
 > and then do a trunc(FileVar);

Norbert, thanks after I sent the message out I stumbled, and I mean stumbled
across the truncate command while I was looking for a different one.  I
appriecate you answering me.  Have a good one.

Tim

--- ConfMail V4.00
 * Origin: Tim's Board -- WOCin' over here (1:105/316)

*** Part of a conversation.


From:    David Vins
To:      Bill Sawyer                              Msg #131, 15-Jan-89 09:31am
Subject: Re: Virus in Pascal 4.0

   about your reply to the man wanting to write the virus

   HURRAHH!!!!

 clpa!!!!
 CLAP!!!!!!!!!!
 CLAP!!!!!!!!!!!!!
--- QuickBBS v2.03
 * Origin: The Outpost │ Nashua NH »HST« (1:132/113)

*** Part of a conversation.


From:    Tom Adams
To:      Steve Fesperman                          Msg #132, 15-Jan-89 02:33am
Subject: Re: Print routine

My ezample to you should have used LST, not LPT.  Regards, Tom

---
 * Origin: ASCII -Home of TURBO PROGRAMMER- Raleigh [phone] PCP:NCRTP
(Opus 1:151/119)

*** Part of a conversation.


From:    Jim Segler
To:      Justin Marquez                           Msg #133, 11-Jan-89 09:50am
Subject: Re: Philosophy

AREA:PASCAL
I want to know how you learn to drive ? you can't drive a car or truck with a
book you just learn the rules driveing is done best with hands on.......

--- D'Bridge 1.18m
 * Origin: SpaceWalker BBS (1:232/204)

*** Part of a conversation.


From:    Jim Segler
To:      Dave Goggin                              Msg #134, 11-Jan-89 09:53am
Subject: Re: 300 BAUD

AREA:PASCAL
AMEN::::::

--- D'Bridge 1.18m
 * Origin: SpaceWalker BBS (1:232/204)

*** Part of a conversation.


From:    Hal Smith
To:      Brad Corsello                            Msg #135, 15-Jan-89 11:27am
Subject: Re: TP 5.0 and intelligent linking

Brad,
  Yeah, I tend to get on a soap box at time and run off at the keyboard.
That's the problem with echos.  You can waste lots of time, even though you
get good stuff.
-Hal
--- QuickBBS v2.03
 * Origin: Transient Technologies *PASCAL* Programming echo <HST> (1:280/302)

*** This is a reply to #94.


From:    Wesley Williams
To:      Eric Givler                              Msg #136, 14-Jan-88 09:53pm
Subject: Re: Accessing clock

 >
 >  >  RW> Declaration   GetTime(var Hour, Minute, Second, Sec100:
 >  TG> Just so you know, gettime is supported in 4.0 also.

 >  Thanks for that blurb Tim.  I'm trying to learn more DBASE III at
 > work and Turbo at home.  It's starting to drive me crazy.  Maybe I'm
 > just losing it.                       ERIC
I'm REAL new to PASCAL so with the GETTIME function how do you put it up on
the screen??

Later,
WW]I[

--- FD 2.00
 * Origin: Down in Music City, Pascal lives...The Conversation Corner
(1:116/31)

*** Part of a conversation.


From:    Steve Fesperman
To:      Detlef Kloeser                           Msg #137, 15-Jan-88 12:02pm
Subject: Turbo Pascal 5.0


The general programming rules are about the same for both TP 4.0 and 5.0.
The biggest difference in the 2 is the integrated debugger which comes
with version 5.0.  And it's a beaut.  Any book on Turbo 4.0 will be
accurate for 5.0 in almost all circumstances.

--- QuickBBS v2.03
 * Origin: The Way Station -- North Charleston, SC -- (1:372/1)

*** Part of a conversation.


From:    Dionis Smith
To:      All                                      Msg #138, 14-Jan-89 08:04am
Subject: 32-CRC Value

   Does anyone know how to go about finding the 32-CRC Value of a String ?
--Dionis Smith
--- QuickBBS v2.03
 * Origin: The Trading Post (1:363/4)


From:    Dionis Smith
To:      All                                      Msg #139, 14-Jan-89 08:07am
Subject: Window Utility

  I am currently looking for the Source to a Window Utility. I download the
file has TPASCAL.ARC , it contains a EXAMPLE.PAS and WINDOWS.TPU. There is
no mention of the Author. I wrote a Utility for QuickBBS in 4.0 and would
like to release another version but I need to recompile the unit for TP
5.0. I have looked into other Window Utilities but I'm leaving that for my
last choice, it would take along time to change everything. I believe the
syntax to it was Make_Window and Remove_Window. If anyone might know the
Author and/or a new version and/or the Source Code please let me know ?

--Dionis Smith
--- QuickBBS v2.03
 * Origin: The Trading Post (1:363/4)


From:    Dionis Smith
To:      Tim Ashman                               Msg #140, 15-Jan-89 08:09pm
Subject: Re: TP3.0

-> @ In TP3.0 is there a way to truncate a file at a certain
-> @record number.
-> @ ie.  a file has 10 records of said length each.  I want to
-> @search for a particular record and truncate the file there
-> @say at record 6.  I want to do this without reading in the

Well, I do not have my TP 3.0 manual handy but I have my 4.0 And 5.0. Try
using the command Truncate(f) (* F is a file variable of any type *). All
records past the current position in the file area deleted. So you would
Seek(F,6) then do a Truncate(f).

--Dionis Smith
--- QuickBBS v2.03
 * Origin: The Trading Post (1:363/4)

*** This is a reply to #130.


From:    Heikki Levanto
To:      Lou Garner                               Msg #141, 13-Jan-89 03:13pm
Subject: C versus PASCAL

 > Can't help but wonder where Kahn is going to take TP from here.  Can
 > you think of something lacking in TURBO PASCAL now?  I can't.

- Less memory requirements
- Parallel programming
- Tightly following some standards ( ANSI ) ( optional, I hope )
- 3D graphics
- Pascal++ ( that is object oriented stuff, I don't know how )
- Faster compilation ( yes, but still faster )
- Logic programming ( like in Prolog )
- Mouse support in programs and in the Integrated Environment
- DWIM ( Do What I Mean ) and self-correcting syntax check

I'll find more before he's got all these out !

yours
  Heikki

--- ConfMail V4.00
 * Origin: LSD - Levanto Software Development (2:230/22.28)

*** Part of a conversation.


From:    Heikki Levanto
To:      Tomas Gradin                             Msg #142, 13-Jan-89 03:20pm
Subject: Can not figure...

 >> {$I+)
 > A simple, but disastrous mistype of } as ), in '{$I-}'...

I've seen many of those. ( me and my thick fingers ).  The best way to find
them, or at least one possible way, is to put some empty comments here and
there in the program, and if you get an error message just after {}, you can
guess that the bug is between that {} and the previous comment.



--- ConfMail V4.00
 * Origin: LSD - Levanto Software Development (2:230/22.28)

*** There is a reply. See #181.


From:    Heikki Levanto
To:      Bruno De.montis                          Msg #143, 13-Jan-89 03:24pm
Subject: CLOCK ROUTINE

 > P.S.: Does anyone out there know a clean way of daisy-chaining interrupts
 > in Turbo Pascal ? I don't mind relocating *one* interrupt, but there aren't
 > a lot that are really free... Thanks in advance.

Try saving the old interrupt vector in a variable, and in your interrupt
procedure restoring the vector, make an interrupt via that vector, and then
reset the vector to your own routine.  You can also do something with a far
call, but I don't remember what.

│  ┌─ ─┐
└─ ─┘ ─┘  Heikki Levanto
Levanto Software Development



--- ConfMail V4.00
 * Origin: LSD - Levanto Software Development (2:230/22.28)


From:    Holger Schurig
To:      Syd Kahn                                 Msg #144, 14-Jan-89 03:27pm
Subject: error 18

SK> I keep getting an error 18 in a message reader program I wrote.
SK> The manual says something about "too many files".
Check your manual again or go into the turpo 5.0 integrated environment,
type DOSERROR followed by CTRL-F1 and a PgDn. Then you read that the
error 18 stands for "no more files". Mostly you will get this error when
you use FINDFIRST/FINDNEXT and there are no more files to find.

Viele Gruesse, Holger

--- INFgate 0.7
 * Origin: INFSYS-Development (2:507/628.3)

*** This is a reply to #46.


From:    Holger Schurig
To:      Bob Wiley                                Msg #145, 14-Jan-89 03:27pm
Subject: TP 4.0 and different problems

BW> What exactly is the correct way to change text colors in this
BW> version of Turbo Pascal?

If you use 4.0 or 5.0 and have an "USES CRT;" inside the program, you
can also assign direct values to TEXTATTR. Look at this sample program:

USES CRT;

VAR i : BYTE;

BEGIN
  CLRSCR;
  FOR i := 0 TO 255 DO BEGIN
    TextAttr := i;
    WRITE(i:4);
    TextAttr := $7;
    IF i AND 15=15 THEN WRITELN
  END
END.

Viele Gruesse, Holger

--- INFgate 0.7
 * Origin: INFSYS-Development (2:507/628.3)

*** Part of a conversation.


From:    Holger Schurig
To:      All                                      Msg #146, 14-Jan-89 03:27pm
Subject: Parsing & more

In my search for a scanner and parser like lex and yacc i found a
pascal-compiler in pascal. Source is available. You may request it
from 2:507/1 as PASCOMP.PAK and need PAK10 to unpack it. Its about
70 kB long.

Viele Gruesse, Holger

--- INFgate 0.7
 * Origin: INFSYS-Development (2:507/628.3)


From:    Holger Schurig
To:      Shannon Pope                             Msg #147, 14-Jan-89 03:27pm
Subject: Re: Parsing

SP> Somehow I get the feeling that writing a word parser for a
SP> language other than english would be more likely to succeed.

Not if you try to parse german sentences. Our language is much more
complex then english.

Viele Gruesse, Holger

--- INFgate 0.7
 * Origin: INFSYS-Development (2:507/628.3)


From:    Dave Smith
To:      Ross Wentworth                           Msg #148, 15-Jan-89 09:19pm
Subject: Re: beginner

Ross,
     If you are a student, you may want to try talking to some of your
teachers, or professors about getting a student's discount through Borland. I
got Turbo C 2.0 and Turbo Pascal 5.0 through one of my classes at the
University of Arizona for about $45.00 a piece.
     Something to look into anyway... that is if you need the extra
$50.00!!! :-)

          -Dave


--- ConfMail V4.00
 * Origin: UA Today (University of Arizona, Tucson) (1:300/3)


From:    Dave Smith
To:      Jeff Fuller                              Msg #149, 15-Jan-89 09:23pm
Subject: Re: Self-Taught

Jeff,
     About a good text editor... I've been using an editor called BlackBeard
that I really like a lot. It does some slick things, user definable windows,
built in mouse driver, all the goodies. I'm sure you could track it down on
one of the boards around you.
     Good luck.

         -Dave

--- ConfMail V4.00
 * Origin: UA Today (University of Arizona, Tucson) (1:300/3)

*** There is a reply. See #187.


From:    Dave Smith
To:      All                                      Msg #150, 15-Jan-89 09:42pm
Subject: TSRs

I just got my copy of Turbo Pascal 5.0 and I really love it (the debugger is
an excellent addition.) Anyway, one of the things that Borland boasts about is
that on TP4 and TP5, one can semi-easily create programs that terminate and
stay resident. Well... I've looked in my Reference guide for Pascal, and Turbo
C... both seem to have the routines to do the trick (I think it's called
keep), but they (Borland) pretty much leave you in the dark as to how to use
them. Anybody out there seen any good articles about it lately?

    Hmmmmmm?
    Any response is appreciated.

      Thanx,
       -Dave

--- ConfMail V4.00
 * Origin: UA Today (University of Arizona, Tucson) (1:300/3)

*** There is a reply. See #212.


From:    Micah Bleecher
To:      Heikki Levanto                           Msg #151, 16-Jan-89 06:31am
Subject: Re: Salary

 HL> When I don't have a job, I spend my time studying. Mostly
 HL> new languages, and also preparing my Tp toolbox.
 HL>
 HL> yours
 HL>
 HL>  3  ZD D?
 HL> @D DY DY  Heikki Levanto
 HL> Levanto Software Development

Thanks for  the reply Heikki, I dont suppose you have the latest copy of
OPINT5 do you ? There are supposed to be several places in Europe that it is
available, but  it is not to be found anywhere in the States... Thanks ---


Of the languages you know, which are some of your favorites and why ?  (If you
dont mind me asking)


Micah



--- Msg V3.2
 * Origin: SoundingBoard - YooHoo 2 Ya'll 2 - [phone] (1:106/12)

*** This is a reply to #102.


From:    Micah Bleecher
To:      Ed Swierk                                Msg #152, 16-Jan-89 06:37am
Subject: Re: Copyright

 > the sysop of the board told me that you can't just ask
 > for money.  He said
 > you have to register it, along with some other stuff.
 > Do you have any info
 ES>
 ES> Basically, asking for money is all you have to do.  Just
 ES> write your program, write good documentation, and include
 ES> a Copyright 198x John Doe in the program and the
                 ^^^^^^^^^^^^^
              What is meant here ?


Micah


--- Msg V3.2
 * Origin: SoundingBoard - YooHoo 2 Ya'll 2 - [phone] (1:106/12)

*** Part of a conversation.


From:    Micah Bleecher
To:      David Vins                               Msg #153, 16-Jan-89 06:39am
Subject: Re: Virus in Pascal 4.0

 DV>    about your reply to the man wanting to write the virus
 DV>
 DV>    HURRAHH!!!!
 DV>
 DV>  clpa!!!!
 DV>  CLAP!!!!!!!!!!
 DV>  CLAP!!!!!!!!!!!!!


Isnt it unbelievable that a person would ask how to write a virus in a public
forum --- That fella needs to be watched !



--- Msg V3.2
 * Origin: SoundingBoard - YooHoo 2 Ya'll 2 - [phone] (1:106/12)

*** Part of a conversation.


From:    Chris Howe
To:      Dave Goggin                              Msg #154, 15-Jan-89 03:12pm
Subject: Re: HELLO

Hi, say how are things in sunny Calf? now, WHO ARE YOU AND HOW DO YOU
KNOW MY NAME?
realy, i havn't been on this board in years. lets keep in touch
                                  -ch
--- QuickBBS v1.02
 * Origin: Somewhere on Cherry St. (170/211)

*** This is a reply to #92.


From:    Julio William
To:      Ben Lindstrom                            Msg #155, 15-Jan-89 04:56pm
Subject: Re: Output to ...

Remove "f" in your writeln statement,  You want to write to screen
instead back to that file I assume.
--- QuickBBS v1.02
 * Origin: Somewhere on Cherry St. (170/211)

*** Part of a conversation.


From:    Julio William
To:      All                                      Msg #156, 15-Jan-89 05:00pm
Subject: TP2C17S.ARC

I am looking for Turbo Pascal source code for Turbo to C converter.
Does anyone know where I can find it?
The current version that I know is Ver 1.7
--- QuickBBS v1.02
 * Origin: Somewhere on Cherry St. (170/211)


From:    Justin Marquez
To:      Dan Wulff                                Msg #157, 16-Jan-89 12:49pm
Subject: Print routine

Dan,

       Just to make it super-easy for the novice (of which I am one) PASCAL
programmers, here is your routine included in a complete, working program:
--------------------- CUT Here ------------------------------------------
Program PrtTest;
Uses DOS;

VAR
   Forever : Boolean;

FUNCTION printer_ready:BOOLEAN;
VAR
  regs :registers;

BEGIN
  regs.dx:=0;
  regs.ah:=2;
  INTR($17,regs);
  IF NOT (regs.ah IN (.16,144,208.)) THEN printer_ready:=FALSE
                                     ELSE printer_ready:=TRUE;
END;

BEGIN { Main Program Starts here }
      Forever := true;
      while forever do
      begin
          If Printer_Ready then WriteLn(' Printer is :     READY')
                           else WriteLn(' Printer is : NOT READY');
      end;

END.  { Main Program ends here   }
------------------- CUT Here ---------------------------------------

Justin Marquez


--- msged 1.96S ZTC
 * Origin: Region 19 Coordinator  (1:106/100)

*** Part of a conversation.


From:    Greg Franklin
To:      John Wolter                              Msg #158, 13-Jan-89 06:13pm
Subject: Re: Accessing clock

 > Can anyone tell a self-taught Pascal programmer who just
 > discovered  Turbo Pascal how to access the system clock?  Thanks.

With TP4 and TP5, check out the GetTime, SetTime, GetDate, and
SetDate procedures in your manual.  They're powerful.

--- Via OpXpress V1.07ß "Silver"  Greg Franklin, an End User...
 * Origin: The Migrants BBS Phx. Az. ░▒▓ [phone] ▓▒░ (1:114/07)

*** This is a reply to #136.


From:    Greg Franklin
To:      Matt Franckiewicz                        Msg #159, 13-Jan-89 06:46pm
Subject: Re: Edit window

 > Another apparent error in my TP 5.0 documentation is the
 > statement  that the edit window is 77 columns wide.  In mine, I
 > can type in column  79 while column 1 is still visible.  If I go
 > to column 80, everything  scrolls left, and column 1 disappears.
 > {Nonetheless, I still have  79, not 77 columns.  Is this the same
 > for you?  More bad documentation?

Yes and no.  Doesn't the Edit Window have a border around it (unless
it's zoomed)?  The border characters take up two columns by themselves,
allowing you to see only 78 columns.  And when you type into the 78th
column, everything scrolls right.  If you've zoomed to full screen,
you should have a normal 80-column width.

--- Via OpXpress V1.07ß "Silver"  Greg Franklin, an End User...
 * Origin: The Migrants BBS Phx. Az. ░▒▓ [phone] ▓▒░ (1:114/07)


From:    Greg Franklin
To:      Finn Stadel                              Msg #160, 15-Jan-89 10:28pm
Subject: Re: Turbo pascal 4

 > One bad thing about PASCAL I think is the limited no of straing
 > handleing  function that exist.. no sliceing or space trimming
 > functions, or  upper/lower case conversion routines.. One has to
 > include some self-made  funtction each time one need them.

I understand, but (at least in Turbo Pascal) once you write routines
to do those kind of things, you can roll them all together in one
unit called "Strings" or something, then put "uses Strings;" at the
top of your program.  That way, you get what you want.  And those of
us without need of such routines don't have to worry about them.

 > Another problem I have, is with the input-output functions:
 > What if an error occrs, such as f.i. end of file, when reading
 > data. One has to check for all errors, each time one does
 > something, and some  can't be checked for at all.

There's a way around that in TP, I believe.  It has to do with using
the {$I+} and {$I-} compiler options around your input/output
procedures, then checking an IOResult variable.  Maybe there's an
example of it in the manual near IOResult....

 > The last problem, is in the fixed structure of pascal.
 > What does one do to exit a large block of a program. f.i. if the
 > user  presses ESC to 'get back' or some errounious data is
 > entered etc. ect. ? The only solution I could think of is to
 > return an error code for each  function you execute, and then let
 > this error code 'bubble up' to the  level you want.
 > If a program only used goto's , this would be no problem at all
 > to do. -

That would work fine.  Some cases, repeat..untils, and whiles should
do the trick.  Even better might be using the Exit procedure.
It can pop you out of a proc instantly, check the manual for details.

Does this help?


--- Via OpXpress V1.07ß "Silver"  Greg Franklin, an End User...
 * Origin: The Migrants BBS Phx. Az. ░▒▓ [phone] ▓▒░ (1:114/07)

*** This is a reply to #108.


From:    Greg Franklin
To:      George Butts                             Msg #161, 15-Jan-89 09:25pm
Subject: Re: A Computer Term

 GF>> What does the prefix "foo" as in "foobar" really stand for?  I know

 >   It's  FUBAR  as is  F****d Up Beyond All Recognition

Thanx...that was one of the Great Hacker Mysteries I never picked up on...
I can see why programmers would be so fond of it.

--- Via OpXpress V1.07ß "Silver"  Greg Franklin, an End User...
 * Origin: The Migrants BBS Phx. Az. ░▒▓ [phone] ▓▒░ (1:114/07)

*** Part of a conversation.


From:    John Hughes
To:      Robbie Napier                            Msg #162, 15-Jan-89 04:30pm
Subject: Re: Copyright

Shareware is not a legal term and therefore there is no legal way (or
need) to register it as such.  Any author can label his program as
shareware and ask for a payment.
Perhaps your sysop was talking about the Association of Shareware
Professionals.  You should probably contact them.  After diging through
several piles of paper where I'm suppose to keep that kind of stuff, the only
address I can give you is the Compuserve # of Jim Button, the chairman of
their board of directors - 71435,2012.
Prehaps someone else can give you more information.


---
 * Origin: The Buffer Board [phone] (Opus 1:152/2)

*** This is a reply to #152.


From:    Scott Baker @ 902/10
To:      All                                      Msg #163, 15-Jan-89 10:47am
Subject: TP 5.0 and DesqView API

  Does anyone out there know of a turbo pascal 5.0 unit for using the
DesqView API functions? I am interested in implementing enhanced
DesqView support into a bbs program that I am writing. I have seen
similar packages to what I want for Turbo-C, but nothing for pascal. I
would greatly appreciate any help that anyone could give me.

-Scott

--- Mach-10 BBS v 2.00

 # Origin: The Not-Yet-Named bbs  Tucson, Az [phone]  (8:902/10)
 * Origin: Network Gateway to RBBS-NET  (RBBS-PC 1:10/8)


From:    Charles Falconer
To:      All                                      Msg #164, 15-Jan-89 12:46pm
Subject: passing procs in tp4

 PROGRAM testpcall(output);
 (* How to pass procedures (and functions) in TP4.  Normal *)
 (* parameter (count and type), and stack checks, apply.   *)
 (* Copyright (c) 1989 by C.B. Falconer, 680 Hartford Tpk, *)
 (* Hamden CT 06517.    Released for non-profit use only.  *)

 {$f+ all passed procedures, and pcall, MUST be far}

   (* 1---------------1 *)

   PROCEDURE pcaller;  (* Macro to create various pcalls *)

     inline($89/$EC/ {pop  bp;  remove entry ops      }
            $5D/     {mov  sp,bp                      }
            $58/     {pop  ax;  offset return         }
            $5B/     {pop  bx;  segment return        }
            $59/     {pop  cx;  offset execute        }
            $5A/     {pop  dx;  segment execute       }
            $53/     {push bx;  stack eventual return }
            $50/     {push ax                         }
            $52/     {push dx;  stack execution addr  }
            $51/     {push cx                         }
            $CB);    {retf;     and execute           }

   (* 1---------------1 *)

   FUNCTION wrtln1(s : string; fld : word) : boolean;

     BEGIN (* wrtln1 *)
     write('WRTLN1: '); write(s : fld); writeln; wrtln1 := true;
     END; (* wrtln1 *)

   (* 1---------------1 *)

   FUNCTION wrtln2(s : string; fld : word) : boolean;

     BEGIN (* wrtln2 *)  (* NOTE final code tauter than wrtln1 *)
     writeln('WRTLN2: ', s : fld); wrtln2 := true;
     END; (* wrtln2 *)

   (* 1---------------1 *)

   FUNCTION pcall(s : string; fld : word; what : pointer) : boolean;
   (* Write this with the EXACT parameter list of the      *)
   (* various called procedures, PLUS the "what : pointer" *)
   (* at the end.  The following body never changes.       *)

     BEGIN (* pcall *)
     pcaller;
     END; (* pcall *)

   (* 1---------------1 *)

   BEGIN (* testpcall *)
   IF pcall('test 1', 30, addr(wrtln1)) THEN
     IF pcall('test 2', 30, addr(wrtln2)) THEN {worked};
   END. (* testpcall *)


---
 * Origin: Alice's Restaurant (Opus 1:141/488)


From:    Charles Falconer
To:      Danny Trevino                            Msg #165, 15-Jan-89 03:38pm
Subject: Re: pd-compiler

At least in the CPM world, and HP3000s, my PascalP is available.  I have
published the source to everything except the code generators.  The port to
MSDOS was never completed (enough to run the compiler, but not the full
system).  The system generates assy source and/or portable P-codes, and is ISO
standard (verified with test suite - exceptions goto out of procedures and
procedural parameters).  The compiler creates identically operating programs
on multiple machines (The HP3000 is a timesharing multitasking 16 bit big
mini, with 64 plus terminals plus background tasks).


---
 * Origin: Alice's Restaurant (Opus 1:141/488)

*** There is a reply. See #168.


From:    Charles Falconer
To:      J J Marquez                              Msg #166, 15-Jan-89 03:43pm
Subject: Re: STYLE DEBATE #9,005

  The example:
     REPEAT
       ....
     UNTIL xxxx  {no semi}

will not compile unless the next word is END or ELSE.  Pascal semicolons are
statement separators.  However, ";;" is a NULL statement between the semis,
and a NULL statement is always a legal statement.  Thus there is no reason not
to terminate all statments with semis, UNLESS the next word is ELSE.  ELSE
should never be preceded by a semi (with an exception, peculiar to Turbo, of
the alternative action CASE clause ELSE.  A much better choice would have been
OTHERWISE, recommended in one of the earlier ISO draft proposals and later
dropped.).



---
 * Origin: Alice's Restaurant (Opus 1:141/488)

*** Part of a conversation.


From:    Charles Falconer
To:      Andy Lester                              Msg #167, 15-Jan-89 03:56pm
Subject: Re: GOTOs

It can and has been shown that any GOTO program can be functionally duplicated
with structured constructs, PROVIDING that auxiliary variables are used.  I
often find that a GOTO is clearer and simpler than adding the auxialiary
variables.  Similarly, in Turbo, I NEVER use the exit operation, but define a
label at procedure end, and GOTO that.  It is easy to see the GOTO, and if the
label is of the small integer variety
(the only kind allowed in ISO std) it stands out to the reader.  I
have one piece of code (recursive) something like

    <lots of code>
    recursivecall(parameters);
    IF fatalerror THEN GOTO 10;
    <lots more code>

    IF cond THEN BEGIN
      fatalerror := true; GOTO 10; END;
    <more code>
10: END; (* procedure *) which unwinds errors deep in the nesting quite
nicely.  fatalerr is a global.  Another example:

    FOR i := startvalue TO endvalue DO BEGIN
      <code>
      IF condition THEN GOTO 99;
      <code>
99:   END;

and the equivalent in WHILE and REPEAT loops.  This allows you to create
arbitrarily things in the LOOP family, without the confusion of auxiliary
variables, and (to me) clarity.

In general I consider GOTO a useful tool, but it must be used with discipline.
I dislike EXIT, and C's/MODULA RETURNS, because they hide the structure.
They, and GOTO, should usually (never say always) be used for unusual
conditions, not routinely.


---
 * Origin: Alice's Restaurant (Opus 1:141/488)

*** This is a reply to #39.


From:    Tony Shelton
To:      Danny Trevino                            Msg #168, 15-Jan-89 12:43am
Subject: Re: pd-compiler

 > Does anyone know where I can find a good Pd/Shareware Pascal
 >compiler?....

There are two that I know of.  One is VISIBLE Pascal.  Don't know
where
find it though.  Another can be found on Compu$erve in the IBMPRO
forum.
It is supposed to have an integrated environment, but since I've not
used it, I cannot comment on it.

Hope that helps.
Tony

--- Via OpXpress V1.03ß
 * Origin: The Tech Connect - **HST** (1:124/6215)

*** Part of a conversation.


From:    dj murdoch
To:      Heikki Levanto                           Msg #169, 14-Jan-89 09:45am
Subject: Re: STYLE DEBATE #9,005

 > I don't buy the argument of lining begins and ends so you can easier
 > find the missing one.  When ever I write a begin, I write its
 > corresponding end, and a comment to the end explaining what ends here.

That's a good style, but I find it a tiny bit risky because it means coding
things twice, in widely separated parts of the program. The first time is the
code that starts the block, the second time is the comment telling me what the
code does. Anytime the same thing is coded twice, there's a risk that later
modifications will change one copy but not the other.

For example, I might decide a different condition makes more sense than the
first one I coded, and change it. If I forget to change the comment, it'll
just confuse me when I come back to look at it a year later.
This is a problem with all comments, but if the comments are close to the code
they describe, there's less risk of not making both changes.
 > Next question to style debate:
 >
 > if a=10 then inc(a);

I like this version. But if 'a' or '10' were a long expression, or maybe even
just a long variable name, I'd put spaces around it. For example,

if a = b+c then ...
if a = b*c + d*e then ...

It all depends on what looks best in a particular case.

--- ConfMail V3.31
 * Origin: Murdoch's_Point  - - (1:221/162.1005)

*** Part of a conversation.


From:    dj murdoch
To:      Joerg Hegermann                          Msg #170, 14-Jan-89 10:07am
Subject: Units

 > I have as well a main program about 1 Kb of source from which I call
 > these various functions and procedures in those units.
 > Each unit for itself works fine, but when I include the statement
 > uses unit1, unit2, unit3 ... etc. in the main program I get error 48
 > which basically tells me that that module is too big.

This sounds really strange.  Perhaps you're allowed more than 64K of code in a
unit, as long as nobody uses all of it?  Doesn't sound likely.  Maybe the
error number is wrong, and you really have too much data.  All globals have to
go into the same data segment.

--- ConfMail V3.31
 * Origin: Murdoch's_Point  - - (1:221/162.1005)

*** This is a reply to #116.


From:    Lou Garner
To:      Ross Wentworth                           Msg #171, 15-Jan-89 12:19pm
Subject: Multi-Tasking in TP

 >> > I would like to have a type of multi-tasking implemented..
 >>Instead of going through the GREAT pain of writing a multitasking
 >>program in Pascal, you would be better off purchasing a copy of
 >>DesqView, OmniView, or DoubleDos.

There is a recent file floating around under the title of MULTI-ARC,
containing a unit and some source code (very little) that claims will
implement multi-tasking in a TP program.  You can get the full SRC
with additional ($100?) payment.


--- Via OpXpress V1.03ß       Don't you MESS with Texas, son....!!
 * Origin: The Tech Connect - **HST** (1:124/6215)


From:    Lou Garner
To:      Alan Ten                                 Msg #172, 15-Jan-89 12:20pm
Subject: Re: pascal4

 >>HelloHa......Any Pascal 4 Expert out there.....I got a little
favour.
 >>How to create an routine to called other executed file from from a
 >>pascal Program ??? Care to Enlighten Me....

That is well-explained in the TP4 and TP5 manual, and in every
after-market book I have seen.  Have you done ANY searching?


--- Via OpXpress V1.03ß       Don't you MESS with Texas, son...:124/6215)


From:    Lou G:124/6215)


From:    Lou Garner
To:      Alan Ten                                 Msg #173, 15-Jan-89 12:21pm
Subject: Re: Pascal4 & CCDos

 >>Thank y,But I'm still new to the watch option, what does it do
excatly
 >>I've not got the manual yet..Wo..Quit Expensive..Well any good
manual
 >>To recommend to me!!

Best recommendation is to buy the TURBO PASCAL program, which comes
with a manual.  The TP 5.0 can be bought for as little as $89.


--- Via OpXpress V1.0=10 then inc(a);
-> if a=10 then inc (a);


in: The Tech Connect - **HST** (1:124/6215)

*** Part of a conversation.


From:    Lou Garner
To:      Gary Lagier                              Msg #174, 15-Jan-89 11:51am
Subject: TURB Origin: ]≡[ The Pascal Programmer's Club ]≡[ (950/513)
re
 >>P O Box 512
 >>Ripon CA 95336
 >>
 >>Look forward to setting soemthing up with you.

Posting your address in front of this many PASCALholics
will *definitely* get you mail!

--- Via OpXpress V1.03ß       Don't you MESS with Texas, son....!!
 * Origin: The Tech Connect - **HST** (1:124/6215)


From:    Lou Garner
To:      Bryan Minihan                            Msg #175, 15-Jan-89 11:53am
Subject: TURBO PASCAL manual

 >> Also, if anybody has the Documentation
 >>for Turbo  Pascal...I'd appreciate it if I could possibly get my
 >>hands on some.  (dog chewed mine...ha ha...I really lost them in
the
 >>big move)

BORLAND will sell replacement manuals to registered owners.

--- Via OpXpress V1.03ß       Don't you MESS with Texas, son....!!
 * Origin: The Tech Connect - **HST** (1:124/6215)


From:    Lou Garner
To:      Justin Marquez                           Msg #176, 15-Jan-89 12:03pm
Subject: Re: 300 BAUD

 > TA| Lou, I guess I don't see where it matters what speed someone
 >calls a board at!

 >>       Makes sense to me.... if everybody has the same minute/call,
 >>minutes/day and calls/day allocation - why should I care what speed
 >>he calls   in at? Hardly ANYBODY can type continuously at even
close
 >>to 300 baud!

I don't think this is correct.  People calling a board have a list of
things to do, and will take the time to finish that work.  A 300 baud
caller will take EIGHT TIMES as long as someone at 2400 and FOUR TIMES
as long as someone at 1200.

Do you want one caller blocking up to SEVEN others?  If so, your board
isn't very busy.  If you believe that everyone uses all of their
available minutes each call, then I have to say I do not see that on
my board.


--- Via OpXpress V1.03ß       Don't you MESS with Texas, son....!!
 * Origin: The Tech Connect - **HST** (1:124/6215)

*** Part of a conversation.


From:    Lou Garner
To:      Andy Lester                              Msg #177, 15-Jan-89 12:11pm
Subject: Job Market - Programming

 >>Well, I'm makin' about half of what "everyone else" is making,
 >>according to   InfoWorld surveys, but I also have no college degree

Classified ads here in Dallas on Sunday showed nine full pages of
ads for programmers/analysts/etc. and those that listed salaries
showed starts in the mid 30's rising to high 40's.  COBOL mainly.

--- Via OpXpress V1.03ß       Don't you MESS with Texas, son....!!
 * Origin: The Tech Connect - **HST** (1:124/6215)


From:    Lou Ge nearby.

Not wanting this to be an ad for them, but BOOKSTOP discounts off list
and stocks MANY more computer-oriented books than the WALDEN/et al.
The WALDEN and DALTON places carry a few only, and are full-price.

--- Via OpXpress V1.03ß       Don't you MESS with Texas, son....!!
 * Origin: The Tech Connect - **HST** (1:124/6215)


From:    Doug Michael
To:      Heikki Levanto                           Msg #179, 14-Jan-89 04:10pm
Subject: Re: STYLE DEBATE #9,005

-> if a=10 then inc(a);
-> if a=10 then inc (a);


if a=10 then
   begin
   inc(a);
   othertrash
   end
else
   begin
   dec(a);
   LotsMoreTrash
   end;

But, like you, when I'm coding in someone elses prog/proc/func/unit I use
their structurings.
==--->Doug<---==
--- QuickBBS v2.03
 * Origin: ]≡[ The Pascal Programmer's Club ]≡[ (950/513)

*** Part of a conversation.


From:    John Young Of 77/7
To:      Kevin Lowey                              Msg #181, 14-Jan-89 01:25pm
Subject: Re: Can not figure...

Sorry I asked suck a dumb question.

I should of figured that one out for myself.  But, I've been only programming
in pascal for about a week now.  So I am likey to make some very dumb
mistakes.

John

--- ConfMail V4.00
 * Origin: Zone 8 NETWORK Gateway - (8:70/0)

*** Part of a conversation.


From:    John Young Of 77/7
To:      Ross Wentworth                           Msg #182, 14-Jan-89 01:26pm
Subject: Re: Can not figure...

Sorry I asked suck a dumb question.  But, I've only been programming in pascal
for about a week now.   thanks for the help

john

--- ConfMail V4.00
 * Origin: Zone 8 NETWORK Gateway - (8:70/0)

*** This is a reply to #181.


From:    John Young Of 77/7
To:      Ben Lindstrom                            Msg #183, 14-Jan-89 01:27pm
Subject: Re: PRoblem

Thanks for the help.  Sorry for a dumb question.  But I've only been
programming in pascal for about a week.

John

--- ConfMail V4.00
 * Origin: Zone 8 NETWORK Gateway - (8:70/0)

*** This is a reply to #72.


From:    Patrick Edwards
To:      Shannon Pope                             Msg #184, 13-Jan-89 12:43pm
Subject: Pascal4 & CCDos

 > Turbo Pascal 5.0 comes with a debugger built in or
 > something like that.
 >
 > I hear it also makes code a little more compact, it removes
 > unused data in units along with the unused code.
yes it does but it actualy makes it larger than TP4 does cause of the debugger
info but, you can turn off the debugging info. As for the 'it removes the
unused data in units along with the unused code', I just don't know I havn't
had it that long.
 > Those are the only major differences I have read about, I
 > personally am to lazy to upgrade my copy.
I would suggest upgrading soon as the main stay of the PD units are written in
TP5 (eg Turbo Tech_no jock Tool kit, TPW60, and others) the reason for
upgrading are great you can quickly test, change, ect. bugs in a program. You
can use their highly advanced over lay system. The Manuals are great for
learning.
 > Oh yeah, the strict rules conscerning the USES clause are
 > removed (thank God) in pascal 5.0.
I don't know if this is true or not.

--- ConfMail V4.00
 * Origin: Northern Nights | Keep Kool| (1:140/48)

*** This is a reply to #173.


From:    Colten D. Edwards
To:      Chris Austin                             Msg #185, 13-Jan-89 09:50am
Subject: JBCOMM

Look for a package called Async10.arc on 1:152/2 or 1:140/48. It has complete
src with most written in asm. supports 4 com ports etc... Looks very good. And
no cry for money either.

--- ConfMail V4.00
 * Origin: Treasure Isle Private Mail System (1:140/51)


From:    Mark Hopkins
To:      Ben Lindstrom                            Msg #186, 13-Jan-89 07:07pm
Subject: Output to ...

In a message of <07 Jan 89 09:11:48>, Ben Lindstrom (1:282/19) writes:

>Var f:text;lin:string;x:integer;
>begin
>  assign(f,'Welcome.BBS');
>  reset(f);
>  while not eof(f) do
>  begin
>    readln(f,lin);
>    writeln(f,lin);  <----------------------------------------------|
>  end;                                                              |
>  close(f);                                                         |
>end.                                                                |
                                                                     |
Looks like you're writing back to the same file that you're reading from.  Try
writing to the auxiliary port (assuming you have it opened and have been
writing to it).

  while not eof(f) do
  begin
    readln(f,lin);
    writeln(AUX,lin);
  end;
  close(f);


--- msged 1.96S ZTC
 * Origin: SWAT: Blaise-ing Code! SeaSoft Network (1:343/8.13)

*** This is a reply to #155.


From:    Mark Hopkins
To:      Walt Fair                                Msg #187, 13-Jan-89 07:44pm
Subject: Re: Self-Taught


>       Boy, did they misjudge! Actually BASIC was developed for
>non-programmers, which explains why so many don't like it.
>                                                       Walt

After 6 months of COBOL classes I would have to say that COBOL is definitely
the language of "non-programmers".  This language must've been developed for
authors or others who just LOVE to type!!

After working with Pascal I was able to go back to BASIC and really appreciate
some of the developments that have gone on with that language (speaking of
QuickBASIC and Turbo BASIC).  However, even COBOL 85 is as verbose and
sluggish as ever!!



--- msged 1.96S ZTC
 * Origin: SWAT: Blaise-ing Code! SeaSoft Network (1:343/8.13)

*** This is a reply to #149.


From:    Mark Hopkins
To:      Shannon Pope                             Msg #188, 13-Jan-89 08:13pm
Subject: Re: A LITTLE PROBLEM


> :-) Doesn't look like a smiley face to me... Where did it originate from?

Tilt your head to the left so that you're looking at it sideways... Look
better now?  Also, try these variations:

   ;-)    #:)  8-O

Just a little fun!!  Like...Pascal! Yeah, that's it!


--- msged 1.96S ZTC
 * Origin: SWAT: Blaise-ing Code! SeaSoft Network (1:343/8.13)

*** Part of a conversation.


From:    Paul West
To:      Mark Hopkins                             Msg #189, 14-Jan-89 03:45am
Subject: Files

In a message of <12 Jan 89 20:45:42>, Mark Hopkins (1:343/8.13) writes:

 -=>In reference to my previous message, it's actually not a very good idea
 -=>to use the user's name as a key field.  You want something that is
 -=>going to be unique to each record.  I used the UserName field hoping
 -=>that it would make things a little clearer.  You could have two users
 -=>with the same name and, if that were the case, which ever one was first
 -=>in the list would always be the one that was used.  You would never get
 -=>to the second one.  Anyway, be sure to use a unique field as your key.

I havn't seen a BBS yet that allows more than one user per name.  Names have
traditionally been the means of identifying the user.   There have from time
to time been collisions, but that is usually solved by having the second user
change his/her name for use on the BBS slightly.


--- msged 1.96S ZTC
 * Origin: P.I.E.  [Everett, Wa]  -=> HST <=- (1:343/27) -  (1:343/400)

*** This is a reply to #49.


From:    Stephen Cook
To:      All                                      Msg #190, 14-Jan-89 06:37am
Subject: LEARnPAS Echo

I am located in the Seattle, Washington, USA area. I am looking for
the LEARnPAS Echo that was talked about here at the end of 1988. Does
anyone have any information on if it is up, or where I can get it.
I'd prefer getting it in Washington State, but that is not a priority.
Please Reply.


---
 * Origin: BECS MSDOS OPUS, Bellevue, WA - 206/451-1274 (Opus 1:343/101)


From:    Lawrence Lessing
To:      Djoerd De.fost                           Msg #191, 14-Jan-89 06:07pm
Subject: Virus...


What happened to your original message? Did you delete it??? hmmmmmmm?????

Yes, I once wrote a virus that got past programs that locked up hard drives
and prevented writes to them... But I never released it to the public. I think
anybody who does such a thing is a Sick, Domented, Jack Ass...

But I wrote one, so I guess I am just part way there...

                                        -> Lawrence
--- QuickBBS v2.03
 * Origin: Torrance BBS * Los Angeles, CA * [phone] * (1:102/345)


From:    Jeff Robertson
To:      All                                      Msg #192, 13-Jan-89 05:32pm
Subject: MODEM PROGRAMMING

  Does anyone know how to answer a Hayes compatible modem in Turbo?  As well
as open (assign) the channel to communicate?  I would like to try my hand at
programming a Turbo BBS, but I'm stumped before I'm started!

  Ok here's another one ... does the EXEC command erase the resident program
and load a new one?

ps: These are all question refering to version 4.0
--- TBBS v2.0
 * Origin: End Floods Today With Emperor Stringettes  (120/46)


From:    Michael Adamson
To:      Greg Franklin                            Msg #193, 14-Jan-89 12:16am
Subject: Re: A COMPUTER TERM

Actually it's not a computer word at all, it stands for [F]&%# [U]p [B]eyond
[A]ll [R]epair/[R]edemption...ie...FUBAR...Rgds..Mike..
--- TBBS v2.0
 * Origin: End Floods Today With Emperor Stringettes  (120/46)

*** Part of a conversation.


From:    Clayton Zekelman
To:      Michael Adamson                          Msg #194, 14-Jan-89 01:06am
Subject: Re: A COMPUTER TERM


I beleive the FUBAR term is linked to the U.S. Military, along with the term
SNAFU - <S>ituation <N>ormal - <A>ll <F>ouled (Grin) <U>p.  I beleive it was
also quite popular with NASA during the 60's and 70's.

>>Clayton<<
--- TBBS v2.0
 * Origin: End Floods Today With Emperor Stringettes  (120/46)

*** Part of a conversation.


From:    Tim Geisweit
To:      All                                      Msg #195, 16-Jan-89 06:56am
Subject: Re: A Little Problem

 >
 > You need to direct this at TG> not LC>   I am not responsible
 > for that text you quoted  (I think I quoted it in a message
 > to TG>)

Hey, I'm tired of my messages being bounced around and misinterpreted.

---
 * Origin: CrossFire  Harrisburg, PA [phone] (Opus 1:150/514)

*** Part of a conversation.


From:    Tan Km
To:      Mike Hinds                               Msg #196, 14-Jan-88 12:40pm
Subject: Re: Reserved "Word"

Just for info, you can used most of the reserved word for your symbol, but
beware that you will get confusing compilation messages when you used those
symbol out of context. In short TP let you redefined what it has set up for
you.
--- QuickBBS v2.03
 * Origin: Minfo - QBBS is quick! but slowed down by 1200 modem (3:600/17)


From:    Tan Km
To:      Dave Hess                                Msg #197, 14-Jan-88 12:50pm
Subject: Re: WEll Now I need help on something else

Try using the FSearh facility provided by TP5.0. The problem with using this
function is, you will have to set up the search path, similar to the PATH
format. It will be simpler it you will to use FindFirst all subdirectory and
then FindFirst the file in those sub-directory.

Sayonara..........-* Falcon *-
--- QuickBBS v2.03
 * Origin: Minfo - QBBS is quick! but slowed down by 1200 modem (3:600/17)


From:    Dave Goggin
To:      Jesper Wolf                              Msg #198, 17-Jan-89 08:31pm
Subject: Re: HOW TO WRITE A VIRUS IN PASCAL.

   That is right not to tell about the methods for virus production.. this
Echo is for constructive information, not for virus methods that could kill us
all..!!..!!..!!
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)

*** This is a reply to #93.


From:    Dave Goggin
To:      All                                      Msg #199, 17-Jan-89 08:47pm
Subject: NAME

hey folks, the name is Dave Goggin, not 'Dave Gogarin'  just wanted you to
know....
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)


From:    Dave Goggin
To:      Jonathan Posner                          Msg #200, 17-Jan-89 08:50pm
Subject: GOOD PASCAL BOOK.

I can reccomend a good one, which is good, but a little padantic.
>> Building Pascal Programs

by a Stuart Reges.  Check this one out.
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)


From:    Paul Lindquist
To:      Kevin Carr @ 930/1                       Msg #201, 16-Jan-89 10:16pm
Subject: Re: PASCAL --> BASIC

I've seen programs that convert Basic to C and C to Pascal and Pascal to C,
but not from Pascal to Basic.  You will find Pascal is a better language to
learn, compiled code is lots smaller, and execution is tremendously faster.

Paul Lindquist
--- TBBS v2.0
 * Origin: Tulsa on the Arkansas,  Thanks to PC-Designs 918-744-0249 (170/210)

*** This is a reply to #27.


From:    Andy Lester
To  Now, 846 places listed out of 5000+ Nodes worlonth.   HST's;40;32mMsg #202, 16-Jan-89 09:07pm
Subject: Re: MLC versus PASCAL

 JW> Mostly its not neccesary with more than just a coupple of
 JW> assembler routines, but they might speed things up quite a bit.

Most programs seem to follow the 90/10 rule:  90% of the execution time is
used up by 10% of the code.  There's a book out by Jon Bentley, perhaps, not
sure about the name, called _Writing Efficient Programs_, or something to
that effect.  (Fountain of facts, aren't I?)  He made a very good point to
keep in mind when optimizing a program for speed:

  "For something to take a long time, it has to be executed a lot"

Forget the initialization routines, as they're only executed once, and focus
on the hardcore meaty stuff, like CRC checking, or whatever good intensive
stuff you may be doing.

Andy


--- msged 1.96S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** This is a reply to #99.


From:    Andy Lester
To:      Heikki Levanto                           Msg #203, 16-Jan-89 09:11pm
Subject: Re: Pascal Programming BBS

Hmm, luckily I don't fall into those categories:

 HL> True enough.  It is because 'professionals' have three drawbacks:
 HL>   - It's their work, and nobody is supposed to like his work

I work in a small shop, and get lots of feedback from my users (mostly cute
young office girls :-).  It's a buzz for me to be told "Hey, that's great!
That's going to help me out."

 HL>   - They have to follow some stupid house standards

Nope.  I set my own.

 HL>   - The deadline was yesterday

Deadlines?  What are those?  I think I've had maybe 3 deadlines in 3 years.

My shop may not be the most conducive to producing good code, but it's
certainly not restricted and stilted enough to make me dread new projects.

Andy


--- msged 1.96S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** This is a reply to #103.


From:    Andy Lester
To:      Scott Samet                              Msg #204, 16-Jan-89 09:14pm
Subject: >16 Files

 AL> fn:=SmallerString(concat('c:\tmp\',fn,'.tst');

 SS> I've tried anything I could think of.  Any time a function or operator
 SS> (+) returns a string expression, the compiler allocates a 256 byte
 SS> temporary.

So how much of a tradeoff is there to rewrite the above as:
fn:='c:\tmp\'+fn;
fn:=fn+'.tst';

Andy


--- msged 1.96S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)

*** This is a reply to #109.


From:    Loyd Craft
To:      Patrick Farrell                          Msg #205, 16-Jan-89 03:44pm
Subject: Re: 300 BAUD

In a message of <14 Jan 89 02:23:05>, Patrick Farrell (1:132/777) writes:

>Gee, I am impressed. I bet he can call about 2 places!
>That's about all that support 9600 baud.

  More and more Fidonet nodes are acquiring HST's  I did a search through
NODELIST.013 just a second ago, and I found 846 occurrences of the label 'HST'
on the comment section of the nodelist entries.   I do not know how many are
repeat entries (Such as the NEC/NC positions/etc..)    And I also do not know
how many HST's are running now, and not listed.   This seems to me, MANY
fingers above 2..  (In fact I had to gather 84 friends just to do the
arithmetic)   Now, 846 places listed out of 5000+ Nodes worlonth.   HST's pay for
themselves within a year if you make LD links all the time.

>I would not get a 48 or 96 or even 19200 baud modem,
>because I could not use it anywhere.

This is JUST NOT TRUE.  People who have the higher speed modems simply have to
look a little.  In Many echos people will announce "Available Via HST..." etc.
I think your aprehension about 9600 and beyond is just of price, which can be
justified in the elong run.  You bleed at first because of the payment, but
you will eventually forget the cost, and enjoy lower LD bills.


>Besides a c128 can't transmit faster that 1200 :-)

 I constantly do C128 transmissions at 2400 baud with a 89% efficiency, or
2136 baud (Only a little slower than many 4.77 Mhz clones at 2400, downloading
to floppy)

BTW,   PASCAL...

Apologies to all..


--- msged 1.96S ZTC
 * Origin: MicroCosm Opus Owosso, Mi. (517)-725-8077  (1:159/900)

*** Part of a conversation.


From:    Steve Barnett
To:      Andy Lester                              Msg #206, 15-Jan-89 08:49pm
Subject: Re: A Little Problem

AL> Well, I'm makin' about half of what "everyone else" is making,
AL> according to   InfoWorld surveys, but I also have no college degree
AL> and walked in cold off   the street, basically.  I'd noodled around
AL> with Turbo Pascal before I took   this job, but nothin' serious or
AL> work-related.
AL> Andy

I am just beginning my "noodlin" days with Turbo Pascal & I would be to
know what kind of buisiness that decided to use your talents if I may ask.
Do you use Turbo Pascal on the job?
Curious Steve


--- Via OpXpress V1.06ß "Silver"  ..Don't Settle For Less..
 * Origin: MicroCosm Opus  Owosso, Mi; (517)-725-8077

*** Part of a conversation.


From:    Bob Wiley
To:      Tomas Gradin                             Msg #207, 15-Jan-89 11:39am
Subject: Re: TP 4.0 and different problems

Tomas,
      First off, I'd like to thank you for the help with my problems I've
been having lately in TP 4.0.  Another thing I've been wondering is, the
TP 4.0 programmer's manual mentions only 1 way of initializing the graph
unit.  It looks something like this:

          uses Crt, Graph;

          var
             Graphdriver, Graphmode : Integer;

          begin
             Graphdriver := Detect;
             Initgraph(Graphdriver, Graphmode, '');
             If Graphresult <> grOk then
                    Halt(1);

This example came directly from the book, but what I'm curious about is if
there is an easier and/or faster way to do so.

 >
 > Advice: Upgrade!!
 >

Seems like pretty good advice, thanks... I will.  From what I've been
hearing around the echo lately, and from what I've been hearing at college,
it sounds like money well spent.

 >  > Any help would be appreciated.....
 >
 > I'm sure many of us here will be glad to help!
 >
 > Best Regards,
 > Tomas
 >

I'm glad to hear that Tomas, the problem I have out here is that most people
are so much into the Macintosh, that I have problems when I use the knowledge
from the Mac on the IBM.  Usually, the problems are small differences in the
machines (ie. Text windows & Drawing windows on the Mac).  Once again...
Thanks.

                                            Best Wishes,


                                            Bob Wiley

 --- Ned 1.01
---
 * Origin: Cross-Fire BBS -- Columbus, Ohio [phone] (Opus 226/170)

*** This is a reply to #145.


From:    Bruce Mahoney
To:      Eugene Baral                             Msg #208, 16-Jan-89 07:22pm
Subject: Re: Is the Pgm in the Path

Thanks. That should reduce my program quite a bit.
--- QuickBBS v1.02
 * Origin: Somewhere on Cherry St. (170/211)

*** This is a reply to #9.


From:    Bruce Mahoney
To:      Gary Lagier                              Msg #209, 16-Jan-89 07:50pm
Subject: Re: TP5 Files

Does this offer include me? This msg was left the same day I called TC.
Please Reply if I haven't called back.      Thanks.
--- QuickBBS v1.02
 * Origin: Somewhere on Cherry St. (170/211)

*** This is a reply to #47.


From:    Justin Marquez
To:      Lou Garner                               Msg #210, 17-Jan-89 10:16am
Subject: Re: 300 BAUD

 LG|
 LG| I don't think this is correct.  People calling a board have a list of
 LG| things to do, and will take the time to finish that work.  A 300 baud
 LG| caller will take EIGHT TIMES as long as someone at 2400 and FOUR TIMES
 LG| as long as someone at 1200.
 LG|
 LG| Do you want one caller blocking up to SEVEN others?  If so, your board
 LG| isn't very busy.

       My public bbs, Artichoke 106/60, is no longer online as I had to shut
it down shortly after taking the RC job. (Workload got too heavy...) While it
was up, it was a quite popular BBS in Houston, averaging about a 75% total
usage factor. Mostly for downloads. I had over 1000 users in the user.bbs
file and I purged it about once a month, too.

 LG| If you believe that everyone uses all of their
 LG| available minutes each call, then I have to say I do not see that on
 LG| my board.
 LG|

       Simple solution - give everybody a reasonable number of minutes/call
and minutes/day. Sure, if you allow 2 hours/call, people may abuse that. Give
'em 30 minutes a call and an hour max/day. MANY files cannot be downloaded in
30 minutes at 300 baud. That'll encourage folks to pop for a faster modem
than anything else. But to disallow 300 baud at all cuts them out of the msg
base all together.


--- msged 1.96S ZTC
 * Origin: Region 19 Coordinator  (1:106/100)

*** This is a reply to #205.


From:    Rich Myers
To:      Heikki Levanto                           Msg #211, 17-Jan-89 04:54pm
Subject: Next TP version

 >  > Can't help but wonder where Kahn is going to take
 > TP from here.  Can
 >  > you think of something lacking in TURBO PASCAL now?
 >  I can't.
 >
 > - Less memory requirements
 > - Parallel programming
 > - Tightly following some standards ( ANSI ) ( optional,
 > I hope )
 > - 3D graphics
 > - Pascal++ ( that is object oriented stuff, I don't
 > know how )
 > - Faster compilation ( yes, but still faster )
 > - Logic programming ( like in Prolog )
 > - Mouse support in programs and in the Integrated Environment
 > - DWIM ( Do What I Mean ) and self-correcting syntax
 > check
 >
 > I'll find more before he's got all these out !
 >
 > yours
I like the suggestions but would like to add another....

I am forced to use the integrated environment at work and feel that the 64k
file size limit should be fixed...(That is the only reason I have to use the
environment - the editor).

We compile using TPC in another DV window and I can't use my own editor
because you can edit unlimited size files.

Rich

--- Operetta V0.5.1Γ
 * Origin: The Twilight Zone [phone] (1:106/301)


From:    Bruce Mahoney
To:      Dave Smith                               Msg #212, 17-Jan-89 04:28pm
Subject: TSRs

{ Much big pgm then : }
  Keep( 0 )     { Terminate, stay resident }
END.
--- QuickBBS v1.02
 * Origin: Somewhere on Cherry St. (170/211)

*** This is a reply to #150.


From:    Micah Bleecher
To:      Tony Shelton                             Msg #213, 17-Jan-89 08:23pm
Subject: Re: pd-compiler

 TS> There are two that I know of.  One is VISIBLE Pascal.  Don't know
 TS> where
 TS> find it though.  Another can be found on Compu$erve in the IBMPRO
 TS> forum.
 TS> It is supposed to have an integrated environment, but since I've not
 TS> used it, I cannot comment on it.


You can Freq VISPAS.ARC from me --- 106/12 ----


Micah


--- Msg V3.2
 * Origin: SoundingBoard - YooHoo 2 Ya'll 2 - [phone] (1:106/12)

*** This is a reply to #168.


From:    Micah Bleecher
To:      Mark Hopkins                             Msg #214, 17-Jan-89 08:30pm
Subject: Re: A LITTLE PROBLEM


 MH> > :-) Doesn't look like a smiley face to me... Where did
 MH> it originate from?

 MH> Tilt your head to the left so that you're looking at it
 MH> sideways... Look better now?  Also, try these variations:

 MH>    ;-)    #:)  8-O




Dont forget the mirrord shade look  B-D  (flame protection)

--- Msg V3.2
 * Origin: SoundingBoard - YooHoo 2 Ya'll 2 - [phone] (1:106/12)

*** Part of a conversation.


From:    David Vins
To:      Micah Bleecher                           Msg #215, 17-Jan-89 03:32pm
Subject: Re: Virus in Pascal 4.0

  Yes, no help to anyone under his name!!!
s
--- QuickBBS v2.03
 * Origin: The Outpost │ Nashua NH »HST« (1:132/113)

*** This is a reply to #153.


From:    Tom Bradford
To:      Heikki Levanto                           Msg #216, 16-Jan-89 01:56pm
Subject: Re: Style Debate #9,005

   How can one put a standard implementation style on the Uses statement?
Since its basically new (And only used in TP 4 and 5) there can be no standard
style.
   I don't remember Niklaus Wirth saying "Yeah, when Borland invents Units,
the style of referring to them will be:
Uses
   ...
   ...
"
On a matter of personal preference, I like keeping them on the same line, this
reduces source code sizes (because of the non-inclusion of the CR/LF line
terminator).

Here is how most of my Uses statements are setup.

Uses DOS,CRT,FXWindow,FXInput,FXPullDown;

Where:
   DOS is the Turbo Pascal DOS Unit.
   CRT is the Turbo Pascal CRT Unit.
   FXWindow is F/X-Software Systems' Windowing Unit (My Windowing Unit)
   FXInput is F/X-Software Systems' String Input Unit (As Well)
   FXPullDown is F/X-Software Systems' Pull-Down Menu Unit (As Well)

So long as "I" know what the Units do, I don't think they should have comments
or be on seperate lines.  If the source were to be released into the public
domain, then you may want to write a description text file on what the
different Units do, but otherwise, it basically clutters up your source code.

BTW all, the January 15th update of F/X-Windows is now on my board in the
Turbo Pascal file area.  Whether you want to upgrade to this release or have
never heard of it before, you may just want to download this update.

The F/X-BBS - [phone] (1200/300BPS) - SysOp: Tom Bradford
^^^^^^^^^^^


---
 * Origin: INFOWORKS-BBS-Boston,Ma.(617-923-7373) "The future is now." (Opus
1:101/420)

*** Part of a conversation.


From:    Gilbert Edwards
To:      All                                      Msg #217, 16-Jan-89 03:26pm
Subject: Sort Units

Hello To All,
 I am looking for a sort unit where I can specify field and maximum
number of records. I have a database program that I am writing that needs the
records sort on a key field.I prefer not to use and external
program cause I would like to distribute it as shareware. Any help would be
appreciated.


---
 * Origin: INFOWORKS-BBS-Boston,Ma.(617-923-7373) "The future is now." (Opus
1:101/420)


From:    Frank Barrus
To:      All                                      Msg #218, 16-Jan-89 04:25pm
Subject: File Existance...

Does anyone out there know a fast and efficient way
to check for the existance of a file and get the file
size in Turbo Pascal 5.0?
Basically, the only way I have is to try resetting the
file, and if it's successful, get the file size, then
close the file... but this takes time and causes unnecessary
hard drive access...
Is there some simple way to read this info directly from
a directory without first opening the file, and could someone
write me a simple procedure to do so?


---
 * Origin: Dave's OPUS!/BINK *SDS*SDN*HST* Lowell MA (Opus 1:324/275)


From:    Jody Shapiro
To:      All                                      Msg #219, 17-Jan-89 02:18pm
Subject: Turbo Pascal 4.0 & The Modem

Hi!

        I'm new to both Pascal and this conference.  I'm working on an
on-line game for BBS's, but am having a little trouble with that !@#$%^&*()
modem...  I FREQ'ed Tony Hsieh's TP4 Fossil Driver routines, but these are
kind of buggy, and half the time I get a "FOSSIL NOT RESPONDING!  ALL
OPERATIONS HALTED!" msg.  Does anyone have ANYTHING in TP4 that outputs to
the modem with or without Tony's routines?  Any tips?

Thanks, I'd really appreciate it!

P.S. If possible, you could make
--- QuickBBS v2.03
 * Origin: <The ToolBox>  Boston, Mass  [MABOS] 617-364-2474 (1:101/160)


From:    Bruce Mahoney
To:      Jonathan Posner                          Msg #220, 16-Jan-89 09:29pm
Subject: Re: pascal

Mastering Turbo Pascal 4.0 by Tom Swan
--- QuickBBS v2.03
 * Origin: ]≡[ The Pascal Programmer's Club ]≡[ [phone] (1:170/403)

*** This is a reply to #114.


From:    John Anderson
To:      All                                      Msg #221, 16-Jan-89 07:51am
Subject: QBBS

Anyone know why I am getting a runtime error when I try to startup QBBS? Any
help on the matter will be arrpeciated.
--- QuickBBS v2.03
 * Origin: Beaker's Beacon (1:115/212)


From:    Andy Lester
To:      All                                      Msg #222, 16-Jan-89 04:31pm
Subject: Horrible coding bug #47

I just saw the worst bit of code I've seen in some time.  It went like this:

for i:=1 to 12 do
  begin
  do_this;
  do_that;
  if Some_Finished_Condition then i:=13;
  write(i);
  end;

Blech!  Blech!  Modifying loop counters.  This achieves it's goal of exiting
before getting to 12 in UCSD Pascal, but in Turbo it won't.  (Preface:  In
Turbo versions 2.0 & 3.0 it won't).  It'll increment i, but Turbo doesn't
check the variable as the loop counter.  So, if on the first time through the
loop it met that condition, output would be:
1 13 14 15 16 17 18 19 20 21 22 23
but in UCSD it would be:
1

Andy


--- msged 1.96S ZTC
 * Origin: CONST PointName='Paradise City'; death=true; taxes=true;
(1:115/790.2)


From:    Matt Franckiewicz
To:      Jim Forbes                               Msg #223, 14-Jan-89 12:34pm
Subject: Bypassing the opening

Thanks for your response.  In the meantime, I also discovered that using a
pick file{ causes the opening screen to be bypassed.


---
 * Origin: THE SMORGAS-BOARD  Monroeville, PA  1-412-733-3010 (Opus 1:129/32)


From:    Matt Franckiewicz
To:      Andy Lester                              Msg #224, 14-Jan-89 12:40pm
Subject: The extra ;

I agree with you about adding the semicolon after the last statement in a
block.  It is superfluous, but what does it cost?  It costs one byte in your
source file.  That's all.  I checked it, and an extra semicolon does not
increase the length of the .exe file (at least in TP4.0), such as by adding a
NOP to the exe.  MeMeanwhile, the benefit from doing it is that if you later
add a line at the end of the source, there   is a fair chance you would forget
to add a semicolon after what had been the last line, and you get a compiler
error message.

Two minutes{ of my time versus one byte in a source file?  The answer is clear
to me.

                {

     <co17's9F

               {

              r


---
 * Origin: THE SMORGAS-BOARD  Monroeville, PA  1-412-733-3010 (Opus 1:129/32)


From:    Hector Santos
To:      Tim Geisweit                             Msg #225, 13-Jan-89 12:32am
Subject: Re: goto's

 >>
 >> Why should you avoid it?   Goto's speeds up execution.
 >>  :-)
 >>
 TG>
 TG> You're right, they do. They also leave a mess for the
 TG> programmer to debug. I'd rather have a program I can fix than
 TG> one which does the wrong thing very fast. <grin>
 TG>

Are you saying you couldn't tackle a program with goto's? Too hard
to understand? Can't handle them? What's the beef? <growl>

"Real Programmers never have excuses!"

<hec>

--- Via Silver Xpress V2.10G  Late Night with Xpress!
 * Origin: Pitt Xpress : Home of Opus Xpress [phone] (1:129/82)


From:    Hector Santos
To:      Bill Sawyer                              Msg #226, 14-Jan-89 01:45am
Subject: Re: Philosophy

 BS> Thank you.  It is obvious that you have been in the programming
 BS> business long enough to learn this simple LAW.  Namely, A
 BS> PROGRAMMER SHALT WRITE MAINTAINABLE CODE.  What that means is
 BS> that it must be MODULAR (in some way shape or form), LOGICAL
 BS> (in your own convoluted way), and thoroughly DOCUMENTED (so
 BS> that another can easily decipher your MODULAR design and
 BS> LOGICAL construction).  If you have any desire to become a
 BS> top-paid programmer of any sorts, you will sooner or later have
 BS> to come around to these standards.  Take my word on it.  But,
 BS> I'm certain that there are those of you out there who still
 BS> believe that good pre-coding design (i.e. flowcharting,
 BS> pseudo-coding, CASE tooling, etc.) are time consuming bunches
 BS> of hog-wash.  And that post-coding documentation is equally
 BS> useless.  To those of you who feel this way, THANKS!  You make
 BS> me look a 1,000 times smarter than I am.  You also ensure that
 BS> I get paid more than most of you will ever dream. Adios
 BS>

To each his own.

<hec>

--- Via Silver Xpress V2.10G  Late Night with Xpress!
 * Origin: Pitt Xpress : Home of Opus Xpress [phone] (1:129/82)

*** Part of a conversation.


From:    Sam Almassri
To:      John Wyatt                               Msg #227, 16-Jan-89 06:16am
Subject: Re: sounds

can you have letter spelling with these two procedure, is there any kind of
componiation of the the sound and delay procedure for that or they use
different kind of procedure?
--- QuickBBS v2.03
 * Origin: Bytes 'R Us; San Ysidro CA [phone] (1:202/112)


From:    Lawrence Lessing
To:      Brian Foley                              Msg #228, 16-Jan-89 07:59am
Subject: Re: bbs's in TP??

Yes, I have the converted version. It comes with a strange addition that runs
the new users through a "torture test." In other words, the new user is given
about 20 questions and must score at least a 70%... This is great for
filtering out the paper brains...

The only problem with the converted version is that it does not allow running
online games because TurboPascal 4.0/5.0 do not support chaining... But I have
a unit/program by TurboPower software that allows chaining so it might work...

You can get the converted version from the Soapbox 1 BBS. The Sysop is the
writer of the multi-line version of it. Call 213-422-2261 and experience the
turture test for yourself!!!

                                            -> Lawrence <-
--- QuickBBS v2.03
 * Origin: Torrance BBS * Los Angeles, CA * [phone] * (1:102/345)

*** This is a reply to #63.


From:    Aaron Shumate
To:      Djoerd De.fost                           Msg #229, 15-Jan-89 03:54pm
Subject: CLRSCR IN TP 4.0

Well Djoerd, I think your problem is that you don't have the USES CRT; line in
your program.  This includes the CRT unit, which in turn lets you use the
functions in that unit, and CLRSCR happens to be one of them.  Read the
section in your manual on units to get further instructions on how to use
them.

Hope this helps...

 Aaron
--- TBBS v2.0
 * Origin: The Coop - Striving for Exellence [phone]  (7101/6)


From:    Ray Sun
To:      Jesper Wolf                              Msg #230, 16-Jan-88 08:24pm
Subject: Re: Turb 3.0 shell


Just telling you both...

There is that file that someone was talking about that was written by
someone at Borland floating around somewhere...I have it myself...It works
perfectly and isn't complicated at all (just set the Maximum/Mimimum memory
thingys to 100H--Or is it 100)

Just get that for a simple answer!

Of course, I can't remember what it's called..And also, I viewed it and
captured it instead of d/l it to save a d/l so I don't have the real file
anyway!
--- QuickBBS v2.03
 * Origin: ** The Express Line, Winterville, GA [phone] HST **
(1:370/22)


From:    Richard Louie
To:      All                                      Msg #231, 15-Jan-89 10:28am
Subject: TP5.0

   For anybody with any doubts in upgrading to TP5.0, you should forget about
them! TP5.0 is a great program ( I am sure many of you would agree).  With the
integrated debugger, it makes programing as easy as counting from 1 to 3.  For
any serious pascal programmer, TP5.0 is the best thing that could happen at a
reasonable price!!

Richard


---
 * Origin: 1ST SOURCE "ECHOFILE-HUB" Vancouver (Opus 1:153/301)


From:    Lee Hamel
To:      All                                      Msg #232, 16-Jan-88 05:06pm
Subject: Turbo 3.0

Sorry to all if I sounded like an ass, but I wasn't feeling great.

Anyway, I figured out how to do the par                  Msg #236, 16-Jan-89 distribute compily book (for all the interrupts),
the TP 3.0 book, and a Pascal library type book.. pretty simple
for interrupts. I still don't know how to do the shell to DOS.
I know you have to execute command.com, but don't know how (or can't
seem to get it right.) Any help appreciated.
--- QuickBBS v2.03
 * Origin: Uptown Underground - City Life - Portland, OR (1:105/15)


From:    Ross Wentworth
To:      Murray Eisenberg                         Msg #233, 17-Jan-89 01:33am
Subject: Turbo Pascal 5.0 with NEC V30/8087

 >    The following code causes the machine to hang and
 > requires a reboot:
 >
 > var
 >   x, y : double;
 >
 > begin
 >   x := 1.0 / 2.0;
 >   repeat
 >     y := x;
 >     x := y*y
 >   until false
 > end.

You don't have anything to terminate the loop!  It will run forever.  If you
single step it using the integrated debugger you'll see what I mean.

                                    Ross Wentworth

--- FD 2.00
 * Origin: Serendipity Software via Torrance BBS [phone] (1:102/345.1)

*** This is a reply to #78.


From:    Randall Smith
To:      Bertrand Renuart                         Msg #234, 16-Jan-89 09:14am
Subject: Re: PASCAL - DOS

 BR> How can I use Dos function, like read/write files, in my RESIDENT
 BR> Turbo PAscal Program ? It's a big problem because DOS is not recursive
 BR> (In french : DOS n'est pas rcursif ou rentrant ...)

  Bertrand;  My best suggestion is to look for a book on TSR's in pascal.  Get
the publisher's name and ISBN number.  Contact the publisher and ask if he has
a French language edition.  Your English is *MUCH* better than my French!
  TSR's use undocumented DOS functions and switches.  You can use DOS
functions 01h to 12h.  There is also a switch called DOS-busy used as a flag
to determine when a TSR can pop-up.  I don't know the location of this flag.
Many TSR's use a two step process to activate.  They hook into the keyboard
interrupt and the timer interrupt.  When triggered by the keyboard, the TSR
only sets a TSR-flag.  The Main portion of the TSR connected to the timer
interrupt checks the TSR-flag and the DOS-busy flag at every timer tick (18.2
times per second).  When the TSR-flag is set and the DOS-busy flag is not set,
the TSR activates and can then use *ANY* DOS function.
  Look for a file called TESS*.* for pascal which has a full set of support
routines for TP programs.  It is available on Compu$erve and many BBS's.
  Good Luck.  My cat wants some attention so I must go.



Later....             Randy.

--- Msg V3.2
 * Origin: The Knot in the End of the Thread.    (1:150/511.10)

*** Part of a conversation.


From:    Randall Smith
To:      Holger Schurig                           Msg #235, 16-Jan-89 09:46am
Subject: Patches for TP5? uints

 HS> not use meaningful filenames for the programs ?  By the way: every
 HS> unit from me ends with ".U", i have patched TURBO.EXE so make or build
 HS> will consider this. It makes things clearer on your directories.

I think this is a good idea.  Do you have the patches to do this handy?  Could
you post them for all to see or netmail me a list of the patches?  Thanks in
advance..


Later....             Randy.

--- Msg V3.2
 * Origin: The Knot in the End of the Thread.    (1:150/511.10)


From:    Randall Smith
To:      Gary Godfrey                             Msg #236, 16-Jan-89 distribute
and I got no messages on printer 3..........ut:
e[K
L[K--- Msg V3.2
 * Origin: The Knot in the End of the Thread.    (1:150/511.10)

*** Part of a conversation.


From:    Randall Smith
To:      Olof Vanderzwan                          Msg #237, 16-Jan-89 10:01am
Subject: Integer-String conv

 OV> How can I convert integers to string
 OV> As example I have hours min sec as integers but I like to carry on
 OV> with a time string.

Oleg; I'll keep this short.  Var
    hours, min, sec : integer;
    hours_S, min_S, sec_S : string[2];
    time : string[8];
    i : integer; begin
    Str (hours:2, hours_S);                         { convert }
    Str (min:2, min_S);                             { hours, min, sec }
    Str (sec:2, sec_S);                             { to string format }
    time := hours_S + ':' + min_S + ':' + sec_S;    { time w/: }

    for i := 1 to 8 do                              { remove blanks }
        if time[i] = #32 then                       { from string }
            time[i] := '0';                         { replace with '0' } end;


Hope this helps..


Later....             Randy.

--- Msg V3.2
 * Origin: The Knot in the End of the Thread.    (1:150/511.10)


From:    Randall Smith
To:      Loyd Craft                               Msg #238, 16-Jan-89 10:19am
Subject: Re: STYLE DEBATE #9,005

 LC> I realise that with My way you end
 LC> up with bigger source files, because of all the indenting
 LC> with spaces,

If you're concerned by the bigger source files, use TINST to fill the blank
areas with TABS instead of spaces.  This has the added advantage that if you
want to change the indent everything moves together.



Later....             Randy.

--- Msg V3.2
 * Origin: The Knot in the End of the Thread.    (1:150/511.10)

*** This is a reply to #216.


From:    Hal Smith
To:      Charles Falconer                         Msg #239, 17-Jan-89 08:05pm
Subject: Re: TP System interface

Charles,
  Tinfo is one of the diagnostic / support routines supplied by TurboPower
Software with their Turbo Analyst package.  The program can reconstruct the
interface, both variables and routines, and give the calls with parameters in
the implementation section.
  If you were a clever person, with lots of time to burn, and a good
understanding of generated code, you might be able to use the other option
(detailed assembler type code) to reverse compile the unit.
  Of course, reverse compilation is one of the great undoables in computer
science.  The TPU, by its very nature, I would guestimate is at least an order
of magnitute easier to do than a straight exe or com file.
  Turbo Analyst is about $75.00 from the developer direct, or you can get it
for the usual discounts from folks like the Programmer's Connection, or the
Programmer's Shop, or Programmer's Paradise, etc.  A *very* worthwhile tool
for the serious TP developer.
-H
--- QuickBBS v2.03
 * Origin: Transient Technologies *PASCAL* Programming echo <HST> (1:280/302)

*** This is a reply to #51.


From:    Hal Smith
To:      Randall Smith                            Msg #240, 17-Jan-89 08:18pm
Subject: Re: Print routine

Randall,
  The other thing that bit me was the fact that while TP3 initalized variables
to 0 (thereby giving me printer 0 in the call) the newer two versions don't,
and I got no messages on printer 3..........ut: Re: A Little Problem

 -SP>  AL> That's why God created the smiley face. :-)
 -SP>
 -SP> :-) Doesn't look like a smiley face to me... Where did it originate
 -SP> from?
Turn your Monitor on it's right side and then look again


--- msged 1.96S ZTC
 * Origin: Ministry of Truth  (1:10/700.1)

*** This is a reply to #214.


From:    Brion Lienhart
To:      Greg Franklin                            Msg #248, 16-Jan-89 12:22pm
Subject: A Computer Term

 -GF> What does the prefix "foo" as in "foobar" really stand for?  I know
 -GF> that it's merely a dummy name, but what's the story behind it?
actually it's an acronym and should be FUBAR which stands for F***ed Up Beyond
All Recognition. Then there is always:
SNAFU- Situation Normal, All F***ed Up
JANFU- Joint Army Navy F*** Up

I'm not sure where foo came from, I think it was in K&R.
--- msged 1.96S ZTC
 * Origin: Ministry of Truth  (1:10/700.1)

*** This is a reply to #241.


From:    Dave Goggin
To:      Randall Smith                            Msg #249, 16-Jan-89 04:52pm
Subject: Re: TYPING PASCAL

sounds good.
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)

*** This is a reply to #7.


From:    Dave Goggin
To:      Detlef Kloeser                           Msg #250, 16-Jan-89 04:54pm
Subject: Re: TURBO PASCAL 5.0

   I think I know of a very good book about TP 5.0, it is called 'Turbo Pascal
Programmers handbook' or something like that, and it is mainly about TP 3.0,
but it has an addemdum about TP5.0.
--- TBBS v2.0
 * Origin: G.A.D.M. Multi-User TBBS Hayward,CA.[phone]  (161/208)

*** This is a reply to #137.


From:    Jon Guthrie
To:      Jim Segler                               Msg #251, 17-Jan-89 10:37am
Subject: Re: Philosophy

 JS> I want to know how you learn to drive ? you can't drive a car or
 JS> truck with a  book you just learn the rules driveing is done best
 JS> with hands on.......

But a significant part of the art of programming is planning.  Learning
to plan a program is, to my knowledge, NEVER taught in intro programming
courses and doesn't require hands-on experience.  (You could teach an
entire course just on the techniques for planning a program.)

--- Via OpXpress V1.06ß "Silver"  SCIGUY -  The Scourge of Delphi!
 * Origin: FOG-LINE;FOG#51;USR HST;515-964-7937 (1:14/627)

*** This is a reply to #226.


[251] Highest: 251
ECHO area 45 ... Pascal language echo
Type `?' by itself for help
A)rea change       N)ext (read msg)   P)rior msg         E)nter message
R)eply             =)read non-stop    -)read original    +)read reply
L)ist (brief)      I)nquire           M)AIN MENU         G)oodbye (logoff)
K)ill message