home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP / UTL2 / GROUCHO.PZS / GROUCHO.PAS
Pascal/Delphi Source File  |  2000-06-30  |  5KB  |  67 lines
  1.                          program         GrouchoMarx
  2.                  ;const topline=      09;bottomline=21;
  3.              leftcol=10;rightcol   =68;var deltax,deltay,
  4.            xpos,ypos:integer;ch   :char;procedure Border;var
  5.        i:integer;begin for i   :=leftcol to rightcol do begin
  6.        gotoxy(i,topline);{}   write('-');gotoxy(i,bottomline);
  7.       write('-') end;for      i:=topline to bottomline do begin
  8.       gotoxy(leftcol             ,i)   ;write('|');gotoxy({}{}{}
  9.       rightcol,i)                               ;write('|'); end
  10.        end;{}{}                                 begin ClrScr;xpos
  11.        :=leftcol                                  ;ypos:=topline;{}
  12.         deltax                                     :=1;deltay:=1;{}
  13.           {!}                                       gotoxy(33,5);{}{}
  14.                                                     write('Groucho Bo'
  15.                                    +'unce');        gotoxy(30,7);write
  16.                ('by '            +'John M. P'       +'assaniti');{}{}{
  17.            }Border;{}{}{       }gotoxy(29,24);{     }write('Press any'
  18.        +' key to quit.'       );while not {-ugh-}   keypressed do begin
  19.       gotoxy(xpos,ypos)       ;xpos:=xpos+deltax;    ypos:=ypos+deltay
  20.        ;{      }if{}            (xpos =leftcol)       or(xpos=rightcol
  21.       ){}      then{  }{       {}     deltax{          }:=-deltax;if(  ypos
  22.       =       topline){}      or     (ypos={}{}{       }bottomline){   }   {}
  23.       {      }  then  {       }     {         }         deltay:=-{}   {}    {}
  24.       {     }{}     {}{       }      {        }          deltay;{}   delay   (
  25.       {}      {    }{         }       {     }20           ) end;{   }{}{}{}{}
  26.        {}                     {}           {}     {} {}{}    gotoxy (1,24);{}
  27.         {}        {}           {?}        {}     {}    {}      ClrEol;{<>}
  28.          {?}     {}              {?}     {}      {      }{     }gotoxy(27,
  29.            topline                 +3);{!}       {       }{    } write({}
  30.                  {                               }{       {}   'Not very '
  31.                  {                 }              +'e'     {}  +'xciti'  {
  32.                  {}               +'ng, '           {}      +'was it?'   );
  33.                   {}       {?}  gotoxy(23            ,         topline    +
  34.                    5)     ;write('Well, l'            +        'et''s'    {}
  35.               +' see you write a program');           {{       }{}{  }     {}{
  36.               }gotoxy(23,topline+6);write({            }{        {   }       {
  37.               }'where the source code look'             +        {  }{       }
  38.               's like');gotoxy(23,topline+       7);write        ( {}        {
  39.                }'Groucho'+   ' Marx!!');{       }{    { }        {??}       {}
  40.                                             gotoxy    (1,1        );        {}
  41.                             write(         ^G    {}      {}                {}
  42.                            {});{  ;;}     {{      {{                       }
  43.                              delay       ({        }{                     }{
  44.                                 {        }  9999                          )
  45.                                          ;    {{{}                       {}
  46.                                          for ypos                       :=
  47.                                           {                            }{
  48.                                          }{                            {}
  49.     { --Groucho Bounce-- }              {}                            {}
  50.     {by John M. Passaniti}             {{                             }
  51.     {compile with Turbo  }            {}                             {}
  52.     {Pascal, any version.}           {}                              {
  53.                                    {{{                            {{{
  54.                                  {{}                         topline
  55.                                  +                         3 {
  56.                                  }                        to
  57.                                  {}                      {}
  58.                                   {}                    {}
  59.                                    {                   {{
  60.                                    }                   {
  61.                                }topline+7 do begin gotoxy(23,ypos)
  62.                                ;write('                          '
  63.                                +'         ');delay(50)end;gotoxy({
  64.                                }34,topline+6);write('See Ya Bye!!'
  65.                                );gotoxy(1,1);write(^G^G^G)end.{!!}
  66.  
  67.