**TI92P*mainJ:åøä6&Ç8¾ÏtdßJ:å:åÏåV%ÇH`Ri_eb_cl2;¥Zá() Prgm ©Caratteristiche comb. liquidi Local Vers,Data,Tit ©*********************** "i_eb_cl2"Tit ©Autori: ing. P.Benetti © : prof.A.Carotti "20/03/2005"Data " 0.0.2"Vers ©*********************** ©Global OldMode ©Inizio del programma*** Local strCar, strMat, index, strPCal Local choice Local OldDir ©Create and set the Temp Folder getFold()OldDir ZLib\ChngFold("Temp") ZLib\ChngMode() ClrIo Disp ZLib\Splash(Tit,Vers,Data) {"Benzina Super","Gasolio","Petrolio greggio","Olio combustibile","n-eptano","Isottano","Benzolo","Toluolo","Xilolo", "Esci"}strMat [["0.730-0.760","-","400","-","-"]["0.815-0.855","~250","~250","~0.6","~6.5"]["0.70-1.00","222-352","~220","~0.6","~6.5"]["0.90-1.00","-","-","-","-"]["0.68","310","220","1.1","6.7"]["0.69","297","410","1.0","6.0"]["0.88","394","550","1.2","8.0"]["0.87","364","530","1.2","7.0"]["0.88","339","460","1.0","7.6"]]strCar Lbl start 1choice PopUp strMat, choice if choice = Dim(strMat) Goto blExit choiceindex Goto blDisp Lbl blDisp ClrIo Disp Disp "Caratteristiche (1/3)" Disp strMat[index] Disp "Massa Vol.: " & strCar[index,1] & " kg/dm^3" Disp "Calore di vaporizzazione:" Disp strCar[index,2] & " kJ/kg" ZLib\OutputEx (7, "Premi ENTER", "R") Pause ClrIo Disp Disp strMat[index] & " (2/3)" Disp "Punto di accensione: " Disp strCar[index,3] & " °C" ZLib\OutputEx (7, "Premi ENTER", "R") Pause ClrIo Disp Disp strMat[index] & " (2/3)" Disp "Limiti di accensione:" Disp " % in vol. vapori d'aria" Disp "-Inf.: " & strCar[index,4] Disp "-Sup.: " & strCar[index,5] 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 äåÜ·