Hakemisto: QBasic: Proseduurit: CALL

DECLARE SUB kertolasku (luku1!, luku2!)
DECLARE SUB pluslasku (luku1!, luku2!)
DECLARE SUB miinuslasku (luku1!, luku2!)
DECLARE SUB jakolasku (luku1!, luku2!)
luku1 = 30
luku2 = 12

' HUOM! Aliohjelmien välillä voit liikkua F2-näppäimellä!
CALL pluslasku(luku1, luku2)  ' Kutsutaan aliohjelmaa "pluslasku" CALLin kanssa (huomaa sulkeet argumenttien ympärillä)
kertolasku luku1, luku2       ' Kutsutaan aliohjelmaa "kertolasku" ilman CALLia (huomaa sulkeiden puuttuminen)
miinuslasku luku1, luku2      ' Kutsutaan aliohjelmaa "miinuslasku"
CALL jakolasku(luku1, luku2)  ' Kutsutaan aliohjelmaa "jakolasku"

SUB jakolasku (luku1, luku2)
  PRINT luku1; "/"; luku2; "="; luku1 / luku2
END SUB

SUB kertolasku (luku1, luku2)
  PRINT luku1; "*"; luku2; "="; luku1 * luku2
END SUB

SUB miinuslasku (luku1, luku2)
  PRINT luku1; "-"; luku2; "="; luku1 - luku2
END SUB

SUB pluslasku (luku1, luku2)
  PRINT luku1; "+"; luku2; "="; luku1 + luku2
END SUB