--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 # |