Subversion Repositories Kolibri OS

Rev

Rev 5452 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5452 Rev 9587
Line 3... Line 3...
3
	finfo @ 20 + 0 finfo @ 8 + ! DUP >R SWAP DUP >R CMOVE R> R> SWAP >asciiz ;
3
	finfo @ 20 + 0 finfo @ 8 + ! DUP >R SWAP DUP >R CMOVE R> R> SWAP >asciiz ;
4
: >param
4
: >param
5
	OVER finfo @ 8 + ! >asciiz ;
5
	OVER finfo @ 8 + ! >asciiz ;
6
: exec
6
: exec
7
	16 finfo @ ! finfo @ 58 sys2 ." started, code=" . CR 5 sys2 DROP ;
7
	16 finfo @ ! finfo @ 58 sys2 ." started, code=" . CR 5 sys2 DROP ;
8
S" /RD/1/GRSCREEN" >path 99 exec
8
S" /SYS/GRSCREEN" >path 99 exec
9
S" /RD/1/@RB" >path 30 exec
9
S" /SYS/@RB" >path 30 exec
10
S" /RD/1/@SS" >path 30 exec
10
S" /SYS/@SS" >path 30 exec
11
S" /RD/1/@TASKBAR" >path 30 exec
11
S" /SYS/@TASKBAR" >path 30 exec
12
S" /RD/1/SETUP" >path S" BOOT" >param 30 exec
12
S" /SYS/SETUP" >path S" BOOT" >param 30 exec
13
S" /RD/1/ICON2" >path S" BOOT" >param 10 exec
13
S" /SYS/ICON2" >path S" BOOT" >param 10 exec
14
S" /RD/1/board" >path 25 exec
14
S" /SYS/board" >path 25 exec
15
BYE
15
BYE