User`s manual

550 ENTER @Dmm;Readings(*)
560 Stop=TIMEDATE
570 PRINT "TIME TO READ 10000 READINGS IN ASCII=";(Stop-Start)
580 !
Now transfer the same data in BASIC internal format REAL 64.
590 OUTPUT @Dmm;"FORMAT REAL,64"
600 DIM Ndig$[1],Count$[9]
610 OUTPUT @Dmm;"FETCH?"
620 Start=TIMEDATE
630 !
Read the header.
640 ENTER @Dmm USING "#,X,K,K";Ndig$;Count$[1;VAL(Ndig$)]
650 !
Read the data.
660 ENTER @Dmm_bin;Readings(*)
670 !
Read the LF.
680 ENTER @Dmm;Lf$
690 Stop=TIMEDATE
700 PRINT "TIME TO READ 10000 READINGS IN REAL 64= ";(Stop-Start)
710 !
Now transfer the same date in REAL 32 format.
720 !If this is going to BASIC it would later need to be converted.
730 OUTPUT @Dmm;"FORMAT REAL,32"
740 !
It take two integers per reading.
750 INTEGER I_readings(1:20000)
760 OUTPUT @Dmm;"FETCH?"
770 Start=TIMEDATE
780 !
Read the header.
790 ENTER @Dmm USING "#,X,K,K";Ndig$;Count$[1;VAL(Ndig$)]
800 !
Read the data.
810 ENTER @Dmm_bin;I_readings(*)
820 !
Read the LF.
830 ENTER @Dmm;Lf$
840 Stop=TIMEDATE
850 PRINT "TIME TO READ 10000 READINGS IN REAL 32=";(Stop-Start)
860 SUBEND
870 !
TIME TO READ 10000 READINGS IN ASCII = 34.75
TIME TO READ 10000 READINGS IN REAL 64 = 8.14999389648
TIME TO READ 10000 READINGS IN REAL 32 = 1.82000732422
Appendix D Measurement Speed and Accuracy Tradeoffs 273