Category : BASIC Source Code
Archive   : MASK10.ZIP
Filename : STATUS.INC

 
Output of file : STATUS.INC contained in archive : MASK10.ZIP

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