program ProgramName;



                                                        {Name of persone}

                                                        {project #- Computers 1}

                                                        {--/09/01}

                                                        {saved as PR-tb}



uses WINCRT;



var

  LOOP,INST: char;

  NAME: string;

begin

   clrscr;

   gotoXY(0,8);   

   writeln('  --------------------!  ':51);

   writeln('    BY: ------------     ':51);

   writeln('        --/09/01         ':51);

   writeln('                         ':51);   

   gotoXY(27,20);

   write('Press ENTER To Continue!');

   readln;

   clrscr;

   write('Enter your name. ');

   readln(NAME);

   repeat

      clrscr;

      writeln(NAME,',');

      write('Do you want to see the instructions? y/n? ' );

      readln(INST);

   until INST in ['y','Y','n','N'];

   if (INST='y')or(INST='Y') then

      begin

         clrscr;

         writeln('Insert instructions HERE!');

         gotoXY(30,24);

         write('Press ENTER to continue! ');

         readln;         

      end;



   repeat  

      clrscr;

      repeat

         clrscr;

         writeln;

         gotoXY(20,10);

         write('Do you want to go this again? y/n.  ');

         readln (LOOP);

      until LOOP in ['Y','N','y','n'];

   until loop in ['N','n'];



  

   clrscr;

  writeln('Buy');

end.