Measurement Computing DAC488 v.1 - Manual (Page 37)

DAC488 User’s Manual DAC488 Operation 31
410 IF MODEL$ = "2" THEN GOTO 420 ELSE GOTO 440
420 INPUT" Select a port 1,2 ";PORT
430 GOTO 450
440 INPUT" Select a port 1-4 ";PORT
450 IF PORT < 1 OR PORT > 4 GOTO 410
460 IF PORT > 2 AND DAC2$ ="Y" THEN GOTO 410
470 PRINT
480 INPUT"Select an interval in milliseconds (1-255) ";INTRVL
490 IF (INTRVL <= 0) OR (INTRVL > 255) GOTO 480
500 PRINT" Select a waveform (1-6) ";WAVE
510 PRINT" 1 - Sinewave "
520 PRINT" 2 - Rectified Sine Wave"
530 PRINT" 3 - Triangle "
540 PRINT" 4 - Ramp "
550 PRINT" 5 - Inverted Ramp "
560 PRINT" 6 - Square Wave "
570 INPUT WAVE
580 IF WAVE < 1 OR WAVE > 6 GOTO 500
590 IF WAVE = 1 GOTO 660
600 IF WAVE = 2 GOTO 700
610 IF WAVE = 3 GOTO 740
620 IF WAVE = 4 GOTO 780
630 IF WAVE = 5 GOTO 820
640 IF WAVE = 6 GOTO 860
650 PRINT: PRINT: GOTO 410
660 REM sinewave output routine
670 PRINT #1,"output 09;p";PORT"c3f0,256l0i";INTRVL;"n0t0x"
680 PRINT #1,"output 09;t"; (2^(PORT-1));"x@"
690 GOTO 650
700 REM rectified sinewave output routine
710 PRINT #1,"output 09;p";PORT"c3f0,128l0i";INTRVL;"n0t0x"
720 PRINT #1,"output 09;t"; (2^(PORT-1));"x@"
730 GOTO 650
740 REM triangle wave output routine
750 PRINT #1,"output 09;p";PORT"c3f256,256l256i";INTRVL;"n0t0x"
760 PRINT #1,"output 09;t"; (2^(PORT-1));"x@"
770 GOTO 650
780 REM ramp wave output routine
790 PRINT #1,"output 09;p";PORT"c3f256,64l256i";INTRVL;"n0t0x"
800 PRINT #1,"output 09;t"; (2^(PORT-1));"x@"
810 GOTO 650
820 REM inverted ramp wave output routine
830 PRINT #1,"output 09;p";PORT"c3f384,64l384i";INTRVL;"n0t0x"
840 PRINT #1,"output 09;t"; (2^(PORT-1));"x@"
850 GOTO 650
860 REM square wave output routine
870 PRINT #1,"output 09;p";PORT"c3f512,2l512i";INTRVL;"n0t0x"
880 PRINT #1,"output 09;t"; (2^(PORT-1));"x@"
890 GOTO 650