Download this file
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
PROGRAM LaserGameClient VAR END_VAR CASE LaserGameCabinetPuzzle OF PACK_ML.State.Stopped: DO_Stopped := TRUE; DO_Complete := FALSE; DO_Hold := FALSE; DO_Abort := FALSE; DO_Execute := FALSE; DO_Idle := FALSE; PACK_ML.State.Aborted: DO_Stopped := FALSE; DO_Abort := TRUE; PACK_ML.State.Idle: DO_Idle := TRUE; PACK_ML.State.Complete : DO_Complete := TRUE; PACK_ML.State.Execute : DO_Execute := TRUE; PACK_ML.State.No : END_CASE# IF Screen_ON THEN DO_Screen := FALSE; ELSE DO_Screen := TRUE; END_IF