TIB: New Math Program

[Prev][Next][Index][Thread]

TIB: New Math Program

Title: New Math Program
I created this large math prog. It don't know if it's any good, and it's 10k. It's in BASIC but it uses some assembly to check for the existance of variables. If you have two or more calcs with the same program, it can transfer graphs, etc. of quad. equations, and stuff. I sent a very old version of it to TI-Calc.org, but this is quite different.

Anyways, it's for TI-86, and doesn't work on ROM version 1.6

I wrote in on ROM version 1.2

If you choose to try it out, do send me your comments so I can improve it later... I'm also curious as to how many people are going to use my stuff...

--
Owen Cannon
ocannon@oregonvos.net
http://www.oregonvos.net/~ocannon

**TI86**
Grouped file dated 01/03/00, 10:41rJO	AQUADEQT	Prompt AIf A==0ThenDisp "Not a parabola"Else:EndIf A>0Disp "Graph opens down."If A<0Disp "Graph opens up."Prompt B,C1QSTARTEXISTS("progmSE"If Ans==0Goto ERRORprogmSEClLCDDelVar(QSTARTReturnLbl ERRORDisp "Core data missing","[progmSE]"ReturnasapXCmd(~JI͕J!
ͪU(_J :׷(~J͕J!ͪU( >2S
!S!<!{BSS^!~J͂J͕J!f7J_J!u7J_J~#(_J+J !;J!"!7JCautionAny item in the 5thCUSTOM menu slot orthe 9th MATH menuslot will beoverwritten.asapXCmd v1.2bby Keith BattenWARNINGTokens already existfrom prgm Installation WILLerase the previouslyinstalled tokens.Continue        ExitasapXCmd$*3<DKRYdlu}AscBitIYChrEXISTSInvertLnOfflogxPeekPoke	PSpriteG
ResIYRunOffRunOn
SetIYStr@IHXCmdTextMathMiscVar$Grfx*27<AV^dOGjqxInvert`Str`Chr`Asc`logxRunOffRunOn`EXISTS`Peek`Poke`BitIY`SetIY`ResIY`LnOff`PspriteG:!QA>)wUS>)Ho&FoBßL:!QAV:	ަC_CßL>)wU2	!+G:	OE?LgUCB:!QA>)xGF!
OF!ͅRR:2!C_CßL>w:!QA>)wU2>)wU2>)wU2>)wU2oM:?AG:??A?O:?AW:??A?_&QN_C:!QA>)TcB>)T3B?BͨTßL:!QA>)wUSH2	!+G:	Ox?LgUCB:!QA>)>2H2	>)wUSCßL:!QA>)wUS>)x[͎GF!OF!ͅRR>)wU2>)wU=_:=W!:怳_!~w#:!QAV:	ަwñJíJ:!QAV:	޶w>)>͑Q!!A&h+Gx?LͅROF!GFRCBG:NA!_G!~#x[͎F>)wU2	>)wU2>2:	ͤxʜA2	:_Oy7FOG{x zxy @GG
x[͎:	OgUAnsMathSEmdD19StartUpo4UPo9USERPICo4UGo9USERGDBon{ooD0/D0/-Initializing...oD8/D0/-Hiding equationsoD6oD16/D0/-Core datao2EXISTS-Math1of2o<AnsPD0no6TEMPooD0/D0/-[MISSING VAR]o:Math1of2oo6TEMPooo2EXISTS-progmSEo<AnsPD0nnD16/D0/-[MISSING VAR] You are missing aoD24/D0/-program file: [progmSE]oD54/D0/-press [ENTER]ooooo9progmSEo!progmSEd!!2EXISTS-QSTARTo<AnsPD1o	QUADMENUoooD24/D0/-Previous stateo2EXISTS-ALGo<AnsPD0oD05ALGo2EXISTS-GEOo<AnsPD0oD05GEOo:ONECHECKo:TWOCHECKo:THRCHECKo2EXISTS-MXBpico<AnsPD0oo6TEMPnnD0/D0/-There was no previousnD6/D0/-Equationo8MXBpicoo6TEMPono2EXISTS-QUADpico<AnsPD0oo6TEMPooD0/D0/-There was no previousoD6/D0/-equation graphed.o9QUADpicoo6TEMPoooD32/D0/-Other variableso2EXISTS-StartUpo<AnsPD0n8MathSEo2EXISTS-EQUo<AnsPD0o-No previous equation5EQUo2EXISTS-ZZZo<AnsPD0oD15ZZZoD8/D70/-Equation termso2EXISTS-Ao<AnsPD0oD03Ao2EXISTS-Bn<AnsPD0oD03Bo2EXISTS-Co<AnsPD0oD03Co2EXISTS-X1o<AnsPD0oD14X1o2EXISTS-X2o<AnsPD0oD14X2o2EXISTS-Y1o<AnsPD0oD14Y1o2EXISTS-Y2o<AnsPD0oD14Y2oD16/D70/-Talko2EXISTS-OPENo<AnsPD0oD06OPENo2EXISTS-GOTo<AnsPD0oD05GOTooDISPRoo:Math1of2oTOPo5ALGPD1nn5GEOPD1nnALLnnALGnnn5GEOPD1nnGEOnnMNONEnnooNONEoD05ALGnD05GEOooLD1/-Close/6EXIT/D2/-Alg/5ALG/D3/-Geo/5GEO/D4/-Copy/6COPY/D6/-Talk/6TALK/D5/-?/6HELPoALGoD15ALGnD05GEOoLD1/-Close/6EXIT/D2/-Alg>/6NONE/D3/-Quadr/7QUADR/D4/-Pyth/6PYTH/D5/-mx+b/5MXB/D6/-Geo/5ALL/D7/-Copy/6COPY/D9/-Talk/6TALK/D8/-?/6HELPoGEOoD05ALGnD15GEOoLD1/-Close/6EXIT/D2/-Alg/5ALL/D3/-Geo>/6NONE/D6/-Copy/6COPY/D8/-Talk/6TALK/D7/-?/6HELP/D4/-2D/6DIM2/D5/-3D/6DIM3oALLoD15ALGnD15GEOoLD1/-Close/6EXIT/D2/-Alg>/5GEO/D3/-Quadr/7QUADR/D4/-Pyth/6PYTH/D5/-mx+b/5MXB/D6/-Geo>/5ALG/D7/-2D/6DIM2/D8/-3D/6DIM3/D9/-Copy/6COPY/D11/-Talk/6TALK/D10/-?/6HELPooCOPYo5ZZZ2xoDISPRoEXITo9USERGDBnznn9USERPICo9StartUpn8QSTARTonoPYTHoo5EQU/5ZZZo-Which is missing?ooLD1/-<</5TOP/D2/-c/7CMISS/D3/-a/b/8ABMISSoCMISSoo-A (leg one)=/6LEGAo-B (leg two)=/6LEGBo6LEGAJ`6LEGBJ5ZZZoo-(A+B)=5EQUoPYTHoABMISSo-Leg A or B=/7LEGABn-Hypotenuse=/6LEGCn6LEGCJa7LEGABJ5ZZZnn-(C-B)5EQUnPYTHoQUADRoINPUTABCoo-0=Ax+Bx+Co3Ao3AQD0nn-Graph opens downnnn3ARD0nn-Graph opens upnnn3APD0nn-Not a parabola...nTOPnno3Bo3CooQUADMENUo2EXISTS-QSTARTo<AnsPD1oLD3/-Roots/7ROOTS/D4/-Vertx/8VERTEX/D2/-New/:INPUTABC/D1/-Close/7EXIT2oLD3/-Roots/7ROOTS/D4/-Vertx/8VERTEX/D2/-New/:INPUTABC/D1/-<</5TOP/D5/-Graph/8GRAPHQoEXIT2ooQTABLEo-This will replce/-anything you had on/-y1=oLD2/-Ok/5QOK/D3/-Cancl/4NOoNOooQUADMENUoQOKo;y1?3A2xJ`4Bx`3CooQUADMENUoooooooGRAPHQoozo3BqD2p3A4XCn3Ap4XCJ`3Bp4XC`3C4YCo;y1?3A2xJ`3B2x`3CoooD0/D7/-Vertex:oD6/D9/4XCnD12/D9/4YCoD03AJ`D03B`3C7ZZZZ1ooD0/D70/-Zeros:nD6/D70/7ZZZZ1ooo-Store pic?oLD2/-Yes/4PY/D3/-No/4PNoPYn9QUADpicnPNo{noQUADMENUoROOTSoo3BJaD4p3Ap3CQD0oLCOMPLEXoo3B`3BJaD4p3Ap3CqD2p3A4R1n3Ba3BJaD4p3Ap3CqD2p3A4R2o-The roots are:o4R1o-+ or -o4R2o	QUADMENUooCOMPLEXo3BqD2p3A4R1oD2p3AI3BJaD4p3Ap3C3Io-The roots are:o4R1o-+ or -o3Io-*io	QUADMENUooVERTEXoo3BqD2p3A4XCn3Ap4XCJ`3Bp4XC`3C4YCo-The vertex is at:o3BqD2p3A4XCn3Ap4XCJ`3Bp4XC`3C4YCoD3/D1/-X==oD3/D5/4XCoD5/D1/-Y==oD5/D5/4YCo	QUADMENUooMXBoo-Enter two points/-of a lineo-x1:/4X1n-y1:/4Y1n-x2:/4X2n-y2:/4Y2o4Y2a4Y1q4X2a4X13Mo4Y2a4X23M3BoMXBMENUoLD1/-<</5TOP/D3/-Slope/7SLOPE/D4/-Y-Int/6YINT/D5/-Graph/6MXBG/D2/-New/5MXBoSLOPEo-Slope:/3Mo3M5ZZZoMXBMENUoYINTo-Y-Int:/3Bo3B5ZZZoMXBMENUoMXBGozon;y1?3M2x`3Boonnn-Store pic?nLD2/-Yes/6YES3/D3/-No/5NO3oYES3o8MXBpico{nn;y1?D0onoMXBMENUoNO3o{nnn;y1?D0noMXBMENUoDIM2oLD1/-<</5TOP/D2/-Rect/6RECT/D3/-Circl/6CIRC/D4/-Paral/6PARAoRECToLD1/-<</6DIM2/D2/-Per/7RECTP/D3/-Area/:RECTAREAoRECTPoo7Side1/7Side2oD2p7Side1`D2p7Side25ZZZo-(2*S1)+(2*S2)=/5ZZZoRECToRECTAREAoo7Side1/7Side2o7Side1p7Side25ZZZo-S1*S2=/5ZZZoRECTooCIRCooLD1/-<</6DIM2/D2/-Circm/6NUM1/D3/-Area/6NUM2oNUM1oo8RadiusoD2B8Radius5ZZZo-2R=/5ZZZoCIRCooNUM2oo8RadiusoB8RadiusJ5ZZZo-R=/5ZZZoCIRCooPARAoLD1/-<</6DIM2/D2/-bh/7PARAHoPARAHoo6Base/8Heighto6Basep8Height5ZZZo-B*H/5ZZZoPARAoooDIM3oLD1/-<</5GEO/D3/-Cube/6CUBE/D2/-Sphere/8SPHERE/D4/-Cylnd/5CYL/D7/-Cone/6CONE/D6/-Pyram/5PYRoCUBEoLD1/-<</6DIM3/D2/-SA/8CUBESA/D3/-Vol/9CUBEVOLoCUBESAoo3L/3W/3HoD2p3Lp3W`D2p3Wp3H`D2p3Hp3L5ZZZo-(2*(L*W))+(2*(W*H))+(2*(H*L))/5ZZZoCUBEoCUBEVOLoo3L/3W/3Ho3Lp3Wp3H5ZZZo-L*W*H=/5ZZZoCUBEooSPHEREooLD1/-<</6DIM3/D2/-SA/:SPHERESA/D3/-Vol/8SPHREVoSPHERESAoo8RadiusoD4B8RadiusJ5ZZZo-4r=/5ZZZoSPHEREoSPHREVoo8RadiusoD4B8RadiusD3qD35ZZZo-(4r^3)/3/5ZZZoSPHEREooCYLooLD1/-<</6DIM3/D2/-SA/7CYLSA/D3/-Vol/8CYLVOLoCYLSAoo8Radius/8HeightoD2B8Radius8Height`D2B8RadiusJ5ZZZo-2R*H+2R/5ZZZoCYLoCYLVOLoo8Radius/8HeightoB8RadiusJ8Height5ZZZo-rh/5ZZZoCYLooPYRooLD1/-<</6DIM3/D2/-Vol/8PYRVOLoPYRVOLoo6Base/8Heighto6Basep8HeightqD35ZZZo-(BH)/3=/5ZZZoPYRoCONEoooLD1/-<</6DIM3/D2/-SA/8CONESA/D3/-Vol/9CONEVOLoCONESAoo8Radius/6SideoB8RadiusJ`B8Radius6Side5ZZZo-r+rs=/5ZZZoCONEoCONEVOLoo6Base/8Heighto-(BH)/3/5ZZZo6Base8HeightqD35ZZZoCONEooDISTANCEoo3X/3Y/4X1/4Y1oo4X1a3X`4Y1a3Y5ZZZo-((X1-X)+(Y1-Y)/5ZZZoALGoABOUToo{oD0/D1/-copyleft 1999 (c)oD6/D1/-Owen CannonoD52/D1/-press [ENTER]oooDISPRoHELPooD1/D1/-Refer to the fileoD7/D1/-'Readme' on the computer youoD14/D1/-installed this from.oD21/D1/-or, e-mailoD28/D15/-ocannon@oregonvos.netoD35/D1/-Design and code:oD42/D1/-Owen CannonoD48/D1/-Special Edition: uses ASAP X CommandooD56/D1/-press [ENTER]oooABOUToTALKonnD7.7nD0/D0/-Talk Engine v.2oD8/D0/-Initializing...oD3D6oD16/D0/-Menuso2EXISTS-OPENn<AnsPD0nnD06OPENnno2EXISTS-GOTn<AnsPD0nnD05GOTnnoD24/D0/-Download checklisto:ONECHECKo:TWOCHECKo:THRCHECKo5GOTPD1oo6OPENPD1ooALL1ooGOTooo6OPENPD1ooOPENooNONE1ooNONE1oD06OPENnD05GOToLD1/-<</5TOP/D2/-Get/5GOT/D3/-Open/6OPENoALL1oD16OPENnD15GOToLD1/-<</7DISPR/D2/-Get>/6OPEN/D3/-All/8GETALL/D4/-Some/9GETSOME/D5/-Open>/5GOT/D6/-Quadr/:QUADOPEN/D7/-mx+b/9MXBOPENoNONE1oD06OPENnD05GOToLD1/-<</7DISPR/D2/-Get/5GOT/D3/-Open/6OPENoGOToD06OPENnD15GOToLD1/-<</7DISPR/D2/-Get>/7NONE1/D3/-All/8GETALL/D4/-Some/9GETSOME/D5/-Open/6ALL1oOPENoD16OPENnD05GOToLD1/-<</7DISPR/D2/-Get/6ALL1/D3/-Open>/7NONE1/D4/-Quadr/:QUADOPEN/D5/-mx+b/9MXBOPENoGETALLooD0/D0/-Download...nD7.7oD9/D0/-Connect to another TI.oD54/D0/-press [ENTER]ooD16/D1/-Downloading...oD24/D1/-ClipboardoD6o2xoD31/D1/-Equation imageso8MXBpicn9QUADpicoD37/D1/-DoneooTALKoGETSOMEooD7.7nD0/D0/-Talk Engine v.2oD8/D8/-1. Clipboard (x-VAR).oD16/D8/-2. Linear equation pictureoD24/D8/-3. Quadratic equation pictureoGETSOME1oLD1/-<</6TALK/D2/- 1./:ONECHECK/D3/- 2./:TWOCHECK/D4/- 3./:THRCHECK/D5/-OK/:DOWNLOADoGETSOME1oONECHECKo2EXISTS-ONECHECKo<AnsPD0nnD1:ONECHECKnD8/D0/-nn:ONECHECKnD8/D0/-   nobGETSOME1oTWOCHECKo2EXISTS-TWOCHECKo<AnsPD0nnD1:TWOCHECKnD16/D0/-nn:TWOCHECKnD16/D0/-    nobGETSOME1oTHRCHECKo2EXISTS-THRCHECKo<AnsPD0nnD1:THRCHECKnD24/D0/-nn:THRCHECKnD24/D0/-    nobGETSOME1oDOWNLOADooD0/D0/-Talk Engine v.2oD7.7oD8/D0/-Downloading...oD165TMPo2EXISTS-ONECHECKo<AnsPD1no5TMP`D85TMPn5TMP/D6/-Clipboardn2xn:ONECHECKo DEUXnn DEUXnoDEUXo2EXISTS-TWOCHECKo<AnsPD1nn:TWOCHECKo5TMP`D85TMPn5TMP/D6/-Linear equation pictureo8MXBpicn TROISoo TROISooTROISo2EXISTS-THRCHECKo<AnsPD1on:THRCHECKo5TMP`D85TMPn5TMP/D6/-Quadratic equation pictureso9QUADpicnGETSOMEooGETSOMEooo:ONECHECKo:TWOCHECKo:THRCHECKoGETSOMEooooQUADOPENoo9QUADpicooTALKoMXBOPENoo8MXBpicooTALKSetupSEdTOPo9USERPICo9USERGDBo{oonD7.7nD0/D0/-Math InstalleroD8/D0/-Is this Math 86 Special Edition?oD16/D12/-1. Yes, SE.oD24/D12/-2. No, Math 86 NormaloLD2/-1./4SE/D3/-2./5NRMoSEonD7.7nD0/D0/-Math InstalleroD8/D0/-First you should installoD16/D0/-AsapXcmd oLD2/-OK/6ASAP/D3/-Norml/5NRMoASAPo%:asapXCmdo8MathSEoNRMoD15ALGoD05GEOoD902105ZZZo-Equation5EQUo6TEMPnnD0/D0/-No previous equationo9QUADpico8MXBpiconoooo9USERPICn9USERGDBnznoo8Math86	TalkSEEd		9USERPICn9USERGDBnn{nnoTALKonnD7.7nD0/D0/-Talk Engine v.2oD8/D0/-Initializing...oD3D6oD16/D0/-Menuso2EXISTS-OPENn<AnsPD0nnD06OPENnno2EXISTS-GOTn<AnsPD0nnD05GOTnno5GOTPD1oo6OPENPD1ooALL1ooGOTooo6OPENPD1ooOPENooNONE1ooNONE1oD06OPENnD05GOToLD1/-Close/5TOP/D2/-Get/5GOT/D3/-Open/6OPENoALL1oD16OPENnD15GOToLD1/-Close/7DISPR/D2/-Get>/6OPEN/D3/-All/8GETALL/D4/-Some/9GETSOME/D5/-Open>/5GOT/D6/-Quadr/:QUADOPEN/D7/-mx+b/9MXBOPENoNONE1oD06OPENnD05GOToLD1/-Close/7DISPR/D2/-Get/5GOT/D3/-Open/6OPENoGOToD06OPENnD15GOToLD1/-Close/7DISPR/D2/-Get>/7NONE1/D3/-All/8GETALL/D4/-Some/9GETSOME/D5/-Open/6ALL1oOPENoD16OPENnD05GOToLD1/-Close/7DISPR/D2/-Get/6ALL1/D3/-Open>/7NONE1/D4/-Quadr/:QUADOPEN/D5/-mx+b/9MXBOPENoGETALLooD0/D0/-Download...nD7.7oD9/D0/-Connect to another TI.oD54/D0/-press [ENTER]ooD16/D1/-Downloading...oD24/D1/-ClipboardoD6o2xoD31/D1/-Equation imageso8MXBpicn9QUADpicoD37/D1/-DoneooTALKoGETSOMEooD7.7nD0/D0/-Talk Engine v.2oD8/D8/-1. Clipboard (x-VAR).oD16/D8/-2. Linear equation pictureoD24/D8/-3. Quadratic equation pictureoGETSOME1oLD1/-<</6TALK/D2/- 1./:ONECHECK/D3/- 2./:TWOCHECK/D4/- 3./:THRCHECK/D5/-OK/:DOWNLOADoGETSOME1oONECHECKo2EXISTS-ONECHECKo<AnsPD0nnD1:ONECHECKnD8/D0/-nn:ONECHECKnD8/D0/-   noGETSOME1oTWOCHECKo2EXISTS-TWOCHECKo<AnsPD0nnD1:TWOCHECKnD16/D0/-nn:TWOCHECKnD16/D0/-    noGETSOME1oTHRCHECKo2EXISTS-THRCHECKo<AnsPD0nnD1:THRCHECKnD24/D0/-nn:THRCHECKnD24/D0/-    no"GETSOME1oDOWNLOADooD0/D0/-Talk Engine v.2oD7.7oD8/D0/-Downloading...oD165TMPo2EXISTS-ONECHECKo<AnsPD1no5TMP`D85TMPn5TMP/D6/-Clipboardn2xn:ONECHECKoDEUXnnDEUXnoDEUXo2EXISTS-TWOCHECKo<AnsPD1nn:TWOCHECKo5TMP`D85TMPn5TMP/D6/-Linear equation pictureo8MXBpicnTROISoopTROISooTROISo2EXISTS-THRCHECKo<AnsPD1on:THRCHECKo5TMP`D85TMPn5TMP/D6/-Quadratic equation pictureso9QUADpicnxGETSOMEooGETSOMEooo:ONECHECKo:TWOCHECKo:THRCHECKoGETSOMEooooQUADOPENoo9QUADpicoo!TALKoMXBOPENoo8MXBpicooTALKoTOPoDISPRonznn9USERGDBn9USERPICnnoMath1of2B!1()
()AA)	%	%	#@	 @	'00(( A(:MXBpicf2 2F`+*P22ƪP"$bRPQUADpic2@IY*@U+*2)@	 
؉ 1EY@IUHD]8G1UDUwPTY  @ @ @@  @ ``0@pN A @?TEMPpic2$ 6ٶ,ْJ**R*ɒhD1a6B1d0@UTq*ʥTTTP"TU2s!d攔"	Q	
3$90@ٶ*Jѐ;*H;HUPMPpic2@ A @USERPIC2@ A @r
Follow-Ups: