Welcome to Cemetech! Looks nice and useful to me. Here's the source for curious people. BTW, I see a ton of optimizations that need to be made, imho.
::"GUI CREATOR
:ClrDraw
:AxesOff
:FnOff
:ClrHome
:ZStandard
:ZSquare
:Text(0,77,"V1.02"
:Text(‾1,15,15,"GUI CREATOR
:Text(25,32,"BY MATT B
:Text(32,5,"SUPPORTED BY TICALCS.NET
:Text(55,22,"[PRESS ANY KEY]
:Repeat getKey
:End
:Lbl A
:ClrHome
:ClrDraw
:Menu(" CHOOSE ","ADD NEW",ST,"PRESETS",PR,"ERASER",ER,"VIEW",VI,"SYSTEM",OP,"EXIT",EX)
:Lbl ST
:Menu(" CHOOSE ","TEXT",TX,"LINE",LN,"CIRCLE",CR,"BOX",BX,"PEN",PN,"BACK",BK)
:Lbl BX
:RecallPic 5
:0→Xmin
:0→YMax
:94→Xmax
:‾62→Ymin
:15→A
:‾15→B
:45→C
:‾45→D
:0→L
:While 1=1
:RecallPic 5
:Line(A,B,C,B)
:Line(C,B,C,D)
:Line(C,D,A,D)
:Line(A,D,A,B)
:If L=1
:Then
:Line(A-1,B-1,A-1,D-1)
:Line(A-1,D-1,C-1,D-1)
:End
:getKey→K
:If K>0
:Then
:If K=26
:Then
:ClrDraw
:A+1→A
:C+1→C
:End
:If K=95
:Then
:ClrDraw
:A-1→A
:C+1→C
:End
:If K=85
:Then
:ClrDraw
:A+1→A
:C-1→C
:End
:If K=75
:Then
:ClrDraw
:B+1→B
:D-1→D
:End
:If K=65
:Then
:ClrDraw
:B-1→B
:D+1→D
:End
:If K=105
:Then
:StorePic 5
:Goto A
:End
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=24
:Then
:ClrDraw
:A-1→A
:C-1→C
:End
:If K=34
:Then
:ClrDraw
:B-1→B
:D-1→D
:End
:If K=25
:Then
:ClrDraw
:B+1→B
:D+1→D
:End
:If K=63
:Then
:ClrDraw
:1→L
:End
:If K=64
:Then
:ClrDraw
:0→L
:End
:End
:End
:Lbl ER
:RecallPic 5
:StorePic 6
:30→A
:46→B
:1→L
:Lbl ET
:While 1=1
:Pxl-On(A,B)
:getKey→K
:If K>0
:Then
:Pxl-Off(A,B)
:RecallPic 6
:If K=65
:Then
:Pxl-Change(A,B)
:0→F
:While F≤7
:F+1→F
:End
:Pxl-Change(A,B)
:End
:If K=25
:A-1→A
:If K=34
:A+1→A
:If K=24
:B-1→B
:If K=26
:B+1→B
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=75
:Goto ED
:If K=105
:Then
:StorePic 5
:Goto A
:End
:End
:End
:Lbl ED
:While 1=1
:Pxl-Off(A,B)
:getKey→K
:If K>0
:Then
:If K=25
:A-1→A
:If K=34
:A+1→A
:If K=24
:B-1→B
:If K=26
:B+1→B
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=65
:Then
:Pxl-Change(A,B)
:0→F
:While F≤7
:F+1→F
:End
:Pxl-Change(A,B)
:End
:If K=75
:Then
:StorePic 6
:Goto ET
:End
:If K=105
:Then
:StorePic 5
:Goto A
:End
:End
:End
:Lbl PN
:RecallPic 5
:30→A
:45→B
:1→L
:Lbl PT
:While 1=1
:Pxl-On(A,B)
:getKey→K
:If K>0
:Then
:Pxl-Off(A,B
:RecallPic 5
:If K=65
:Then
:Pxl-Change(A,B
:0→F
:While F≤7
:F+1→F
:End
:Pxl-Change(A,B
:End
:If K=25
:A-1→A
:If K=34
:A+1→A
:If K=24
:B-1→B
:If K=26
:B+1→B
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=75
:Goto PD
:If K=105
:Then
:StorePic 5
:Goto A
:End
:End
:End
:Lbl PD
:0→Z
:While 1=1
:Pxl-On(A,B)
:If L=2
:Then
:Pxl-On(A+1,B
:Pxl-On(A-1,B
:Pxl-On(A,B+1
:Pxl-On(A,B-1
:End
:If Z=1
:Then
:StorePic 5
:Goto A
:End
:getKey→K
:If K>0
:Then
:If K=95
:2→L
:If K=85
:1→L
:If K=25
:A-1→A
:If K=34
:A+1→A
:If K=24
:B-1→B
:If K=26
:B+1→B
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=65
:Then
:Pxl-Change(A,B)
:0→F
:While F≤7
:F+1→F
:End
:Pxl-Change(A,B)
:End
:If K=75
:Goto PT
:If K=105
:Then
:1→Z
:End
:End
:End
:Lbl LN
:Menu(" CHOOSE ","HORIZONTAL",HL,"VERTICAL",VL,"BACK",ST)
:
:Lbl PR
:Menu(" CHOOSE ","BORDER",BR,"TITLE BAR",TB,"TABS",TT,"BACK",BK)
:
:Lbl TT
:Menu(" CHOOSE ","CREATE",TA,"LABEL",TL,"BACK",PR)
:Lbl TL
:1→Z
:0→K
:0→A
:RecallPic 5
:While Z≤5
:Lbl TN
:ClrHome
:Disp ""
:Output(1,6,"TAB")
:Output(1,10,Z)
:Input "NAME:",Str6
:length(Str6)→B
:If B>4
:Then
:ClrHome
:Output(2,2,"ERROR:TOO BIG"
:Pause
:Goto TN
:End
:If B=4
:Then
:If Z=1
:2→A
:If Z=2
:21→A
:If Z=3
:40→A
:If Z=4
:58→A
:If Z=5
:77→A
:End
:If B=3
:Then
:If Z=1
:4→A
:If Z=2
:23→A
:If Z=3
:42→A
:If Z=4
:60→A
:If Z=5
:79→A
:End
:If B=2
:Then
:If Z=1
:6→A
:If Z=2
:25→A
:If Z=3
:44→A
:If Z=4
:62→A
:If Z=5
:81→A
:End
:If B=1
:Then
:If Z=1
:9→A
:If Z=2
:28→A
:If Z=3
:45→A
:If Z=4
:65→A
:If Z=5
:83→A
:End
:Text(55,A,Str6)
:StorePic 5
:RecallPic 5
:Repeat getKey
:End
:Z+1→Z
:End
:End
:Lbl TA
:RecallPic 5
:0→L
:While 1=1
:getKey→K
:If K>0
:Then
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=92
:Then
:ClrDraw
:RecallPic 5
:Line(‾14.7,‾7.5,‾9.5,‾7.5)
:Line(‾8.7,‾7.5,‾3.2,‾7.5)
:Line(‾2.7,‾7.5,2.6,‾7.5)
:Line(3.3,‾7.5,8.6,‾7.5)
:Line(9.3,‾7.5,14.5,‾7.5)
:Line(‾15,‾7.9,‾15,‾10)
:Line(15,‾7.9,15,‾10)
:Line(‾9,‾7.9,‾9,‾10)
:Line(‾3,‾7.9,‾3,‾10)
:Line(3,‾7.9,3,‾10)
:Line(9,‾7.9,9,‾10)
:End
:If K=93
:Then
:ClrDraw
:RecallPic 5
:Line(‾15,‾7,15,‾7)
:Line(‾9,‾7,‾9,‾10)
:Line(‾3,‾7,‾3,‾10
:Line(3,‾7,3,‾10)
:Line(9,‾7,9,‾10)
:End
:If K=94
:Then
:ClrDraw
:RecallPic 5
:Line(‾15,‾7,15,‾7)
:Line(‾9,‾7,‾9,‾10)
:Line(‾3,‾7,‾3,‾10
:Line(3,‾7,3,‾10)
:Line(9,‾7,9,‾10)
:Line(‾15,‾7.5,15,‾7.5)
:End
:If K=105
:Then
:StorePic 5
:Goto TT
:End
:End
:End
:Lbl TB
:‾15→A
:6.7→B
:15→C
:6.7→D
:0→Z
:While Z=0
:RecallPic 5
:Line(A,B,C,D)
:getKey→K
:If K>0
:Then
:If K=25
:Then
:‾15→A
:6.7→B
:15→C
:6.7→D
:End
:If K=34
:Then
:‾15→A
:‾6.7→B
:15→C
:‾6.7→D
:End
:If K=24
:Then
:‾12→A
:10→B
:‾12→C
:‾10→D
:End
:If K=26
:Then
:11.5→A
:10→B
:11.5→C
:‾10→D
:End
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=105
:Then
:StorePic 5
:Goto A
:End
:ClrDraw
:End
:End
:Lbl BR
:RecallPic 5
:Line(‾15,10,15,10)
:Line(‾15,10,‾15,‾10)
:Line(‾15,‾10,15,‾10)
:Line(15,‾10,15,10)
:Pause
:StorePic 5
:Goto A
:Lbl CR
:RecallPic 5
:0→Z
:0→X
:0→C
:1→R
:0→θ
:While Z=0
:RecallPic 5
:Pt-On(X,C)
:If θ=1
:Circle(X,C,R)
:0→K
:getKey→K
:If K>0
:Then
:If K=95
:R+1→R
:If K=85
:R-1→R
:If K=75
:1→θ
:If K=65
:0→θ
:If K=25
:Then
:Pt-Off(X,C)
:C+1→C
:End
:If K=34
:Then
:Pt-Off(X,C)
:C-1→C
:End
:If K=24
:Then
:Pt-Off(X,C)
:X-1→X
:End
:If K=26
:Then
:Pt-Off(X,C)
:X+1→X
:End
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=105
:Then
:Pt-Off(X,C)
:StorePic 5
:Goto A
:End
:ClrDraw
:End
:End
:Lbl OP
:Menu(" CHOOSE ","LOAD",LD,"SAVE",SV,"CLEAR",CL,"BACK",BK)
:Lbl BK
:Goto A
:Lbl LD
:Menu(" RecallPic ",Str2,Z,Str3,Y,Str4,X,Str5,W,"BACK",OP)
:Lbl Z
:ClrDraw
:RecallPic 1
:StorePic 5
:Goto VI
:Lbl Y
:ClrDraw
:RecallPic 2
:StorePic 5
:Goto VI
:Lbl X
:ClrDraw
:RecallPic 3
:StorePic 5
:Goto VI
:Lbl W
:ClrDraw
:RecallPic 4
:StorePic 5
:Goto VI
:Lbl VI
:RecallPic 5
:Repeat getKey
:End
:Goto A
:Lbl SV
:Menu(" StorePic ",Str2,1,Str3,2,Str4,3,Str5,4,"BACK",OP)
:Lbl 1
:RecallPic 5
:StorePic 1
:ClrHome
:Input "NAME:",Str2
:
:Goto A
:Lbl 2
:RecallPic 5
:StorePic 2
:ClrHome
:Input "NAME:",Str3
:Goto A
:Lbl 3
:RecallPic 5
:StorePic 3
:ClrHome
:Input "NAME:",Str4
:Goto A
:Lbl 4
:RecallPic 5
:StorePic 4
:ClrHome
:Input "NAME:",Str5
:Goto A
:RecallPic 5
:StorePic 4
:Goto A
:Lbl EX
:ClrDraw
:ClrHome
:AxesOn
:FnOn
:Output(1,1,"
:Stop
:Lbl TX
:ClrHome
:Input "TEXT:",Str1
:0→θ
:27→C
:33→X
:Lbl HT
:ClrDraw
:RecallPic 5
:0→Z
:0→K
:0→U
:0→T
:0→Y
:While Z=0
:RecallPic 5
:If θ=0
:Text(C,X,Str1)
:If θ=1
:Text(‾1,C,X,Str1)
:getKey→K
:If K>0
:Then
:If K=95
:1→θ
:If K=85
:0→θ
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=82
:1→X
:If K=84
:90→X
:If K=73
:1→C
:If K=93
:55→C
:If K=25
:C-2→C
:If K=34
:C+2→C
:If K=24
:X-2→X
:If K=26
:X+2→X
:If K=75
:Goto VT
:If K=105
:Then
:Z+1→Z
:StorePic 5
:End
:ClrDraw
:End
:End
:Goto A
:Lbl VL
:0→Xmin
:‾62→Ymin
:94→Xmax
:0→YMax
:‾20→C
:42→X
:‾42→Z
:0→V
:While V=0
:RecallPic 5
:Line(X,C,X,Z)
:getKey→K
:If K>0
:Then
:If K=22
:Then
:ClrDraw
:ZStandard
:ZSquare
:Goto A
:End
:If K=85
:Then
:C-1→C
:Z+1→Z
:End
:If K=24
:X-1→X
:If K=26
:X+1→X
:If K=95
:Then
:C+1→C
:Z-1→Z
:End
:If K=25
:Then
:C+1→C
:Z+1→Z
:End
:If K=34
:Then
:C-1→C
:Z-1→Z
:End
:If K=105
:Then
:V+1→V
:StorePic 5
:ZStandard
:ZSquare
:End
:ClrDraw
:End
:End
:Goto A
:Lbl HL
:0→Xmin
:94→Xmax
:‾62→Ymin
:0→YMax
:33→A
:63→Z
:‾31→Y
:0→V
:‾31→C
:While V=0
:RecallPic 5
:Line(A,C,Z,C)
:getKey→K
:If K>0
:Then
:If K=22
:Then
:ClrDraw
:ZStandard
:ZSquare
:Goto A
:End
:If K=25
:C+1→C
:If K=34
:C-1→C
:If K=85
:Then
:A+1→A
:Z-1→Z
:End
:If K=95
:Then
:A-1→A
:Z+1→Z
:End
:If K=24
:Then
:X-1→X
:Z-1→Z
:End
:If K=26
:Then
:A+1→A
:Z+1→Z
:End
:If K=105
:Then
:V+1→V
:StorePic 5
:ZStandard
:ZSquare
:End
:ClrDraw
:End
:End
:Goto A
:Lbl CL
:ClrDraw
:StorePic 5
:Goto A
:Lbl VT
:ClrDraw
:RecallPic 5
:1→L
:0→Z
:0→K
:While Z=0
:C→I
:length(Str1)→W
:1→Y
:If L=1
:Then
:RecallPic 5
:While Y≤W
:If θ=0
:Then
:Text(I,X,sub(Str1,Y,1))
:I+7→I
:End
:If θ=1
:Then
:Text(‾1,I,X,sub(Str1,Y,1))
:I+9→I
:End
:Y+1→Y
:End
:0→L
:End
:getKey→K
:If K>0
:Then
:If K=25
:Then
:C-1→C
:1→L
:End
:If K=34
:Then
:C+1→C
:1→L
:End
:If K=24
:Then
:X-1→X
:1→L
:End
:If K=26
:Then
:X+1→X
:1→L
:End
:If K=82
:Then
:1→X
:1→L
:End
:If K=84
:Then
:90→X
:1→L
:End
:If K=73
:Then
:1→C
:1→L
:End
:If K=105
:Then
:StorePic 5
:Goto A
:End
:If K=22
:Then
:ClrDraw
:Goto A
:End
:If K=75
:Goto HT
:If K=95
:Then
:1→θ
:1→L
:End
:If K=85
:Then
:0→θ
:1→L
:End
:ClrDraw
:1→L
:End
:End
Generated by
SourceCoder, © 2005
Cemetech