1  rem display weight for other scale on lower display

2  rem switch between Scale A and Scale B

3  rem depending on key inputs.

10 defshr w1,wt101

20 defshr w2,wt201

30 defshr sa,t_6c0

40 defshr sb,t_6c1

50 sa=1

60 print " w= ";w2

70 if inkey$ = "b" then goto 100

80 goto 60

100 sb=1

110 print " w= ";w1

120 if inkey$ = "a" then goto 50

130 goto 110

140 end