'Form resources CON 'enumerated color names #0,Black, Maroon, Green, Olive, Navy, Purple, Teal, Silver, Grey, Red, Lime, Yellow, Blue, Fuchsia, Aqua, White, { }Grey0, NavyBlue, DarkBlue, Blue3, Blue2, Blue1, DarkGreen, DeepSkyBlue4, DeepSkyBlue6, DeepSkyBlue7, DodgerBlue3, { }DodgerBlue2, Green4, SpringGreen4, Turquoise4, DeepSkyBlue3, DeepSkyBlue5, DodgerBlue1, Green3, SpringGreen3, { }DarkCyan, LightSeaGreen, DeepSkyBlue2, DeepSkyBlue1, Green5, SpringGreen5, SpringGreen2, Cyan3, DarkTurquoise, { }Turquoise2, Green1, SpringGreen6, SpringGreen1, MediumSpringGreen, Cyan2, Cyan1, DarkRed, DeepPink4, Purple4, Purple2, { }Purple3, BlueViolet, Orange4, Grey37, MediumPurple4, SlateBlue3, SlateBlue2, RoyalBlue1, Chartreuse4, DarkSeaGreen4, { }PaleTurquoise4, SteelBlue, SteelBlue3, CornflowerBlue, Chartreuse3, DarkSeaGreen5, CadetBlue, CadetBlue1, SkyBlue3, { }SteelBlue1, Chartreuse5, PaleGreen3, SeaGreen3, Aquamarine3, MediumTurquoise, SteelBlue2, Chartreuse2, SeaGreen2, { }SeaGreen1, SeaGreen4, Aquamarine1, DarkSlateGray2, DarkRed1, DeepPink, DarkMagenta, DarkMagenta1, DarkViolet, Purple1, { }Orange, LightPink4, Plum4, MediumPurple3, MediumPurple1, SlateBlue1, Yellow1, Wheat4, Grey53, LightSlateGrey, MediumPurple, { }LightSlateBlue, Yellow4, DarkOliveGreen3, DarkSeaGreen, LightSkyBlue3, LightSkyBlue, SkyBlue2, Chartreuse, DarkOliveGreen, { }PaleGreen, DarkSeaGreen3, DarkSlateGray3, SkyBlue1, Chartreuse1, LightGreen, LightGreen1, PaleGreen1, Aquamarine, { }DarkSlateGray1, Red3, DeepPink1, MediumVioletRed, Magenta3, DarkViolet1, Purple5, DarkOrange3, IndianRed, HotPink3, { }MediumOrchid3, MediumOrchid, MediumPurple5, DarkGoldenrod, LightSalmon3, RosyBrown, Grey63, MediumPurple2, MediumPurple6, { }Gold3, DarkKhaki, NavajoWhite3, Grey69, LightSteelBlue3, LightSteelBlue, Yellow3, DarkOliveGreen1, DarkSeaGreen1, { }DarkSeaGreen2, LightCyan3, LightSkyBlue1, GreenYellow, DarkOliveGreen2, PaleGreen2, DarkSeaGreen6, DarkSeaGreen7, { }PaleTurquoise1, Red1, DeepPink3, DeepPink2, Magenta, Magenta1, Magenta2, DarkOrange, IndianRed1, HotPink, HotPink2, { }Orchid, MediumOrchid1, Orange3, LightSalmon, LightPink3, Pink3, Plum3, Violet, Gold, LightGoldenrod3, Tan, MistyRose3, { }Thistle3, Plum2, Yellow5, Khaki3, LightGoldenrod2, LightYellow3, Grey84, LightSteelBlue1, Yellow2, DarkOliveGreen4, { }DarkOliveGreen5, DarkSeaGreen8, Honeydew2, LightCyan1, Red2, DeepPink5, DeepPink6, DeepPink7, Magenta4, Magenta5, OrangeRed1, { }IndianRed2, IndianRed3, HotPink1, HotPink4, MediumOrchid2, DarkOrange1, Salmon1, LightCoral, PaleVioletRed1, Orchid2, Orchid1, { }Orange1, SandyBrown, LightSalmon1, LightPink1, Pink1, Plum1, Gold1, LightGoldenrod, LightGoldenrod1, NavajoWhite1, { }MistyRose1, Thistle1, Yellow6, LightGoldenrod4, Khaki1, Wheat1, Cornsilk1, Grey100, Grey3, Grey7, Grey11, Grey15, Grey19, { }Grey23, Grey27, Grey30, Grey35, Grey39, Grey42, Grey46, Grey50, Grey54, Grey58, Grey62, Grey66, Grey70, Grey74, Grey78, { }Grey82, Grey85, Grey89, Grey93 CON 'Screen size parameters Cols = 120 'characters are 16 pixels wide Rows = 68 ' 16 pixels tall (two 16-pixel rows per character) DAT 'Form6 Resources - Slider Color Test orgh 'Form6String Resources sTitleForm6 byte "Slider & Palette Test",0 Form6 long 20 '0 top long 6 '1 left long 60 '2 width long 30 '3 height long DarkGreen long Silver '5 fill color long sTitleForm6 '6 title string long Yellow '7 title text color 'start of object pointer list long Form6Text1 long Form6Button1 long Form6Slider1 long Form6Slider2 long Form6Slider3 long Form6Button2 long Form6Text2 'end of object pointer list long 0 Form6Slider1 long 8 '0 type 8=Horizontal graphical slider long 10 '1 top long 10 '2 left long slider1width '3 width long slider1height '4 height long 0 '5 data long Silver '6 background color long Maroon '7 horizontal Bar and tic color long CornflowerBlue '8 Outside of Vertical Line long White '9 Center of Vertical line long 255 '10 Max. Value long 0 '11 Min. Value long 30 '12 Current Value long 30 '13 Current pixel offset long 10'5 '14 Number of tics long 0 '15 Style 0=horizontal, 1=vertical long 0[slider1height*slider1width*16] 'Store for graphics slider pixels Form6Slider2 long 8 '0 type 8=Horizontal graphical slider long 14 '1 top long 10 '2 left long slider1width '3 width long slider1height '4 height long 0 '5 data long Silver '6 background color long DarkGreen '7 horizontal Bar and tic color long CornflowerBlue '8 Outside of Vertical Line long White '9 Center of Vertical line long 255 '10 Max. Value long 0 '11 Min. Value long 30 '12 Current Value long 30 '13 Current pixel offset long 5 '14 Number of tics long 0 '15 Style 0=horizontal, 1=vertical long 0[slider1height*slider1width*16] 'Store for graphics slider pixels Form6Slider3 long 8 '0 type 8=Horizontal graphical slider long 18 '1 top long 10 '2 left long slider1width '3 width long slider1height '4 height long 0 '5 data long Silver '6 background color long DarkBlue '7 horizontal Bar and tic color long CornflowerBlue '8 Outside of Vertical Line long White '9 Center of Vertical line long 255 '10 Max. Value long 0 '11 Min. Value long 30 '12 Current Value long 30 '13 Current pixel offset long 3 '14 Number of tics long 0 '15 Style 0=horizontal, 1=vertical long 0[slider1height*slider1width*16] 'Store for graphics slider pixels Form6Text1 long 2 '0 type 2=text long 3 '1 top long 3 '2 left long 58-22 '3 width long 4 '4 height long 0 '5 data long Black '6 text fore color byte "Use the sliders to select RGB levels",13 byte "Form shows best match from palette",0 Form6Text2 long 2 '0 type 2=text long 21 '1 top long 6 '2 left long 58-22 '3 width long 6 '4 height long 0 '5 data long Black '6 text fore color byte "Best Match:",13 byte " Index= ",13 byte " RGB = ",0 Form6Button1 long 1 'Object Type 1=button '0 long 25 'Top '1 long 35 'Left '2 long 28-22+2 'Width '3 long 4 'Height '4 long 0 '5 data long Purple 'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Silver 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Return",0 Form6Button2 long 1 'Object Type '0 long 10 'Top '1 long 38 'Left '2 long 10 'Width '3 long 10 'Height '4 long 0 '5 data long Red 'Text fore Color '6 long Cyan1 'text back color '7 long Grey50 'Top-left Border color '8 long Grey84 'bot-right Border color '9 long Silver 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte " ",0 DAT 'Form5 Resources - Cogged Graphics Demo orgh 'Form5String Resources sTitleForm5 byte "Super Graphics Demo",0 Form5 long 20 '0 top long 6 '1 left long 60 '2 width long 40 '3 height long DarkGreen long Grey '5 fill color long sTitleForm5 '6 title string long Silver '7 title text color 'start of object pointer list long Form5Text1 long Form5Button1 'end of object pointer list long 0 Form5Text1 long 2 '0 type 2=text long 3 '1 top long 3 '2 left long 77-22 '3 width long 4 '4 height long 0 '5 data long Black '6 text fore color byte "This version uses it's own cog for graphics",13 byte "4X more pixels than original",0 Form5Button1 long 1 'Object Type 1=button '0 long 10 'Top '1 long 35 'Left '2 long 28-22+2 'Width '3 long 4 'Height '4 long 0 '5 data long Purple 'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Grey 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Return",0 DAT 'Form4 Resources - Cogged Graphics Demo orgh 'Form4String Resources sTitleForm4 byte "Graphics Demo (Cogged)",0 Form4 long 20 '0 top long 6 '1 left long 60 '2 width long 40 '3 height long DarkGreen long Grey '5 fill color long sTitleForm4 '6 title string long Silver '7 title text color 'start of object pointer list long Form4Text1 long Form4Button1 'end of object pointer list long 0 Form4Text1 long 2 '0 type 2=text long 3 '1 top long 3 '2 left long 77-22 '3 width long 4 '4 height long 0 '5 data long Black '6 text fore color byte "This version uses it's own cog for graphics",13 byte "It is much faster...",0 Form4Button1 long 1 'Object Type 1=button '0 long 10 'Top '1 long 30 'Left '2 long 28-22+2 'Width '3 long 4 'Height '4 long 0 '5 data long Purple 'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Grey 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Return",0 DAT 'Form3 Resources - Cogless Graphics Demo orgh 'Form3String Resources sTitleForm3 byte "Graphics Demo (Cogless)",0 Form3 long 20 '0 top long 6 '1 left long 60 '2 width long 40 '3 height long DarkGreen long Grey '5 fill color long sTitleForm3 '6 title string long Silver '7 title text color 'start of object pointer list long Form3Text1 long Form3Button1 long Form3Text2 'end of object pointer list long 0 Form3Text1 long 2 '0 type 2=text long 3 '1 top long 3 '2 left long 77-22 '3 width long 4 '4 height long 0 '5 data long Black '6 text fore color byte "This version uses space cycles in color cog so is a bit",13 byte "slow but doesn't need it's own cog",0 Form3Text2 long 2 '0 type 2=text long 35 '1 top long 3 '2 left long 77-22 '3 width long 4 '4 height long 0 '5 data long Black '6 text fore color byte "It slows down the mouse because both cursor and graphics",13 byte "updates done by main cog. Might try to fix...",0 Form3Button1 long 1 'Object Type 1=button '0 long 10 'Top '1 long 30 'Left '2 long 28-22+2 'Width '3 long 4 'Height '4 long 0 '5 data long Purple 'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Grey 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Return",0 DAT 'Form2 Resources - Pin Monitor orgh Form2 long 20 '0 top long 6 '1 left long 100 '2 width long 30 '3 height long DarkRed '4 border color long Silver '5 fill color long sTitleForm2 '6 title string long Lime '7 title text color 'start of object pointer list long Form2Button1 long Form2LedArray1 long Form2LedArray2 long Form2LedArray3 long Form2LedArray4 long Form2LedArray5 long Form2LedArray6 long Form2Text1 long Form2Text2 long Form2Text3 'end of object pointer list long 0 'Form2String Resources sTitleForm2 byte "Pin Monitor",0 Form2Button1 long 1 'Object Type 1=button '0 long 25 'Top '1 long 80 'Left '2 long 12 'Width '3 long 4 'Height '4 long 0 '5 data long Purple 'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Silver 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Done",0 Form2LedArray1 'INA long 7 '0 type 4=LED ARRAY long 10 '1 top long 20 '2 left long 32*2 '3 width long 2 '4 height long 0 '5 data long Lime '6 LED On Color long Grey11 '7 LED Off Color long 0 '8 Direction '0=horizontal long 32 '9 Number in array, up to 32 long $F0A1_F123 '10 LED On/Off data '1=on, 0=off 'LSB first Form2LedArray2 'INB long 7 '0 type 4=LED ARRAY long 18 '1 top long 20 '2 left long 32*2 '3 width long 2 '4 height long 0 '5 data long Lime '6 LED On Color long Grey11 '7 LED Off Color long 0 '8 Direction '0=horizontal long 32 '9 Number in array, up to 32 long $F0A1_F123 '10 LED On/Off data '1=on, 0=off 'LSB first Form2LedArray3 'OUTA long 7 '0 type 4=LED ARRAY long 12 '1 top long 20 '2 left long 32*2 '3 width long 2 '4 height long 0 '5 data long DodgerBlue1 '6 LED On Color long Grey11 '7 LED Off Color long 0 '8 Direction '0=horizontal long 32 '9 Number in array, up to 32 long $F0A1_F123 '10 LED On/Off data '1=on, 0=off 'LSB first Form2LedArray4 'OUTB long 7 '0 type 4=LED ARRAY long 20 '1 top long 20 '2 left long 32*2 '3 width long 2 '4 height long 0 '5 data long DodgerBlue1 '6 LED On Color long Grey11 '7 LED Off Color long 0 '8 Direction '0=horizontal long 32 '9 Number in array, up to 32 long $F0A1_F123 '10 LED On/Off data '1=on, 0=off 'LSB first Form2LedArray5 'DIRA long 7 '0 type 4=LED ARRAY long 14 '1 top long 20 '2 left long 32*2 '3 width long 2 '4 height long 0 '5 data long Yellow '6 LED On Color long Grey11 '7 LED Off Color long 0 '8 Direction '0=horizontal long 32 '9 Number in array, up to 32 long $F0A1_F123 '10 LED On/Off data '1=on, 0=off 'LSB first Form2LedArray6 'DIRB long 7 '0 type 4=LED ARRAY long 22 '1 top long 20 '2 left long 32*2 '3 width long 2 '4 height long 0 '5 data long Yellow '6 LED On Color long Grey11 '7 LED Off Color long 0 '8 Direction '0=horizontal long 32 '9 Number in array, up to 32 long $F0A1_F123 '10 LED On/Off data '1=on, 0=off 'LSB first Form2Text1 long 2 '0 type 2=text long 6 '1 top long 20 '2 left long 85-22 '3 width long 4 '4 height long 0 '5 data long Black '6 text fore color byte "3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 ",13 byte "1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0",0 Form2Text2 long 2 '0 type 2=text long 10 '1 top long 15 '2 left long 85-22 '3 width long 4 '4 height long 0 '5 data long Black '6 text fore color byte "INA",13,"OUTA",13,"DIRA",13,13,"INB",13,"OUTB",13,"DIRB",0 Form2Text3 long 2 '0 type 2=text long 3 '1 top long 8 '2 left long 85-22 '3 width long 4 '4 height long 0 '5 data long Black '6 text fore color byte "Left click on any OUT or DIR LED to toggle state (be careful!)",0 CON 'Form1 Constants 'Need slider dimensions to allocate memory slider1width=18 slider1height=2 'Need slider dimensions to allocate memory slider2width=2 slider2height=18 'Need graphic scratchpad dimensions to allocate memory graphic1width=6 graphic1height=4 'Need slider dimensions to allocate memory progress1width=18 progress1height=1 DAT 'Form1 Resources orgh Form1 long 1 '0 top long 2 '1 left long cols-4 '2 width long rows-3 '3 height long Navy '4 border color long Silver '5 fill color long sTitleForm1 '6 title string long Yellow '7 title text color 'start of object pointer list long Form1Group1 '8 beginning of list of pointers to form object long Form1Button1 long Form1Button2 long Form1Button3 long Form1Text1 long Form1Led1 long Form1Led2 long Form1Led3 long Form1Led4 long Form1Text2 long Form1Text3 long Form1Text4 long Form1Text5 long Form1Text6 long Form1Text7 long Form1Button4 long Form1Button5 long Form1Option1 long Form1Option2 long Form1Check1 long Form1Check2 long Form1Button6 long Form1Button7 long Form1Button8 long Form1Button9 long Form1Slider1 long Form1Slider2 long Form1Button10 long Form1Graphic1 long Form1Primative1 long Form1Progress1 'long Form1Primative1 'end of object pointer list long 0 'Form1 String Resources sTitleForm1 byte "Test Form",0 Form1Progress1 'ProgressBar long 11 '0 type 11=Progress Bar long 40 '1 top long 30 '2 left long Progress1width '3 width long Progress1height '4 height long 0 '5 data long Silver '6 background color long Grey42 '7 range bar long Aquamarine1 '8 progress bar long White '9 text color long 100 '10 Max. Value long 0 '11 Min. Value long 80 '12 Current Value long 220 '13 Current pixel offset long 10 '14 Where to draw value? long 0 '15 Style 0=rounded long 0[progress1height*progress1width*16] 'Store for graphics slider pixels Form1Graphic1 'Graphics Area (scratchpad for drawing 2-bit graphics) long 9 '0 type 8=Graphical slider long 40 '1 top long 7 '2 left long graphic1width '3 width long graphic1height '4 height long 0 '5 data long Lime '6 color 0 long Black '7 color 1 long Red '8 color 2 long White '9 color 3 long 0 '10 x origin pixel long (graphic1height<<4)/2 '11 y origin pixel long 0[graphic1height*graphic1width*16] 'Store for graphics slider pixels Form1Primative1 long 'Graphical Primative - Vector Font String using Hershey format long 10 '0 type 10=Graphical Vector Font String long 0 '1 top=y-offset from graphics origin long 0 '2 left=x-offset from graphics origin long 512 '3 width scale 256=1X long 512 '4 height scale 256=1X long 0 '5 data long 1 '6 color number (0..3) long 2 '7 width to draw with long Form1Graphic1 '8 graphics area on which to draw long 0 '9 Type: 0=Hershey String byte "16MWOMOV ROMSMUNUPSQ ROQSQURUUSVOV",13 byte "48F^RTTWVXXXZW[U[SZQXPVPSQ RSQUOVMVKUISHQHOINKNMOOQQ RQQNPLPJQISIUJWLXNXPWRT RRTQYP\ RRTSYT\ RP\T\",13 byte "11MXVNTMRMPNOPOSPURVTVVU",0 Form1Slider1 'Horizontal slider long 8 '0 type 8=Graphical slider long 35 '1 top long 30 '2 left long slider1width '3 width long slider1height '4 height long 0 '5 data long Silver '6 background color long Black '7 range Bar and tic color long CornflowerBlue '8 Outside of position Line long White '9 Center of position line long 255 '10 Max. Value long 0 '11 Min. Value long 30 '12 Current Value long 30 '13 Current pixel offset long 10 '14 Number of tics long 0 '15 Style 0=horizontal, 1=vertical long 0[slider1height*slider1width*16] 'Store for graphics slider pixels Form1Slider2 'Vertical slider long 8 '0 type 8=Graphical slider long 32 '1 top long 4 '2 left long slider2width '3 width long slider2height '4 height long 0 '5 data long Silver '6 background color long Navy '7 range Bar and tic color long Black '8 Outside of position Line long Gold '9 Center of position line long 255 '10 Max. Value long 0 '11 Min. Value long 30 '12 Current Value long 30 '13 Current pixel offset long 10 '14 Number of tics long 1 '15 Style 0=horizontal, 1=vertical long 0[slider2height*slider2width*16] 'Store for graphics slider pixels Form1Check1 long 6 '0 type 6=Check long 20 '1 top long 30 '2 left long 41-22 '3 width long 2 '4 height long 0 '5 data long Black '6 text fore color long Black '7 Outer Color long CornflowerBlue '8 Inner Color long Silver '9 Check Color long 1 '10 Value 0=not selected byte "Check Box - Checked",0 Form1Check2 long 6 '0 type 6=Check long 22 '1 top long 30 '2 left long 45-22 '3 width long 2 '4 height long 0 '5 data long Black '6 text fore color long Black '7 Outer Color long CornflowerBlue '8 Inner Color long Silver '9 Check Color long 0 '10 Value 0=not selected byte "Check Box - Not Checked",0 Form1Option1 long 5 '0 type 5=Option long 14 '1 top long 30 '2 left long 46-22 '3 width long 2 '4 height long 0 '5 data long DarkBlue '6 text fore color long Red1 '7 Outer Color long Silver '8 Inner Color long Black '9 Core Color long 1 '10 Group# '0=no group long 1 '11 Value 0=not selected byte "Option from 2 bpp bitmap",0 Form1Option2 long 5 '0 type 5=Option long 16 '1 top long 30 '2 left long 46-22 '3 width long 2 '4 height long 0 '5 data long DarkBlue '6 text fore color long Red1 '7 Outer Color long Silver '8 Inner Color long Black '9 Core Color long 1 '10 Group# '0=no group long 0 '11 Value 0=not selected byte "This one not selected...",0 Form1Led1 long 4 '0 type 4=LED long 10 '1 top long 70 '2 left long 53-22 '3 width long 2 '4 height long 0 '5 data long DarkGreen '6 text fore color long Red1 '7 LED Color byte "LED Indicator from 2 bpp bitmap",0 Form1Led2 long 4 '0 type 4=LED long 12 '1 top long 70 '2 left long 33-22 '3 width long 2 '4 height long 0 '5 data long NavyBlue '6 text fore color long Yellow '7 LED Color byte "Another LED",0 Form1Led3 long 4 '0 type 4=LED long 14 '1 top long 70 '2 left long 37-22 '3 width long 2 '4 height long 0 '5 data long DeepPink4 '6 text fore color long Turquoise2 '7 LED Color byte "Yet another LED",0 Form1Led4 long 4 '0 type 4=LED long 16 '1 top long 70 '2 left long 37-22 '3 width long 2 '4 height long 0 '5 data long DarkRed '6 text fore color long Grey11 '7 LED Color byte "This one is OFF",0 Form1Text1 long 2 '0 type 2=text long 5 '1 top long 3 '2 left long 27 '3 width long 2 '4 height long 0 '5 data long DarkGreen '6 text fore color byte "Try these buttons :)",0 Form1Text2 long 2 '0 type 2=text long 50 '1 top long 4 '2 left long 90-22 '3 width long 2 '4 height long 0 '5 data long BlueViolet '6 text fore color byte "Set of 256 colors borrowed from: https://jonasjacek.github.io/colors/",0 Form1Text3 long 2 '0 type 2=text long 52 '1 top long 4 '2 left long 65-22 '3 width long 2 '4 height long 0 '5 data long Orange4 '6 text fore color byte "1080p Screen is 120x68 of 16x16 pixel tiles",0 Form1Text4 long 2 '0 type 2=text long 54 '1 top long 4 '2 left long 101-22 '3 width long 2 '4 height long 0 '5 data long Blue3 '6 text fore color byte "Only top half of bottom row of tiles is visible because 1080/16=67.5 and not 68",0 Form1Text5 long 2 '0 type 2=text long 56 '1 top long 4 '2 left long 119-22 '3 width long 2 '4 height long 0 '5 data long Teal '6 text fore color byte "This example uses P1 ROM Font and is two tiles tall (16x32 pixels). Other fonts could be used...",0 Form1Text6 long 2 '0 type 2=text long 56 '1 top long 4 '2 left long 117-22 '3 width long 2 '4 height long 0 '5 data long LightSlateBlue '6 text fore color byte "Each character can be any of the 256 colors in the palette for background and foreground colors",0 Form1Text7 long 2 '0 type 2=text long 58 '1 top long 4 '2 left long 125-22 '3 width long 2 '4 height long 0 '5 data long DarkMagenta '6 text fore color byte "Uses 3 cogs to do the 1080p VGA: One outputs pixels, one builds the scanlines, another sets LUT colors",0 Form1Group1 long 3 '0 type 3=group box long 10 '1 top long 28 '2 left long 35 '3 width long 20 '4 height long 0 '5 data long Black '6 text fore color long Black '7 border color byte "Test Group",0 Form1Button1 long 1 'Object Type 1=button '0 long 35 'Top '1 long 18 'Left '2 long 11 'Width '3 long 4 'Height '4 long 0 '5 data long LightSkyBlue1 'Text fore Color '6 long NavyBlue 'text back color '7 long NavyBlue 'Border color '8 long Lime 'highlighted border color '9 long Silver 'outside color '10 long NavyBlue 'inside color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 1 'Style: 0=square, 1=round '14 byte "OK",0 Form1Button2 long 1 'Object Type '0 long 39 'Top '1 long 18 'Left '2 long 11 'Width '3 long 4 'Height '4 long 0 '5 data long LightSkyBlue1 'Text fore Color '6 long NavyBlue 'text back color '7 long NavyBlue 'Border color '8 long Lime 'highlighted border color '9 long Silver 'outside color '10 long NavyBlue 'inside color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 1 'Style: 0=square, 1=round '14 byte "Push Me",0 Form1Button3 long 1 'Object Type '0 long 43 'Top '1 long 18 'Left '2 long 11 'Width '3 long 4 'Height '4 long 0 '5 data long LightSkyBlue1 'Text fore Color '6 long NavyBlue 'text back color '7 long NavyBlue 'Border color '8 long Lime 'highlighted border color '9 long Silver 'outside color '10 long NavyBlue 'inside color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 1 'Style: 0=square, 1=round '14 byte "Later",0 Form1Button4 long 1 'Object Type '0 long 39 'Top '1 long 50 'Left '2 long 17 'Width '3 long 4 'Height '4 long 0 '5 data long Red 'Text fore Color '6 long Cyan1 'text back color '7 long Grey50 'Top-left Border color '8 long Grey84 'bot-right Border color '9 long Silver 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Sunken",0 Form1Button5 long 1 'Object Type '0 long 43 'Top '1 long 50 'Left '2 long 17 'Width '3 long 4 'Height '4 long 0 '5 data long Black 'Text fore Color '6 long Aquamarine1 'text back color '7 long Grey50 'Top-left Border color '8 long Grey84 'bot-right Border color '9 long Yellow 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Highlighted",0 Form1Button6 long 1 'Object Type '0 long 7 'Top '1 long 4 'Left '2 long 13 'Width '3 long 4 'Height '4 long 0 '5 data long Black'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Silver 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Pin Monitor",0 Form1Button7 long 1 'Object Type '0 long 11 'Top '1 long 4 'Left '2 long 43-22+2 'Width '3 long 4 'Height '4 long 0 '5 data long Black'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Silver 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Cogless Graphics Demo",0 Form1Button8 long 1 'Object Type '0 long 15 'Top '1 long 4 'Left '2 long 43-22+2 'Width '3 long 4 'Height '4 long 0 '5 data long Black'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Silver 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Cogged Graphics Demo ",0 Form1Button9 long 1 'Object Type '0 long 19 'Top '1 long 4 'Left '2 long 43-22+2 'Width '3 long 4 'Height '4 long 0 '5 data long Black'Text fore Color '6 long Silver 'text back color '7 long Grey84 'Top-left Border color '8 long Grey50 'bot-right Border color '9 long Silver 'Outer border color '10 long LightCyan3 'Mouse over color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 0 'Style: 0=square, 1=round '14 byte "Super Graphics Demo",0 Form1Button10 long 1 'Object Type 1=button '0 long 23 'Top '1 long 4 'Left '2 long 39-22+6 'Width '3 long 4 'Height '4 long 0 '5 data long White 'Text fore Color '6 long Purple 'text back color '7 long Purple 'Border color '8 long Lime 'highlighted border color '9 long Silver 'outside color '10 long Purple 'inside color '11 long 0 'Hot Key position (0 for none) '12 long Red 'Hot key color '13 long 1 'Style: 0=square, 1=round '14 byte "Slider Color Test",0