Keskustelu: Koodit: QB: Tekstin pätkijä ja hieno printtaus

CLS
SCREEN 12
INPUT " Anna lause"; lause$
SCREEN 13
aatami:
CLS
lause$ = lause$ + " "
FOR v% = 1 TO LEN(lause$)
kirj$ = RIGHT$(LEFT$(lause$, v%), 1)
IF kirj$ = " " THEN
IF teksti$ = "" THEN
teksti$ = teksti$ + kirj$
ELSE
sanat = sanat + 1
GOTO kuul
END IF
ELSE
teksti$ = teksti$ + kirj$
kirjaimet = kirjaimet + 1
END IF
check:
NEXT
COLOR 15
END
kuul:
FOR c% = 16 TO 31 STEP 1
FOR i = 1 TO 29
COLOR c%
LOCATE 1, 1: PRINT " " + teksti$
NEXT
NEXT
FOR c% = 31 TO 16 STEP -1
FOR i = 1 TO 29
COLOR c%
LOCATE 1, 1: PRINT " " + teksti$
NEXT
NEXT
CLS
teksti$ = ""
GOTO check