**TI92P*mainI:6&I::V%Ri_el_m2Z>() Prgm Caratteristiche mat.isolanti Local Vers,Date,Tit *********************** "i_el_m2"Tit Autori: ing. P.Benetti : prof.A.Carotti "31/03/2005"Date " 0.0.1"Vers *********************** Global OldMode Inizio del programma*** Local OldDir Local strMat, nMat, data Create and set the Temp Folder getFold()OldDir ZLib\ChngFold("Temp") ZLib\ChngMode() ClrIo Disp ZLib\Splash(Tit,Vers,Date) Dati {"Bakelite","Vetro","Marmo","Mica","Olio Paraffina","Paraffina","Plexiglass","Polistirolo","Porcellana","Ambra pressata","Vulcanite","Acqua distill.", "Esci"}strMat {115,116,111,118,119,119,116,119,115,119,117,18}data Inizio Lbl start ClrIo PopUp strMat, nMat if nMat = Dim(strMat) Then Goto blExit Endif ClrIo Disp "Materiale isolante:" Disp strMat[nMat] Disp "Resistenza elettrica:" Disp " = " & string(data[nMat]) &" cm" ZLib\OutputEx (7, "Premi ENTER", "R") Pause Goto Start Lbl blexit Dialog Title "Fine programma" Text " " EndDlog If ok=0 Then Goto Start EndIf SetMode(OldMode) DelVar OldMode SetFold(#OldDir) EndPrgm S