Subversion Repositories Kolibri OS

Rev

Rev 9174 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9174 Rev 9180
Line 59... Line 59...
59 
			K.Exit
 59 
			K.Exit
60 
		END;
 60 
		END;
61 
		IF ~paused THEN
 61 
		IF ~paused THEN
62 
			DEC(cnt, step);
 62 
			DEC(cnt, step);
63 
			IF cnt <= 0 THEN
 63 
			IF cnt <= 0 THEN
64 
				cnt := time;
 - 
 
65 
				IF time > 0 THEN
 - 
 
66 
					K.SendIPC(mainTID, ID)
 64 
				K.SendIPC(mainTID, ID);
67 
				END
 65 
				cnt := time
68 
			END
 66 
			END
69 
		END
 67 
		END
70 
	END
 68 
	END
71 
END main;
 69 
END main;