1  rem switch between Scale A and Scale B

2  rem switch between discrete outputs

3  rem every one-half second.

10 defshr do1,p_501

20 defshr do2,p_502

30 defshr sa,t_6c0

40 defshr sb,t_6c1

50 sleep 500

60 do1=1:do2=0:sa=1

70 sleep 500

80 do1=0:do2=1:sb=1

90 goto 50