REM DRAZEN KUKIC

REM 12 GRADE INT DIV

REM TEHNICKA SKOLA POZEGA

REM CROATIA

REM ACSL POST OFFICE

FOR i = 1 TO 5

CLS

INPUT "Input lenght, height, thickness and weight: ", l, h, t, w

IF (l >= 3.5 AND l <= 4.25) AND (h >= 3.5 AND h <= 6) AND (t >= .007 AND t <= .016) THEN tom = 1

IF (l >= 4.25 AND l <= 6) AND (h >= 6 AND h <= 11.5) AND (t >= .007 AND t <= .016) THEN tom = 2

IF (l >= 3.5 AND l <= 6.125) AND (h >= 5 AND h <= 11.5) AND (t >= .016 AND t <= .25) THEN tom = 3

IF (l >= 6.125 AND l <= 24) AND (h >= 11 AND h <= 18) AND (t >= .25 AND t <= .5) THEN tom = 4

IF (l > 24 OR h > 18 OR t > .5) AND (l + l + h + h + t + t <= 84) THEN tom = 5

IF (l + l + h + h + t + t) >= 84 AND (l + l + h + h + t + t) < 130 THEN tom = 6

SELECT CASE tom

CASE 1

k = w / .0625

IF k <> INT(k) THEN cost = INT(k + 1) * .2 ELSE cost = k * .2

CASE 2

k = w / .0625

IF k <> INT(k) THEN cost = INT(k + 1) * .3 ELSE cost = k * .3

CASE 3

k = w / .0625

IF k <> INT(k) THEN cost = INT(k + 1) * .47 ELSE cost = k * .47

CASE 4

k = w / .0625

IF k <> INT(k) THEN cost = INT(k + 1) * .56 ELSE cost = k * .56

CASE 5

k = w / .5

IF k <> INT(k) THEN cost = INT(k + 1) * 1.5 ELSE cost = k * 1.5

CASE 6

k = w / .5

IF k <> INT(k) THEN cost = INT(k + 1) * 1.75 ELSE cost = k * 1.5

CASE ELSE

PRINT "UNMAILABLE"

GOTO 10

END SELECT

cost = cost * 100

cost = CINT(cost)

cost = cost / 100

PRINT USING "##.##"; cost

10

SLEEP 4

l = 0

h = 0

t = 0

w = 0

k = 0

cost = 0

tom = 0

NEXT i

END