home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
GLEN
/
MASK.ZIP
/
STATUS.INC
< prev
Wrap
Text File
|
1987-12-20
|
300b
|
12 lines
SUB STATLINE(statmssg$,stat%) STATIC
SHARED slcolor%, statrow%
IF statmssg$ = "" THEN
CALL XqPrint(SPACE$(59),statrow%,1,slcolor%,0)
stat% = 0 : EXIT SUB
END IF
statcol% = (58-LEN(statmssg$))/2
CALL XqPrint(statmssg$,statrow%,statcol%,slcolor%,0)
SOUND 250,1
stat% = -1
END SUB