CLS
PRINT "This program is designed to take the details of six employees and"
PRINT "calculate their gross and net pay, at a rate of 5 euro per hour."
PRINT
DIM a$(6)
DIM b(6)
FOR i = 1 TO 6
PRINT "Insert the employee's name."
INPUT a$(i)
PRINT "Insert the hours worked by "; a$(i)
INPUT b(i)
LET gross = b(i) * 5
LET c(i) = gross * .8
PRINT
PRINT TAB(5); "Employee Number:"; i
PRINT TAB(5); "Employee: "; a$(i)
PRINT TAB(5); "Hours Worked:"; b(i)
PRINT TAB(5); "Gross Pay :"; gross
PRINT
PRINT "---------------------------------------------------------------------"
NEXT i
PRINT "[Overall Information]"
PRINT TAB(5); "Employee"; TAB(10); "Hours Worked"; TAB(10); "Net Pay"
FOR i = 1 TO 5
PRINT TAB(5); a$(i); TAB(10); b(i); TAB(10); c(i)
NEXT i