Poprawka kodu

[Certina 0]

Mam prośbę o poprawienie kodów. Chodzi mnie pozbycie się funkcji LOCATE w żadnym wypadku nie może się ona znajdować.

 

1 -kod

 

CLS
PRINT " podaj dzien miesiaca ";
DO: a$ = INKEY$: LOOP UNTIL a$ = ""
DO: CH$ = INKEY$: LOOP UNTIL CH$ <> ""
T = TIMER: L = T + 1.5
DO:
IF CH$ < CHR$(52) OR U = 2 THEN
IF CH$ < CHR$(52) THEN K$ = K$ + CH$
IF CH$ <> "" THEN U = U + 1
ELSE : PRINT CH$;
D# = VAL(CH$): EXIT DO
END IF
CH$ = INKEY$
LOCATE 1, 23: PRINT K$;
D# = VAL(K$)
IF T > TIMER THEN L = L - 86400
LOOP UNTIL TIMER > L OR U = 2

 

 

2 - kod

 

CLS
PRINT " podaj miesiac ";
DO: a$ = INKEY$: LOOP UNTIL a$ = ""            
DO: CH$ = INKEY$: LOOP UNTIL CH$ <> ""          
T = TIMER: L = T + 1.5                            
DO:
IF CH$ = CHR$(49) OR U = 1 THEN                
IF CH$ < CHR$(51) THEN K$ = K$ + CH$            
IF CH$ <> "" THEN U = U + 1                    
ELSE : PRINT CH$;                              
M = VAL(CH$): EXIT DO                          
END IF
CH$ = INKEY$                                    
LOCATE 1, 16: PRINT K$;                        
M = VAL(K$)                                    
IF T > TIMER THEN L = L - 86400                
LOOP UNTIL TIMER > L OR U = 2

 

Oraz napisanie (przeróbka na bazie tych kodów) z wprowadzaniem liczby roku. Po wpisaniu 1 cyfry program ma czekać 2 sekundy na wprowadzenie 2 cyfry, jak jej nie będzie to po 2 sekundach będzie wyjście z pętli. Podobnie z 3 cyfrą. Po wprowadzeniu 4 cyfry nastąpi natychmiastowe opuszczenie pętli bez czekania 2 sekundy.

 

Dziekuję za pomoc - Mateusz