PROGRAM 9


'  FILENAME:  PROG9.BAS
'  THIS PROGRAM IS AN EXTENSION TO PROG6.
CLS
DO
        GOSUB INPUTDATA
        GOSUB PROCESSDATA
        CLS
        GOSUB PRINTDATA
        PRINT
        INPUT "WOULD YOU LIKE TO DO ANOTHER INVOICE (TYPE 'YES' TO GO ON OR 'NO'TO END)"; ANS$
        CLS
        DO WHILE UCASE$(ANS$) <> "YES" AND UCASE$(ANS$) <> "NO"
                INPUT "PLEASE TYPE 'YES' TO CONTINUE OR 'NO' TO DISCONTINUE. ", ANS$
        LOOP
LOOP WHILE UCASE$(ANS$) = "YES"
END
INPUTDATA:
        INPUT "ENTER THE CUSTOMER'S NAME            ", NAME$
        INPUT "ENTER THE STREET ADDRESS             ", ADDRESS$
        INPUT "ENTER THE CITY                       ", CITY$
        INPUT "ENTER THE STATE                      ", STATE$
        INPUT "ENTER THE ZIP CODE                   ", ZIPCODE$
        INPUT "ENTER THE BEGINNING ODOMETER READING ", BEGINNING
        INPUT "ENTER THE ENDING ODOMETER READING    ", ENDING
        INPUT "ENTER THE NUMBER OF DAYS             ", DAYS
RETURN
PROCESSDATA:
        LET DISTANCE = ENDING - BEGINNING
        LET CHARGES = (ENDING - BEGINNING) * .12 + DAYS * 15
        LET DISTANCE = INT(DISTANCE * 100 + .5) / 100
        LET CHARGES = INT(CHARGES * 100 + .5) / 100
RETURN
PRINTDATA:
        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
        PRINT DAYS, , DISTANCE, , CHARGES
RETURN

'  FILENAME:  PROG9.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

WOULD YOU LIKE TO DO ANOTHER INVOICE (TYPE 'YES' TO GO ON OR 'NO'TO END)? NO




BACK TO CIS133 PAGE.