10 CLS
20 X$ = "1010115010": GOSUB 10000: IF H$ = "" OR VAL(H$) = 0 THEN GOTO 10
30 CO$ = H$: LOCATE V, H: PRINT SPC(LM): LOCATE V, H: PRINT CO$
40 END
10000 REM CONTROL DE ENTRADAS
10010 REM c es la variable que sirve para decir si es alfanumerica (o)numerica(1)y fecha(2)
10020 REM v es la variable que sirve para decir la cantidad de caracteres del locate de su linea vertical
10030 REM h es la variable que sirve para decir la cantidad de caracteres del locate de su linea horizontal
10040 REM lm es el limite maximo de una variable cualquiera de caracteres
10050 REM lmi es el limite minimo de una variable cualquiera de caracteres
10060 REM s es si el valor es positivo o es negativo
10070 C = VAL(LEFT$(X$, 1)): V = VAL(MID$(X$, 2, 2)): H = VAL(MID$(X$, 4, 2)): LM = VAL(MID$(X$, 6, 2)): LMI = VAL(MID$(X$, 8, 2)): S = VAL(RIGHT$(X$, 1))
10080 H$ = "": LOCATE V, H: PRINT STRING$(LM, 219)
10090 FOR X = 1 TO LM
10095 LOCATE V, X + H - 1: PRINT CHR$(219)
10100 Z$ = INKEY$: IF Z$ = "" THEN 10100
10110 IF Z$ = CHR$(13) THEN RETURN
10112 IF X = 1 AND Z$ = CHR$(8) THEN BEEP: GOTO 10100
10115 IF Z$ = CHR$(8) THEN X = X - 1: H$ = LEFT$(H$, X - 1): GOTO 10095
10117 IF C = 1 AND (Z$ < CHR$(48) OR Z$ > CHR$(57)) THEN BEEP: GOTO 10100
10120 H$ = H$ + Z$
10125 LOCATE V, H: PRINT H$
10130 NEXT X: RETURN
