TSI Instruments 3022A - Page 89

Computer Interface and Commands 8-15
8804 RETURN
8806 REM
8896 REM-------------------------------------------------------------------------
8897 REM
8898 REM INPUT THE DATA FILE NAME
8899 REM
8900 CLS : LOCATE 10,5 : PRINT "INPUT THE FILENAME OF THE DATA FILE"
8902 LOCATE 12,8 : INPUT FILE$
8904 OPEN FILE$ FOR OUTPUT AS # 1
8906 FFLAG = 1 'set FFLAG = 1 for storing the data
8908 RETURN
8910 REM
8912 REM-------------------------------------------------------------------------
8940 REM
8942 REM SUBROUTINE FOR READING THE MICROPROCESSOR PUMP CONTROL OUTPUT
8944 REM
8950 PRINT # 3, "RE"
8952 GOSUB 9000 : IF ZZ$ = "" THEN 8952 ELSE 8954
8954 DUTYC = VAL(ZZ$) : DUTYV = 10.45/255! * DUTYC+1.55
8956 CLS : LOCATE 5,15 : PRINT "OUTPUT OF THE MICROPROCESSOR CONTROL :"
8958 LOCATE 6,20 : PRINT "(output of 0 is equivalent to 1.55 volt;"
8960 LOCATE 7,20 : PRINT " output of 255 is equivalent to 12 volt. )"
8962 LOCATE 8,22 : PRINT "OUTPUT = "; DUTYC; " ("; DUTYV; "volt)"
8964 LOCATE 22,15 : PRINT "HIT 'M' TO RETURN TO THE MAIN MENU"
8966 I$ = INKEY$ : IF I$ = "M" OR I$ = "m" THEN RETURN ELSE 8966
8968 REM
8970 REM--------------------------------------------------------------------------
8996 REM-------------------------------------------------------------------------
8997 REM
8998 REM SUBROUTINE TO TAKE DATA FROM CPC
8999 REM
9000 Z$ = "" : ZZ$ = "" : K = 0
9002 WHILE K < 1000
9004 IF LOC(3) > 0 THEN Z$ = INPUT$(1,#3) : K = 0
9006 IF Z$ = CHR$(13) THEN RETURN
9008 IF Z$ <> CHR$(10) AND Z$ <> "" THEN ZZ$ = ZZ$ + Z$ : Z$ = ""
9010 K = K + 1
9012 WEND
9014 RETURN
9016 REM
9020 REM*************************************************************************