Brookfield DV-III Rheometer - Manual (Page 57)

- 57 -
1835 G O S U B G O S U B G O S U B G O S U B G O S U B 1455 ‘ Delay between characters
1840 N E X T N E X T N E X T N E X T N E X T CMD
1845 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
1850 ‘
1855 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1860 ‘| | | | | R o u t i n e t o r e c e i v e a r e s p o n s e f r o m t h e D V - I I I | R o u t i n e t o r e c e i v e a r e s p o n s e f r o m t h e D V - I I I | R o u t i n e t o r e c e i v e a r e s p o n s e f r o m t h e D V - I I I | R o u t i n e t o r e c e i v e a r e s p o n s e f r o m t h e D V - I I I | R o u t i n e t o r e c e i v e a r e s p o n s e f r o m t h e D V - I I I |
1865 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1870 RESP$ = “”
1875 W H I L E
W H I L E W H I L E W H I L E W H I L E RIGHT$(RESP$,1) <> CR$ ‘ Wait for a carriage return
1880 ‘ If data in input buffer, retrieve it
1885 I F I F I F I F I F L O C L O C L O C L O C L O C(1) > 0 T H E N T H E N T H E N T H E N T H E N RESP$ = RESP$ + I N P U T $ I N P U T $ I N P U T $ I N P U T $ I N P U T $(L O C L O C L O C L O C L O C(1),#1)
1890 W E N D W E N D W E N D W E N D W E N D
1895 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
1900 ‘
1905 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1910 ‘| | | | | R o u t i n e t o p a r s e r e s p o n s e t o a n R c o m m a n d | R o u t i n e t o p a r s e r e s p o n s e t o a n R c o m m a n d | R o u t i n e t o p a r s e r e s p o n s e t o a n R c o m m a n d | R o u t i n e t o p a r s e r e s p o n s e t o a n R c o m m a n d | R o u t i n e t o p a r s e r e s p o n s e t o a n R c o m m a n d |
1915 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1920 HEXRESP$ = M I D $ M I D $ M I D $ M I D $ M I D $(RESP$,2,4) ‘ Extract characters 2-5
1925 G O S U B G O S U B G O S U B G O S U B G O S U B 1990 ‘ Convert to decimal
1930 TORQUE = (DECIMALNUM - ZEROOFFSET)/100 ‘ Subtract zero offset from torque
1935 HEXRESP$ = M I D $ M I D $ M I D $ M I D $ M I D $(RESP$,6,4) ‘ Extract characters 6-9
1940 G O S U B G O S U B G O S U B G O S U B G O S U B 1990 ‘ Convert to decimal
1945 TEMPERATURE = (DECIMALNUM - 4000)/40 ‘ Calculate temperature
1950 VISC = (100/RPM) * MODMULT * SMC * TORQUE ‘ Calculate viscosity
1955 SSTRESS = MODMULT * SMC * SRC * TORQUE ‘ Calculate shear stress
1960 SRATE = SRC * RPM ‘ Calculate shear rate
1965 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
1970 ‘
1975 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1980 ‘| H e x t o d e c i m a l c o n v e r s i o n o f a 4 d i g i t h e x s t r i n g | | H e x t o d e c i m a l c o n v e r s i o n o f a 4 d i g i t h e x s t r i n g | | H e x t o d e c i m a l c o n v e r s i o n o f a 4 d i g i t h e x s t r i n g | | H e x t o d e c i m a l c o n v e r s i o n o f a 4 d i g i t h e x s t r i n g | | H e x t o d e c i m a l c o n v e r s i o n o f a 4 d i g i t h e x s t r i n g |
1985 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1990 HEXRESP$ = “&H” + HEXRESP$ ‘ Append hexadecimal identifier
1995 DECIMALNUM = V A L V A L V A L V A L V A L(HEXRESP$) ‘ Convert hex string to a decimal value
2000 ‘ If overflow, take the complement
2005 I F I F I F I F I F S G N S G N S G N S G N S G N(DECIMALNUM) = -1 T H E N T H E N T H E N T H E N T H E N DECIMALNUM = 65536! + DECIMALNUM
2010 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
2015 ‘
2020 + — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
2025 ‘| R o u t i n e t o c l e a r t h e c o m p o r t i n p u t b u f f e r | | R o u t i n e t o c l e a r t h e c o m p o r t i n p u t b u f f e r | | R o u t i n e t o c l e a r t h e c o m p o r t i n p u t b u f f e r | | R o u t i n e t o c l e a r t h e c o m p o r t i n p u t b u f f e r | | R o u t i n e t o c l e a r t h e c o m p o r t i n p u t b u f f e r |
2030 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
2035 W H I L E W H I L E W H I L E W H I L E W H I L E L O C L O C L O C L O C L O C(1) > 0 ‘ If data in input buffer
2040 DUMMY$ = I N P U T $ I N P U T $ I N P U T $ I N P U T $ I N P U T $(L O C L O C L O C L O C L O C(1),#1) ‘ Dump it out
2045 G O S U B G O S U B G O S U B G O S U B G O S U B 1455
2050 W E N D W E N D W E N D W E N D W E N D
2055 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
2060 ‘
2065 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
2070 ‘| R o u t i n e t o c l o s e c o m m u n i c a t i o n s c h a n n e l | | R o u t i n e t o c l o s e c o m m u n i c a t i o n s c h a n n e l | | R o u t i n e t o c l o s e c o m m u n i c a t i o n s c h a n n e l | | R o u t i n e t o c l o s e c o m m u n i c a t i o n s c h a n n e l | | R o u t i n e t o c l o s e c o m m u n i c a t i o n s c h a n n e l |
2075 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
2080 C L O S E C L O S E C L O S E C L O S E C L O S E #1
2085 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
Running this program from within G W B A S I C © G W B A S I C © G W B A S I C © G W B A S I C © G W B A S I C © produces output as shown on the next page.