Koodit: QB: Print joka ei katko sanoja

DECLARE SUB prnt (kuka$)
CLS
prnt "Moikka, hmm. Mitäköhän puppua nyt tähänkin jaksaisi kirjoittaa, tekstin ainaskin pitäisi mennä yli laitojen. Ok, nyt menikin jo. Joo heips!"

SUB prnt (kuka$)

    t$ = kuka$ 'ettei alkuperäinen variaapeli muutuisi,
    DO         'tietääkseni stringit eivät ole ByValeja
        mesta = INSTR(t$, " ") 'sanan loppu
        IF mesta = 0 THEN PRINT t$: EXIT SUB 'jos ollaan lopussa
        sana$ = LEFT$(t$, mesta) 'seuraava sana irti
        t$ = MID$(t$, mesta + 1) 'ja katkaistaan koko jutsku
        IF (POS(0) + LEN(sana$) > 80) AND (LEN(sana$) < 80) THEN
            'jos meinaisi mennä yli laidan niin ei anneta mennä vaan
            'siirretään kursori seuraavalle riville
            PRINT
        END IF
        PRINT sana$; 'ja ulostetaan seuraava sana
    LOOP 'luupataan

END SUB