\start83P\
\comment=Program file dated 02/25/00, 18:13
\protected=TRUE
\name=ROCK
ClrHome
Disp "THIS IS A CHEAT"
Disp "IF YOU GET CAUGH"
Disp "T I AM NOT RESPO"
Disp "NSIBLE, OR YOU"
Disp "WILL DIE."
Pause 
Lbl ZZ
Menu("ROCK","TYPE:S",A,"TYPE:M",B,"TYPE:I",C,"QUIT",\theta\)
Lbl A
Menu("TYPE:S","CLASTIC",D,"ORGANIC",E,"CHEMICAL",F,"BACK",ZZ)
Lbl D
Menu("CLASTIC","FORMED",G,"CHARAC.",H,"EXAMPLES",I,"BACK",A)
Lbl E
Menu("ORGANIC","FORMED",J,"CHARAC.",K,"EXAMPLES",L,"BACK",A)
Lbl F
Menu("CHEMICAL","FORMED",M,"CHARAC.",N,"EXAMPLES",O,"BACK",A)
Lbl \theta\
ClrHome
Stop
Lbl G
ClrHome
Disp "COMPACTION AND"
Disp "CEMENTATION OF"
Disp "SEDIMENT GRAIN"
Disp "S"
Pause 
Goto D
Lbl H
ClrHome
Disp "FINE TO COARSE"
Pause 
Goto D
Lbl I
ClrHome
Disp "SANDSTONE"
Disp "SHALE"
Disp "CONGLOMERATE"
Pause 
Goto D
Lbl J
ClrHome
Disp "HEAT+PRESSURE"
Disp "OF ONCE LIVINIG"
Disp "THINGS"
Pause 
Goto E
Lbl K
ClrHome
Disp "FINE TO COARSE"
Pause 
Goto E
Lbl L
ClrHome
Disp "LIMESTONE"
Disp "COAL"
Pause 
Goto E
Lbl M
ClrHome
Disp "SOLUTION THEN"
Disp "CRYSTALIZE FROM"
Disp "EVAPORATION"
Disp "OF WATER"
Pause 
Goto F
Lbl N
ClrHome
Disp "MINERAL CRYSTALS"
Pause 
Goto F
Lbl O
ClrHome
Disp "GYPSUM"
Disp "HALITE"
Pause 
Goto F
Lbl B
ClrHome
Menu("TYPE:M","FOLIATED",P,"NON-FOLIATED",Q,"BACK",ZZ)
Lbl P
ClrHome
Menu("FOLIATED","FORMED",R,"CHARAC.",S,"EXAMPLES",T,"BACK",B)
Lbl R
ClrHome
Disp "HEAT+PRESSURE"
Pause 
Goto P
Lbl S
ClrHome
Disp "GRAINS INTO RAND"
Disp "OM STREAKS"
Pause 
Goto P
Lbl T
ClrHome
Disp "MICA"
Disp "SLATE"
Pause 
Goto P
Lbl Q
ClrHome
Menu("NON-FOLIATED","FORMED",U,"CHARAC.",V,"EXAMPLES",W,"BACK",B)
Lbl U
ClrHome
Disp "HEAT+PRESSURE"
Pause 
Goto Q
Lbl V
ClrHome
Disp "EQUAL PRESSURE"
Disp "AROUND SURFACE"
Pause 
Goto Q
Lbl W
ClrHome
Disp "QUARTZITE"
Pause 
Goto Q
Lbl C
Menu("TYPE:I","EXTRUSIVE",X,"INTRUSIVE",Y,"BACK",ZZ)
Lbl X
ClrHome
Menu("EXTRUSIVE","FORMED",Z,"CHARAC.",AA,"EXAMPLES",BB,"BACK",C)
Lbl Z
ClrHome
Disp "SURFACE OF LAVA"
Pause 
Goto X
Lbl AA
ClrHome
Disp "GLASSY TEXTURE-"
Disp "FINE GRAINED"
Pause 
Goto X
Lbl BB
Disp "BASALT"
Disp "PUMICE"
Pause 
Goto X
Lbl Y
ClrHome
Menu("INTRUSIVE","FORMED",CC,"CHARAC.",DD,"EXAMPLES",EE,"BACK",C)
Lbl CC
ClrHome
Disp "SOLIDIFIES BENEA"
Disp "TH SURFACE"
Pause 
Goto Y
Lbl DD
ClrHome
Disp "COARSE GRAIN"
Pause 
Goto Y
Lbl EE
ClrHome
Disp "GRANITE"
Disp "GABBRO"
Pause 
Goto Y

\stop83P\