;ese9 su marino14
;esempio utilizzazione gaslibreria e ari1libreria

(prog1
 (load "marino14:ari1libreria")
 (load "marino14:gaslibreria")
 ;inizio programma
(print(pressione 100 2 0.82 400))
(print(volume 6.56 2 0.82 400))
(print(temperatura 6.56 100 2 0.82))
(print(moli 6.56 100 0.82 400))
(print"---------")
(print(somma p v te))
(print(prodotto p v te))
(print(differenza te v))
(print"fine")
)

;esempio programma che utilizza libreria standard di LISP
;caricata con LANCIO1
;e libreria utente con funzioni aritmetiche semplici
;caricata da disco in libreria ari1libreria
;ese8

(prog1
 (load "marino14:ari1libreria")
 ;inizio programma con chiamata funzioni da ari1libreria
 (print(somma 6 7 8))
 (Print(differenza 8 5))
 (print(prodotto 3 4 5))
 (print(quoziente 50 10))
 (print(quadrato 6))
 (print(cubo 3))
 (print"fine")
)

(prog1
  (load "marino14:libreria:quattroF.fasl")
  (load "marino14:libreria:trigoF.fasl")
  (load "marino14:libreria:trigo1F.fasl")
  ;inizio blocco programma dopo aver richiamato funzioni da libreria
    (quattro 100 20)
    (trigo 30)
    (trigo1 60)
   (print "fine")
)

;esempio programma con uso di funzioni definite da utente
;registrate con il nome cuboF e masimoF
;caricate da interno programma

(prog1
  (load "marino14:cuboF")
  (load "marino14:masimoF")

  (cubo 2)                     ;chiamata di funzione
  (MCD 100 50 20)              ;chiamata di funzione
  (cubo 3)
  (cubo 5)
  (MCD 2 6 16) 
  (print "fine programma")(terpri)
)

;esempio programma con uso di funzioni definite da utente
;registrate con il nome cuboF e masimoF
;caricate da interno programma

(prog1
  (load "marino14:cuboF.fasl")
  (load "marino14:masimoF.fasl")

  (cubo 2)                     ;chiamata di funzione
  (MCD 100 50 20)              ;chiamata di funzione
  (cubo 3)
  (cubo 5)
  (MCD 2 6 16) 
  (print "fine programma")(terpri)
)
ritorna