166
1330 PRINT #1, TXD$(4) : ’Reading out S1 set value
1340 LINE INPUT #1, B$
1350 E$ = MID$(B$, 1, 1)
1360 IF E$ = “E” THEN 1330
1370 W$ = MID$(B$, 5, 8) : PRINT “Gross Weight = “ ; W$
1380 '
1390 print #1, txd$(8) : ’A/Z
1400 LINE INPUT #1, B$
1410 E$ = MID$(B$, 1, 1)
1420 IF E$ = “E” THEN STOP
1430 ’
1440 PRINT #1, TXD$(9) : ’A/Z OFF
1450 LINE INPUT #1, B$
1460 E$ = MID$(B$, 1, 1)
1470 IF B$ = “E” THEN STOP
1480 '
1490 END