• Aliohjelmat
• Matemaattiset operaattorit
• Enemmän ohjelmien rakenteesta
• Kommentointi

PRINT "Nyt ulostan..."
CALL TulostaTeksti
PRINT "Ulostus onnistui."

SUB TulostaTeksti
   PRINT "Näin teen! :)"
END SUB

PRINT "Nyt ulostan..."
GOSUB TulostaTeksti
PRINT "Ulostus onnistui."
END

TulostaTeksti:
   PRINT "Näin teen! :)"
RETURN

PRINT "Nyt ulostan..."
PRINT TulostaTeksti
PRINT "Ulostus onnistui."

FUNCTION TulostaTeksti$
   TulostaTeksti$ = "Näin teen! :)"
END FUNCTION

PRINT "Paljonko on 14 jaettuna 7.5:llä?"
PRINT Jako(14, 7.5)
PRINT "Aivan oikein :)"

FUNCTION Jako! (a AS SINGLE, b AS SINGLE)
   Jako! = a / b
END FUNCTION

DIM valinta AS STRING * 1
DIM a1 AS SINGLE, a2 AS SINGLE

CLS
PRINT " -- QBLaskin by fawkz --"
PRINT
PRINT " Valitse laskun tyyppi:"
PRINT "   1) yhteenlasku"
PRINT "   2) vähennyslasku"
PRINT "   3) jakolasku"
PRINT "   4) kertolasku"
PRINT
INPUT " valinta> ", valinta

INPUT " arvo1> ", a1
INPUT " arvo2> ", a2
PRINT " tulos>";

IF valinta = "1" THEN   ' yhteenlasku
   PRINT a1; "+"; a2; "="; a1 + a2
ELSEIF valinta = "2" THEN ' vähennyslasku
   PRINT a1; "-"; a2; "="; a1 - a2
ELSEIF valinta = "3" THEN ' jakolasku
   PRINT a1; "/"; a2; "="; a1 / a2
ELSEIF valinta = "4" THEN ' kertolasku
   PRINT a1; "*"; a2; "="; a1 * a2
ELSE
   PRINT " Valinnan täytyy olla olla väliltä 1-4!"
END IF

END

PRINT "Hello world!": REM Tulostaa ruutuun tekstiä
PRINT "Terva maailma!" ' Tulostaa toisen tekstin

PRINT "Hi's to you!"

DEFINT A-Z
DIM a AS STRING, d AS LONG
INPUT "Anna nimesi: ", a
' Allaolevassa silmukassa laskemme nimen ASCII-arvot
' yhteen lopputuloksen ollessa 'd'-muuttujassa
FOR c = 1 TO LEN(a)
   d = d + ASC(MID$(a, c, 1))
NEXT
PRINT "ASCII koodi:"; d