100 REM BENCHMARK 7
 110 PRINT "S"
 120 LET k=0
 130 DIM m(5)
 140 LET k=k+1
 150 LET a=k/2*3+4-5
 160 GO SUB 230
 170 FOR l=1 TO 5
 180 LET m(l)=a 
 190 NEXT l
 200 IF k<1000 THEN GO TO 140
 210 PRINT "E"
 220 ;STOP 
 230 RETURN 
4000  
4010 PROC ClearCounts()
4030 CLEAR 
4040 GO SUB 100
4060 PROC ShowCounts(230)
4090 STOP 
4950  
4960 .uninstall Profile.drv: STOP 
4970  
4990 DEFPROC ClearCounts()
5000 DRIVER CODE "%",0,0
5010 ENDPROC 
5660  
5790 REM Check bank contents, list non-zero line counts
5800 REM Uses DRIVER "%",1 to avoid need to lower RAMTOP
5810 DEFPROC ShowCounts(%m)
5900 FOR %l=1 TO %m
5947   DRIVER CODE ("%"),1,%l TO %c
5950   IF %c THEN PRINT %l,%c
5960 NEXT %l
5990 ENDPROC 
6000  
9970  
9980 CAT "Profile*.*" EXP 
9999 SAVE "ProfileDemo.bas" LINE 4010