[QBasic] Rješite mi ovaj zadatak u QBasic-u

Code:

CLS
PRINT "Unesi recenicu: "
INPUT Recenica$

FOR i = 1 TO LEN(Recenica$)
Slovo$ = MID$(Recenica$, i, 1)
IF Slovo$ = CHR$(32) THEN
Razmaci = Razmaci + 1
END IF
NEXT i
PRINT "Recenica ima "; STR$(Razmaci + 1); " reci." 

Code:

//ulaz u funkciju je pokazivac na polje charova, ilitiga string

int wordcount(char *str)
{
      //deklariramo dva brojaca, i za poziciju u stringu, i count, za kolicinu rijeci
      
      int i = 0, count = 0;
      
      //glavna petlja se vrti sve dok je brojac pozicije u recenici manji od 
      //ukupne kolicine znakova u recenici
    
      do
      {
           //odmah na pocetku petlje provjeravamo da li je trenutni znak prazno polje
           //i uvecavamo brojac sve dok ne dodjemo do nekog znaka. ovo eliminira
           //mogucnost da netko upise recenicu sa razmacima odmah na pocetku
           
           while(str[i] == ' ') i++;
           
           //provjeravamo da li je trenutacni znak razlicit od praznog polja, ili od
           //terminacijskog znaka \0. na terminacijski znak ne treba paziti u BASICU.

           if (str[i] != ' ' && str[i] != '\0')
           {
               
               //ako je trenutni znak razlicit od praznog polja, znaci da smo dosli 
               //na pocetak rijeci. tada inkrementiramo varijablu count, i sve dok je 
               //znak pod brojacem bilo koji znak osim praznog mjesta, inkrementiramo 
               //brojac, tako da nam opet dodje na kraju na prvo slijedece prazno 
               //mjesto iza rijeci
 
           count++;
           while(str[i] != ' ') i++;
           }
       
        }while (i < strlen(str));

       //vracamo iz funkcije broj rijeci
       return count;
}