Board index » delphi » NEED PASCAL PROGRAM

NEED PASCAL PROGRAM

I need a program written in Pascal.  It should not be longer than a 1000
lines in Pascal format.

Please let me know where i can find some

sa...@netactive.co.za

 

Re:NEED PASCAL PROGRAM


In article <7g9mms$co...@news3.saix.net>,
  "albert" <sa...@netactive.co.za> wrote:

Quote
> I need a program written in Pascal.  It should not be longer than a 1000
> lines in Pascal format.

> Please let me know where i can find some

Here is one:

Program lazy;
begin
  write('I am too lazy to do my own homework');
end.

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    

Re:NEED PASCAL PROGRAM


Quote
> I need a program written in Pascal.  It should not be longer than a 1000
> lines in Pascal format.
> Please let me know where i can find some

In your examples-directory of your copy of TP??

Bye,
Stefan
---
please remove the P in my email-adress to answer me
take a look @ my homepage: http://sourcenet.home.pages.de/

Re:NEED PASCAL PROGRAM


pr...@my-dejanews.com heeft geschreven in bericht
<7ga1jl$mj...@nnrp1.dejanews.com>...

Quote
>In article <7g9mms$co...@news3.saix.net>,
>  "albert" <sa...@netactive.co.za> wrote:
>> I need a program written in Pascal.  It should not be longer than a 1000
>> lines in Pascal format.

>> Please let me know where i can find some

>Here is one:

>Program lazy;
>begin
>  write('I am too lazy to do my own homework');
>end.

 << SNIP !!>>

Program Lazy;
uses crt;

var
 c:char;

begin
 repeat
  writeln ('I am too lazy to do my own homework');
  if keypressed then c:=readkey;
 until (c=#27);
  writeln ('but not too lazy to press the [ESC] button :)');
end.

Re:NEED PASCAL PROGRAM


Quote
albert wrote:
> I need a program written in Pascal.  It should not be longer than a 1000
> lines in Pascal format.

> Please let me know where i can find some

If you have installed Borland Pascal or Turbo Pascal, you can find them
in your EXAMPLES subdirectory.

I hope this helps.

     - Rich

Re:NEED PASCAL PROGRAM


{$R-}{$Q-}
uses crt;
Var
  l : array[0..63999] of byte Absolute $A000:0000;i:word;
  t: Array[0..767] of Byte;r: Array[0..2] of Byte;
begin
  Asm mov AX, $0013; int 10h; End;
  Port[$3C8] := 0;
  for I := 0 to 255 do begin
    Port[$3C9] := i div 4;
    Port[$3C9] := 0;
    Port[$3C9] := 0;
  end;
  Port[$3C7] := 0;
  for I := 0 to 767 do
    t[I] := Port[$3C9];
  for i := 0 to 63999 do
      l[i] := (I MOD 320) * (I MOD 320) + (I DIV 320) * (I DIV 320);
  repeat
    for I := 0 to 2 do r[I] := t[I];
    for I := 0 to 764 do t[I] := t[I+3];
    for I := 0 to 2 do t[I+762] := r[I];
    Port[$3C8] := 0;
    for I := 0 to 767 do Port[$3C9] := t[I];
  until keypressed;
end.

Quote
albert wrote in message <7g9mms$co...@news3.saix.net>...
>I need a program written in Pascal.  It should not be longer than a
1000
>lines in Pascal format.

>Please let me know where i can find some

>sa...@netactive.co.za

Re:NEED PASCAL PROGRAM


How the hell do you exit this program??      :x
i wanted to see what it was and it was pretty cool but made my heart
stop for a few mins.

On Fri, 30 Apr 1999 02:30:37 -0500, "Jimb Esser"

Quote
<jims...@R3M0VEMEDOTgeocities.com> wrote:
>{$R-}{$Q-}
>uses crt;
>Var
>  l : array[0..63999] of byte Absolute $A000:0000;i:word;
>  t: Array[0..767] of Byte;r: Array[0..2] of Byte;
>begin
>  Asm mov AX, $0013; int 10h; End;
>  Port[$3C8] := 0;
>  for I := 0 to 255 do begin
>    Port[$3C9] := i div 4;
>    Port[$3C9] := 0;
>    Port[$3C9] := 0;
>  end;
>  Port[$3C7] := 0;
>  for I := 0 to 767 do
>    t[I] := Port[$3C9];
>  for i := 0 to 63999 do
>      l[i] := (I MOD 320) * (I MOD 320) + (I DIV 320) * (I DIV 320);
>  repeat
>    for I := 0 to 2 do r[I] := t[I];
>    for I := 0 to 764 do t[I] := t[I+3];
>    for I := 0 to 2 do t[I+762] := r[I];
>    Port[$3C8] := 0;
>    for I := 0 to 767 do Port[$3C9] := t[I];
>  until keypressed;
>end.

>albert wrote in message <7g9mms$co...@news3.saix.net>...
>>I need a program written in Pascal.  It should not be longer than a
>1000
>>lines in Pascal format.

>>Please let me know where i can find some

>>sa...@netactive.co.za

Re:NEED PASCAL PROGRAM


I haven't run it, but if I remember my Asphyxia tutorials, it fills the screen
with funky graphics.

Quote
In article <372b4eb4.186...@news.ycp.edu>, age...@ycp.edu (Andrew G.) wrote:
>How the hell do you exit this program??      :x
>i wanted to see what it was and it was pretty cool but made my heart
>stop for a few mins.

Ok.  This should be good.

[SNIP most of code]

Quote
>>  until keypressed;

^^^^^^^^^^^^^^^^^^^^^^^^^^^

MC.

Re:NEED PASCAL PROGRAM


Quote
Andrew G. wrote in message <372b4eb4.186...@news.ycp.edu>...
>How the hell do you exit this program??      :x

Sorry, didn't put in anything to switch back to a normal screen
mode.  Just took a medium sized piece of code, removed all
procedures and useful variable names, so as to make it in a form
that it would be worthless for the original poster, assuming the
common assumption that he was attempting to get his homework done
for him was correct...

Quote
>i wanted to see what it was and it was pretty cool but made my
heart
>stop for a few mins.

Sorry. Disclaimer added: I will not be held responsible for any
physical, emotional, or digital damage sustained by the use or
misuse of this program.

--
jimsoft at geocities d com
http://www.horningabout.com/jimb

Other Threads