---------------------------------------+------------------------------------------
"C Program to propose a girl"          | CLAIMED to be written by jesuashok
Internet version posted 4/21/2006      |  for Perlmonks on 9/8/2006
---------------------------------------+------------------------------------------
                                       | #PERL Program to Propose a girl.
                                       |
                                       | package main;
                                       |
#include "STD ISD PCO.h"               | use STD.pm
                                       | use ISD.pm
                                       | use PCO.pm
#include "love.h"                      | use Love.pm
#define Cute  beautiful_lady           | use constant CUTE
                                       |     => beautiful_girl_or_ladies;
                                       |
main()                                 |
   goto college;                       | goto all_colleges_and_universities;
   scanf("100%",&ladies);              | $ladies = chomp(<STDIN>);
                                       |
   if(lady ==Cute   )                  | if ( $ladies eq Cute ) {
   line++;                             |     $cute_girls_count ++;
   {                                   | }
                                       | while ( !$reply ) {
   printf("I Love U");                 |      print HEART "I LOVE YOU";
                                       |
   scanf("100%",&reply);               |     $reply = chomp(<STDIN>);
                                       |
   }                                   | }
                                       |
   if(reply == "GAALI")                |
   main();                             |
   /* go back and repeat the process */|
   else if(reply ==  "SANDAL ")        |
   exit(1);                            |
                                       | if ( $reply !~ /I LOVE YOU/i ) {
                                       |     goto all_colleges_and_universities;
                                       | }
   else if(reply == "I Love U")        | else {
   {                                   |
   lover =Cute ;                       |     $lovers_list{$ladies} = 'my_lover';
   love =                              |
     (heart*)malloc(sizeof(lover));    |
   }                                   |
                                       |
   goto restaurant;                    |     goto restaurant;
                                       | }
                                       |
restaurant:                            | restaurant:
   {                                   | {
   food++;                             |     $food++;
   smile++;                            |     $smile++;
   pay->money = lover->money;          |     $guy_money->pay = $lover_money->get;
   return(college);                    |     goto all_colleges_and_universities;
   }                                   | }
                                       |
   if(time==2.30)                      | if ( $time eq '02.30pm' ) {
   goto cinema;                        |     goto cinema;
                                       | }
                                       |
cinema:                                | cinema:
   {                                   | {
   watch++;                            |     $watch++;
   if(intermission)                    |     if ( $intermission ) {
   {                                   |
   coke++;                             |         $coke ++;
   Popecorn++;                         |         $popcorn ++;
                                       |         $ice_cream++;
                                       |         $guiness ++;
   }                                   |     }
   }                                   | }
                                       |
   if(time ==6.00)                     | if ( $time eq '06.00pm' ) {
   goto park;                          |     goto park;
                                       | }
                                       |
park:                                  | park:
   {                                   | {
   for(time=6.30;                      |   for ( $time = '06.00pm';
       time<=8.30;                     |         $time <= '08.30pm';
       time+=0.001)                    |         $time += 0.0001 ) {
   kiss = kiss+1;                      |      $kiss ++;
                                       | }
   free(lover);                        |
   return(home);                       | goto home;
                                       |
   if(time ==9.30)                     | if ( $time eq '09.30pm' ) {
   goto pub;                           |    goto pub;
                                       | }
                                       |
pub:                                   | pub:
   {                                   | {
   friends++;                          |     $friends ++;
   party++;                            |     $party ++;
   booze++;                            |     $booze ++;
   smoke++;                            |     $smoke ++;
                                       |
   if(pub.close())                     |     if ( $pub->close() ) {
   {                                   |
   pay->bill;                          |        $pay->bill();
   come->out;                          |        $come->out();
   }                                   |     }
   }                                   |
                                       |
   if (highly->intoxicated)            |     if ( $highly->intoxicated ) {
   goto friendsroom;                   |         goto friendsroom;
                                       |     }
   else                                |     else {
   {                                   |
   sweetpan++;                         |         $sweetpan ++;
   polo++;                             |         $polo ++;
   goto home;                          |         goto home;
   }                                   |     }
                                       | }
                                       |
friendsroom:                           | friendsroom:
   {                                   | {
   goto sleep;                         |       goto sleep;
   }                                   | }
                                       |
home:                                  | home:
   if(mom.shouts())                    |       if( $mom->shouts() )
   {                                   |       {
   reason=(combinedstudy               |         $reasonfiltered = ( $combinedstudy
              || projectwork           |              || $projectwork
              || friendsbday);         |              || $friendsbday );
   say->reason;                        |         $say->reason();
   }                                   |       }
   if(dad.shouts())                    |       if( $dad->shouts() ) {
   shut->yourmouth;                    |     $shut->yourmouth();
                                       |       }
                                       |
   call->lover;                        |       $call->lover();
   if(phone->voice==(                  |       if( $phone->voice eq (
       $lover_dad->voice()             |               $lover_dad->voice()
       || lover_mom->voice))           |              || $lover_mom->voice()) )
   {                                   |       {
   hang++;                             |          $hang ++;
   }                                   |       }
   else if(phone->voice==lover->voice) |       else if( $phone->voice() eq 
                                       |                $lover->voice() )
   {                                   |       {
   for(time=12:30;                     |         for( $time = '12:30' ;
       time<=1.30;                     |              $time <= '1.30';
       time+=0.001)                    |              $time += 0.001 )
   {                                   |         {
   say->ILuvU;                         |            $say->ILuvU() ;
   scanf("100%",&reply);               |            $reply = chomp(<STDIN>);
      /* "I Love U" already            |
         stored in reply */            |
   }                                   |         }
   }                                   |       }
   goto sleep;                         |       goto sleep;
   }                                   | }
                                       |
sleep:                                 | sleep:
   {                                   | {
   *(dream)=love;                      |       $dream = 'love';
   }                                   | }
}                                      |
                                       |