DataMuseum.dk

Presents historical artifacts from the history of:

RC9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: @ T

⟦1c7dcbfa2⟧ TextFile

    Length: 749 (0x2ed)
    Types: TextFile
    Notes: @(#)Text.lpops 13.1 (RC International) 91/07/25
    Names: »Text.lpops«

Derivation

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦97ad7467e⟧ »0005« 
        └─⟦this⟧ »./home/vmsys/OBJECTS/lp/Text.lpops«

TextFile

#	@(#)Text.lpops	13.1 (RC International) 91/07/25

#ident	"@(#)face:OBJECTS/lp/Text.lpops	1.3"

title="Printer ${ARG2}"
lifetime=shortterm

close=`rm -f /tmp/fc.lpq.${VPID}`

framemsg="Press the CANCEL function key to cancel."

`lpstat -${ARG1} > /tmp/fc.lpq.${VPID};
if [ ! -s /tmp/fc.lpq.${VPID} ];
then
	if [ "${ARG1}" = "o" ];
	then
		message 'The Printer Queue is empty.';
	else
		message 'There are no defined printers to get the status of.';
	fi;
	echo "init=false";
fi`

rows=8
text="`readfile /tmp/fc.lpq.${VPID}`"
columns=`longline | set -l LL;
if [ "${LL}" -gt "72" ];
then
	echo 72;
else
	echo ${LL};
fi`

name=""
button=1
action=badchar

name=""
button=4
action=badchar

name=""
button=5
action=badchar

name=""
button=8
action=badchar