:ClrHome
:Lbl A
:Menu("REVISIONS","MATHS",1,"HISTOIRE",2,"PHYSIQUE",3,"CHIMIE",4,"FIN",5)
:Lbl 1
:ClrHome
:Output(1,1,"CARRE : AXA=A2")
:Output(2,1,"RECTANGLE: LOXLA")
:Output(3,1,"TRIANGLE : BXH/2")
:Output(4,1,"CERCLE : PIXR2")
:Output(5,1,"")
:Pause
:Goto A
:Lbl 2
:ClrHome
:Output(1,1,"MARIGNAN: 1515")
:Output(2,1,"REVOLUTION  1789")
:Output(3,1,"AMERIQUE : 1492")
:Pause
:Goto A
:Lbl 3
:ClrHome
:Output(1,1,"P=MXG")
:Output(2,1,"U=RI")
:Output(3,1,"P=UI")
:Output(4,1,"M=FXD")
:Output(5,1,"P=W/T")
:Output(6,1,"W=FXL")
:Output(7,1,"WQ=MC(T2-T1)")
:Pause
:Goto A
:Lbl 4
:ClrHome
:Output(1,1,"H=1")
:Output(2,1,"O=16")
:Output(3,1,"C=12")
:Output(4,1,"N=14")
:Output(5,1,"CL=35,5")
:Output(6,1,"N=6.02X10E23")
:Output(7,1,"U=92")
:Pause
:Goto A
:Lbl 5
:ClrHome
:Stop
