X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f996b,3fa16b890d1fb8a,start
X-Google-Attributes: gidf996b,public
X-Google-ArrivalTime: 1994-07-23 20:01:13 PST
Newsgroups: alt.ascii-art
Path: 
 nntp.gmd.de!Germany.EU.net!EU.net!howland.reston.ans.net!math.ohio-state.edu!uwm.edu!msuinfo!harbinger.cc.monash.edu.au!merlin!mel.dit.csiro.au!its.csiro.au!dmssyd.syd.dms.CSIRO.AU!metro!seagoon.newcastle.edu.au!c9417575
From: c9417575@alinga.newcastle.edu.au (Entropy)
Subject: Pascal program picture
Message-ID: <Ct7zEH.JDo@seagoon.newcastle.edu.au>
Sender: news@seagoon.newcastle.edu.au
Organization: Uni of Newcastle, Australia
X-Newsreader: TIN [version 1.2 PL1]
Date: Wed, 20 Jul 1994 03:37:28 GMT
Lines: 73


Below is a program written in Turbo Pascal Version 7 and it is sort of 
ascii art any way if you can have a lokk



program plane;
uses crt;
const x = 12;
      y = 12;
      d = 25;
      j = 100;
      k = 250;
      e = 25;

var i : integer;

begin
     clrscr;
     sound(e);
     gotoXY(5,9);
     writeln;
     writeln('      __  ');
     writeln('|\___/ /__ ');
     writeln('|___  ___/- ');
     writeln('   /_/    ');
     for i := j to k do
     begin
          sound(i);
          delay(e);
     end(*For*);
     While not keyPressed do
     begin
          gotoXY(x,y);
          writeln('-');
          delay(d);
          gotoXY(x,y);
          writeln('\');
          delay(d);
          gotoXY(x,y);
          writeln('|');
          delay(d);
          gotoXY(x,y);
          writeln('/');
          delay(d);
     end(*While*);
     for i := k downto j do
     begin
          sound(i);
          delay(e);
     end(*For*);
     nosound;
end(*Main Program*).


--
        _/_/_/_/ _/     _/  _/_/_/_/_/ _/_/_/     _/_/_/  _/_/_/_/ _/   _/
       _/       _/_/   _/      _/     _/    _/  _/    _/ _/    _/  _/ _/ 
      _/_/_/_/ _/  _/ _/      _/     _/_/_/_/  _/    _/ _/_/_/_/    _/  
     _/       _/   _/_/      _/     _/   _/   _/    _/ _/          _/ 
    _/_/_/_/ _/     _/      _/     _/     _/  _/_/_/  _/          _/ 

       		    Measure of the disorder in a system.

NEWSFLASH!!!!!: Found recently in the vicinity of Bethlehem was what is 
believed to be the first page of the Bible. The words on this page are as 
follows:
	"The events in this book are entirely fiction, and 
	any similarities to any person or peoples, living 
	or dead, are entirely coincidental"

(origin : Red Dwarf)