/****************************************************************************


hild.rc

produced by Borland Resource Workshop


*****************************************************************************/

#define DIALOG_1	1
#define Main	1

Main DIALOG 6, 15, 269, 219
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION
CLASS "bordlg"
FONT 10, "System"
{
 CONTROL " $AuxText$2", 101, "BBC_CC09_Button", 65 | WS_CHILD | WS_VISIBLE, 120, 131, 32, 20
 CONTROL " $AuxText$2", 102, "BBC_CC09_Button", 65 | WS_CHILD | WS_VISIBLE, 120, 107, 32, 20
 CONTROL " $AuxText$2", 103, "BBC_CC09_Button", 65 | WS_CHILD | WS_VISIBLE, 120, 83, 32, 20
 CONTROL " $AuxText$2", 104, "BBC_CC09_Button", 65 | WS_CHILD | WS_VISIBLE, 120, 59, 32, 20
 CONTROL " $AuxText$2", 105, "BBC_CC09_Button", 65 | WS_CHILD | WS_VISIBLE, 120, 35, 32, 20
}


STRINGTABLE 
{
 30000, "PS 1 :EB 0 :EI Show panel 1, hide background"
 30001, "TP '/F0' 1 101 :TP '/B0' 1 102 :TP '/9F' 1 103 :TP '/4F' 1 104 :TP '/2F' 1 105 :EI Colour the buttons"
 30002, "NL 7 D% :EI Load driver number for GPI"
 30003, "GR D% 25 29 200 1 :EI Register device 7 for SantaPod outputs, send revertives to line 200 + GPI number"
 30004, "GP D% 25 29 :EI Poll device 7"
}

STRINGTABLE 
{
 101, "EG E% -76 :MG E% F% :JE F% 0 301 300 :EI Check mem location 25 (line minus 76), if it's 0 go to line 301, otherwise 300"
 102, "EG E% -76 :MG E% F% :JE F% 0 301 300 :EI Check mem location 26 (line minus 76), if it's 0 go to line 301, otherwise 300"
 103, "EG E% -76 :MG E% F% :JE F% 0 301 300 :EI Check mem location 27 (line minus 76), if it's 0 go to line 301, otherwise 300"
 104, "EG E% -76 :MG E% F% :JE F% 0 301 300 :EI Check mem location 28 (line minus 76), if it's 0 go to line 301, otherwise 300"
 105, "EG E% -76 :MG E% F% :JE F% 0 301 300 :EI Check mem location 29 (line minus 76), if it's 0 go to line 301, otherwise 300"
}
STRINGTABLE 
{
 225, "EG M% -124 :EG C% -200 :JE S% 1 240 250 :EI Load GPI number into C% and button into M%, jump to line 240 if revertive is 1, lamp on - otherwise line 250"
 226, "EG M% -124 :EG C% -200 :JE S% 1 240 250 :EI Load GPI number into C% and button into M%, jump to line 240 if revertive is 1, lamp on - otherwise line 250"
 227, "EG M% -124 :EG C% -200 :JE S% 1 240 250 :EI Load GPI number into C% and button into M%, jump to line 240 if revertive is 1, lamp on - otherwise line 250"
 228, "EG M% -124 :EG C% -200 :JE S% 1 240 250 :EI Load GPI number into C% and button into M%, jump to line 240 if revertive is 1, lamp on - otherwise line 250"
 229, "EG M% -124 :EG C% -200 :JE S% 1 240 250 :EI Load GPI number into C% and button into M%, jump to line 240 if revertive is 1, lamp on - otherwise line 250"
 230, "EI"
 240, "TP 'On' 1 M% :MP 1 C% :EI Write 'On' on button and load a 1 into memory location C%"
 241, "EI"
 250, "TP 'Off' 1 M% :MP 0 C%  :EI Write 'Off' on button and load a 0 into memory location C%"
 251, "string"
}
STRINGTABLE 
{
 300, "GS D% E% 0 :JR :EI Turn light off"
 301, "GS D% E% 1 :JR :EI Turn light on"
}