==SA2== 10 CUNET 2 2 32 20 TIME 5 60 CU_POST VOID|25 65 PRINT CUM_TASK 70 END 80 *xf 90 FOR i=1 TO 5000 100 SETP i i i i i 110 NEXT 120 FOR i=1 TO 5000 STEP 15 130 POST 4 P(i) 140 NEXT 150 END 160 *rcv 170 FOR i=1 TO 5000 STEP 15 180 POST -4 P(i) 190 PRINT i 200 NEXT # ==SA4== 10 CUNET 4 2 32 20 TIME 5 60 CU_POST 8-31 65 PRINT CUM_TASK 70 END 80 *xf 90 FOR i=1 TO 5000 100 SETP i i i i i 110 NEXT 120 FOR i=1 TO 5000 STEP 15 130 CUM_ERR=0 140 POST 2 P(i) 150 IF CUM_ERR!=0 THEN : PRINT "X_ERR" : END : END_IF 160 NEXT 170 END 180 *rcv 190 FOR i=1 TO 5000 STEP 15 200 POST -2 P(i) 210 PRINT i 220 NEXT # |