DIM T, A, LETRA AS STRING
CLS
A = ""
PRINT "DAME UN TEXTO"
DO
    SLEEP
    LETRA = INKEY$
    IF ASC(LETRA) <> 13 THEN
        PRINT "*";
        A = A + LETRA
    END IF
LOOP UNTIL ASC(LETRA) = 13
LOCATE 3, 2
PRINT A

T = 1
V1 = 3
V2 = 5
V3 = 7
C = 0
FOR NT = 1 TO N
    C = C + 1
    PRINT T;
    IF C = 1 THEN
        T = T + V1
        V1 = V1 + 3
    END IF
    IF C = 2 THEN
        T = T - V2
        V2 = V2 + 5
    END IF
    IF C = 3 THEN
        T = T + V3
        V3 = V3 + 2
    END IF
    IF C = 4 THEN
        T = T - V1
        V1 = V1 + 3
    END IF
    IF C = 5 THEN
        T = T + V2
        V2 = V2 + 5
    END IF
    IF C = 6 THEN
        T = T - V3
        V3 = V3 + 2
        C = 0
    END IF
NEXT NT

DIM T1 AS STRING
DIM LETRA AS STRING
DO
B=0
P=0
DO 
PRINT "ROM"
INPUT T1
L=LEN(T1)
LOOP UNTIL L >0
DO
P=P+1
LETRA=MID$(T1,P,1)
IF LETRA="I" OR... THEN
B=1
ELSE
B=0
END IF
LOOP UNTIL B=0 OR P=L
LOOP UNTIL B=1
A=0
V2=0
FOR P1 TO L+1
LETRA=MID$(T1,P,1)
SELECT CASE LETRA
CASE "I"
V1=1...
END SELECT
IF V1 >V2 THEN
A=A-V1
ELSE
A=A+V1
END IF
V2=V1
NEXT P
PRINT A;