**TI92P*Group file dated 04/29/01, 06:50# main fiappsdatkbdprgm19kbdprgm2kbdprgm3kbdprgm4Dkbdprgm5 ZDoLkdoorspicRES[() Prgm setFold(main) setMode("graph","function") setGraph("axes","on") CustmOff FnOff DelVar y11,y12,fl,door_os\fl ZoomStd FnOn DispHome main\kbdprgm3() EndPrgm9Mmeca\sys_eqNONE-meca\sys_eq :meca\val_incNONE-meca\val_inc :meca\tableauNONE-meca\tableau :meca\tabl_incNONE-meca\tabl_inc :meca\rappelNONE-meca\rappel :meca\cte_intNONE-meca\cte_int :elec\agpNONE-elec\agp :flchimprog\menuchoix:maths\menuchoix:meca\menuchoix:elec\menuchoix:choixQuit-Menu Chimie-Menu Maths-Menu Meca-Menu Elec-Dmain\kbdprgm3choixchoix}Vqrect:0,93,160,93-delay:11-initdelay:66-door_os\flibapd:180-door_os\flib2fl}.'5door_os\txtridermain\kbdprgm3() Prgm Local choix 0choix main\kbdprgm3() PopUp {"Explorateur Doors","Util System","TIBench","pile/Instal Door","Menu Flib","Menu TxtRider","Capture Ecran","Quit"},choix If choix=1:door_os\doors() If choix=2:door_os\asyst() If choix=3:door_os\tibench() If choix=4 Then setFold(door_os) door_os\uninstal() Text "Change les piles maintenant (la TI allume)" door_os\doorsos() door_os\unar_cop("doors") door_os\unar_cop("filelib") door_os\unar_cop("graphlib") door_os\unar_cop("txtrider") door_os\unar_cop("userlib") door_os\unar_cop("util") door_os\unar_cop("ziplib") setFold(main) EndIf If choix=5:door_os\menu1() If choix=6:door_os\menu2() If choix=7 Then If getType(main\atmp)"NONE":Unarchiv main\atmp door_os\flib("savpic:1,16,162,339,main\atmp") setGraph("axes","off") setMode("graph","function") FnOff 0xmin:158xmax 76ymin:0ymax ClrDraw RclPic main\atmp DelVar fl,main\atmp EndIf EndPrgm79