program-id. Program1 as "CARINT.Program1".

       data division.


       working-storage section.
	   01 loopF pic x value "y".

	   01 ct pic xxxxxxxxxxxx.
	    01 custName pic x(20).
		   01 init pic x.
		   01 carT pic x.
		   01 mile pic 99999.
		   01 daysR pic 999.

		    01 df pic 99.
		  01 mf pic 99.

		  01 milesT pic 99999.99.
		   01 dayTo pic 99999.99.
          01 total pic zzzzzzz.99.

		   01 dt pic 99999V99.
		 01 mt pic 99999V99.


		 screen section.
		01 FirstS.
		   05 beg
		         blank screen
			   foreground-color 15
			   background-color 2.
		   05 line 1 column  1 value "Name".
		   05 col 6 pic x(20) to custName.
		   05 line 2 col 2 value "Initiales".
		   05 col 12 pic x to init.
		   05 line 3 col 1 value "Car type (1 2 or 3)".
		   05 col 30 pic 9 to carT.
		   05 line 4 col 1 value "Enter Miles".
		   05 col 15 pic 99999.99 to mile.
		   05 line 5 col 1 value "Enter days rented:".
		   05 col 26 pic 999 to daysR.
		   05 line 6 col 30 value "----------------------".




	   01 LoopScreen.
		   05 line 9 col 1 value "Want to continue".
		   05 col 21 pic x to loopF.



       procedure division.

		   100Main.
		   perform until loopF = "n"
		   display FirstS
		   accept FirstS

		   perform 200IF
		   perform 400Cal
		   display "   "
		   display "   "
			   display custName "    " init "    "  ct "    "  mile  "   "  daysR
			   display total  "   "  dayTo "    "   milesT

			   display LoopScreen
			   accept LoopScreen
			end-perform
         stop run.

	   500MainOld.
		   perform until loopF = "n"

			   display "Name"
			   accept custName

			   display "Enter init"
			   accept init

			   display "Enter car Type"
			   accept carT
			   perform 200IF

			   display "Enter mile"
			   accept mile

			   display "Enter day"
			   accept daysR

			   perform 400CAL

			   display custName "    " init "    "  ct "    "  mile  "   "  daysR
			   display total  "   "  dayTo "    "   milesT


			   display "Again??"
			   accept loopF
		   end-perform.




		    200IF.
		     if carT not equal "1" or cart not equal "2" or cart not equal "3"
			   move "ERROR" to ct
			    move 0 to df
			   move 0 to mf
		   end-if.
		   if carT is equal "1"

			   move "Toyota1" to ct
			   move 26 to df
			   move 18 to mf
           end-if
		   if carT is equal "2"

			   move "Chevrolet2" to ct
			    move 32 to df
			   move 22 to mf
           end-if
		   if carT is equal "3"
			   move "Cadilla3" to ct
			    move 43 to df
			   move 28 to mf
           end-if.

		   400CAL.
		   compute mt rounded = (mf * mile) /100
		   compute dt rounded = daysR * df
		   compute total rounded = dt + mt
		   move dt to dayTo
		   move mt to milesT.

       end program Program1.