PROGRAM 7


'  FILENAME:  PROG7.BAS
'  THIS PROGRAM IS AN EXTENSION TO PROG6.
DO
        CLS
        GOSUB INPUTDATA
        GOSUB PROCESSDATA
        GOSUB PRINTDATA
        INPUT "DO YOU WISH TO CONTINUE(YES/NO)"; ANS$
LOOP WHILE UCASE$(ANS$) = "YES"
CLS
END
INPUTDATA:
        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
PROCESSDATA:
        LET DISTANCE = ENDINGODOMETER - BEGINNINGODOMETER
        LET CHARGES = (ENDINGODOMETER - BEGINNINGODOMETER) * .12 + (15 * DAYS)
        LET DISTANCE = INT(DISTANCE * 100 + .5) / 100
        LET CHARGES = INT(CHARGES * 100 + .5) / 100
RETURN
PRINTDATA:
        PRINT
        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:  PROG7.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
DO YOU WISH TO CONTINUE(YES/NO)? NO




BACK TO CIS133 PAGE.