OksBar_1

DIM V AS INTEGER, I AS INTEGER, P AS LONG, T$
DO
    INPUT "Input value [1000..9999]: ", V
LOOP WHILE V < 1000 OR V > 9999
T$ = LTRIM$(STR$(V)): P = 1
FOR I = 1 TO LEN(T$)
    P = P * VAL(MID$(T$, I, 1))
NEXT I
PRINT "P ="; P