path: root/demos/demo

#!/bin/rc

bind '#|' /mnt/apldemo
font=/lib/font/bit/APL386/28/font
@{while(test -x /mnt/apldemo/data1){cat /mnt/apldemo/data1}}| aux/statusbar -w 1682,750,1920,859 'demo' &
acme -c1 -f$font -F$font demos
kill apl | rc
kill statusbar | rc