; HERE WE HAVE AN INTERACTIVE SESSION SHOWING THE USE OF SELECTIVE TASK
; ACCOUNTING TO TRACK DOWN THE EFFECTS OF LOADING ON OUR SYSTEM DISK
;
; TO START UP TASK ACCOUNTING THE COMMAND  "ACC /TASK"  IS GIVEN.
; AFTER A LIST OF TASKS HAVE BEEN ENTERED, THE COMMAND   ACC /PRINT
; ENABLES STATISTICS TO PRINT AT THE TERMINAL.
.ENABLE QUIET
.IFNINS TSKLOG INS $TSKLOG
.IFNINS DSKOFF INS $DSKOFF
.IFNINS DSKMON INS $DSKMON
.DISABLE SUBSTITUTION
.OPEN DEMTST.FTN;1
.ENABLE DATA
	WRITE(5,10)
10	FORMAT(' HI')
	END
.DISABLE DATA
.CLOSE
.ENABLE SUBSTITUTION
.DISABLE QUIET	
ACC /TASK				! START UP TASK ACCOUNTING
.WAIT ...ACC
ACC /PRINT				! PRINT STATISTICS ON TI:
;
; GATHER F4P STATISTICS
;
.ENABLE QUIET
RUN DSKMON
.DISABLE QUIET
F4P DEMTST.OBJ;1=DEMTST/NOTR
.ENABLE QUIET
RUN DSKOFF
.WAIT DSKMON
.DELAY 2S
.DISABLE QUIET
;
; GATHER TKB STATISTICS WITHOUT RESIDENT LIBRARY
;
.OPEN DEMTST.BLD;1
.DATA DEMTST.TSK;1/CP/FP=DEMTST,[1,1]F4POTS/LB
.CLOSE
.ENABLE QUIET
RUN DSKMON
.DISABLE QUIET
TKB @DEMTST.BLD
.ENABLE QUIET
RUN DSKOFF
.WAIT DSKMON
.DELAY 2S
.DISABLE QUIET
;
; GATHER TKB STATISTICS WITH RESIDENT LIBRARY
;
.OPEN DEMTST.BLD;1
.ENABLE DATA
DEMTST.TSK;1/CP/FP=DEMTST,[1,1]F4POTS/LB
/
LIBR=F4PRES:RO
//
.DISABLE DATA
.CLOSE
.ENABLE QUIET
RUN DSKMON
.DISABLE QUIET
TKB @DEMTST.BLD
.ENABLE QUIET
RUN DSKOFF
.WAIT DSKMON
.DELAY 2S

PIP DEMTST.*;*/DE
;
; TURN OFF TASK ACCOUNTING
ACC /NTASK
REM TSKLOG
REM DSKOFF
REM DSKMON