17dd7cddfSDavid du Colombier#!/bin/rc 27dd7cddfSDavid du Colombier 3*9a747e4fSDavid du Colombierscr=(`{cat /dev/draw/new >[2]/dev/null || status=''}) 4*9a747e4fSDavid du Colombierwid=$scr(11) 5*9a747e4fSDavid du Colombierht=$scr(12) 6*9a747e4fSDavid du Colombier 7*9a747e4fSDavid du Colombierwindow 0,0,161,117 stats -lmisce 8*9a747e4fSDavid du Colombierwindow 161,0,560,117 faces -i 9*9a747e4fSDavid du Colombier 10*9a747e4fSDavid du Colombierif(~ `{screensize} small) 11*9a747e4fSDavid du Colombier dump=acme.dump.small 12*9a747e4fSDavid du Colombierif not 13*9a747e4fSDavid du Colombier dump=acme.dump 14*9a747e4fSDavid du Colombier 15*9a747e4fSDavid du Colombiera=`{echo $wid-35 | hoc } 16*9a747e4fSDavid du Colombierwindow 60,90,$a,$ht acme -l lib/$dump 17*9a747e4fSDavid du Colombierwindow 20,140,610,450 /usr/glenda/lib/first.window 18