'*************************************...
'* THIS PROGRAM IS TO CALCULATE CAR RENTAL REVENUE GENERATED *
'*************************************...
'VARIABLE USED:
'T1$, H1$, H2$, D1$ Customer Name
'NAM $ Employee Name
'VEHICALTYPE$ Vehicle Type
'MILAGE Miles Traveled
'RATE Vehicle Rate
'DAYS Days Held
'TOTAL Total Revenue Generated Per Account

'*************************************...
'* PROGRAM MAINLINE *
'*************************************...
CLS
GOSUB InitializeVariables
GOSUB PrintHeadings
GOSUB ProcessDetail
GOSUB CalculateAnswer
END

'*************************************...
'* INITILIZE VARIABLES *
'*************************************...

InitializeVariables:
LET T1$ = " CAR RENTAL AUGUST 2011 "
LET H1$ = " Customer Vehical Days Miles Total Cost"
LET H2$ = " Name Type Held Traveled For Rental"
LET D1$ = "/ / / / ## #### ######"

'*************************************...
'* PRINT HEADINGS *
'*************************************...
PrintHeadings:
PRINT
PRINT T1$ 'Print Title Line
PRINT
PRINT H1$ 'Print Column Heading, Line 1
PRINT H2$ 'Print Column Heading, Line 2
PRINT
RETURN

'*************************************...
'* PROCESS DETAIL *
'*************************************...
ProcessDetail:
GOSUB ReadData 'Prime the data read
DO UNTIL UCASE$(NAM$) = "END"
GOSUB CalculateVehicalCost
GOSUB CalculateAnswer
GOSUB ReadData
LOOP
RETURN

'*************************************...
'* READ DATA *
'*************************************...

ReadData:
READ NAM$, VehicalType$, DaysHeld, MilesTraveled
DATA "Jones","Large",6,500
DATA "Smith","Compact",17,3000
DATA "Baker","Intermediate",8,250
DATA "Williams","Intermediate",4,1000
DATA "Winston","Large",3,500
DATA "END",0,0,0
RETURN

'*************************************...
'* CALCULATE VEHICAL COST *
'*************************************...
CalculateVehicalCost:
LET Compact = (MilesTraveled * .15)
LET Intermediate = (MilesTraveled * .18)
LET Large = (MilesTraveled * .22)

'*************************************...
'* CALCULATE ANSWER *
'*************************************...
CalculateAnswer:
LET TotalCostForRental = (VehicalType * DaysHeld)

'*************************************...
'* PRINT DETAIL *
'*************************************...
PrintDetail:
PRINT USING D1$; NAM$, VehicalType, DaysHeld, MilesTraveled
RETURN
END