Heres my First Basic code (no done)

Subject:

Comments:
: cls : Input Cow$ : Let Cow1$ = "a" : If Cow$ = Cow1$ then : cls : For q = 1 To 25 : For dot = 1 to 1000 : x = Random(0,320) : y = Random(0,240) : c = Random(0,236) : Color c : PSet x,y : Next dot : Next Q : Endif : cls : Gosub Linecolor : Let Circl = 0 : let super = 1 : Let Q = 2 : Let RectYN = 1 : Let m = 0 : Let Rect$ = "N/A" : Let C = 1 : Let Circlesize = 1 : Let Rectsize = 1 : cish: : line 275,0 To 275,250 : rect 276,30 To 290,40 : rect 290,30 To 304,40 : Gosub ColorBox : rect 276,40 To 290,50 : rect 290,40 To 304,50 : rect 304,40 To 318,50 : rect 276,50 To 290,60 : rect 290,50 To 304,60 : rect 304,50 To 318,60 : While super : SetTextLayer(TEXT) : TextColor 21 'Black Is Black : Position 34,4 : print "R Size" : Position 35,5 : Print Rectsize : Position 35,6 : Print "Rect" : Position 34,7 : Print Rect$ : Color C : If ClickRect (276,50 To 290,60) Then : If m = 0 Then : Let Circl = 1 : Let m = 1 : Let RectYN = 1 : Goto Done3 : endif : If m = 1 Then : Let Circl = 2 : Let m = 2 : Let RectYN = 1 : Goto Done3 : endif : If m = 2 Then : Let Circl = 0 : Let m = 0 : Let RectYN = 1 : Goto Done3 : endif : endif : If ClickRect (290,50 To 304,60) Then : Circlesize = Circlesize + 1 : endif : If ClickRect (304,50 To 318,60) Then : Circlesize = Circlesize - 1 : endif : If ClickRect (276,40 To 290,50) Then : If Q = 2 Then : Let RectYN = 0 : Let Rect$ = "Outline" : Let Q = 0 : Let Circl = 0 : Goto Done3 : endif : If Q = 0 Then : Let Q =1 : Let Rect$ = "Fill" : Let RectYN = 1 : Let Circl = 0 : goto Done3 : endif : If Q = 1 Then : Let Q =2 : Let Rect$ = "N/A" : Let RectYN = 2 : Let Circl = 0 : Done3: : endif : Endif : If Clickrect (290,40 To 304,50) Then : Let Rectsize = Rectsize + 1 : endif : If Clickrect (304,40 To 318,50) Then : If Rectsize = 0 Then : Goto Don6 : Endif : RectSize = Rectsize - 1 : Don6: : endif : If ClickRect (276,30 To 290,40) Then : If C = 235 Then : banner"No Can do" : Goto Nope1 : endif : C = C + 1 : Gosub ColorBox : endif : If ClickRect (290,30 To 304,40) Then : If C = 0 Then : banner"No Can do" : Goto Nope2 : endif : C = C - 1 : Gosub ColorBox : Nope2: : endif : : If Button Then : If MouseX > 275 Then : Goto Nodraw : endif : If Circl = 1 Then : If Mousex + Circlesize > 275 Then : Goto Nodraw : Endif : Circle MouseX,MouseY,Circlesize : Goto nodraw : endif : If Circl = 2 Then : If Mousex + Circlesize > 275 Then : Goto Nodraw : endif : FillCircle MouseX,MouseY,Circlesize : Goto nodraw : endif : If RectYN = 0 Then : If Mousex + Rectsize > 275 Then : Goto Nodraw : Endif : RectCord1X = MouseX - Rectsize : RectCord1Y = MouseY - Rectsize : RectCord2X = MouseX + Rectsize : RectCord2Y = MouseY + Rectsize : Rect RectCord1x,RectCord1Y To RectCord2X,RectCord2y : Goto Nodraw : endif : If RectYN = 2 Then : If Mousex + Rectsize > 275 Then : Goto Nodraw : Endif : RectCord1X = MouseX - Rectsize : RectCord1Y = MouseY - Rectsize : RectCord2X = MouseX + Rectsize : RectCord2Y = MouseY + Rectsize : fillRect RectCord1x,RectCord1Y To RectCord2X,RectCord2y : Goto Nodraw : endif : Pset Mousex,MouseY : Nodraw: : endif : If KeyDown ("q") or KeyDown ("Q") Then : Goto Done : endif : If KeyDown ("c") or KeyDown ("C") Then : Banner "Clearing........." : Cls : Goto Cish : endif : Wend : Done: : ColorBox: : Fillrect 304,30 To 318,40 : Return : LineColor: : C = 6 : Return : ---------------------------- : Welcome Jennifer. To all - As if you care but i will be stopping my rpg toolkit work for a while. : :=3( : (the three and equals are a nose)

Optional Link URL:
Link Title:
Optional Image URL: