kolibrios-gitea/programs/develop/SPForth/meforth_samples/autorun2.f
Kirill Lipatov (Leency) b97c8c8bf6 Rename Panel to Taskbar
git-svn-id: svn://kolibrios.org@5452 a494cfbc-eb01-0410-851d-a64ba20cac60
2015-02-23 16:01:43 +00:00

16 lines
485 B
Forth

: >asciiz + 0 SWAP C! ;
: >path
finfo @ 20 + 0 finfo @ 8 + ! DUP >R SWAP DUP >R CMOVE R> R> SWAP >asciiz ;
: >param
OVER finfo @ 8 + ! >asciiz ;
: exec
16 finfo @ ! finfo @ 58 sys2 ." started, code=" . CR 5 sys2 DROP ;
S" /RD/1/GRSCREEN" >path 99 exec
S" /RD/1/@RB" >path 30 exec
S" /RD/1/@SS" >path 30 exec
S" /RD/1/@TASKBAR" >path 30 exec
S" /RD/1/SETUP" >path S" BOOT" >param 30 exec
S" /RD/1/ICON2" >path S" BOOT" >param 10 exec
S" /RD/1/board" >path 25 exec
BYE