def NAME "LIVESAMP"
def QUIT_YES "Y"
def QUIT_NON "N"
const {
 K_ESC = 32
 K_Y = 16
 K_N = 8
}
$main {
 ~create();
 write#"Hello World";
 make^break;
 if(Is#PressKey(*))
  write#"Welcome on ^c":def NAME;
  make^break;
 endif;
 if(Is#PressKey(K_ESC))
  write#"You Wan't Quit If Yes Press ^c else ^c":def QUIT_YES;def QUIT_NON;
  make^break;
  while %last;argument = {REQUEST QUIT} { ''' { } is Argument last REQUEST is Key and QUIT is K_ESC
   if(%{K_Y})
    $SayGoodBye;
    stop->Program$$!;
    break.all; && {
    break.$main; }
   else
    deletewhile#&\´´´^endwhile*;
   endif;
  endwhile*;
 endif;
 $SayGoodBye;
}

$SayGoodBye {
 ~createFunction();
 write#"Good Bye";
 make^break;
}