Here is the code so far. I am starting to think that I should use the default menu command unless I can improve on the structure of this program. Are there any suggestions?
Code: Xmin+|E2DeltaX<Xmax->|N
StoreGDB GDB1
ClrDraw:AxesOff:FnOff
PlotsOff :GridOff
Lbl 00
0->FV
"SCIENCE PROGRAM,1-PHYSICAL,2-BIOLOGY,3-CHEMISTRY,4-PHYSICS,5-ASTRONOMY,6-QUIT
Goto theta1
Lbl XX
ClrHome
RecallGDB GDB1
|N
Output(3+Ans,1+Ans5,"SCIENCE PROGRAM
Output(4+Ans,3+Ans5,"a\lpha v.1.2
Output(5+Ans,3+Ans5,"CREATED BY:
Output(6+Ans,2+Ans5,"ELECTROMAGNET
Stop
Lbl 01
.1->FV
"PHYSICAL SCIENCE,1-SCIENTIFIC METHOD,2-EARTH,3-WEATHER,4-ENERGY,5-FORCES,6-MOTION,7-BACK,8-QUIT
Goto theta1
Lbl 11
.11->FV
"SCIENTIFIC METHOD,1-NOTES,2-EXPERIMENT,3-BACK,4-QUIT
Goto theta1
Lbl 1A:"TBD":Goto theta2
Lbl 1B:"TBD":Goto theta2
Lbl 12
.12->FV
"EARTH,1-MODEL,2-CONDUCT/CONVECTION,3-QUAKES/VOLCANOES,4-FAULTS/FOLDS,5-CONTINENTAL DRIFT,6-BACK,7-QUIT
Goto theta1
Lbl 1C:"TBD":Goto theta2
Lbl 1D:"TBD":Goto theta2
Lbl 1E:"TBD":Goto theta2
Lbl 1F:"TBD":Goto theta2
Lbl 1G:"TBD":Goto theta2
Lbl 13
.13->FV
"WEATHER,1-ATMOSPHERE,2-HEATING,3-HUMIDITY,4-CLOUDS,5-PRECIPITATION,6-HIGH/LOW PRESSURE,7-AIR MASSSES/FRONTS,8-BACK,9-QUIT
Goto theta1
Lbl 1H:"TBD":Goto theta2
Lbl 1I:"TBD":Goto theta2
Lbl 1J:"TBD":Goto theta2
Lbl 1K:"TBD":Goto theta2
Lbl 1L:"TBD":Goto theta2
Lbl 1M:"TBD":Goto theta2
Lbl 1N:"TBD":Goto theta2
Lbl 14
.14->FV
"ENERGY,1-TYPES,2-LAW,3-TRANSFORMATIONS,4-GRAVITY (GPE),5-KINETIC,6-ELECTROMAGNETIC,7-BACK,8-QUIT
Goto theta1
Lbl 1O:"TBD":Goto theta2
Lbl 1P:"TBD":Goto theta2
Lbl 1Q:"TBD":Goto theta2
Lbl 1R
Lbl 1S
Lbl 1T:"TBD":Goto theta2
Lbl 15
.15->FV
"FORCES,1-NEWTON,2-WORK/FORCE,3-POWER/EFFICIENCY,4-SIMPLE MACHINES,5-BACK,6-QUIT
Goto theta1
Lbl 1U:"TBD":Goto theta2
Lbl 1V
Lbl 1W
Lbl 1X:"TBD":Goto theta2
Lbl 16
.16->FV
"MOTION,1-NOTES,2-D=RT,3-BACK,4-QUIT
Goto theta1
Lbl 1Y:"TBD":Goto theta2
Lbl 1Z
Lbl 02
.2->FV
"BIOLOGY,1-LIFE CHARACTERISTICS,2- ERAS/TIME PERIODS,3-CELL THEORY,4-GENE THEORY,5-EVOLUTION,6-HOMEOSTASIS,7-THERMODYNAMICS,8-BACK,9-QUIT
Goto theta1
Lbl 21
.21->FV
"LIFE CHARACTERISTICS,BACK,QUIT
Goto theta1
Lbl 22
.22->FV
"ERAS/TIME PERIODS,BACK,QUIT
Goto theta1
Lbl 23
.23->FV
"CELL THEORY,BACK,QUIT
Goto theta1
Lbl 24
.24->FV
"GENE THEORY,BACK,QUIT
Goto theta1
Lbl 25
.25->FV
"EVOLUTION,BACK,QUIT
Goto theta1
Lbl 26
.26->FV
"HOMEOSTASIS,BACK,QUIT
Goto theta1
Lbl 27
.27->FV
"THERMODYNAMICS,BACK,QUIT
Goto theta1
Lbl 03
.3->FV
"CHEMISTRY,1-MATTER,2-ATOMIC,3-STOICHIOMETRY,4-ACID/BASE & pH,5-,6-,7-,8-BACK,9-QUIT
Goto theta1
Lbl 31
.31->FV
"MATTER,1-NOTES,2-STATES,3-SUBSTANCES/MIXTURES,4-BACK,5-QUIT
Goto theta1
Lbl 3A
Lbl 3B
Lbl 3C
Lbl 32
.32->FV
"ATOMIC,1-STRUCTURE,2-IONS/ISOTOPES,3-PERIODIC TABLE,4-BONDING,5-CHEMICAL FORMULAS,6-SOLVE WEIGHT,7-BACK,8-QUIT
Goto theta1
Lbl 3D
Lbl 3E
Lbl 3F
Lbl 3G
Lbl 3H
Lbl 3I
Lbl 33
.33->FV
"STOICHIOMETRY,1-,2-,3-,4-,5-,6-,7-,8-BACK,9-QUIT
Goto theta1
Lbl 3J
Lbl 3K
Lbl 3L
Lbl 3M
Lbl 3N
Lbl 3O
Lbl 3P
Lbl 34
.34->FV
"ACIDS/BASES & pH,1-,2-,3-,4-,5-,6-,7-,8-BACK,9-QUIT
Goto theta1
Lbl 35
.35->FV
"TBD35,BACK,QUIT
Goto theta1
Lbl 36
.36->FV
"TBD36,BACK,QUIT
Goto theta1
Lbl 37
.37->FV
"TBD37,BACK,QUIT
Goto theta1
Lbl 04
.4->FV
"PHYSICS,1-,2-,3-,4-,5-,6-,7-,8-BACK,9-QUIT
Goto theta1
Lbl 41
.41->FV
"TBD41,BACK,QUIT
Goto theta1
Lbl 42
.42->FV
"TBD42,BACK,QUIT
Goto theta1
Lbl 43
.43->FV
"TBD43,BACK,QUIT
Goto theta1
Lbl 44
.44->FV
"TBD44,BACK,QUIT
Goto theta1
Lbl 45
.45->FV
"TBD45,BACK,QUIT
Goto theta1
Lbl 46
.46->FV
"TBD46,BACK,QUIT
Goto theta1
Lbl 47
.47->FV
"TBD47,BACK,QUIT
Goto theta1
Lbl 05
.5->FV
"ASTRONOMY,1-THE CELESTIAL SPHERE,2-COORDINATE SYSTEM,3-UNITS,4-PRECESSION,5-PARALLAX,6-PROPER MOTION,7-,8-BACK,9-QUIT
Goto theta1
Lbl 51
.51->FV
"THE CELESTIAL SPHERE,BACK,QUIT
Goto theta1
Lbl 52
.52->FV
"COORDINATE SYSTEM,BACK,QUIT
Goto theta1
Lbl 53
.53->FV
"UNITS,BACK,QUIT
Goto theta1
Lbl 54
.54->FV
"PRECESSION,BACK,QUIT
Goto theta1
Lbl 55
.55->FV
"PARALLAX,BACK,QUIT
Goto theta1
Lbl 56
.56->FV
"PROPER MOTION,BACK,QUIT
Goto theta1
Lbl 57
.57->FV
"TBD57,BACK,QUIT
Goto theta1
Lbl theta2
Ans->Str1
ClrDraw
DispGraph
DelVar RDelVar CFor(I,1,length(Str1
If C<(91+165|N) and "^^o"!=sub(Str1,I,1
Then
If " "!=sub(Str1,I,1
Text(R,C,sub(Str1,I,1
C+6+3|N->C
If I<length(Str1)-1:Ans-2(" "!=sub(Str1,I,1->C
Else
DelVar C
R+6+6|N->R
End
C+4(C>(89+165|N->C
I-(C>(89+165|N->I
End
Pause
Goto 00
Lbl theta1
Ans->Str0
DelVar |LQClrDraw
inString(Str0,",
Text(0,0,sub(Str0,1,Ans-1
For(O,1,|E9
inString(Str0,",",Ans
If Ans:Then
Ans+1->|LQ(O
Else
2+length(Str0->|LQ(O
|E9->O
End
End
dim(|LQ)-1->Q
For(theta,1,Ans
Text(theta6(|N+1),4(|N+1),sub(Str0,|LQ(theta),|LQ(theta+1)-1-|LQ(theta
End
6|N+6->X
DelVar |LQ{92,93,94,82,83,84,72,73,74->|LQ
Repeat max(K=|LQ) or max(K={21,26,105
Text(X,0,"[|>]
Repeat Ans
getKey->K
End
Text(X,0," "
X+(6|N+6)((Ans=34 and X<6Q(|N+1))-(Ans=25 and X>6|N+6->X
max(seq(X(K=|LQ(X)),X,1,dim(|LQ
If Q>=Ans and max(K=|LQ
Ans6(|N+1)->X
End
If X(2-|N)/12=Q:Goto XX
X(2-|N)/12+FV
If max(Ans=Q-1+{.1,.2,.3,.4,.5:Goto 00
If Ans=1:Goto 01 //physical
If max(Ans=Q-1+{.11,.12,.13,.14,.15,.16:Goto 01
If Ans=1.10:Goto 11 //scientific method
If Ans=1.11:Goto 1A //notes
If Ans=2.11:Goto 1B //experiment
If Ans=2.10:Goto 12 //earth
If Ans=1.12:Goto 1C //model
If Ans=2.12:Goto 1D //conduct/convection
If Ans=3.12:Goto 1E //quakes/volcanoes
If Ans=4.12:Goto 1F //faults/folds
If Ans=5.12:Goto 1G //continental drift
If Ans=3.10:Goto 13 //weather
If Ans=1.13:Goto 1H //atmosphere
If Ans=2.13:Goto 1I //heating
If Ans=3.13:Goto 1J //humidity
If Ans=4.13:Goto 1K //clouds
If Ans=5.13:Goto 1L //precipitation
If Ans=6.13:Goto 1M //high/low pressure
If Ans=7.13:Goto 1N //air masses/fronts
If Ans=4.10:Goto 14 //energy
If Ans=1.14:Goto 1O //types
If Ans=2.14:Goto 1P //law
If Ans=3.14:Goto 1Q //transformations
If Ans=4.14:Goto 1R //gravity (gpe)
If Ans=5.14:Goto 1S //kinetic
If Ans=6.14:Goto 1T //electromagnetic
If Ans=5.10:Goto 15 //forces
If Ans=1.15:Goto 1U //newton
If Ans=2.15:Goto 1V //work/force
If Ans=3.15:Goto 1W //power/efficiency
If Ans=4.15:Goto 1X //simple machines
If Ans=6.10:Goto 16 //motion
If Ans=1.16:Goto 1Y //notes
If Ans=1.84:Goto 1Z //d=rt
If Ans=2:Goto 02 //biology
If max(Ans=Q-1+{.21,.22,.23,.24,.25,.26,.27:Goto 02
If Ans=1.20:Goto 21 //life characteristics
If Ans=2.20:Goto 22 //eras/time periods
If Ans=3.20:Goto 23 //cell theory
If Ans=4.20:Goto 24 //gene theory
If Ans=5.20:Goto 25 //evolution
If Ans=6.20:Goto 26 //homeostasis
If Ans=7.20:Goto 27 //thermodynamics
If Ans=3:Goto 03 //chemistry
If max(Ans=Q-1+{.31,.32,.33,.34,.35,.36,.37:Goto 03
If Ans=1.30:Goto 31 //matter
If Ans=1.31:Goto 3A //notes
If Ans=2.31:Goto 3B //states
If Ans=3.31:Goto 3C //substances/mixtures
If Ans=2.30:Goto 32 //atomic
If Ans=1.32:Goto 3D //structure
If Ans=2.32:Goto 3E //ions/isotopes
If Ans=3.32:Goto 3F //periodic table
If Ans=4.32:Goto 3G //bonding
If Ans=5.32:Goto 3H //chemical formulas
If Ans=6.32:Goto 3I //solve weight
If Ans=3.30:Goto 33 //stoichiometry
If Ans=1.33:Goto 3J //
If Ans=2.33:Goto 3K //
If Ans=3.33:Goto 3L //
If Ans=4.33:Goto 3M //
If Ans=5.33:Goto 3N //
If Ans=6.33:Goto 3O //
If Ans=7.33:Goto 3P //
If Ans=3.40:Goto 34 //acid/base & pH
If Ans=3.50:Goto 35 //
If Ans=3.60:Goto 36 //
If Ans=3.70:Goto 37 //
If Ans=4:Goto 04 //physics
If max(Ans=Q-1-{.41,.42,.43,.44,.45,.46,.47:Goto 04
If Ans=1.40:Goto 41 //
If Ans=2.40:Goto 42 //
If Ans=3.40:Goto 43 //
If Ans=4.40:Goto 44 //
If Ans=5.40:Goto 45 //
If Ans=6.40:Goto 46 //
If Ans=7.40:Goto 47 //
If Ans=5:Goto 05 //astronomy
If max(Ans=Q-1-{.51,.52,.53,.54,.55,.56,.57:Goto 05
If Ans=1.50:Goto 51 //the celestial sphere
If Ans=2.50:Goto 52 //coordinate system
If Ans=3.50:Goto 53 //units
If Ans=4.50:Goto 54 //precession
If Ans=5.50:Goto 55 //parallax
If Ans=6.50:Goto 56 //proper motion
If Ans=7.50:Goto 57 //
Goto XX