ClrHome
Output(4,2,"PHYSIQUE/CHIMIE")
Output(8,7,"BY CHARLES")
Pause 
Goto A
Lbl A
ClrHome
FnOff 
PlotsOff 
Menu("PRINCIPAL","PHYSIQUE",B,"CHIMIE",C,"QUTTER",W
Lbl B
ClrHome
Menu("PHYSIQUE","TRAVAIL",D,"ENERGIE",E,"ELECTRICITE",F,"RETOUR",A
Lbl D
ClrHome
Output(1,1,"TRAVAIL POID")
Output(2,1,"W(P)=MG(ZA-ZB)")
Output(3,1,"----------------")
Output(4,1,"M=MASSE EN KG")
Output(5,1,"G=9.8N/KG")
Output(6,1,"ZA=ORDONNE DEPAR")
Output(7,1,"ZB=ORDONNE ARIVE")
Pause 
ClrHome
Output(1,1,"TRAVAIL FORCE")
Output(2,1,"W(F)=F*AB*cos(õ)"
Output(3,1,"----------------")
Output(4,1,"F=VALEUR FORCE")
Output(5,1,"AB=DISTANCE AB M")
Output(6,1,"õ=ANGLE (F,AB)"
Pause 
Goto B
Lbl E
ClrHome
Output(1,1,"ENERGIE CINETIQU"
Output(2,1,"EC=0.5*M*VÜ")
Output(3,1,"---------------")
Output(4,1,"M=MASSE EN KG")
Output(5,1,"V=VDTESSE EN M/S")
Pause 
ClrHome
Output(1,1,"DELTA EC")
Output(2,1,"ECB-ECA=W(AB)EXT")
Output(3,1,"----------------")
Output(4,1,"W(AB)=SOMME DES FORCES EXTERIEUR")
Pause 
ClrHome
Output(1,1,"ENERGIES POTENTL")
Output(2,1,"EP=M*G*Z")
Output(3,1,"----------------")
Output(4,1,"M=MASSE EN KG")
Output(5,1,"9.8N/KG")
Output(6,1,"Z=ALLTITUDE EN M")
Pause 
ClrHome
Output(1,1,"ENERGIE MECANIQE")
Output(2,1,"EM=EC+EP")
Output(3,1,"----------------")
Output(4,1,"EC=ENERGI CINETI")
Output(5,1,"EP=ENERGI POTENT")
Pause 
Goto B
Lbl F
ClrHome
Output(1,1,"ADITIVITE DES U")
Output(2,1,"UPN=UAB+UBC+...")
Output(3,1,"----------------")
Output(4,1,"UPN=U GENERATEUR")
Output(5,1,"UAB=U DIPOLE")
Pause 
ClrHome
Output(1,1,"LOI D'OHM")
Output(2,1,"U=R*I")
Output(3,1,"----------------")
Output(4,1,"U=TENSION")
Output(5,1,"R=RESISTANCE")
Output(6,1,"I=INTENSITE")
Pause 
ClrHome
Output(1,1,"PUISSANCE CIRCUI")
Output(2,1,"PC=UPN*I")
Output(3,1,"----------------")
Output(4,1,"UPN=TENSION GENE")
Output(5,1,"I=INTENSIT CIRCU")
Pause 
ClrHome
Output(1,1,"ENERGIE")
Output(2,1,"E=P*T")
Output(3,1,"----------------")
Output(4,1,"P=PUISSANCE EN W")
Output(5,1,"T=TEMPS EN SEC.")
Pause 
ClrHome
Output(1,1,"PUISSANCE PERDU")
Output(2,1,"PP=R*IÜ")
Output(3,1,"----------------")
Output(4,1,"R=RESISTANCE OHM")
Output(5,1,"I=INTENSITE A")
Pause 
ClrHome
Output(1,1,"TENSION GENERATR")
Output(2,1,"UPN=E-R*I")
Output(3,1,"----------------")
Output(4,1,"E=FORCE ELECTROM")
Output(5,1,"R=RESIST INTRERN")
Output(6,1,"I=INTENSITE")
Pause 
ClrHome
Output(1,1,"ENERGIE TRANFERE A UN RECEPTEUR")
Output(3,1,"WE=PE*T")
Output(4,1,"----------------")
Output(5,1,"PE=PUISANCE ELEC")
Output(6,1,"T=TEMPS EN SEC.")
Pause 
ClrHome
Output(1,1,"PUISSANCE TRANS- FERE A UN RECPT")
Output(3,1,"PE=UAB*I")
Output(4,1,"----------------")
Output(5,1,"UAB>0,TENSION AB")
Output(6,1,"I=INTENSITE")
Pause 
ClrHome
Output(1,1,"PUISSANCE FOURNI")
Output(2,1,"PG=UPN*I")
Output(3,1,"----------------")
Output(4,1,"UPN=TENSION GENE")
Pause 
ClrHome
Output(1,1,"ENERGIE FOURNI")
Output(2,1,"WG=UPN*I*T")
Output(3,1,"----------------")
Output(4,1,"T=TENSION EN SEC.")
Pause 
ClrHome
Output(1,1,"RECEPTEUR LINEER")
Output(2,1,"UAB=E+R*I")
Output(3,1,"----------------")
Output(4,1,"E=FORCE ELECTROM")
Output(5,1,"(R=RESISTANC INT")
Output(6,1,"I=INTENSITE EN V")
Pause 
ClrHome
Goto B
Lbl C
ClrHome
Menu("CHIMIE","DILUTION",G,"ACID/BAS-OXY/RED",H,"GROUPE CARACTER",I,"TRAN THERM",J,"ALCANES/ALCENES",K,"ETATS",M,"RETOUR",A
Lbl J
Output(1,1,"UN TRANSFERT TH-ERMIQUE S'EFECTUTOUJOURS DU CORPCHAUD VERS LE   CORPS FROID
Pause 
ClrHome
Output(1,1,"PAR CONDUCTION:")
Output(2,1,"----------------")
Output(3,1,"LA CONDUCTION ETUN MODE DE TRANSTHERMIQUE QUI S'EFFECTUE SANS   TRANSPORT DE MA-TIERE")
Pause 
ClrHome
Output(1,1,"PAR CONVECTION:")
Output(2,1,"----------------")
Output(3,1,"CE MODE DE TRANSTHERMIQUE S'EFC-TUE AVEC TRANSPODE MATIERE")
Pause 
ClrHome
Output(1,1,"TRANSFERT")
Output(2,1,"SANS CHANGEMEN DETAT")
Output(5,1,"----------------")
Output(4,1,"Q=M*C*(ÁF-ÁI)
Output(6,1,"M=MASSE EN KG")
Output(7,1,"ÁF=TEMPERAT FINAL")
Output(8,1,"ÁI=TEMPE INITIALW)
Pause 
ClrHome
Output(1,1,"TRANSF THERMIQUE")
Output(2,1,"AVEC CHANGEMENT ETAT")
Output(3,1,"----------------")
Output(4,1,"ELLE S'EFFECTUE EN PLUSIUR ETAP:Q=Q1+Q2+Q3")
Output(8,4,">>SUITE>>")
Pause 
ClrHome
Output(1,1,"CALCUL DE Q1")
Output(2,1,"Q1=M*L")
Output(3,1,"----------------")
Output(4,1,"M=MASSE EN KG")
Output(5,1,"L=CHALEUR LATENT")
Output(8,4,">>SUITE>>")
Pause 
ClrHome
Output(1,1,"CALCULE DE Q2")
Output(2,1,"DE LA TEMP INITIA SON CHANGEMEND'ETAT")
Output(4,1,"Q2=M*C*(ÁC-ÁI)")
Output(5,1,"----------------")
Output(6,1,"C=CAPACIT D'ETAT")
Output(7,1,"ÁC=TEMP DU CHANG")
Output(8,4,">>SUITE>>")
Pause 
ClrHome
Output(1,1,"CALCUL DE Q3")
Output(2,1,"Q3=M*C*(ÁF-ÁC)")
Output(3,1,"----------------")
Output(4,1,"M=MASSE EN KG")
Output(5,1,"C=CAPACIT D'ETAT")
Output(6,1,"ÁF=TEMPERA FINAL")
Output(7,1,"ÁC=TEM CHANG ETA")
Pause 
ClrHome
Output(1,1,"SI ÁF>ÁI, LE CORRECOI DE LE CHA-EUR ET SON ENERGINTERNE AUGMENTE")
Pause 
ClrHome
Output(1,1,"SI ÁF<ÁI, LE CORCEDE DE LA CHAL-EUR ET SON ENERGINTERNE DIMINUE")
Pause 
ClrHome
Goto C
Lbl G
ClrHome
Output(1,1,"DILUTION")
Output(2,1,"C1*V1=C2*V2")
Output(3,1,"----------------")
Output(4,1,"C1=CONCENTRA MER")
Output(5,1,"V1=VOLUME MERE")
Output(6,1,"C2=CONCENTRA FIL")
Output(7,1,"V2=VOLUME FILLE")
Pause 
ClrHome
Goto C
Lbl H
ClrHome
Output(1,1,"LES ACIDES/BASES")
Output(2,1,"----------------")
Pause 
ClrHome
Output(1,1,"UN ACIDE EST    CAPABLE DE CEDERUN H+")
Output(4,1,"UNE BASE EST CA-PABLE DE CAPTER UN H+")
Output(8,1,"ACIDE= BASE + H+")
Pause 
ClrHome
Output(1,1,"LES OXYDO/REDUCT")
Output(2,1,"----------------")
Pause 
ClrHome
Output(1,1,"OXYDO/REDUCTION")
Output(2,1,"UN OYDANT PREND UN E-")
Output(5,1,"UN REDUCTEUR CEDUN E-")
Output(7,1,"REDUCT=OXY + E-")
Pause 
ClrHome
Goto C
Lbl K
ClrHome
Output(1,1,"LES ALCANES")
Output(2,1,"----------------")
Pause 
ClrHome
Output(1,1,"LES PREFIXE")
Output(3,1,"Ö1->METHANE")
Output(4,1,"Ö2->ETHANE")
Output(5,1,"Ö3->PROPANE")
Output(6,1,"Ö4->BUTANE")
Output(7,1,"Ö6->HEXANE")
Output(8,1,"Ö7->HEPTANE")
Output(2,1,"CÖH2Ö+2")
Pause 
ClrHome
Output(1,1,"SCHEMA")
Output(2,1,"X-YZ")
Output(3,1,"X=NUMORO RAMIFIC")
Output(4,1,"Y=NB DE C DS RAM")
Output(5,1,"Z=NB C LONG CHAI")
Output(6,1,"CH3-CH-CH2-CH3"
Output(7,1,"    I 2-METYLBUT")
Output(8,1,"    CH3")
Pause 
ClrHome
Output(1,1,"LES ALCENES")
Output(2,1,"---------------")
Pause 
ClrHome
Output(2,1,"CÖH2Ö")
Output(3,1,"A     B")
Output(4,1," I   /")
Output(5,1,"  C=C")
Output(6,1," /   I")
Output(7,1,"H (Z) H")
Pause 
ClrHome
Output(1,1,"A     H")
Output(2,1," I    /")
Output(3,1,"  C=C")
Output(4,1," /  I")
Output(5,1,"B (E) H")
Pause 
ClrHome
Output(1,1,"ECRITURE")
Output(2,1,"(B)-X-VA-K-ENE")
Output(3,1,"----------------")
Output(4,1,"B=GEOMETRIE(Z/E)")
Output(5,1,"X=NUM RAMIFICATÐ")
Output(6,1,"V=NB C DS RAMIFI")
Output(7,1,"A=NB C LONG CHAI")
Output(8,1,"K=NUM OU EST C")
Pause 
ClrHome
Goto C
Lbl M
Output(1,1,"LES ETAT ET TRAN")
Output(2,1,"GAZEUX")
Output(3,1,"------>EBULITION")
Output(4,1,"LIQUIDE")
Output(5,1,"------->FUSION")
Output(6,1,"SOLIDE")
Output(8,11,"C BON?")
Pause 
ClrHome
Goto A
Lbl I
ClrHome
ClrDraw
ClrHome
AxesOff
Text(1,3,"FAMILLE")
Vertical ú2
Horizontal ú9
Horizontal ú4
Horizontal 0
Horizontal 4
Horizontal 7
Text(11,1,"HALOGENES")
Text(11,45,"-CL -BR -F -I")
Text(1,39,"GROUP CARACTERISTIK")
Text(21,1,"ALCOOLS")
Text(21,45,"-OH")
Text(33,1,"ALDEHYDES")
Text(33,45,"R-COH")
Text(45,1,"CETONES")
Text(45,45,"R-C=O")
Text(51,53,"R'")
Pause 
ClrDraw
ClrHome
Text(1,3,"FAMILLE")
Vertical ú2
Horizontal ú8
Horizontal ú4
Horizontal 0
Horizontal 4
Horizontal 7
Text(1,40,"GROUP CARACTESIS")
Text(11,1,"CARBOXYLK")
Text(11,44,"-COOH")
Text(20,1,"AMINES")
Text(20,40,"-NHÜ  --NH  ---N")
Pause 
ClrDraw
Output(1,1,"UN ALCOOL EST   PRIMAIRE SI UN  SEUL ATOME DE   CARBONE EST LIE AU CARBONE FONC-TIONNLE")
Pause 
ClrHome
Output(1,1,"UN ALCOOL EST   SECONDAIRE SI 2 ATOMES DE CARBONSONT RELIER AU  CARBONE FONCTIO-NNEL")
Pause 
ClrHome
Output(1,1,"UN ALCOOL EST   TERTIAIRE SI 3  CARBONE SONT RE-LIER AU CARBONNEFONCTIONNEL")
Pause 
ClrHome
AxesOff
ClrDraw
ClrHome
Vertical ú3
Vertical 3
Horizontal 7
Horizontal 3
Horizontal ú1
Text(1,1,"FAMILLES")
Text(1,35,"REACTI")
Text(1,63,"RESULTA")
Text(10,1,"HALAGENE")
Text(10,35,"NITRAT")
Text(16,35,"ARGENT")
Text(10,63,"BLANC")
Text(16,63,"LUM=NOIR")
Text(23,1,"ALCOOL")
Text(23,35,"PERMANG")
Text(28,35,"VIOLET")
Text(23,63,"DECOLOR-")
Text(28,63,"ATION")
Text(45,1,"ALDEHYDE")
Text(35,35,"DNPH")
Text(35,65,"JAUNE")
Text(41,35,"SCHIFF")
Text(41,65,"ROSE")
Text(48,35,"FELING")
Text(48,65,"BRIQUE")
Text(56,35,"TOLLEN")
Text(56,65,"ARGENT")
Pause 
ClrDraw
ClrHome
Vertical ú3
Vertical 3
Horizontal 7
Horizontal 3
Horizontal ú1
Horizontal ú5
Text(1,1,"FAMILLE")
Text(1,35,"REACTI")
Text(1,63,"RESULTA")
Text(10,1,"CETONE")
Text(10,35,"DNPH")
Text(10,65,"JAUNE")
Text(23,1,"CARBOXY")
Text(23,35,"PAP.PH")
Text(23,65,"PH<7")
Text(37,1,"AMINES")
Text(37,35,"PAP.PH")
Text(37,65,"PH>7")
Pause 
AxesOn
ClrDraw
Goto C
Lbl W
FnOn
Output(4,6,"CLEAR")
Output(8,6,"PAR CHARLES")