340 Appendix D Optimizing Throughout and Reading Rate
440 PRINT USING "44A,DD,DDD";"The transfer time using FOR NEXT is
";Tns_time
450 PRINT USING "44A,DD.DDD";"The total time for AZERO off is";
Exe_time+Dnld_time+ Tns_time
460 PRINT
470 !
480 CALL Defeat(Dnld_time,Exe_time,Tns_time)
490 PRINT USING "44A,DD.DDD";"The execution time for program memory is
";Exe_time
500 PRINT USING "44A,DD,DDD";"The download time for transfering the SUB
is";Dnld_time
510 PRINT USING "44A,DD,DDD";"The transfer time using FOR NEXT is
";Tns_time
520 PRINT USING "44A,DD.DDD";"The total time for DEFEAT ON
is";Exe_time+Dnld_time+Tns_time
530 PRINT
540 !
550 END
560 SUB Default(REAL Dnld_time,Exe_time, Tns_time)
570 DIM A(37)
580 Exe_time=TlMEDATE
590 OUTPUT 722:"RESET;TRIG SYN"
600 OUTPUT 722;"OHM"
610 FOR I=1 TO 23
620 ENTER 722;A(I)
630 NEXT I
640 OUTPUT 722;"OHMF"
650 ENTER 722;A(24)
660 ENTER 722;A(25)
670 OUTPUT 722;"ACV"
680 ENTER 722;A(26)
690 ENTER 722;A(27)
700 OUTPUT 722;"DCV"
710 FOR I=28 TO 33
720 ENTER 722;A(I)
730 NEXT I
740 OUTPUT 722;"ACV"
750 ENTER 722;A(34)
760 OUTPUT 722;"DCV"
770 FOR I=35 TO 37
780 ENTER 722;A(I)
790 NEXT I
800 Exe_time=TIMEDATE-Exe_time
810 Dnld time=0
820 Tns_time=0
830 SUBEND
840 SUB Fixed(REAL Dnld_time,Exe_time,Tns_time)
850 DIM A(37)
860 Exe_time=TIMEDATE
870 OUTPUT 722;"RESET;TRIG SYN"
880 OUTPUT 722;"OHM,1E4
890 FOR I=1 TO 15
900 ENTER 722;A(I)
910 NEXT I
920 OUTPUT 722;"OHM,1E5"
930 FOR I=16 TO 23
940 ENTER 722;A(I)
950 NEXT I
960 OUTPUT 722;"OHMF,1E3"
970 ENTER 722;A(24)
980 ENTER 722;A(25)
990 OUTPUT 722;"ACV,250;ACBAND 250"
1000 ENTER 722;A(26)
1010 OUTPUT 722;"ACV 10;ACBAND 25000"
1020 ENTER 722;A(27)