Det-Tronics Mac - w/Supercard - Manual (Page 69)

XCMD's & XFCN's
4.5
95-8434
set the lockScreen to true
— speed up getting the data
put lastEventCount into count
— where do we start from
repeat for numberToGet
— get all of the new ones
put GetALoggedEvent(count) into tempString
— the XFCN.
put count + 1 into count
— increment to use later
put char 76 of tempString into colorKind
— char 76 has the color number
— 1 = black
— 2 = blue
— 3 = red
— 4 = green
delete char 76 of tempString
— delete the last char
put tempString into line count of card field AlarmField
— put the string in the field
select line count of card field AlarmField
— select it to change the color
if colorKind = 1 then
set the textColor of card field AlarmField to 256
else if colorKind = 2 then
set the textColor of card field AlarmField to 7
else if colorKind = 3 then
set the textColor of card field AlarmField to 108
else if colorKind = 4 then
set the textColor of card field AlarmField to 10
end if
end repeat
put theNumber into lastEventCount
— save it for next time
set the cursor to arrow
end if
select after last char of card field AlarmField
— scroll the window to the last event
set the lockText of card field AlarmField to true
— do not select any text
set the lockScreen to false
— let drawing begin
end openCard