home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
OS2
/
JOVW122B.ZIP
/
example.rex
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-12-09
|
848b
|
38 lines
/*This example is set up for a screen resolution of 1024 by 768*/
/*Note that / is never used, only % which guarantees an integer result */
/*It just moves the current image around the screen */
"get_info"
PARSE VAR rc wide high colors position_x position_y window_w window_h
horizontal = 1024 - window_w
vertical = 768 - window_h
do 4
cmd = "move_abs " horizontal % 2 " " vertical % 2
cmd
"pause 20"
"move_abs 0 0"
"pause 20"
cmd = "move_abs 0 " vertical
cmd
"pause 20"
cmd = "move_abs " horizontal " " vertical
cmd
"pause 20"
cmd = "move_abs " horizontal " 0"
cmd
"pause 20"
"move_abs 0 0"
do vertical%3
"move_rel 0 3"
end
do horizontal%3
"move_rel 3 0"
end
do vertical%3
"move_rel 0 -3"
end
do horizontal%3
"move_rel -3 0"
end
end
exit