DIM ARRAY(1)
     OPEN "TESTA" TO FILEA ELSE STOP "NO TESTA"
     OPEN "TESTB" TO ARRAY(0) ELSE STOP "NO TESTB"
LastUpdated... = "Rev: 22:19 17Feb1995 u2443 6 /users/u2443/BP/TEST"
     OPEN "TESTC" TO ARRAY(1) ELSE STOP "NO TESTC"
     COUNT.TIME = TIME()
     DELTA.TIME = 2
     FOR I = 1 TO 60000
        IF ABS(COUNT.TIME - TIME()) LE DELTA.TIME THEN
           COUNT.TIME = TIME()
           CRT I "R#8":@(0):
        END
        WRITE I ON FILEA, I
        WRITE I ON ARRAY(MOD(I,2)),I
     NEXT I
     RETURN
  END