10 REM > OutSpeed

   20 DIM ctrl% 31:X%=ctrl%:Y%=X%DIV256

   30 FOR PASS=1 TO 2

   40   *SAVE FILE 0+5000

   50   *INFO FILE

   60   IF PASS=1:PRINT"OPENOUT";:CH=OPENOUT"FILE"

   70   IF PASS=2:PRINT"OPENUP ";:CH=OPENUP"FILE"

   80   T%=TIME:PROCgbpb(2,CH,&3000,&5000,PTR#CH):T%=TIME-T%

   90   CLOSE#CH:PRINT" ";T%;"cs"

  100 NEXT PASS

  110 END

  120 :

  130 DEFPROCgbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:CALL&FFD1:ENDPROC