//Source To Kvad Vizard
//By meekzer0 (Jonathan Henshaw)
//For those of you who don't own a Graphlink!
//Or who want to see how it works..
//\/ means square root
//--> Is the store button
//Things after // are comments (not part of the program)
<=================Your Window should be this wide==================>
:0-->Xmin:94-->Xmax:0-->Ymax:-62-->Ymin //Sets the window vars
:ClrDraw:ClrHome: //Clears home
:Prompt A:Prompt B:Prompt C //Asks the user for the variables
:-B-->D:((B)-(4AC))-->E // This is the
:2A-->F                  // Quadratic Formula (modified)
:abs E-->K               // Makes sure we are using a positive \/
:K-->J            //J will be the square root
:K+1-->Z  // Puts Z to K+1,below it is back to K
:1-->X //X will be the number outside the radical
:While Z>1 // While Z is positive
:Z-1-->Z // Decreae Z
:If \/Z=int \/Z and J/Z=int(J/Z)//Checks If Z is a perfect square,
:Then                             // And if it goes into J Evenly
:J/Z-->J    //If so, divide J by z, store it to J
:\/Z*X-->X //Store square root of Z times to X
:End:End  //End if while and if loops
:F+1-->Y   //Sets Y to F+1,fixed below
:While Y>1 //While Y is positive
:Y-1-->Y //Decrease Y
:If X/Y=int (X/Y) and D/Y=int (D/Y) and F/Y=int (F/Y)//Sees if
:Then:D/Y-->D      // everything can be divided by Y evenly
:X/Y-->X:F/Y-->F//If so,store everything divided by y to itself
:End:End //End while and if loops
:If K(is not equal to)E:-J-->J //If we had a negative square 
:Text(30,10,D)                 //root, make it negative again
:Text(30,40,X) // Displays  "D (plusorminus) X \/J
:Text(30,65,J) //           "----------------------
:Text(38,39,F) //           "         F
:Line(59,-32,62,-36):Line(62,-35,62,-29)//The lines and plusorminus
:Line(62,-29,93,-29):Line(36,-30,36,-32)
:Line(37,-31,35,-31):Line(35,-34,37,-34)
:Line(0,-37,94,-37)