; MYFACT
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Ignora l'ingresso e stampa il fattoriale dei numeri da Start a End.
; Dimostra l'uso delle UDF ricorsive (questo è sicuramente il primo
; esempio che viene in mente...)

FUNCTION MyFact(n)

  IF LT(n, 1)
    ; Questo RETURN NON termina la definizione, perché dentro IF
    RETURN 1
  FI
  ; Questo RETURN termina la definizione
RETURN MUL(n, MyFact(DEC(n)))


; Qui inizia il codice principale

Start = 0
End = 20

FOR J = Start TO End
  CONSOLELN "Il fattoriale di " PFORMAT("2d", J) " e': " MyFact(J)
NEXT
ABORT 0