Rice Lake iRite IDE - Manual (Page 95)

920i Programming Reference - Appendix 91
program Hardware;
my_array : HW_array_type;
handler User1KeyPressed;
i : integer;
next_slot : HW_type;
begin
Hardware(my_array);
for i := 1 to 14
loop
if my_array[i] = NoCard then
WriteLn(2,"Slot ",i," No Card");
elsif my_array[i] = DualAtoD then
WriteLn(2,"Slot ",i," DualAtoD");
elsif my_array[i] = SingleAtoD then
WriteLn(2,"Slot ",i," SinglAtoD");
elsif my_array[i] = DualSerial then
WriteLn(2,"Slot ",i," DualSerial");
elsif my_array[i] = AnalogOut then
WriteLn(2,"Slot ",i," AnalogOut");
elsif my_array[i] = DigitalIO then
WriteLn(2,"Slot ",i," DigitalIO");
elsif my_array[i] = Pulse then
WriteLn(2,"Slot ",i," Pulse");
elsif my_array[i] = Memory then
WriteLn(2,"Slot ",i," Memory");
elsif my_array[i] = DeviceNet then
WriteLn(2,"Slot ",i," DeviceNet");
elsif my_array[i] = Profibus then
WriteLn(2,"Slot ",i," Profibus");
elsif my_array[i] = Ethernet then
WriteLn(2,"Slot ",i," Ethernet");
elsif my_array[i] = ABRIO then
WriteLn(2,"Slot ",i," ABRIO");
elsif my_array[i] = BCD then
WriteLn(2,"Slot ",i," BCD");
elsif my_array[i] = DSP2000 then
WriteLn(2,"Slot ",i," DSP2000");
elsif my_array[i] = AnalogInput then
WriteLn(2,"Slot ",i," AnalogInput");
elsif my_array[i] = ControlNet then
WriteLn(2,"Slot ",i," ControlNet");
elsif my_array[i] = DualAnalogOut then
WriteLn(2,"Slot ",i," DualAnalogOut");
end if;
end loop;
WriteLn(2,"");
end;
end Hardware;