PROGRAM 11


'  FILENAME:  PROG11.BAS
'  THIS PROGRAM INPUTS NAMES AND PAYRATES OF COMPANY EMPLOYEE'S, CALCULATES
'  THE TOTAL AND AVERAGE PAYRATE, AND PRINTS EACH WORKER'S NAME AND
'  PAYRATE ALONG WITH THE TOTAL AND AVERAGE.
CLS
GOSUB PRINTDATA
GOSUB READDATA
GOSUB LOOPDATA
GOSUB DATADATA
GOSUB PRINTDATA2
END
PRINTDATA:
        PRINT "         A COMPANY'S TOTAL AND AVERAGE PAYRATE FOR ITS WORKERS"
        PRINT
        PRINT "NAME", , "RATE"
        PRINT
RETURN
READDATA:
        READ NAME$, RATE
RETURN
LOOPDATA:
        DO UNTIL NAME$ = "END"
                LET COUNT = COUNT + 1
                LET TOTAL = TOTAL + RATE
                LET MEAN = TOTAL / COUNT
                PRINT USING "\          \                $###.##"; NAME$; RATE
                READ NAME$, RATE
        LOOP
RETURN
DATADATA:
        DATA AMY,100,ANASTASIA,95,CHRISTINE,90,CYNTHIA,85,DANIELLE,80,GINA,75,HELEN,70,JENEL,65,KATIE,60,MONICA,55,PAULINA,50,SHALANA,45,SHERRIE,40,TANIA,35,WENDY,30,END,-999
RETURN
PRINTDATA2:
        PRINT
        PRINT USING "TOTAL                       $ ####.##"; TOTAL
        PRINT
        PRINT USING "AVERAGE                     $ ####.##"; MEAN
RETURN

'  OUTFILE:  PROG11.OUT

         A COMPANY'S TOTAL AND AVERAGE PAYRATE FOR ITS WORKERS

NAME                        RATE

AMY                         $100.00
ANASTASIA                   $ 95.00
CHRISTINE                   $ 90.00
CYNTHIA                     $ 85.00
DANIELLE                    $ 80.00
GINA                        $ 75.00
HELEN                       $ 70.00
JENEL                       $ 65.00
KATIE                       $ 60.00
MONICA                      $ 55.00
PAULINA                     $ 50.00
SHALANA                     $ 45.00
SHERRIE                     $ 40.00
TANIA                       $ 35.00
WENDY                       $ 30.00

TOTAL                       $  975.00

AVERAGE                     $   65.00




BACK TO CIS133 PAGE.