**TI92P*mainH:åøä6&ÇJDßÔ!×H:å:åßåV%Ç®Ri_m_poá¥Z‡() Prgm ©Tipologia pompe Local Vers,Data,Tit ©*********************** "i_m_po"Tit ©Autori: ing. P.Benetti © : prof.A.Carotti "26/03/2005"Data " 0.0.1"Vers ©*********************** ©Global OldMode ©Inizio del programma*** Local strTypes,nType,strRes,nRes Local xy1,xy2,xy3,strxy,strUdm Local choice,strVect,lenVect Local OldDir ©Create and set the Temp Folder getFold()OldDir ZLib\ChngFold("Temp") ZLib\ChngMode() ClrIo Disp ZLib\Splash(Tit,Vers,Data) ©Scelta tipo di pompa {"Centrifughe","Flusso misto","Flusso assiale"}strTypes {"Vel.spec. ns","rendimento"}strRes {"giri/min","%"}strUdm [[10,20,30,40,50,60,80,100,110][74,85,90,92,92.5,92,90,87,86]]xy1 [[60,70,80,90,100,130,150,180,200,250][83,85,87,88.5,90,91,90.5,89.5,88,85.5]]xy2 [[175,200,250,275,300,350,400][86,87,88,88.5,88,87,86]]xy3 1nType 2nRes Lbl start Dialog Title "Pompe" Dropdown "Tipologia:", strTypes, nType Dropdown "Visualizza:", strRes, nRes Text " " Text "Premere ESC per uscire" EndDlog if ok=0 Goto blExit "xy" & string(nType)  strxy ClrIo Disp dim(matlist(#strxy[3-nRes]))lenVect seq(string(#strxy[3-nRes,t]),t,1,lenVect)strVect ZLib\OutputEx (6, "Scegli", "L") ZLib\OutputEx (7, strRes[3-nRes] & " (" & strUdm[3-nRes] & ")", "C") PopUp strVect, choice ClrIo Disp "Pompe "&strTypes[nType] Disp strRes[3-nRes] & ": " & string(#strxy[3-nRes,choice])&" "&strUdm[3-nRes] Disp strRes[nRes] & ": " & string(#strxy[nRes,choice])&" "&strUdm[nRes] 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 äåÜMÿ