Minebea CSD-814B - Page 181

168
1320 EC = 0 : ’ Error counter
1330 ’
1340 ’----< Data transfer >----------------
1350 FOR JJ = 1 TO 2500 : JJ = JJ : NEXT JJ
1360 SW = 0 : EC = 0
1370 PRINT : PRINT INX$(S)
1380 A$ = TXD$(S)
1390 PRINT #1, A$
1400 PRINT “ Transfering Command = “ ; A$
1410 B$ = “”
1420 COM ON
1430 ’
1440 ’
1450 WW$ = MID$(TIME$, 7, 2) : ’ Starting Time(s)
1460 SS = VAL(WWS) + TM : ’ Targeting time(s)
1470 IF SS >= 59 THEN SS = TM
1480 ’
1490 ’------------------< Data receiving >----------------
1500 WW$ = MID$(TIME$, 7, 2) : ’Present time(s)
1510 MM = VAL(WW$)
1520 IF MM > SS THEN GOSUB 1870 : ’Time out process.
1530 IF SW = 0 THEN 1490 : ’Waiting for the end of receiving.
1540 '
1550 IF EC = 0 THEN PRINT “Receiving Data” ; B$
1560 N# = N# + 1
1570 '
1580 '------------------< Update of Transferring data ･ counter >------
1590 S = S + 1 : IF S >= C THEN S = 1
1600 '
1610 C$ = MID$(B$, 1, 1) : ’Taking out command type.
1620 D$ = MID$(B$, 2, 1) : ’Taking−out ID number
1630 '------------------< Error ･ check >----------------
1640 IF INSTR(B$, “E”) = 0 THEN 1680
1650 '