; 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 <FILSPC> NE "TT010:" .GOTO NOT10
.IF <UIC> = "[21,1]" .GOTO RAY
.IF <UIC> = "[2,7]" .GOTO RAY
.IF <UIC> = "[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 <FILSPC> NE "TT031:" .GOTO NORM
.IF <UIC> = "[22,1]" .GOTO NORM
.;
.NORM:
.TESTFILE SY:'<UIC>'LOGIN.CMD
.IF <FILERR> = 1 .DISABLE QUIET
.IF <FILERR> = 1 .CHAIN SY:'<UIC>'LOGIN.CMD
.EXIT:
