Newbie close command problem

[hcm2011]

Hello all. Just started learning just basic today and am running into a problem I can't seem to google my way out of. Attached is my code so far. All the windows and menus work fine but when I close any window the main window closes as well and I get the following error. Any advice would be appreciated.




insert code here
[start.main]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   BackgroundColor$="black"

   menu #main, "SIZE", "1X1", [onSIZE1X1], "1X2", [onSIZE1X2], "1X3", [onSIZE1X3], "1X4", [onSIZE1X4], "1X5", [onSIZE1X5], "1X6", [onSIZE1X6], "2X2", [onSIZE2X2], "2X3", [onSIZE2X3], "2X4", [onSIZE2X4], "2X5", [onSIZE2X5], "2X6", [onSIZE2X6], "3X3", [onSIZE3X3], "3X4", [onSIZE3X4], "3X5", [onSIZE3X5], "3X6", [onSIZE3X6], "4X4", [onSIZE4X4], "4X5", [onSIZE4X5], "4X6", [onSIZE4X6], "5X5", [onSIZE5X5], "5X6", [onSIZE5X6], "6X6", [onSIZE6X6]

   menu #main, "SAVE", "SAVE", [onSAVESAVE]

   menu #main, "RUN", "RUN EASY-PCB CUTTER", [onRUNRUN]

   open "EASY-PCB VER1.01" for graphics as #main

   print #main, "down; fill black; flush"

   print #main, "trapclose [quit.main]"

   print #main, "font ms_sans_serif 0 16"

   wait

[quit.main]

   Close #main

   END



[onSIZE1X1]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE1X1.graphicbox1, ((WindowWidth-116)/2),((WindowHeight-116)/2), 116, 116

   open "SIZE 1X1" for graphics as #SIZE1X1

   print #SIZE1X1.graphicbox1,"down; fill red; flush"

   print #SIZE1X1, "down; fill black; flush"

   print #SIZE1X1, "trapclose [quit.SIZE1X1]"

   print #SIZE1X1, "font ms_sans_serif 0 16"

   wait

[quit.SIZE1X1]

   Close #SIZE1X1

   END



[onSIZE1X2]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE1X2.graphicbox1, ((WindowWidth-232)/2),((WindowHeight-116)/2), 232, 116

   open "SIZE 1X2" for graphics as #SIZE1X2

   print #SIZE1X2.graphicbox1,"down; fill red; flush"

   print #SIZE1X2, "down; fill black; flush"

   print #SIZE1X2, "trapclose [quit.SIZE1X2]"

   print #SIZE1X2, "font ms_sans_serif 0 16"

   wait

[quit.SIZE1X2]

   Close #SIZE1X2

   END



[onSIZE1X3]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE1X3.graphicbox1, ((WindowWidth-348)/2),((WindowHeight-116)/2), 348, 116

   open "SIZE 1X3" for graphics as #SIZE1X3

   print #SIZE1X3.graphicbox1,"down; fill red; flush"

   print #SIZE1X3, "down; fill black; flush"

   print #SIZE1X3, "trapclose [quit.SIZE1X3]"

   print #SIZE1X3, "font ms_sans_serif 0 16"

   wait

[quit.SIZE1X3]

   Close #SIZE1X3

   END



[onSIZE1X4]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE1X4.graphicbox1, ((WindowWidth-464)/2),((WindowHeight-116)/2), 464, 116

   open "SIZE 1X4" for graphics as #SIZE1X4

   print #SIZE1X4.graphicbox1,"down; fill red; flush"

   print #SIZE1X4, "down; fill black; flush"

   print #SIZE1X4, "trapclose [quit.SIZE1X4]"

   print #SIZE1X4, "font ms_sans_serif 0 16"

   wait

[quit.SIZE1X4]

   Close #SIZE1X4

   END



[onSIZE1X5]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE1X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-116)/2), 580, 116

   open "SIZE 1X5" for graphics as #SIZE1X5

   print #SIZE1X5.graphicbox1,"down; fill red; flush"

   print #SIZE1X5, "down; fill black; flush"

   print #SIZE1X5, "trapclose [quit.SIZE1X5]"

   print #SIZE1X5, "font ms_sans_serif 0 16"

   wait

[quit.SIZE1X5]

   Close #SIZE1X5

   END



[onSIZE1X6]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE1X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-116)/2), 696, 116

   open "SIZE 1X6" for graphics as #SIZE1X6

   print #SIZE1X6.graphicbox1,"down; fill red; flush"

   print #SIZE1X6, "down; fill black; flush"

   print #SIZE1X6, "trapclose [quit.SIZE1X6]"

   print #SIZE1X6, "font ms_sans_serif 0 16"

   wait

[quit.SIZE1X6]

   Close #SIZE1X6

   END



[onSIZE2X2]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE2X2.graphicbox1, ((WindowWidth-232)/2),((WindowHeight-232)/2), 232, 232

   open "SIZE 2X2" for graphics as #SIZE2X2

   print #SIZE2X2.graphicbox1,"down; fill red; flush"

   print #SIZE2X2, "down; fill black; flush"

   print #SIZE2X2, "trapclose [quit.SIZE2X2]"

   print #SIZE2X2, "font ms_sans_serif 0 16"

   wait

[quit.SIZE2X2]

   Close #SIZE2X2

   END



[onSIZE2X3]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE2X3.graphicbox1, ((WindowWidth-348)/2),((WindowHeight-232)/2), 348, 232

   open "SIZE 2X3" for graphics as #SIZE2X3

   print #SIZE2X3.graphicbox1,"down; fill red; flush"

   print #SIZE2X3, "down; fill black; flush"

   print #SIZE2X3, "trapclose [quit.SIZE2X3]"

   print #SIZE2X3, "font ms_sans_serif 0 16"

   wait

[quit.SIZE2X3]

   Close #SIZE2X3

   END



[onSIZE2X4]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE2X4.graphicbox1, ((WindowWidth-464)/2),((WindowHeight-232)/2), 464, 232

   open "SIZE 2X4" for graphics as #SIZE2X4

   print #SIZE2X4.graphicbox1,"down; fill red; flush"

   print #SIZE2X4, "down; fill black; flush"

   print #SIZE2X4, "trapclose [quit.SIZE2X4]"

   print #SIZE2X4, "font ms_sans_serif 0 16"

   wait

[quit.SIZE2X4]

   Close #SIZE2X4

   END



[onSIZE2X5]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE2X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-232)/2), 580, 232

   open "SIZE 2X5" for graphics as #SIZE2X5

   print #SIZE2X5.graphicbox1,"down; fill red; flush"

   print #SIZE2X5, "down; fill black; flush"

   print #SIZE2X5, "trapclose [quit.SIZE2X5]"

   print #SIZE2X5, "font ms_sans_serif 0 16"

   wait

[quit.SIZE2X5]

   Close #SIZE2X5

   END



[onSIZE2X6]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE2X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-232)/2), 696, 232

   open "SIZE 2X6" for graphics as #SIZE2X6

   print #SIZE2X6.graphicbox1,"down; fill red; flush"

   print #SIZE2X6, "down; fill black; flush"

   print #SIZE2X6, "trapclose [quit.SIZE2X6]"

   print #SIZE2X6, "font ms_sans_serif 0 16"

   wait

[quit.SIZE2X6]

   Close #SIZE2X6

   END



[onSIZE3X3]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE3X3.graphicbox1, ((WindowWidth-348)/2),((WindowHeight-348)/2), 348, 348

   open "SIZE 3X3" for graphics as #SIZE3X3

   print #SIZE3X3.graphicbox1,"down; fill red; flush"

   print #SIZE3X3, "down; fill black; flush"

   print #SIZE3X3, "trapclose [quit.SIZE3X3]"

   print #SIZE3X3, "font ms_sans_serif 0 16"

   wait

[quit.SIZE3X3]

   Close #SIZE3X3

   END



[onSIZE3X4]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE3X4.graphicbox1, ((WindowWidth-464)/2),((WindowHeight-348)/2), 464, 348

   open "SIZE 3X4" for graphics as #SIZE3X4

   print #SIZE3X4.graphicbox1,"down; fill red; flush"

   print #SIZE3X4, "down; fill black; flush"

   print #SIZE3X4, "trapclose [quit.SIZE3X4]"

   print #SIZE3X4, "font ms_sans_serif 0 16"

   wait

[quit.SIZE3X4]

   Close #SIZE3X4

   END



[onSIZE3X5]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE3X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-348)/2), 580, 348

   open "SIZE 3X5" for graphics as #SIZE3X5

   print #SIZE3X5.graphicbox1,"down; fill red; flush"

   print #SIZE3X5, "down; fill black; flush"

   print #SIZE3X5, "trapclose [quit.SIZE3X5]"

   print #SIZE3X5, "font ms_sans_serif 0 16"

   wait

[quit.SIZE3X5]

   Close #SIZE3X5

   END



[onSIZE3X6]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE3X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-348)/2), 696, 348

   open "SIZE 3X6" for graphics as #SIZE3X6

   print #SIZE3X6.graphicbox1,"down; fill red; flush"

   print #SIZE3X6, "down; fill black; flush"

   print #SIZE3X6, "trapclose [quit.SIZE3X6]"

   print #SIZE3X6, "font ms_sans_serif 0 16"

   wait

[quit.SIZE3X6]

   Close #SIZE3X6

   END



[onSIZE4X4]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE4X4.graphicbox1, ((WindowWidth-464)/2),((WindowHeight-464)/2), 464, 464

   open "SIZE 4X4" for graphics as #SIZE4X4

   print #SIZE4X4.graphicbox1,"down; fill red; flush"

   print #SIZE4X4, "down; fill black; flush"

   print #SIZE4X4, "trapclose [quit.SIZE4X4]"

   print #SIZE4X4, "font ms_sans_serif 0 16"

   wait

[quit.SIZE4X4]

   Close #SIZE4X4

   END



[onSIZE4X5]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE4X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-464)/2), 580, 464

   open "SIZE 4X5" for graphics as #SIZE4X5

   print #SIZE4X5.graphicbox1,"down; fill red; flush"

   print #SIZE4X5, "down; fill black; flush"

   print #SIZE4X5, "trapclose [quit.SIZE4X5]"

   print #SIZE4X5, "font ms_sans_serif 0 16"

   wait

[quit.SIZE4X5]

   Close #SIZE4X5

   END



[onSIZE4X6]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE4X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-464)/2), 696, 464

   open "SIZE 4X6" for graphics as #SIZE4X6

   print #SIZE4X6.graphicbox1,"down; fill red; flush"

   print #SIZE4X6, "down; fill black; flush"

   print #SIZE4X6, "trapclose [quit.SIZE4X6]"

   print #SIZE4X6, "font ms_sans_serif 0 16"

   wait

[quit.SIZE4X6]

   Close #SIZE4X6

   END



[onSIZE5X5]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE5X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-580)/2), 580, 580

   open "SIZE 5X5" for graphics as #SIZE5X5

   print #SIZE5X5.graphicbox1,"down; fill red; flush"

   print #SIZE5X5, "down; fill black; flush"

   print #SIZE5X5, "trapclose [quit.SIZE5X5]"

   print #SIZE5X5, "font ms_sans_serif 0 16"

   wait

[quit.SIZE5X5]

   Close #SIZE5X5

   END



[onSIZE5X6]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE5X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-580)/2), 696, 580

   open "SIZE 5X6" for graphics as #SIZE5X6

   print #SIZE5X6.graphicbox1,"down; fill red; flush"

   print #SIZE5X6, "down; fill black; flush"

   print #SIZE5X6, "trapclose [quit.SIZE5X6]"

   print #SIZE5X6, "font ms_sans_serif 0 16"

   wait

[quit.SIZE5X6]

   Close #SIZE5X6

   END



[onSIZE6X6]

   WindowWidth = DisplayWidth

   WindowHeight = DisplayHeight

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   BackgroundColor$="black"

   graphicbox #SIZE6X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-696)/2), 696, 696

   open "SIZE 6X6" for graphics as #SIZE6X6

   print #SIZE6X6.graphicbox1,"down; fill red; flush"

   print #SIZE6X6, "down; fill black; flush"

   print #SIZE6X6, "trapclose [quit.SIZE6X6]"

   print #SIZE6X6, "font ms_sans_serif 0 16"

   wait

[quit.SIZE6X6]

   Close #SIZE6X6

   END



[onSAVESAVE]





[onRUNRUN]





[B+]

I removed all your individual trapclose gosubs and replaced with a general sub quit that closes the window's handle read as variable (at the bottom).
All your individual trapclose gosubs were ENDing the program, you just wanted to do that with main, I suppose.

There is an awful lot of redundant code here, there is probably a better way than opening a new window for every size!

You are probably going to want a "nomainwin" line too.

Remember without wait the execution will just slip down and execute the next code block.

PS click the BBC Code tab in editor and loose all the double spaced lines in code window when pasting in code, please!


nomainwin  '<<< add
[start.main]
   WindowWidth = DisplayWidth -100  '<<< change so fits inside display
   WindowHeight = DisplayHeight-100  '<<< change
   BackgroundColor$="black"
   menu #main, "SIZE", "1X1", [onSIZE1X1], "1X2", [onSIZE1X2], "1X3", [onSIZE1X3], "1X4", [onSIZE1X4], "1X5", [onSIZE1X5], "1X6", [onSIZE1X6], "2X2", [onSIZE2X2], "2X3", [onSIZE2X3], "2X4", [onSIZE2X4], "2X5", [onSIZE2X5], "2X6", [onSIZE2X6], "3X3", [onSIZE3X3], "3X4", [onSIZE3X4], "3X5", [onSIZE3X5], "3X6", [onSIZE3X6], "4X4", [onSIZE4X4], "4X5", [onSIZE4X5], "4X6", [onSIZE4X6], "5X5", [onSIZE5X5], "5X6", [onSIZE5X6], "6X6", [onSIZE6X6]
   menu #main, "SAVE", "SAVE", [onSAVESAVE]
   menu #main, "RUN", "RUN EASY-PCB CUTTER", [onRUNRUN]
   open "EASY-PCB VER1.01" for graphics as #main
   print #main, "down; fill black; flush"
   print #main, "trapclose [quit.main]"
   print #main, "font ms_sans_serif 0 16"
   wait
[quit.main]
   Close #main
   END
[onSIZE1X1]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE1X1.graphicbox1, ((WindowWidth-116)/2),((WindowHeight-116)/2), 116, 116
   open "SIZE 1X1" for graphics as #SIZE1X1
   print #SIZE1X1, "trapclose [#SIZE1X1]"
   print #SIZE1X1.graphicbox1,"down; fill red; flush"
   print #SIZE1X1, "down; fill black; flush"
   print #SIZE1X1, "trapclose quit"
   print #SIZE1X1, "font ms_sans_serif 0 16"
   wait
[onSIZE1X2]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE1X2.graphicbox1, ((WindowWidth-232)/2),((WindowHeight-116)/2), 232, 116
   open "SIZE 1X2" for graphics as #SIZE1X2
   print #SIZE1X2.graphicbox1,"down; fill red; flush"
   print #SIZE1X2, "down; fill black; flush"
   print #SIZE1X2, "trapclose quit"
   print #SIZE1X2, "font ms_sans_serif 0 16"
   wait
[onSIZE1X3]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE1X3.graphicbox1, ((WindowWidth-348)/2),((WindowHeight-116)/2), 348, 116
   open "SIZE 1X3" for graphics as #SIZE1X3
   print #SIZE1X3.graphicbox1,"down; fill red; flush"
   print #SIZE1X3, "down; fill black; flush"
   print #SIZE1X3, "trapclose quit"
   print #SIZE1X3, "font ms_sans_serif 0 16"
   wait
[onSIZE1X4]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE1X4.graphicbox1, ((WindowWidth-464)/2),((WindowHeight-116)/2), 464, 116
   open "SIZE 1X4" for graphics as #SIZE1X4
   print #SIZE1X4.graphicbox1,"down; fill red; flush"
   print #SIZE1X4, "down; fill black; flush"
   print #SIZE1X4, "trapclose quit"
   print #SIZE1X4, "font ms_sans_serif 0 16"
   wait
[onSIZE1X5]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE1X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-116)/2), 580, 116
   open "SIZE 1X5" for graphics as #SIZE1X5
   print #SIZE1X5.graphicbox1,"down; fill red; flush"
   print #SIZE1X5, "down; fill black; flush"
   print #SIZE1X5, "trapclose quit"
   print #SIZE1X5, "font ms_sans_serif 0 16"
   wait
[onSIZE1X6]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE1X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-116)/2), 696, 116
   open "SIZE 1X6" for graphics as #SIZE1X6
   print #SIZE1X6.graphicbox1,"down; fill red; flush"
   print #SIZE1X6, "down; fill black; flush"
   print #SIZE1X6, "trapclose quit"
   print #SIZE1X6, "font ms_sans_serif 0 16"
   wait
[onSIZE2X2]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE2X2.graphicbox1, ((WindowWidth-232)/2),((WindowHeight-232)/2), 232, 232
   open "SIZE 2X2" for graphics as #SIZE2X2
   print #SIZE2X2.graphicbox1,"down; fill red; flush"
   print #SIZE2X2, "down; fill black; flush"
   print #SIZE2X2, "trapclose quit"
   print #SIZE2X2, "font ms_sans_serif 0 16"
   wait
[onSIZE2X3]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE2X3.graphicbox1, ((WindowWidth-348)/2),((WindowHeight-232)/2), 348, 232
   open "SIZE 2X3" for graphics as #SIZE2X3
   print #SIZE2X3.graphicbox1,"down; fill red; flush"
   print #SIZE2X3, "down; fill black; flush"
   print #SIZE2X3, "trapclose quit"
   print #SIZE2X3, "font ms_sans_serif 0 16"
   wait
[onSIZE2X4]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE2X4.graphicbox1, ((WindowWidth-464)/2),((WindowHeight-232)/2), 464, 232
   open "SIZE 2X4" for graphics as #SIZE2X4
   print #SIZE2X4.graphicbox1,"down; fill red; flush"
   print #SIZE2X4, "down; fill black; flush"
   print #SIZE2X4, "trapclose quit"
   print #SIZE2X4, "font ms_sans_serif 0 16"
   wait
[onSIZE2X5]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE2X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-232)/2), 580, 232
   open "SIZE 2X5" for graphics as #SIZE2X5
   print #SIZE2X5.graphicbox1,"down; fill red; flush"
   print #SIZE2X5, "down; fill black; flush"
   print #SIZE2X5, "trapclose quit"
   print #SIZE2X5, "font ms_sans_serif 0 16"
   wait
[onSIZE2X6]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE2X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-232)/2), 696, 232
   open "SIZE 2X6" for graphics as #SIZE2X6
   print #SIZE2X6.graphicbox1,"down; fill red; flush"
   print #SIZE2X6, "down; fill black; flush"
   print #SIZE2X6, "trapclose quit"
   print #SIZE2X6, "font ms_sans_serif 0 16"
   wait
[onSIZE3X3]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE3X3.graphicbox1, ((WindowWidth-348)/2),((WindowHeight-348)/2), 348, 348
   open "SIZE 3X3" for graphics as #SIZE3X3
   print #SIZE3X3.graphicbox1,"down; fill red; flush"
   print #SIZE3X3, "down; fill black; flush"
   print #SIZE3X3, "trapclose quit"
   print #SIZE3X3, "font ms_sans_serif 0 16"
   wait
[onSIZE3X4]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE3X4.graphicbox1, ((WindowWidth-464)/2),((WindowHeight-348)/2), 464, 348
   open "SIZE 3X4" for graphics as #SIZE3X4
   print #SIZE3X4.graphicbox1,"down; fill red; flush"
   print #SIZE3X4, "down; fill black; flush"
   print #SIZE3X4, "trapclose quit"
   print #SIZE3X4, "font ms_sans_serif 0 16"
   wait
[onSIZE3X5]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE3X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-348)/2), 580, 348
   open "SIZE 3X5" for graphics as #SIZE3X5
   print #SIZE3X5.graphicbox1,"down; fill red; flush"
   print #SIZE3X5, "down; fill black; flush"
   print #SIZE3X5, "trapclose quit"
   print #SIZE3X5, "font ms_sans_serif 0 16"
   wait
[onSIZE3X6]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE3X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-348)/2), 696, 348
   open "SIZE 3X6" for graphics as #SIZE3X6
   print #SIZE3X6.graphicbox1,"down; fill red; flush"
   print #SIZE3X6, "down; fill black; flush"
   print #SIZE3X6, "trapclose quit"
   print #SIZE3X6, "font ms_sans_serif 0 16"
   wait
[onSIZE4X4]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE4X4.graphicbox1, ((WindowWidth-464)/2),((WindowHeight-464)/2), 464, 464
   open "SIZE 4X4" for graphics as #SIZE4X4
   print #SIZE4X4.graphicbox1,"down; fill red; flush"
   print #SIZE4X4, "down; fill black; flush"
   print #SIZE4X4, "trapclose quit"
   print #SIZE4X4, "font ms_sans_serif 0 16"
   wait
[onSIZE4X5]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE4X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-464)/2), 580, 464
   open "SIZE 4X5" for graphics as #SIZE4X5
   print #SIZE4X5.graphicbox1,"down; fill red; flush"
   print #SIZE4X5, "down; fill black; flush"
   print #SIZE4X5, "trapclose quit"
   print #SIZE4X5, "font ms_sans_serif 0 16"
   wait
[onSIZE4X6]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE4X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-464)/2), 696, 464
   open "SIZE 4X6" for graphics as #SIZE4X6
   print #SIZE4X6.graphicbox1,"down; fill red; flush"
   print #SIZE4X6, "down; fill black; flush"
   print #SIZE4X6, "trapclose quit"
   print #SIZE4X6, "font ms_sans_serif 0 16"
   wait
