REM sangha.suky
REM vehicle.bas

DIM veh(6) AS STRING, cap(6) AS INTEGER, in AS INTEGER

CLS

FOR in = 1 TO 6
    READ veh(in)
    READ cap(in)
NEXT in

PRINT "Please enter load value (tonnes)"
INPUT load

DO WHILE load < .5 OR load > 20
    PRINT "error, please enter value again"
    INPUT load
LOOP

counter = 1
DO UNTIL load <= cap(count)
    count = count + 1
LOOP

PRINT veh(count)

IF count < 6 THEN
    count = count + 1
PRINT "Other vehicles"
    FOR in = count TO 6
        PRINT veh(in)
    NEXT
END IF

DATA "van1", 1
DATA "van2", 3
DATA "lorry1", 5
DATA "lorry2", 10
DATA "lorry3", 15
DATA "lorry4", 20