Pascal program picture
From Entropy <c94...@alinga.newcastle.edu.au>
· alt.ascii-art
· 20 Jul 1994 03:37 · View full thread
· report
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)
Original message headers
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: c94...@alinga.newcastle.edu.au (Entropy) Subject: Pascal program picture Message-ID: <Ct7...@seagoon.newcastle.edu.au> Sender: new...@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
Related ASCII art in the Gallery
Explore these categories from our collection of 11,000+ artworks:
Make your own ASCII art
Turn images, text or 3D into ASCII, or draw your own – right in your browser.
About this message.
This message was posted publicly to the newsgroup
alt.ascii-art
in 1994 and is mirrored here unchanged as part of the Historic Archives – only email addresses are masked.
The artwork and text belong to their original authors: if you copy a piece, keep the artist's initials or signature intact and credit them where you can.
Are you the author? Contact us to get your posts attributed, connected to your artist profile, or removed.
Report this message
Help us keep the archive clean and accurate. Reports are reviewed by a person – nothing is changed automatically.