|
【USE】 |
RCV
|
A=RCV(A$)
A=RCV(P(100))
A=RCV(DAT(10)) |
| 【FORMAT】 |
【FUNCTION】 |
RCV(arg)
|
|
| 【EXPLANATION】 |
|
|
|
--MPC A side--
LIST
10 CUNET 0 4 31
20 DIM a(100)
30 FILL a(0) 0
40 TIME 100
50 CUM_ERR=0
60 a$="1234567890"
70 IF XMT(8,a$)!=0 THEN : END : END_IF
80 IF RCV(a(1))!=8 THEN : END : END_IF
90 PRINT a(1) a(2) a(3) a(63) a(64)
#run
10 20 30 630 640
#
--MPC B side--
LIST
10 CUNET 8 4 31
20 DIM b(100)
30 TIME 100
40 CUM_ERR=0
50 IF RCV(b$)!=0 THEN : END : END_IF
60 PRINT b$
70 FOR i=1 TO 64 : b(i)=i*10 : NEXT
80 IF XMT(0,b(1))!=0 THEN : END : END_IF
90 END
#run
1234567890
# |
|
|
[LASTMODIFY]2010-12-15 15:38:11 |
[CREATEDATE]2010-12-15 14:59:34 |
|
|
|
|