10 REM AUTOSTART
   20 INPUT "WHICH LABBUS?";LB
   30 INPUT "WHICH MAINCH?";MC
   35 INPUT "WHICH SUBCH?";SC
   40 LABBUS LB:DIM A$(63)
   50 LABOUT MC;":";SC;"?"
   60 LABINP A$:PRINT"waiting..."
   70 PRINT "LABINP string response: ";A$
   80 LABREQ MC,SC,A$:PRINT"requesting..."
   90 PRINT "LABREQ string response: ";A$
  100 LABREQ MC,SC,A:PRINT"requesting..."
  110 PRINT "LABREQ numeric response: ";A
  120 PRINT "LABERR value: ";LABERR,
  130 IF LABERR=22 THEN PRINT " (False response)"
  140 IF LABERR=40 THEN PRINT " (eXtra string ignored)"
  150 IF LABERR=36 THEN PRINT " (Timeout)"
  160 IF LABERR=35 THEN PRINT " (wrong SubCh)"