1  COM A0$[7]
2  IF LEN(A0$)>0 THEN 5
3  A0$="$CPUUSE"
5  REM LINES 1-5 AFM MOD 2
10  REM***PROGRAM WRITTEN BY REYNOLD SCHWEICKHARDT***
20  REM***PROGRAM DETERIMES HOW MANY CYCLES CAN BE***
30  REM***MADE IN ONE MINUTE AND BY COMPARING THIS***
40  REM***AGAINST SOLE USE DETERIMES % OF CPU USE.***
45  PRINT "PROGRAM WILL TAKE SEVERAL MINUTES TO DETERMINE CPU USE."
50  X=TIM(0)
55  Y=TIM(0)
60  IF X=Y THEN 55
70  FOR I=1 TO 1.E+06
80  IF Y <> TIM(0) THEN 100
90  NEXT I
100  PRINT "NUMBER OF CYCLES THIS MINUTE: ";I
105  PRINT "% OF CPU FREE=";INT(I/35813.*100)
106  GOTO 1
110  END 
