|
DEFINT I-N iTrue=-1 INPUT "¿Cuál es su nombre"; NombreUsuario$ PRINT "Bievenido al 'asterisquero',"; NombreUsuario$ DO INPUT "¿Con cuántos asteriscos inicia [Cero sale]:"; NroAsteriscos IF NroAsteriscos<=0 THEN EXIT DO Asteriscos$ = "" FOR I=1 TO NroAsteriscos Asteriscos$=Asteriscos$ + "*" NEXT I PRINT "AQUI ESTAN: "; Asteriscos$ DO INPUT "Desea más asteriscos:";SN$ LOOP UNTIL SN$<>"" IF SN$<>"S" AND SN$<>"s" THEN EXIT DO INPUT "CUANTAS VECES DESEA REPETIRLOS [Cero sale]:";iVeces IF iVeces<=0 THEN EXIT DO FOR I = 1 TO iVeces PRINT Asteriscos$; NEXT I LOOP WHILE iTrue END |