

以下は、QBASICのサンプルプログラムです。
(例1) ”RDD”を送るとトルク、回転の表示データを1回だけ返します。
'**********************************
              ' TS-2600 DIGITAL TORQUE CONVERTER
              ' QBASIC sample program
              ' "RDD" command
              '**********************************
              '
              ' RS-232C(COM1) 9600bps, prity:non, 8bit char, 1stop bit, DSR:ignore
              OPEN "COM1:9600,N,8,1,DS0" FOR RANDOM AS #1
  
              PRINT #1, "RDD"
              INPUT #1, TRQ, REV
              PRINT TRQ, REV
  
              END
  
            
(例2) ”RLO”を送ると1秒毎に、表示されているトルク、回転データを繰り返しかえします。 ”RLF”をキーインすると停止します。
 '**********************************
              ' TS-2600 DIGITAL TORQUE CONVERTER
              ' QBASIC sample program
              ' "RLO" & "RLF" command
              '**********************************
              '
              ' RS-232C(COM1) 9600bps, prity:non, 8bit char, 1stop bit, DSR:ignore
              OPEN "COM1:9600,N,8,1,DS0" FOR RANDOM AS #1
              PRINT #1, "RLO"
              DO
              INPUT #1, TRQ, REV
              PRINT TIME$; " TORQUE="; TRQ; "Nm REVO="; REV; "r/min"
              LOOP WHILE INKEY$ = ""
              PRINT #1, "RLF"
              END