\START\
\COMMENT=Program file dated 11/18/99, 07:27
\NAME=DREIECK1
\FILE=dreieck1.85P
ClLCD
0\->\A2:0\->\B2:0\->\C2:0\->\\LC-alpha\:0\->\\LC-beta\:0\->\\LC-gamma\:\#\
0\->\P2:0\->\Q2:0\->\Hc2:90\->\\LC-delta\:0\->\AA2:0\->\DA:0\->\\LC-gamma\\#\
1:0\->\\LC-gamma\2
Fix3
Degree
Disp "Dreiecksberechnung"
Disp "Version 1.0"
Disp "Schmedi(@)sax.de"
Disp " "
Disp "Was ist gegeben?"
Lbl Men
Menu(1,"Seite",Ds,2,"Winkl",Dw,3,"sonst",Dso,4,"go.on",Dgo,5,"Exit",De)\#\

Lbl Ds
Menu(1,"a",Dsa,2,"b",Dsb,3,"c",Dsc)
Lbl Dsa:Input "a=",A2:Goto Men
Lbl Dsb:Input "b=",B2:Goto Men
Lbl Dsc:Input "c=",C2:Goto Men
Lbl Dw
Menu(1,"\LC-alpha\",Dw\LC-alpha\,2,"\LC-beta\",Dw\LC-beta\,3,"\LC-gamma\\#\
",Dw\LC-gamma\)
Lbl Dw\LC-alpha\:Input "\LC-alpha\=",\LC-alpha\:Goto Men
Lbl Dw\LC-beta\:Input "\LC-beta\=",\LC-beta\:Goto Men
Lbl Dw\LC-gamma\:Input "\LC-gamma\=",\LC-gamma\:Goto Men
Lbl Dso
Menu(1,"p",Dsop,2,"q",Dsoq,3,"hc",Dsohc,4,"A",DAA)
Lbl Dsop:Input "p=",P2:Goto Men
Lbl Dsoq:Input "q=",Q2:Goto Men
Lbl Dsohc:Input "hc=",Hc2:Goto Men
Lbl DAA:Input "A=",AA2:Goto Men

Lbl Dgo
Disp "Dreiecksart?"
Menu(1,"recht",Dre,2,"glsei",Dgse,3,"glsch",Dgsc,4,"allg.",Dgo15)
Lbl Dgo15
ClLCD
Disp "geg:"
If A2\<>\0:Disp "a:",A2
If B2\<>\0:Disp "b:",B2
If C2\<>\0:Disp "c:",C2
If \LC-alpha\\<>\0:Disp "\LC-alpha\:",\LC-alpha\
If \LC-beta\\<>\0:Disp "\LC-beta\:",\LC-beta\
If \LC-gamma\\<>\0:Disp "\LC-gamma\:",\LC-gamma\
If P2\<>\0:Disp "p:",P2
If Q2\<>\0:Disp "q:",Q2
If Hc2\<>\0:Disp "hc:",Hc2
If AA2\<>\0:Disp "A:",AA2
Pause "[ENTER...]"
Lbl Dgo2
\UC-Delta\2
\UC-Delta\3
If A2\<>\0 and B2\<>\0 and C2\<>\0 and P2\<>\0 and Q2\<>\0 and \LC-beta\\#\
\<>\0 and \LC-alpha\\<>\0 and \LC-gamma\\<>\0 and AA2\<>\0
Then
Goto Dgo3
Else
Goto Dgo2:End
Lbl Dgo3
ClLCD
Outpt(1,1,"a:"):Outpt(1,4,A2)
Outpt(2,1,"b:"):Outpt(2,4,B2)
Outpt(3,1,"c:"):Outpt(3,4,C2)
Outpt(4,1,"\LC-alpha\:"):Outpt(4,4,\LC-alpha\)
Outpt(5,1,"\LC-beta\:"):Outpt(5,4,\LC-beta\)
Outpt(6,1,"\LC-gamma\:"):Outpt(6,4,\LC-gamma\)
Outpt(7,1,"p:"):Outpt(7,4,P2)
Outpt(1,12,"q:"):Outpt(1,14,Q2)
Outpt(2,12,"hc:"):Outpt(2,15,Hc2):Outpt(3,12,"A:"):Outpt(3,14,AA2)
Lbl De
Stop

Lbl Dre
90\->\\LC-gamma\:1\->\DA
Goto Dgo15
Lbl Dgse
2\->\DA
If A2\<>\0:Then:A2\->\B2:B2\->\C2:End
If B2\<>\0:Then:B2\->\A2:B2\->\C2:End
If C2\<>\0:Then:C2\->\A2:C2\->\B2:End
60\->\\LC-alpha\:60\->\\LC-beta\:60\->\\LC-gamma\:Goto Dgo15
Lbl Dgsc
3\->\DA
If A2\<>\0:A2\->\B2
If B2\<>\0:B2\->\A2
If \LC-alpha\\<>\0:\LC-alpha\\->\\LC-beta\
If \LC-beta\\<>\0:\LC-beta\\->\\LC-alpha\
If C2\<>\0:Then:(C2/2)\->\P2:P2\->\Q2:End
If P2\<>\0:Then:P2\->\Q2:2*P2\->\C2:End
If Q2\<>\0:Then:Q2\->\P2:2*Q2\->\C2:End
Goto Dgo15
\STOP\