Faktöriyel hesaplayan program

CLS
 PRINT "GIRILEN SAYININ FAKTORIYELINI HESAPLAYAN PROGRAM"
 INPUT "SAYI = ", N
 I = 0
 T = 1

ISLEM:
 I = I + 1
 T = T * I
 IF I = N THEN
  PRINT N, " FAKTORIYEL = ", T
  END
 END IF
 GOTO ISLEM

Örnek Çıktı :

GIRILEN SAYININ FAKTORIYELINI HESAPLAYAN PROGRAM
SAYI = 6
6 FAKTORIYEL = 720