[onSIZE5X5]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE5X5.graphicbox1, ((WindowWidth-580)/2),((WindowHeight-580)/2), 580, 580
   open "SIZE 5X5" for graphics as #SIZE5X5
   print #SIZE5X5.graphicbox1,"down; fill red; flush"
   print #SIZE5X5, "down; fill black; flush"
   print #SIZE5X5, "trapclose quit"
   print #SIZE5X5, "font ms_sans_serif 0 16"
   wait
[onSIZE5X6]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE5X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-580)/2), 696, 580
   open "SIZE 5X6" for graphics as #SIZE5X6
   print #SIZE5X6.graphicbox1,"down; fill red; flush"
   print #SIZE5X6, "down; fill black; flush"
   print #SIZE5X6, "trapclose quit"
   print #SIZE5X6, "font ms_sans_serif 0 16"
   wait
[onSIZE6X6]
   WindowWidth = DisplayWidth
   WindowHeight = DisplayHeight
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$="black"
   graphicbox #SIZE6X6.graphicbox1, ((WindowWidth-696)/2),((WindowHeight-696)/2), 696, 696
   open "SIZE 6X6" for graphics as #SIZE6X6
   print #SIZE6X6.graphicbox1,"down; fill red; flush"
   print #SIZE6X6, "down; fill black; flush"
   print #SIZE6X6, "trapclose quit"
   print #SIZE6X6, "font ms_sans_serif 0 16"
   wait
[onSAVESAVE]
wait '<<<<<<<<<<<<<<<<<<<<<< add
[onRUNRUN]
wait '<<<<<<<<<<<<<<<<<<< add
sub quit H$
   close #H$
end sub


[hcm2011]

Ty you very much. I will try this out a bit later. Thanks again

[honkytonk]

Hello my try:

   NOMAINWIN
    Width=600: Height = 400
 [reop]
   WindowWidth = Width
   WindowHeight = Height
   UpperLeftX = (DisplayWidth-WindowWidth)-200
   UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
   GRAPHICBOX #w.m 5, 5, Width-15, Height-40
   MENU #w, "Size", "Change", [branchLabel]
   OPEN "Window size" FOR window_nf AS #w
   #w, "TRAPCLOSE [closew]"
  ' #w.m  "down;fill darkgreen"
   r=int(rnd(1)*255) + 1: g=int(rnd(1)*255) + 1: b=int(rnd(1)*255) + 1
   r$=str$(r): g$=str$(g): b$=str$(b): col$=r$+" "+g$+" "+b$
   #w.m  "down;fill ";col$
   wait
 [branchLabel]
   WindowWidth = 100
   WindowHeight = 400
   UpperLeftX = 30
   UpperLeftY = 30
   BUTTON #s.50, "50x50", [50], UL, 10, 10, 60, 25
   BUTTON #s.100, "100x100", [100], UL, 10, 45, 60, 25
   BUTTON #s.300, "300x300", [300], UL, 10, 80, 60, 25
   BUTTON #s.500, "500x500", [500], UL, 10, 115, 60, 25
   BUTTON #s.800, "800x800", [800], UL, 10, 150, 60, 25
   GRAPHICBOX #s.m 5, 5, 85, 360
   if flagws=1 then [pass]
   OPEN "Window" FOR window_nf AS #s
   flagws=1
   [pass]
   #s, "TRAPCLOSE [closes]"
   #s.m  "down;fill darkblue"
wait
[50]
  Width=50: Height = 50: flagws=0: close #w: close #s
  goto [reop]
[100]
  Width=100: Height = 100: flagws=0: close #w: close #s
  goto [reop]
 [300]
  Width=300: Height = 300: flagws=0: close #w: close #s
  goto [reop]
 [500]
  Width=500: Height = 500: flagws=0: close #w: close #s
  goto [reop]
 [800]
  Width=800: Height = 900: flagws=0: close #w: close #s
  goto [reop]
  '-----------------------
[closes]
  flagws=0: close #s
wait
 [closew]
   if flagws=1 then flagws=0: close #s
   CLOSE  #w
   END


[B+]

Nice job cutting down the code. Don't know what you are trying to accomplish with this, to me it is a little confusing, but if it serves your purpose, great!

[honkytonk]

Feb 5, 2019 16:46:26 GMT B+ said:

Nice job cutting down the code. Don't know what you are trying to accomplish with this, to me it is a little confusing, but if it serves your purpose, great!

It's an exemple of open / close for "hcm2011"