PROGRAM 6


'  FILENAME:  PROG6.BAS
'  THIS PROGRAM INPUTS CUSTOMER'S NAME, ADDRESS, CITY, STATE, ZIP CODE,
'  BEGINNING ODOMETER READING, ENDING ODOMETER READING, NUMBER OF DAYS
'  FROM THE KEYBOARD, CALCULATES WHAT THE CUSTOMER OWES, AND PRINTS
'  AN INVOICE TO THE SCREEN.
CLS
GOSUB INPUTINFORMATION:
GOSUB FINDDISTANCE:
GOSUB FINDCHARGES:
GOSUB ROUNDRESULTS:
GOSUB DISPLAYRESULTS:
END
INPUTINFORMATION:
        INPUT "CUSTOMER NAME              ", NAME$
        INPUT "STREET ADDRESS             ", ADDRESS$
        INPUT "CITY                       ", CITY$
        INPUT "STATE                      ", STATE$
        INPUT "ZIP CODE                   ", ZIPCODE$
        INPUT "BEGINNING ODOMETER READING ", BEGINNINGODOMETER
        INPUT "ENDING ODOMETER READING    ", ENDINGODOMETER
        INPUT "NUMBER OF DAYS             ", DAYS
RETURN
FINDDISTANCE:
        LET DISTANCE = ENDINGODOMETER - BEGINNINGODOMETER
RETURN
FINDCHARGES:
        LET CHARGES = (ENDINGODOMETER - BEGINNINGODOMETER) * .12 + (15 * DAYS)
RETURN
ROUNDRESULTS:
        LET DISTANCE = INT(DISTANCE * 100 + .5) / 100
        LET CHARGES = INT(CHARGES * 100 + .5) / 100
RETURN
DISPLAYRESULTS:
        CLS
        PRINT "                         AWESOME CAR RENTALS"
        PRINT "                         CUSTOMER INVOICE"
        PRINT
        PRINT NAME$
        PRINT ADDRESS$
        PRINT CITY$; ", "; STATE$; " "; ZIPCODE$
        PRINT
        PRINT "NUMBER OF DAYS", "MILES DRIVEN", , "TOTAL CHARGES"
        PRINT DAYS, , DISTANCE, , "$"; CHARGES
RETURN

'  OUTFILE:  PROG6.OUT

CUSTOMER NAME              anthony f. ortiz
STREET ADDRESS             2411 andrade ave.
CITY                       richmond
STATE                      ca
ZIP CODE                   94804
BEGINNING ODOMETER READING 1000
ENDING ODOMETER READING    2000  
NUMBER OF DAYS             3           

                         AWESOME CAR RENTALS
                         CUSTOMER INVOICE

anthony f. ortiz
2411 andrade ave.
richmond, ca 94804

NUMBER OF DAYS              MILES DRIVEN                TOTAL CHARGES
 3                           1000                       $ 165




BACK TO CIS133 PAGE.