mac1

come è stata ottenuta questa pagina:
1-con prolog.v.3 è stato scritto il programma salvato come chiede1 su MAC 475 (anno 1994)
2-attivato programma (EVAL-QUERY-ESE) e ottenute immagini con programma per cattura schermo Mela-Shift-3
3-immagini registrate da MAC in disco rigido con nome immagine1...immagine2...immaginex..
4-trasferimento da MAC a DOS mediante Apple File Exchange di immagini e listato programma
5-inserito in WORD listato progrannma attivando Unicode come traduttore:eliminate righe superflue
6-aperta pagina con Front Page e inserito testo
7-inserite immagini con Inserisci-immagine (ogni tipo di file)-
8-salvata pagina HTM e confermata sostituzione immagini(diventano immagini GIF)
9-eventualmente si possono modificare con taglia-incolla e Paint e riutilizzarle nella pagina HTM

nota:viene indicata fase per calcolo solo con prima e seconda opzione:somma, differenza

/*chiede1 */
/* richiesta dati e attivazione con menu inserito in programma */

ese:-
whide(chiede1),wfront(user),nl,
write('seleziona opzione desiderata'),nl,
write('1....somma'),nl,
write('2....differenza'),nl,
write('3....prodotto'),nl,
write('4....quoziente'),nl,
write('5....fine'),nl,
prompt_read(['scrivi numero opzione'],N),nl,
verifica(N).

verifica(1):-nl,somma.
verifica(2):-nl,differenza.
verifica(3):-nl,prodotto.
verifica(4):-nl,quoziente.
verifica(5):-nl,fine.

somma:-nl,
write('chiamata somma'),nl,
A=5,B=6,Somma is A+B,write(Somma),nl,
message('premi enter'),
ese.

differenza:-nl,
write('chiamata differenza'),nl,
A=30,B=20,Differenza is A-B,write(Differenza),nl,
message('premi enter'),
ese.

prodotto:-nl,
write('chiamata prodotto'),
message('premi enter'),
ese.

quoziente:-nl,
write('chiamata quoziente'),
message('premi enter'),
ese.

fine:-nl,
write('chiamata per fine operazione'),
message('premi enter'),
uscita.

uscita:-
wfront(chiede1).

con somma si ottiene (6+5) = 11

con prodotto si ottiene solo uscita

immagini richiamate con Paint, modificate e salvate e reinserite