1000 T = .1
1100 CMD TIMEOUT =0
1200 ISET IFC
1300 FOR I = 0 TO 10000:NEXT
1400 ISET REN
1500 ON SRQ GOSUB 3400
1600 SRQ ON:PRINT "#1"
1700 FOR I = 0 TO 10000:NEXT
1800 '**********************************
1900 FOR SEKI = 1 TO 20
2000     FOR TJ = 1      TO 10  STEP 1
2100         BUF$ = "TJ " + STR$(TJ)+"ms"
2210         PRINT BUF$
2220         PRINT @1;BUF$+";FPQ 0" @
2300         GOSUB *ONEPULSE
2310         PRINT @1;"FPQ 2" @
2320         GOSUB *ONEPULSE
2400     NEXT
2500 NEXT
2600 END
2700 '*****************************************
2800 *ONEPULSE  '******************************
2900 PRINT @1;"start  10"@
3000 SSS = 0
3100 WHILE SSS = 0 :WEND
3200 RETURN
3300 PRINT @1;"tj " +STR$( T )
3400 'PRINT "$IN";
3500 POLL 1, B
3600 'PRINT ":OUT"
3700 SRQ ON :SSS = 1
3800 RETURN