Small update. My Menu system is a third of the way finished. Here is what I have now so you have an idea what the finished product will be.
If you click on the "FIVE PACK OF MATH" at the top you get a copyright message and my email to contact me.
the "MADE BY AES SEDIA5" Box will display credits
The "CEMETECH.NET" Button will display a special thank you to the cemetech.net elites.
All other boxes run the program of that name.
Here is the code so far for those that are curios
Code:
:While 1
:ClrDraw
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:Text(3,17,"FIVE PACK OF MATH
:Text(14,3,"ALGEBRA
:Text(14,45,"CALCULUS
:Text(24,3,"TRIGONOMETRY
:Text(24,60,"VOLUMES
:Text(34,3,"CHEMISTRY
:Text(34,45,"ARCHIVE STATE
:Text(45,20,"MADE BY AES SEDIA5
:Text(55,20,"CEMETECH.NET
:Repeat getKey=105
:Lbl 1
:"FIVE PACK OF MATH"
:Line(15,61,76,61
:Line(15,61,15,52
:Line(15,52,76,52
:Line(76,52,76,61
:Repeat K
:getKey→K
:End
:If K=34
:Then
:"FIVE PACK OF MATH"
:Line(15,61,76,61,0
:Line(15,61,15,52,0
:Line(15,52,76,52,0
:Line(76,52,76,61,0
:"ALGEBRA"
:Line(1,49,1,41
:Line(1,49,31,49
:Line(1,41,31,41
:Line(31,49,31,41
:Repeat J
:getKey→J
:End
:If J=105
:Then
:Asm(prgmZZARCHIV
:ArchiveprgmZZALGEBR
:prgmZZALGEBR
:UnarchiveprgmZZALGEBR
:Asm(prgmZZARCHIV
:Else
:If J=26
:Then
:If K=34
:Then
:"ALGEBRA"
:Line(1,49,1,41,0
:Line(1,49,31,49,0
:Line(1,41,31,41,0
:Line(31,49,31,41,0
:"CALCULUS"
:Line(43,41,43,49
:Line(43,41,78,41
:Line(43,49,78,49
:Line(78,41,78,49
:Repeat L
:getKey→L
:End
:
:
:
:
:Else
:If J=34
:Then
:If K=34
:Then
:"ALGEBRA"
:Line(1,49,1,41,0
:Line(1,49,31,49,0
:Line(1,41,31,41,0
:Line(31,49,31,41,0
:"TRIG 24,3"
:Line(1,31,1,38)
:Line(1,31,50,31
:Line(51,31,51,39
:Line(51,39,1,39
:Repeat T
:getKey→T
:End
:
:
:Else
:If K=105
:Then
:Text(1,1,"FIVE IVE PACK OF MATH
:Text(7,1,"MADE BY AES SEDIA5
:Text(13,1,"ALL RIGHTS RESERVED
:Text(19,1,"PLEASE DO NOT COPY
:Text(25,1,"ANY CODE WITHOUT MY PERMISSION
:Text(31,1,"KINGRJ554 AT YAHOO.COM
:Text(49,1,"WITH HELP FROM THE TI ELITE
:Text(55,1,"AT WWW.CEMETECH.NET
:End
:
:Asm(prgmZZARCHIV
:UnarchiveprgmZZALGEBR
:prgmZZALGEBR
:ArchiveprgmZZALGEBR
:Asm(prgmZZARCHIV
:Else
:If K=25
:
:
:ClrDraw
:Text(1,1,"THE FIVE PACK OF MATH
:"CALCULUS"
:Line(43,41,43,49
:Line(43,41,78,41
:Line(43,49,78,49
:Line(78,41,78,49
:
:
:
:
:"TRIG 24,3"
:Line(1,31,1,38)
:Line(1,31,50,31
:Line(51,31,51,39
:Line(51,39,1,39
:
:
:
:
:
:"VOLUMES 24,60"
:Line(58,31,58,39
:Line(58,39,89,39
:Line(58,31,89,31
:Line(89,31,89,39
:
:
:
:
:"CHEM 43,3"
:Line(1,21,1,29
:Line(1,21,39,21
:Line(1,29,39,29
:Line(39,29,39,21
:
:
:
:"ARCHIVE 34,45
:Line(43,21,43,29
:Line(43,21,94,21
:Line(43,29,94,29
:Line(94,29,94,21
:
:
:"AES SEDIA5"
:Line(18,18,18,10
:Line(18,18,83,18
:Line(18,10,83,10
:Line(83,10,83,18
:
:
:
:
:
:"CEMETECH.NET
:Line(18,8,18,0
:Line(18,8,66,8
:Line(18,0,66,0
:Line(66,8,66,0
:End