Settings

The page will reload to apply your changes.
Theme

ASCII Art Font

ASCII Art Menu

Original Usenet thread from alt.ascii-art, started 20 Jul 1994.
 _   _                     _        _             _     _           
| | | |___  ___ _ __   ___| |_     / \   _ __ ___| |__ (_)_   _____ 
| | | / __|/ _ \ '_ \ / _ \ __|   / _ \ | '__/ __| '_ \| \ \ / / _ \
| |_| \__ \  __/ | | |  __/ |_   / ___ \| | | (__| | | | |\ V /  __/
 \___/|___/\___|_| |_|\___|\__| /_/   \_\_|  \___|_| |_|_| \_/ \___|
Pascal program picture

Pascal program picture

alt.ascii-art · 1 message · 20 Jul 1994
Entropy <c94...@alinga.newcastle.edu.au> ASCII art 20 Jul 1994 03:37 · raw headers · 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)
  

About this thread. These messages were posted publicly to the newsgroup alt.ascii-art in 1994 and are 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 one of the authors? 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.

Help classify this post