; COMMAND = "'COMMAN'" ; PARAMETERS = "'P0'","'P1'","'P2'","'P3'","'P4'" ; PARAMETERS = "'P5'","'P6'","'P7'","'P8'","'P9'" .; if any parameters .; p1 = # of blocks used, p2 = # allowed .IF P1 = "" .OR .IF P1 = "0" .GOTO BLKSOK .DISABLE QUIET ; ; ; YOU greedy person!!!!!!!!!! ; You are using up 'P1' blocks of disk space, which is more ; than your allocation of 'P2' blocks. ; The system (and the other users) would be much happier if you would ; cut down on the amount of disk space you are using. ; ; .BLKSOK: .ENABLE QUIET .; SEE IF THIS IS A SPECIAL TERMINAL .TESTFILE TI: .IF NE "TT010:" .GOTO NOT10 .IF = "[21,1]" .GOTO RAY .IF = "[2,7]" .GOTO RAY .IF = "[7,7]" .GOTO RAY SET /SLAVE=TI: TCF 33,133,110,33,133,112,33,133,71,102 .; make these lines double size TCF 33,43,63,33,104,33,43,64,33,104,33,104,33,43,63,33,104,33,43,64 TCF 33,133,65,101 .DISABLE QUIET ; WHAT ARE YOU DOING ON MY TUBE ????? ; WHAT ARE YOU DOING ON MY TUBE ????? ; ; Leave a quarter on the desk, turkey! ; Leave a quarter on the desk, turkey! .ENABLE QUIET TCF 12,12,12,12,12,12,12,12,12,12 .SETN C 5 .BLINK: TCF 33,133,77,65,150 DLY 15T TCF 33,133,77,65,154 DLY 15T .DEC C .IF C GT 0 .GOTO BLINK SET /NOSLAVE=TI: .GOTO NORM .RAY: .GOTO NORM .NOT10: .IF NE "TT031:" .GOTO NORM .IF = "[22,1]" .GOTO NORM .; .NORM: .TESTFILE SY:''LOGIN.CMD .IF = 1 .DISABLE QUIET .IF = 1 .CHAIN SY:''LOGIN.CMD .EXIT: