Subversion Repositories Kolibri OS

Rev

Rev 1803 | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1803 Rev 2734
1
;************************************************
1
;************************************************
2
;*  X-0-X   / Kolibri OS /
2
;*  X-0-X   / Kolibri OS /
3
;************************** 17/10/2007 **********
3
;************************** 17/10/2007 **********
-
 
4
;************************** 04/06/2012 **********
-
 
5
 
4
include 'main.inc'
6
include 'main.inc'
5
include 'data.inc'
7
include 'data.inc'
6
include 'macs.inc'
8
include 'macs.inc'
7
 
9
 
8
  BeginProgram
10
  BeginProgram
9
 
11
 
10
   SetEventMask 100111b
12
   SetEventMask 100111b
11
   call rndseed
13
   call rndseed
12
 
14
 
13
  main_loop
15
  main_loop
14
 
16
 
15
   Subroutines
17
   Subroutines
16
 
18
 
17
  DATA_SECTION
19
  DATA_SECTION
18
 
20
 
19
  EndProgram
21
  EndProgram