REM Author:Sangha, Suky
REM File:Assignment.bas

DIM vehicleName AS STRING, vehicleCapacity AS INTEGER, vehicleLoad AS SINGLE
i = 0
CLS

do while 6 vehicles
    input vehicle to vehicle array
    input vehicle capacity to capacity array
end do

INPUT load
DO WHILE vehicleLoad > 20 OR load < .5
    output error message
INPUT vehicleLoad
END
DO

DO UNTIL vehicleLoad <= capacity(i)
    counter = counter + 1
end do
output vehicle (counter)
if counter < 6
    s = counter + 1
    do for vehicle (s) to (6)
        output vehicle (s)
    end do
END IF