proj sshow
screen min

`First get some JPG files:
macro getpix
 copy "http://www.ghsport.com/cows/050/%2%1.jpg" "%2%1.jpg" 
 \copied "%2%1.jpg"
/
if not fexist "cow0501.jpg" then .getpix (7,-1) 7, "cow050"

`Here is the template for the slide show window:
template show "Slide Show" /bg:15
 @pic.jpg
 exit
/

`A macro to refresh the picture:
macro next
 copy "%1.jpg" "pic.jpg"
 template /refresh
/

`Prime it with the first JPG file:
.next "cow0501"

`Now write a run file for the other GHS session:
me (report) feedpix.rf
me "scr min
me "me send on
me "mac next
me "me send .next %1
me "wait 2
me "/
me "macro dirpix
me "erase feedpix.rf
me "dir *.jpg /mac:next
me "quit
me "/
me "end dirpix
me (report) off
shell ^^ghs.exe feedpix.rf /spawn
me send on
end show `this actually starts the show