//Bemerkungen:  Indents sind wichtig und sind Leerschläge im TR.
//              -> ist der Pfeil Zuweisungsoperator



ip()
Prgm
"pascalau@student.ethz.ch"

Dialog
 Title "Interpolation"
 Text "((a-b)/(c-d))*(e-d)+b"
 Request "a",aips
 Request "b",bips
 Request "c",cips
 Request "d",dips
 Request "e",eips
EndDlog

expr(aips)->aip
expr(bips)->bip
expr(cips)->cip
expr(dips)->dip
expr(eips)->eip

((aip-bip)/(cip-dip))*(eip-dip)+bip->out

Disp out

EndPrgm